lib/Unicode/UCD.pm

3200     my @invlist;
3207         @invlist = split "\n", $swash->{'LIST'} =~ s/ \s* (?: \# .* )? $ //xmgr;
3208         shift @invlist;
3226             if (@invlist && $begin == $invlist[-1]) {
3227                 pop @invlist;
3231                 push @invlist, $begin;
3239                 push @invlist, $end + 1;
3242                 push @invlist, $begin + 1;
3250         if (@invlist && $invlist[0] == 0) {
3251             shift @invlist;
3254             unshift @invlist, 0;
3258     return @invlist;
3824     my (@invlist, @invmap, $format, $missing);
4215         @invlist = split "\n", $swash->{'LIST'} =~ s/ \s* (?: \# .* )? $ //xmgr;
4217         shift @invlist;     # Get rid of 'V';
4222             if (@invlist && $invlist[0] == 0) {
4223                 shift @invlist;
4226                 unshift @invlist, 0;
4230         if (@invlist) {
4231             foreach my $i (0 .. @invlist - 1) {
4237             if ($invlist[0] != 0) {
4238                 unshift @invlist, 0;
4296             if (! @invlist) {
4298                     push @invlist, 0;
4302             elsif (@invlist > 1 && $invlist[-2] == $begin) {
4328             elsif ($invlist[-1] == $begin) {
4348                 if (! $requires_adjustment && @invlist > 1 && ( (defined $map)
4352                     $invlist[-1] = $end + 1;
4360                 pop @invlist;
4365             push @invlist, $begin;
4406                 push @invlist, $end + 1;
4414     if (! @invlist) {
4415         push @invlist, 0;
4424     if ($invlist[-1] != $MAX_UNICODE_CODEPOINT + 1) {
4426         push @invlist, $MAX_UNICODE_CODEPOINT + 1;
4481                 my $i = search_invlist(\@invlist, $cp);
4482                 if ($cp < $invlist[$i] || $cp >= $invlist[$i + 1]) {
4483 …_PACKAGE__, "::prop_invmap: wrong_range, cp=$cp; i=$i, current=$invlist[$i]; next=$invlist[$i + 1]"
4493                 if ($invlist[$i + 1] > $cp + 1) {
4502                     splice @invlist, $i + 1, 0, $cp + 1;
4516                 if ($invlist[$i] < $cp) {
4527                     splice @invlist, $i, 0, $cp;
4594     return (\@invlist, \@invmap, $format, $missing);