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;
1139     my (@invlist, @invmap);
1143     push @invlist, 0, $sorted_folds[0];
1158             push @invlist, $prev_fold + 1;
1162             push @invlist, $fold;
1171             push @invlist, $fold;
1176         die "In IVCF: $invlist[-1] <= $invlist[-2]"
1177                                                if $invlist[-1] <= $invlist[-2];
1182     push @invlist, $sorted_folds[-1] + 1;
1185     push @invlist, 0x110000;
1190     return \@invlist, \@invmap, 'al', $default;
2696         my @invlist;
2707             @invlist = @$invlist_ref;
2717             @invlist = prop_invlist($lookup_prop, '_perl_core_internal_ok');
2718             if (! @invlist) {
2732                         output_invlist($prop_name, \@invlist, $charset);
2738                     @invlist = @$list_ref;
2774             || (    @invlist
2775                 &&  $invlist[0] < 256
2776                 && (    $invlist[0] != 0
2777                     || (scalar @invlist != 1 && $invlist[1] < 256))))
2783                 while (@invlist) {
2784                     last if $invlist[0] > 256;
2785                     my $upper = @invlist > 1
2786                                 ? $invlist[1] - 1      # In range
2792                     for my $j ($invlist[0] .. $upper) {
2796                     shift @invlist; # Shift off the range that's in the list
2797                     shift @invlist; # Shift off the range not in the list
2808                 unshift @invlist, @latin1_list;
2836                 while (@invlist) {
2837                     last if $invlist[0] > $upper_limit;
2842                       . " infinity is unimplemented" unless @invlist > 1;
2871                     for my $j ($invlist[0] .. $invlist[1] - 1) {
2874                             && $j > $invlist[0]
2898                     shift @invlist;
2988                 unshift @invlist, @new_invlist;
3002             pop @invlist;
3008             for my $i (0 .. @invlist - 1 - 1) {
3009                 if ($invlist[$i] > 255) {
3026                     splice @invlist, $i;
3034             for my $i (0 .. @invlist - 1 - 1) {
3035                 next if $invlist[$i] < 256;
3039                 splice @invlist, 0, $i;
3047                     unshift @invlist, 256;
3063         output_invlist($prop_name, \@invlist, ($same_in_all_code_pages)