}
my $args = join ', ', @arg;
+ my $prefix = "";
# Failure to specify a return type in the apidoc line means void
my $rvt = $f->{'ret'} || 'void';
$ret = $ignorerv{$f->{'name'}} ? '(void) ' : "rval = ";
}
- my $aTHX_args = "";
+ my $aTHX_args = "";
+ my $aTHX_prefix = "";
# Add parens to functions that take an argument list, even if empty
unless ($f->{'flags'}{'n'}) {
}
my $final = $varargs
- ? "$Perl_$f->{'name'}$aTHX_args"
- : "$f->{'name'}$args";
+ ? "$aTHX_prefix$Perl_$f->{'name'}$aTHX_args"
+ : "$prefix$f->{'name'}$args";
# If there is a '#if' associated with this, add that
$f->{'cond'} and print OUT "#if $f->{'cond'}\n";
$stack
{
#ifdef $f->{'name'}
- $ret$f->{'name'}$args;
+ $ret$prefix$f->{'name'}$args;
#endif
}
#ifdef $f->{'name'}
$ret$final;
#else
- $ret$Perl_$f->{'name'}$aTHX_args;
+ $ret$aTHX_prefix$Perl_$f->{'name'}$aTHX_args;
#endif
}
}