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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
use strict;
use warnings;
use ExtUtils::MakeMaker;
sub parseversion
{
my $version;
open GP, 'lib/PDL/Graphics/Gnuplot.pm' or die "Couldn't open Gnuplot.pm";
for(<GP>){
if(m/our \$VERSION = \'([\d\.\_]+b?)\'/) {$version = $1;}
last if($version);
}
die "Couldn't parse version from Gnuplot.pm" unless($version);
close GP;
return $version;
}
# make sure we can run gnuplot before continuing
{
unless(`gnuplot -V`)
{
print STDERR <<EOM;
Error: "$!"
I tried to execute 'gnuplot' and it didn't work. Since this module is an is an
interface to Gnuplot, it must be installed for the module to be useful. Install
Gnuplot to continue. Use your package manager, or download the source from
http://www.gnuplot.info
EOM
exit 0;
}
}
sub MY::libscan
{
package MY;
my ($self, $file) = @_;
# Don't install the README.pod or any .pl file
return undef if $file =~ /\.pl$|^README.pod/;
return $self->SUPER::libscan ($file);
}
sub MY::postamble {
my $text = <<'FOO';
install ::
@echo "Updating PDL documentation database...";
@$(PERL) -e "exit if $$ENV{DESTDIR}; use PDL::Doc; eval { PDL::Doc::add_module(q{PDL::Graphics::Gnuplot}); }; ";
FOO
return $text;
}
WriteMakefile(
NAME => 'PDL::Graphics::Gnuplot',
AUTHOR => 'Craig DeForest <craig@deforest.org>, Dima Kogan <dima@secretsauce.net>',
VERSION => parseversion(),
ABSTRACT_FROM => 'lib/PDL/Graphics/Gnuplot.pm',
($ExtUtils::MakeMaker::VERSION >= 6.3002
? ('LICENSE'=> 'perl')
: ()),
PREREQ_PM => { 'Alien::Gnuplot' => 0,
'Test::More' => 0,
'PDL' => 0,
'IPC::Run' => 0,
'List::Util' => 0,
'Storable' => 0,
'IPC::Open3' => 0,
'IO::Select' => 0,
'Time::HiRes' => 0,
'Safe::Isa' => 0
},
META_ADD => {
resources => {
homepage => 'http://github.com/drzowie/PDL-Graphics-Gnuplot',
repository => 'git://github.com/drzowie/PDL-Graphics-Gnuplot.git',
bugtracker => 'http://rt.cpan.org/Public/Dist/Display.html?Name=PDL-Graphics-Gnuplot'
}
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'PDL-Graphics-Gnuplot-* pdl_graphics_gnuplot_test_* *~' },
);
# reroute the main POD into a separate README.pod if requested. This is here
# purely to generate a README.pod for the github front page
my $POD_header = <<EOF;
=head1 OVERVIEW
This is a Gnuplot-based plotter for PDL. This repository stores the history for
the PDL::Graphics::Gnuplot module on CPAN. Install the module via CPAN. CPAN
page at L<http://search.cpan.org/~zowie/PDL-Graphics-Gnuplot/lib/PDL/Graphics/Gnuplot.pm>.
=cut
EOF
if(exists $ARGV[0] && $ARGV[0] eq 'README.pod')
{
open MOD, 'lib/PDL/Graphics/Gnuplot.pm' or die "Couldn't open main module";
open README, '>README.pod' or die "Couldn't open README.pod";
print README $POD_header;
while (<MOD>)
{
if (/^=/../^=cut/)
{ print README; }
}
}
|
