Lines Matching refs:func
50 my ($func, $flags) = @_;
52 return "Perl_$func" if $flags =~ /[ps]/;
53 return "S_$func" if $flags =~ /[SIi]/;
54 return $func;
117 my $func;
171 $func = full_name($plain_func, $flags);
202 $ret .= "$func(";
228 warn "$func: $arg needs NN or NULLOK\n";
244 die_at_end "$func: $arg ($n) doesn't have a name\n";
456 my ($flags,$retval,$func,$args) = @{$embed}{qw(flags return_type name args)};
464 my $full_name = full_name($func, $flags);
465 next if $full_name eq $func; # Don't output a no-op.
466 $ret = indent_define($func, $full_name, $ind);
475 die "Cannot use ... as the only parameter to a macro ($func)\n";
484 $ret = "#${ind}define $func($paramlist) ";
485 add_indent($ret,full_name($func, $flags) . "(aTHX");
567 my ($flags, $retval, $func, $args) = @{$embed}{qw(flags return_type name args)};
571 my $ret = "# define perl_$func($alist) ";
572 print $em add_indent($ret,"$func($alist)\n");