- Bye bye Perl.

This commit is contained in:
Andi Gutmans 2000-02-27 19:40:19 +00:00
parent 68ab1d3d07
commit a4ea1d6826

View file

@ -1,24 +0,0 @@
#!/usr/bin/perl
$in_file = shift || die "Give .in file as first parameter";
$srcdir = shift || die "Give source dir as second parameter";
@extensions = @ARGV;
open(IN, $in_file) or die "Could not open .in file $in_file";
while (<IN>) {
if (/\@EXT_INCLUDE_CODE\@/) {
foreach $ext (@extensions) {
$hdr_file = "ext/$ext/php3_${ext}.h";
if (-f "$srcdir/$hdr_file") {
print "#include \"ext/${ext}/php3_${ext}.h\"\n";
}
}
} elsif (/\@EXT_MODULE_PTRS\@/) {
foreach $ext (@extensions) {
print " phpext_${ext}_ptr,\n";
}
} else {
print;
}
}
close(IN);