lib/Unicode/UCD.pm

3198     my @invlist;
3205         @invlist = split "\n", $swash->{'LIST'} =~ s/ \s* (?: \# .* )? $ //xmgr;
3206         shift @invlist;
3224             if (@invlist && $begin == $invlist[-1]) {
3225                 pop @invlist;
3229                 push @invlist, $begin;
3237                 push @invlist, $end + 1;
3240                 push @invlist, $begin + 1;
3248         if (@invlist && $invlist[0] == 0) {
3249             shift @invlist;
3252             unshift @invlist, 0;
3256     return @invlist;
3822     my (@invlist, @invmap, $format, $missing);
4213         @invlist = split "\n", $swash->{'LIST'} =~ s/ \s* (?: \# .* )? $ //xmgr;
4215         shift @invlist;     # Get rid of 'V';
4220             if (@invlist && $invlist[0] == 0) {
4221                 shift @invlist;
4224                 unshift @invlist, 0;
4228         if (@invlist) {
4229             foreach my $i (0 .. @invlist - 1) {
4235             if ($invlist[0] != 0) {
4236                 unshift @invlist, 0;
4294             if (! @invlist) {
4296                     push @invlist, 0;
4300             elsif (@invlist > 1 && $invlist[-2] == $begin) {
4326             elsif ($invlist[-1] == $begin) {
4346                 if (! $requires_adjustment && @invlist > 1 && ( (defined $map)
4350                     $invlist[-1] = $end + 1;
4358                 pop @invlist;
4363             push @invlist, $begin;
4404                 push @invlist, $end + 1;
4412     if (! @invlist) {
4413         push @invlist, 0;
4422     if ($invlist[-1] != $MAX_UNICODE_CODEPOINT + 1) {
4424         push @invlist, $MAX_UNICODE_CODEPOINT + 1;
4479                 my $i = search_invlist(\@invlist, $cp);
4480                 if ($cp < $invlist[$i] || $cp >= $invlist[$i + 1]) {
4481 …_PACKAGE__, "::prop_invmap: wrong_range, cp=$cp; i=$i, current=$invlist[$i]; next=$invlist[$i + 1]"
4491                 if ($invlist[$i + 1] > $cp + 1) {
4500                     splice @invlist, $i + 1, 0, $cp + 1;
4514                 if ($invlist[$i] < $cp) {
4525                     splice @invlist, $i, 0, $cp;
4592     return (\@invlist, \@invmap, $format, $missing);