diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2000-04-06 17:09:19 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2000-04-06 17:09:19 +0000 |
| commit | 4512cea31c94e21bbf22ca99a5bb525ea7a8c84c (patch) | |
| tree | 628d1180baf59ff2cf578562cdd942fc008cf06b /gnu/usr.bin/perl/win32/makemain.pl | |
| parent | e852ed17d905386f3bbad057fda2f07926227f89 (diff) | |
perl-5.6.0 + local changes
Diffstat (limited to 'gnu/usr.bin/perl/win32/makemain.pl')
| -rw-r--r-- | gnu/usr.bin/perl/win32/makemain.pl | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/gnu/usr.bin/perl/win32/makemain.pl b/gnu/usr.bin/perl/win32/makemain.pl deleted file mode 100644 index 740b6a212a0..00000000000 --- a/gnu/usr.bin/perl/win32/makemain.pl +++ /dev/null @@ -1,45 +0,0 @@ -open (MINIMAIN, "<../miniperlmain.c") || die "failed to open miniperlmain.c" . $!; - -while (<MINIMAIN>) { - if (/Do not delete this line--writemain depends on it/) { - last; - } - else { - print $_; - } - }; - -close(MINIMAIN); - -print "char *staticlinkmodules[]={\n"; -foreach (@ARGV) { - print "\t\"".$_."\",\n"; - } -print "\tNULL,\n"; -print "\t};\n"; -print "\n"; -foreach (@ARGV) { - print "EXTERN_C void boot_$_ _((CV* cv));\n" - } - -print <<EOP; - -static void -xs_init() -{ - dXSUB_SYS; - char *file = __FILE__; -EOP - -foreach (@ARGV) { - if (/DynaLoader/) { - print "\tnewXS(\"$_\:\:boot_$_\", boot_$_, file);\n"; - } - else { - print "\tnewXS(\"$_\:\:bootstrap\", boot_$_, file);\n"; - }; - } - -print <<EOP; -} -EOP |