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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
#!/usr/bin/env perl
use warnings 'FATAL' => 'all';
use strict;
my $PROG = 'perl-dist-funcs';
my %BODYFOR =
('MM', {
'build' => [
q{/usr/bin/perl Makefile.PL }
. q{DESTDIR="$pkgdir" INSTALLDIRS=vendor},
q{make},
],
'check' => [ q{make test} ],
'package' => [ q{make install} ],
},
'MB', {
'build' => [
q{/usr/bin/perl Build.PL }
. q{--destdir "$pkgdir" --installdirs vendor},
q{./Build},
],
'check' => [ q{./Build test} ],
'package' => [ q{./Build install} ],
});
my %FUNC;
$FUNC{'build'}{'intro'} = <<'END_INTRO';
cd "$_distdir"
PERL_MM_USE_DEFAULT=1 PERL_AUTOINSTALL=--skipdeps MODULEBUILDRC=/dev/null
export PERL_MM_USE_DEFAULT PERL_AUTOINSTALL MODULEBUILDRC
unset PERL_MM_OPT PERL_MB_OPT PERL5LIB
END_INTRO
$FUNC{'check'}{'intro'} = <<'END_INTRO';
cd "$_distdir"
PERL_MM_USE_DEFAULT=1
export PERL_MM_USE_DEFAULT
unset PERL_MM_OPT PERL_MB_OPT PERL5LIB
END_INTRO
$FUNC{'package'}{'intro'} = <<'END_INTRO';
cd "$_distdir"
unset PERL_MM_OPT PERL_MB_OPT PERL5LIB
END_INTRO
$FUNC{'package'}{'end'} = <<'END_END';
find "$pkgdir" -name .packlist -o -name perllocal.pod -delete
END_END
my $PBEND = <<'END_END';
# Local Variables:
# mode: shell-script
# sh-basic-offset: 2
# End:
# vim:set ts=2 sw=2 et:
END_END
sub printfunc
{
my($name, $func) = @_;
print "BEGNODE $name\n";
for my $sect (qw/intro body end/){
if(exists $func->{$sect}){
my $txt = $func->{$sect};
$txt .= "\n" unless($txt =~ /\n\z/);
print "BEGNODE $sect\n", $txt, "ENDNODE $sect\n";
}
}
print "ENDNODE $name\n";
return;
}
sub printfuncs
{
my($btype) = @_;
my $acts = $BODYFOR{$btype} or die "$PROG: unknown build type: $btype";
print "BEGNODE PKGBUILD\n", "BEGNODE body\n";
for my $f (keys %FUNC){
$FUNC{$f}{'body'} = join q{}, map { "$_\n" } @{$acts->{$f}};
printfunc($f, $FUNC{$f});
}
print "ENDNODE body\n";
print "BEGNODE end\n", $PBEND, "ENDNODE end\n";
print "ENDNODE PKGBUILD\n";
return;
}
sub main
{
if(@_ == 0 || ($_[0] ne 'MM' && $_[0] ne 'MB')){
print STDERR qq{usage: $PROG ["MM" or "MB"] > PKGFUNCS\n};
return 1;
}
printfuncs(shift);
return 0;
}
exit main(@ARGV);
|
