Lines Matching refs:invlist

345     my $invlist = shift;     # Reference to inversion list array
348     die "No inversion list for $name" unless defined $invlist
349                                              && ref $invlist eq 'ARRAY';
356     if (@$invlist && $invlist->[0] != 0) {
357         unshift @$invlist, 0;
364     my $count = @$invlist;
374     for my $i (0 .. @$invlist - 1) {
375         printf $out_fh "\t0x%X", $invlist->[$i];
376         print $out_fh "," if $i < @$invlist - 1;
955     my @invlist = ( $list_ref->[0], $list_ref->[0] + 1);
960         if ($invlist[-1] == $list_ref->[$i]) {
961             $invlist[-1]++;
964             push @invlist, $list_ref->[$i], $list_ref->[$i] + 1;
967     return @invlist;
1113     my (@invlist, @invmap);
1117     push @invlist, 0, $sorted_folds[0];
1132             push @invlist, $prev_fold + 1;
1136             push @invlist, $fold;
1145             push @invlist, $fold;
1150         die "In IVCF: $invlist[-1] <= $invlist[-2]"
1151                                                if $invlist[-1] <= $invlist[-2];
1156     push @invlist, $sorted_folds[-1] + 1;
1159     push @invlist, 0x110000;
1164     return \@invlist, \@invmap, 'al', $default;
2670         my @invlist;
2681             @invlist = @$invlist_ref;
2691             @invlist = prop_invlist($lookup_prop, '_perl_core_internal_ok');
2692             if (! @invlist) {
2706                         output_invlist($prop_name, \@invlist, $charset);
2712                     @invlist = @$list_ref;
2748             || (    @invlist
2749                 &&  $invlist[0] < 256
2750                 && (    $invlist[0] != 0
2751                     || (scalar @invlist != 1 && $invlist[1] < 256))))
2757                 while (@invlist) {
2758                     last if $invlist[0] > 256;
2759                     my $upper = @invlist > 1
2760                                 ? $invlist[1] - 1      # In range
2766                     for my $j ($invlist[0] .. $upper) {
2770                     shift @invlist; # Shift off the range that's in the list
2771                     shift @invlist; # Shift off the range not in the list
2782                 unshift @invlist, @latin1_list;
2810                 while (@invlist) {
2811                     last if $invlist[0] > $upper_limit;
2816                       . " infinity is unimplemented" unless @invlist > 1;
2845                     for my $j ($invlist[0] .. $invlist[1] - 1) {
2848                             && $j > $invlist[0]
2872                     shift @invlist;
2962                 unshift @invlist, @new_invlist;
2976             pop @invlist;
2982             for my $i (0 .. @invlist - 1 - 1) {
2983                 if ($invlist[$i] > 255) {
3000                     splice @invlist, $i;
3008             for my $i (0 .. @invlist - 1 - 1) {
3009                 next if $invlist[$i] < 256;
3013                 splice @invlist, 0, $i;
3021                     unshift @invlist, 256;
3037         output_invlist($prop_name, \@invlist, ($same_in_all_code_pages)