lib/Unicode/UCD.pm

2608     my @invlist;
2615         @invlist = split "\n", $swash->{'LIST'} =~ s/ \s* (?: \# .* )? $ //xmgr;
2616         shift @invlist;
2634             if (@invlist && $begin == $invlist[-1]) {
2635                 pop @invlist;
2639                 push @invlist, $begin;
2647                 push @invlist, $end + 1;
2650                 push @invlist, $begin + 1;
2658         if (@invlist && $invlist[0] == 0) {
2659             shift @invlist;
2662             unshift @invlist, 0;
2666     return @invlist;
3240     my (@invlist, @invmap, $format, $missing);
3624         @invlist = split "\n", $swash->{'LIST'} =~ s/ \s* (?: \# .* )? $ //xmgr;
3626         shift @invlist;     # Get rid of 'V';
3631             if (@invlist && $invlist[0] == 0) {
3632                 shift @invlist;
3635                 unshift @invlist, 0;
3639         if (@invlist) {
3640             foreach my $i (0 .. @invlist - 1) {
3646             if ($invlist[0] != 0) {
3647                 unshift @invlist, 0;
3705             if (! @invlist) {
3707                     push @invlist, 0;
3711             elsif (@invlist > 1 && $invlist[-2] == $begin) {
3737             elsif ($invlist[-1] == $begin) {
3757                 if (! $requires_adjustment && @invlist > 1 && ( (defined $map)
3761                     $invlist[-1] = $end + 1;
3769                 pop @invlist;
3774             push @invlist, $begin;
3815                 push @invlist, $end + 1;
3823     if (! @invlist) {
3824         push @invlist, 0;
3833     if ($invlist[-1] != $MAX_UNICODE_CODEPOINT + 1) {
3835         push @invlist, $MAX_UNICODE_CODEPOINT + 1;
3890                 my $i = search_invlist(\@invlist, $cp);
3891                 if ($cp < $invlist[$i] || $cp >= $invlist[$i + 1]) {
3892 …_PACKAGE__, "::prop_invmap: wrong_range, cp=$cp; i=$i, current=$invlist[$i]; next=$invlist[$i + 1]"
3902                 if ($invlist[$i + 1] > $cp + 1) {
3911                     splice @invlist, $i + 1, 0, $cp + 1;
3925                 if ($invlist[$i] < $cp) {
3936                     splice @invlist, $i, 0, $cp;
4003     return (\@invlist, \@invmap, $format, $missing);