| Current Path : /usr/kerberos/lib/perl5/vendor_perl/PDL/PP/ |
| Current File : //usr/kerberos/lib/perl5/vendor_perl/PDL/PP/XS.pm |
package PDL::PP::XS;
sub mkproto {
my($name,$pars) = @_;
my $shortpars = join ',',map {$_->[0]} @$pars;
my $longpars = join "\n",map {"\t".$_->[1]->get_decl($_->[0])} @$pars;
return<<END;
void
$name($shortpars)
$longpars
END
}
1;