Initial Commit
This commit is contained in:
Riley Schneider
263
database/perl/lib/CPAN/Plugin/Specfile.pm
Normal file
263
database/perl/lib/CPAN/Plugin/Specfile.pm
Normal file
@@ -0,0 +1,263 @@
|
||||
=head1 NAME
|
||||
|
||||
CPAN::Plugin::Specfile - Proof of concept implementation of a trivial CPAN::Plugin
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
# once in the cpan shell
|
||||
o conf plugin_list push CPAN::Plugin::Specfile
|
||||
|
||||
# make permanent
|
||||
o conf commit
|
||||
|
||||
# any time in the cpan shell to write a spec file
|
||||
test Acme::Meta
|
||||
|
||||
# disable
|
||||
# if it is the last in plugin_list:
|
||||
o conf plugin_list pop
|
||||
# otherwise, determine the index to splice:
|
||||
o conf plugin_list
|
||||
# and then use splice, e.g. to splice position 3:
|
||||
o conf plugin_list splice 3 1
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Implemented as a post-test hook, this plugin writes a specfile after
|
||||
every successful test run. The content is also written to the
|
||||
terminal.
|
||||
|
||||
As a side effect, the timestamps of the written specfiles reflect the
|
||||
linear order of all dependencies.
|
||||
|
||||
B<WARNING:> This code is just a small demo how to use the plugin
|
||||
system of the CPAN shell, not a full fledged spec file writer. Do not
|
||||
expect new features in this plugin.
|
||||
|
||||
=head2 OPTIONS
|
||||
|
||||
The target directory to store the spec files in can be set using C<dir>
|
||||
as in
|
||||
|
||||
o conf plugin_list push CPAN::Plugin::Specfile=dir,/tmp/specfiles-000042
|
||||
|
||||
The default directory for this is the
|
||||
C<plugins/CPAN::Plugin::Specfile> directory in the I<cpan_home>
|
||||
directory.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Andreas Koenig <andk@cpan.org>, Branislav Zahradnik <barney@cpan.org>
|
||||
|
||||
=cut
|
||||
|
||||
package CPAN::Plugin::Specfile;
|
||||
|
||||
our $VERSION = '0.02';
|
||||
|
||||
use File::Path;
|
||||
use File::Spec;
|
||||
|
||||
sub __accessor {
|
||||
my ($class, $key) = @_;
|
||||
no strict 'refs';
|
||||
*{$class . '::' . $key} = sub {
|
||||
my $self = shift;
|
||||
if (@_) {
|
||||
$self->{$key} = shift;
|
||||
}
|
||||
return $self->{$key};
|
||||
};
|
||||
}
|
||||
BEGIN { __PACKAGE__->__accessor($_) for qw(dir dir_default) }
|
||||
|
||||
sub new {
|
||||
my($class, @rest) = @_;
|
||||
my $self = bless {}, $class;
|
||||
while (my($arg,$val) = splice @rest, 0, 2) {
|
||||
$self->$arg($val);
|
||||
}
|
||||
$self->dir_default(File::Spec->catdir($CPAN::Config->{cpan_home},"plugins",__PACKAGE__));
|
||||
$self;
|
||||
}
|
||||
|
||||
sub post_test {
|
||||
my $self = shift;
|
||||
my $distribution_object = shift;
|
||||
my $distribution = $distribution_object->pretty_id;
|
||||
unless ($CPAN::META->has_inst("CPAN::DistnameInfo")){
|
||||
$CPAN::Frontend->mydie("CPAN::DistnameInfo not installed; cannot continue");
|
||||
}
|
||||
my $d = CPAN::Shell->expand("Distribution",$distribution)
|
||||
or $CPAN::Frontend->mydie("Unknowns distribution '$distribution'\n");
|
||||
my $build_dir = $d->{build_dir} or $CPAN::Frontend->mydie("Distribution has not been built yet, cannot proceed");
|
||||
my %contains = map {($_ => undef)} $d->containsmods;
|
||||
my @m;
|
||||
my $width = 16;
|
||||
my $header = sub {
|
||||
my($header,$value) = @_;
|
||||
push @m, sprintf("%-s:%*s%s\n", $header, $width-length($header), "", $value);
|
||||
};
|
||||
my $dni = CPAN::DistnameInfo->new($distribution);
|
||||
my $dist = $dni->dist;
|
||||
my $summary = CPAN::Shell->_guess_manpage($d,\%contains,$dist);
|
||||
$header->("Name", "perl-$dist");
|
||||
my $version = $dni->version;
|
||||
$header->("Version", $version);
|
||||
$header->("Release", "1%{?dist}");
|
||||
#Summary: Template processing system
|
||||
#Group: Development/Libraries
|
||||
#License: GPL+ or Artistic
|
||||
#URL: http://www.template-toolkit.org/
|
||||
#Source0: http://search.cpan.org/CPAN/authors/id/A/AB/ABW/Template-Toolkit-%{version}.tar.gz
|
||||
#Patch0: Template-2.22-SREZIC-01.patch
|
||||
#BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
|
||||
for my $h_tuple
|
||||
([Summary => $summary],
|
||||
[Group => "Development/Libraries"],
|
||||
[License =>],
|
||||
[URL =>],
|
||||
[BuildRoot => "%{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)"],
|
||||
[Requires => "perl(:MODULE_COMPAT_%(eval \"`%{__perl} -V:version`\"; echo \$version))"],
|
||||
) {
|
||||
my($h,$v) = @$h_tuple;
|
||||
$v = "unknown" unless defined $v;
|
||||
$header->($h, $v);
|
||||
}
|
||||
$header->("Source0", sprintf(
|
||||
"http://search.cpan.org/CPAN/authors/id/%s/%s/%s",
|
||||
substr($distribution,0,1),
|
||||
substr($distribution,0,2),
|
||||
$distribution
|
||||
));
|
||||
require POSIX;
|
||||
my @xs = glob "$build_dir/*.xs"; # quick try
|
||||
unless (@xs) {
|
||||
require ExtUtils::Manifest;
|
||||
my $manifest_file = "$build_dir/MANIFEST";
|
||||
my $manifest = ExtUtils::Manifest::maniread($manifest_file);
|
||||
@xs = grep /\.xs$/, keys %$manifest;
|
||||
}
|
||||
if (! @xs) {
|
||||
$header->('BuildArch', 'noarch');
|
||||
}
|
||||
for my $k (sort keys %contains) {
|
||||
my $m = CPAN::Shell->expand("Module",$k);
|
||||
my $v = $contains{$k} = $m->cpan_version;
|
||||
my $vspec = $v eq "undef" ? "" : " = $v";
|
||||
$header->("Provides", "perl($k)$vspec");
|
||||
}
|
||||
if (my $prereq_pm = $d->{prereq_pm}) {
|
||||
my %req;
|
||||
for my $reqkey (keys %$prereq_pm) {
|
||||
while (my($k,$v) = each %{$prereq_pm->{$reqkey}}) {
|
||||
$req{$k} = $v;
|
||||
}
|
||||
}
|
||||
if (-e "$build_dir/Build.PL" && ! exists $req{"Module::Build"}) {
|
||||
$req{"Module::Build"} = 0;
|
||||
}
|
||||
for my $k (sort keys %req) {
|
||||
next if $k eq "perl";
|
||||
my $v = $req{$k};
|
||||
my $vspec = defined $v && length $v && $v > 0 ? " >= $v" : "";
|
||||
$header->(BuildRequires => "perl($k)$vspec");
|
||||
next if $k =~ /^(Module::Build)$/; # MB is always only a
|
||||
# BuildRequires; if we
|
||||
# turn it into a
|
||||
# Requires, then we
|
||||
# would have to make it
|
||||
# a BuildRequires
|
||||
# everywhere we depend
|
||||
# on *one* MB built
|
||||
# module.
|
||||
$header->(Requires => "perl($k)$vspec");
|
||||
}
|
||||
}
|
||||
push @m, "\n%define _use_internal_dependency_generator 0
|
||||
%define __find_requires %{nil}
|
||||
%define __find_provides %{nil}
|
||||
";
|
||||
push @m, "\n%description\n%{summary}.\n";
|
||||
push @m, "\n%prep\n%setup -q -n $dist-%{version}\n";
|
||||
if (-e "$build_dir/Build.PL") {
|
||||
# see http://www.redhat.com/archives/rpm-list/2002-July/msg00110.html about RPM_BUILD_ROOT vs %{buildroot}
|
||||
push @m, <<'EOF';
|
||||
|
||||
%build
|
||||
%{__perl} Build.PL --installdirs=vendor --libdoc installvendorman3dir
|
||||
./Build
|
||||
|
||||
%install
|
||||
rm -rf $RPM_BUILD_ROOT
|
||||
./Build install destdir=$RPM_BUILD_ROOT create_packlist=0
|
||||
find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
|
||||
%{_fixperms} $RPM_BUILD_ROOT/*
|
||||
|
||||
%check
|
||||
./Build test
|
||||
EOF
|
||||
} elsif (-e "$build_dir/Makefile.PL") {
|
||||
push @m, <<'EOF';
|
||||
|
||||
%build
|
||||
%{__perl} Makefile.PL INSTALLDIRS=vendor
|
||||
make %{?_smp_mflags}
|
||||
|
||||
%install
|
||||
rm -rf $RPM_BUILD_ROOT
|
||||
make pure_install DESTDIR=$RPM_BUILD_ROOT
|
||||
find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';'
|
||||
find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null ';'
|
||||
%{_fixperms} $RPM_BUILD_ROOT/*
|
||||
|
||||
%check
|
||||
make test
|
||||
EOF
|
||||
} else {
|
||||
$CPAN::Frontend->mydie("'$distribution' has neither a Build.PL nor a Makefile.PL\n");
|
||||
}
|
||||
push @m, "\n%clean\nrm -rf \$RPM_BUILD_ROOT\n";
|
||||
my $vendorlib = @xs ? "vendorarch" : "vendorlib";
|
||||
my $date = POSIX::strftime("%a %b %d %Y", gmtime);
|
||||
my @doc = grep { -e "$build_dir/$_" } qw(README Changes);
|
||||
my $exe_stanza = "\n";
|
||||
if (my $exe_files = $d->_exe_files) {
|
||||
if (@$exe_files) {
|
||||
$exe_stanza = "%{_mandir}/man1/*.1*\n";
|
||||
for my $e (@$exe_files) {
|
||||
unless (CPAN->has_inst("File::Basename")) {
|
||||
$CPAN::Frontend->mydie("File::Basename not installed, cannot continue");
|
||||
}
|
||||
my $basename = File::Basename::basename($e);
|
||||
$exe_stanza .= "/usr/bin/$basename\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
push @m, <<EOF;
|
||||
|
||||
%files
|
||||
%defattr(-,root,root,-)
|
||||
%doc @doc
|
||||
%{perl_$vendorlib}/*
|
||||
%{_mandir}/man3/*.3*
|
||||
$exe_stanza
|
||||
%changelog
|
||||
* $date <specfile\@specfile.cpan.org> - $version-1
|
||||
- autogenerated by CPAN::Plugin::Specfile()
|
||||
|
||||
EOF
|
||||
|
||||
my $ret = join "", @m;
|
||||
$CPAN::Frontend->myprint($ret);
|
||||
my $target_dir = $self->dir || $self->dir_default;
|
||||
File::Path::mkpath($target_dir);
|
||||
my $outfile = File::Spec->catfile($target_dir, "perl-$dist.spec");
|
||||
open my $specout, ">", $outfile
|
||||
or $CPAN::Frontend->mydie("Could not open >$outfile: $!");
|
||||
print $specout $ret;
|
||||
$CPAN::Frontend->myprint("Wrote $outfile");
|
||||
$ret;
|
||||
}
|
||||
|
||||
1;
|
||||
Reference in New Issue
Block a user