1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
# $Id$
# 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 @rpmconstantfiles = qw(
rpmconstant.c
rpmconstant.h
rpmconstant_internal.c
rpmh2tbl
);
my ($obj, $ldd, $fl) =
-f '/usr/include/rpmconstant/rpmconstant.h' ?
('', '-lrpmconstant', '-DHAVE_RPMCONSTANT') :
('rpmconstant.o rpmconstant_internal.o rpmconstanttbl.o', '', '');
sub MY::postamble {
my $first = <<RPMCONSTTBL;
rpmversion.h:
\$(PERL) Makefile.PL --rebuildh
rpmconstanttbl.c: Makefile rpmh2tbl
perl rpmh2tbl /usr/include/rpm/*.h > \$@
RPMCONSTTBL
# This code is to reduce duplication of files
# in fact it is only usefull for the maintainers of this module
# if you get the module from CPAN, those files are allready here
# if you're building from svn, you need rpmconstant directory
my $second = "copyrpmconstant: " . join(" ", @rpmconstantfiles) ."\n\n";
if(-d '../../rpmconstant') {
foreach (@rpmconstantfiles) {
$second .= "$_: ../../rpmconstant/$_\n\tcp -a \$< \$@\n\n";
}
}
$first . $second
}
WriteMakefile(
NAME => 'RPM4',
VERSION_FROM => '../lib/RPM4.pm',
OBJECT => "RPM4.o RPM4sign.o $obj",
INC => '-I/usr/include/rpm',
LIBS => "-lrpm -lrpmio -lrpmdb -lrpmbuild -lpopt -lz -lbz2 $ldd",
'CCFLAGS' => $fl,
depend => { "RPM4.xs" => join(" ", @rpmconstantfiles) },
);
|
