summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authornanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>2005-12-14 16:59:25 +0000
committernanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>2005-12-14 16:59:25 +0000
commitba6046b0f441d1c3edc0281dfa146cc4037958dc (patch)
tree84166640cea4f8905caa430d1f0e48f1ddb505d5
parentab03f85de55c81bfe44e7ef587db20f98183e872 (diff)
downloadperl-RPM4-ba6046b0f441d1c3edc0281dfa146cc4037958dc.tar
perl-RPM4-ba6046b0f441d1c3edc0281dfa146cc4037958dc.tar.gz
perl-RPM4-ba6046b0f441d1c3edc0281dfa146cc4037958dc.tar.bz2
perl-RPM4-ba6046b0f441d1c3edc0281dfa146cc4037958dc.tar.xz
perl-RPM4-ba6046b0f441d1c3edc0281dfa146cc4037958dc.zip
- generate a .h to find what rpm can do
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@51 971eb68f-4bfb-0310-8326-d2484c010a4c
-rw-r--r--RPM4/src/Makefile.PL31
1 files changed, 31 insertions, 0 deletions
diff --git a/RPM4/src/Makefile.PL b/RPM4/src/Makefile.PL
index 9b9a60f..fe8fbc0 100644
--- a/RPM4/src/Makefile.PL
+++ b/RPM4/src/Makefile.PL
@@ -2,6 +2,35 @@
# use 5.008;
use ExtUtils::MakeMaker;
+use Getopt::Long;
+
+GetOptions(
+ 'rpmversion=s' => \$rpmv,
+ 'rebuildh' => \my $rebh,
+);
+
+my $rpmv ||= (`rpm --version` =~ /([\d\.]+)/)[0];
+open($FH, "> rpmversion.h") or die "Can't open rpmversion.h";
+print $FH "/* File generated by Mafile.PL\n";
+print $FH ' * $Id$' ."\n";
+print $FH " */\n\n";
+print $FH "#ifndef RPMVERSION_H\n#define RPMVERSION_H\n\n";
+foreach (qw(
+ 4.2.0
+ 4.4.1
+ 4.4.2
+ 4.4.3
+ 4.4.4
+ )) {
+ if ($rpmv ge $_) {
+ $v = $_;
+ $v =~ s/\./_/g;
+ print $FH "#define RPM$v\n";
+ }
+}
+print $FH "\n#endif\n";
+close($FH);
+if ($rebh) { exit 0 };
my ($obj, $ldd, $fl) =
-f '/usr/include/rpmconstant/rpmconstant.h' ?
@@ -10,6 +39,8 @@ my ($obj, $ldd, $fl) =
sub MY::postamble {
my $first = <<RPMCONSTTBL;
+rpmversion.h:
+ \$(PERL) Makefile.PL --rebuildh
rpmconstanttbl.c: Makefile rpmh2tbl
perl rpmh2tbl /usr/include/rpm/*.h > \$@