Lines Matching refs:what
543 # Figure out what to switch on.
627 my $what = shift;
628 foreach (sort keys %$what) {
632 $params->{''} = 1 if $what->{''};
633 $params->{IV} = 1 if $what->{IV} || $what->{UV} || $what->{PVN};
634 $params->{NV} = 1 if $what->{NV};
635 $params->{PV} = 1 if $what->{PV} || $what->{PVN};
636 $params->{SV} = 1 if $what->{SV};
656 my ($default_type, $what, $indent, $options, @items) = @_;
700 foreach (keys %$what) {
702 $declare_types++; # Found one in $what that wasn't used.
708 . join (" ", sort keys %$what) . ")};\n";
753 my ($package, $subname, $default_type, $what, $indent, $breakout, @items)
770 $result .= dump_names ($default_type, $what, 0, {declare_types=>1}, @items);
919 my ($package, $subname, $default_type, $what, $indent, $breakout, @items)
929 # We are called recursively. We trust @items to be normalised, $what to
940 if (!ref $what) {
942 $what = {map {$_ => 1} split /,\s*/, ($what || '')};
943 # Figure out what types we're dealing with, and assign all unknowns to the
954 $what->{$type} = 1;
969 $what->{$default_type} = 1;
1013 $what->{''} = 1;
1020 my $params = params ($what);
1040 $body .= dogfood ($package, $subname, $default_type, $what, $indent,
1069 my $what = {};
1071 $what->{$_->{type}} = 1;
1072 $what->{''} = 1 if $_->{utf8};
1074 $params = params ($what);
1075 push @subs, C_constant ($package, "${subname}_$i", $default_type, $what,
1115 my $what = shift;
1121 if (!ref $what) {
1123 $what = {map {$_ => 1} split /,\s*/, ($what)};
1125 my $params = params ($what);
1206 unless $what->{$type};
1219 unless ($what->{$type}) {