|| die "$0: Can't open ${dir}perlmain.c: $!\n";
while (<IN>) {
- s/INTERN\.h/EXTERN\.h/;
print OUT;
last if /Do not delete this line--writemain depends on it/;
}
}
+print OUT <<'EOH';
+
+static void
+xs_init()
+{
+EOH
+
if (@ARGV) {
+ $names = join(' ',@ARGV);
+ $names =~ tr/"//d; # Plan9 doesn't remove "" on command line
# Allow for multiple names in one quoted group
- @exts = split(/\s+/, join(' ',@ARGV));
+ @exts = split(/\s+/,$names);
}
if (@exts) {
$subname =~ s/::/__/g;
print OUT "extern void boot_${subname} _((CV* cv));\n"
}
+ # May not actually be a declaration, so put after other declarations
+ print OUT " dXSUB_SYS;\n";
foreach $ext (@exts) {
my($subname) = $ext;
$subname =~ s/::/__/g;