Lines Matching refs:invlist

312     my $invlist = shift;     # Reference to inversion list array
315     die "No inversion list for $name" unless defined $invlist
316                                              && ref $invlist eq 'ARRAY';
323     if (@$invlist && $invlist->[0] != 0) {
324         unshift @$invlist, 0;
331     my $count = @$invlist;
341     for my $i (0 .. @$invlist - 1) {
342         printf $out_fh "\t0x%X", $invlist->[$i];
343         print $out_fh "," if $i < @$invlist - 1;
874     my @invlist = ( $list_ref->[0], $list_ref->[0] + 1);
879         if ($invlist[-1] == $list_ref->[$i]) {
880             $invlist[-1]++;
883             push @invlist, $list_ref->[$i], $list_ref->[$i] + 1;
886     return @invlist;
1032     my (@invlist, @invmap);
1036     push @invlist, 0, $sorted_folds[0];
1051             push @invlist, $prev_fold + 1;
1055             push @invlist, $fold;
1064             push @invlist, $fold;
1069         die "In IVCF: $invlist[-1] <= $invlist[-2]"
1070                                                if $invlist[-1] <= $invlist[-2];
1075     push @invlist, $sorted_folds[-1] + 1;
1080     return \@invlist, \@invmap, 'al', $default;
2555         my @invlist;
2566             @invlist = @$invlist_ref;
2576             @invlist = prop_invlist($lookup_prop, '_perl_core_internal_ok');
2577             if (! @invlist) {
2591                         output_invlist($prop_name, \@invlist, $charset);
2597                     @invlist = @$list_ref;
2630             || (    @invlist
2631                 &&  $invlist[0] < 256
2632                 && (    $invlist[0] != 0
2633                     || (scalar @invlist != 1 && $invlist[1] < 256))))
2639                 while (@invlist) {
2640                     last if $invlist[0] > 256;
2641                     my $upper = @invlist > 1
2642                                 ? $invlist[1] - 1      # In range
2648                     for my $j ($invlist[0] .. $upper) {
2652                     shift @invlist; # Shift off the range that's in the list
2653                     shift @invlist; # Shift off the range not in the list
2664                 unshift @invlist, @latin1_list;
2692                 while (@invlist) {
2693                     last if $invlist[0] > $upper_limit;
2697 …die "inversion map (for $prop_name) that extends to infinity is unimplemented" unless @invlist > 1;
2726                     for my $j ($invlist[0] .. $invlist[1] - 1) {
2729                             && $j > $invlist[0]
2753                     shift @invlist;
2841                 unshift @invlist, @new_invlist;
2855             pop @invlist;
2861             for my $i (0 .. @invlist - 1 - 1) {
2862                 if ($invlist[$i] > 255) {
2878                     splice @invlist, $i;
2886             for my $i (0 .. @invlist - 1 - 1) {
2887                 next if $invlist[$i] < 256;
2891                 splice @invlist, 0, $i;
2899                     unshift @invlist, 256;
2915         output_invlist($prop_name, \@invlist, ($same_in_all_code_pages)