|
Packit |
d0f5c2 |
#
|
|
Packit |
d0f5c2 |
# $Id: Makefile.PL,v 2.22 2017/10/06 22:21:53 dankogai Exp $
|
|
Packit |
d0f5c2 |
#
|
|
Packit |
d0f5c2 |
use 5.007003;
|
|
Packit |
d0f5c2 |
use strict;
|
|
Packit |
d0f5c2 |
use warnings;
|
|
Packit |
d0f5c2 |
use utf8;
|
|
Packit |
d0f5c2 |
use ExtUtils::MakeMaker;
|
|
Packit |
d0f5c2 |
use File::Spec;
|
|
Packit |
d0f5c2 |
use Config;
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
# Just for sure :)
|
|
Packit |
d0f5c2 |
my %ARGV = map { my @r = split /=/,$_; defined $r[1] or $r[1]=1; @r } @ARGV;
|
|
Packit |
d0f5c2 |
$ARGV{DEBUG} and warn "$_ => $ARGV{$_}\n" for sort keys %ARGV;
|
|
Packit |
d0f5c2 |
$ENV{PERL_CORE} ||= $ARGV{PERL_CORE} if $ARGV{PERL_CORE};
|
|
Packit |
d0f5c2 |
# similar strictness as in core
|
|
Packit |
d0f5c2 |
my $ccflags = $Config{ccflags};
|
|
Packit |
d0f5c2 |
if (!$ENV{PERL_CORE}) {
|
|
Packit |
d0f5c2 |
if (my $gccver = $Config{gccversion}) {
|
|
Packit |
d0f5c2 |
$gccver =~ s/\.//g; $gccver =~ s/ .*//;
|
|
Packit |
d0f5c2 |
$gccver .= "0" while length $gccver < 3;
|
|
Packit |
d0f5c2 |
$gccver = 0+$gccver;
|
|
Packit |
d0f5c2 |
$ccflags .= ' -Werror=declaration-after-statement' if $gccver > 412;
|
|
Packit |
d0f5c2 |
$ccflags .= ' -Wpointer-sign' if !$Config{d_cplusplus} and $gccver > 400;
|
|
Packit |
d0f5c2 |
$ccflags .= ' -fpermissive' if $Config{d_cplusplus};
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
my %tables =
|
|
Packit |
d0f5c2 |
(
|
|
Packit |
d0f5c2 |
def_t => [
|
|
Packit |
d0f5c2 |
'ascii.ucm',
|
|
Packit |
d0f5c2 |
'8859-1.ucm',
|
|
Packit |
d0f5c2 |
'cp1252.ucm',
|
|
Packit |
d0f5c2 |
'null.ucm',
|
|
Packit |
d0f5c2 |
'ctrl.ucm',
|
|
Packit |
d0f5c2 |
]
|
|
Packit |
d0f5c2 |
);
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
my @exe_files = qw(bin/enc2xs
|
|
Packit |
d0f5c2 |
bin/piconv
|
|
Packit |
d0f5c2 |
bin/encguess
|
|
Packit |
d0f5c2 |
);
|
|
Packit |
d0f5c2 |
my @more_exe_files = qw(
|
|
Packit |
d0f5c2 |
unidump
|
|
Packit |
d0f5c2 |
);
|
|
Packit |
d0f5c2 |
my @pmlibdirs = qw(lib Encode);
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
$ARGV{MORE_SCRIPTS} and push @exe_files, @more_exe_files;
|
|
Packit |
d0f5c2 |
$ARGV{INSTALL_UCM} and push @pmlibdirs, "ucm";
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
WriteMakefile(
|
|
Packit |
d0f5c2 |
NAME => "Encode",
|
|
Packit |
d0f5c2 |
EXE_FILES => \@exe_files,
|
|
Packit |
d0f5c2 |
VERSION_FROM => 'Encode.pm',
|
|
Packit |
d0f5c2 |
ABSTRACT_FROM=> 'Encode.pm',
|
|
Packit |
d0f5c2 |
AUTHOR => 'Dan Kogai <dankogai@dan.co.jp>',
|
|
Packit |
d0f5c2 |
OBJECT => '$(O_FILES)',
|
|
Packit |
d0f5c2 |
'dist' => {
|
|
Packit |
d0f5c2 |
COMPRESS => 'gzip -9f',
|
|
Packit |
d0f5c2 |
SUFFIX => 'gz',
|
|
Packit |
d0f5c2 |
DIST_DEFAULT => 'all tardist',
|
|
Packit |
d0f5c2 |
},
|
|
Packit |
d0f5c2 |
CCFLAGS => $ccflags,
|
|
Packit |
d0f5c2 |
INC => '-I' . File::Spec->catfile( '.', 'Encode' ),
|
|
Packit |
d0f5c2 |
LICENSE => 'perl',
|
|
Packit |
d0f5c2 |
PREREQ_PM => {
|
|
Packit |
d0f5c2 |
Exporter => '5.57', # use Exporter 'import';
|
|
Packit |
d0f5c2 |
parent => '0.221', # version bundled with 5.10.1
|
|
Packit |
d0f5c2 |
Storable => '0', # bundled with Perl 5.7.3
|
|
Packit |
d0f5c2 |
},
|
|
Packit |
d0f5c2 |
TEST_REQUIRES => {
|
|
Packit |
d0f5c2 |
'Test::More' => '0.81_01',
|
|
Packit |
d0f5c2 |
},
|
|
Packit |
d0f5c2 |
PMLIBDIRS => \@pmlibdirs,
|
|
Packit |
d0f5c2 |
INSTALLDIRS => ($] < 5.011 ? 'perl' : 'site'),
|
|
Packit |
d0f5c2 |
META_MERGE => {
|
|
Packit |
d0f5c2 |
resources => {
|
|
Packit |
d0f5c2 |
repository => 'https://github.com/dankogai/p5-encode',
|
|
Packit |
d0f5c2 |
},
|
|
Packit |
d0f5c2 |
x_contributors => [
|
|
Packit |
d0f5c2 |
'Alex Davies <alex.davies@talktalk.net>',
|
|
Packit |
d0f5c2 |
'Alex Kapranoff <alex@kapranoff.ru>',
|
|
Packit |
d0f5c2 |
'Alex Vandiver <alex@chmrr.net>',
|
|
Packit |
d0f5c2 |
'Andreas J. Koenig <andreas.koenig@anima.de>',
|
|
Packit |
d0f5c2 |
'Andrew Pennebaker <andrew.pennebaker@networkedinsights.com>',
|
|
Packit |
d0f5c2 |
'Andy Grundman <andyg@activestate.com>',
|
|
Packit |
d0f5c2 |
'Anton Tagunov <tagunov@motor.ru>',
|
|
Packit |
d0f5c2 |
'Autrijus Tang <autrijus@autrijus.org>',
|
|
Packit |
d0f5c2 |
'Benjamin Goldberg <goldbb2@earthlink.net>',
|
|
Packit |
d0f5c2 |
'Bjoern Hoehrmann <derhoermi@gmx.net>',
|
|
Packit |
d0f5c2 |
'Bjoern Jacke <debianbugs@j3e.de>',
|
|
Packit |
d0f5c2 |
'bulk88 <bulk88@hotmail.com>',
|
|
Packit |
d0f5c2 |
'Craig A. Berry <craigberry@mac.com>',
|
|
Packit |
d0f5c2 |
'Curtis Jewell <csjewell@cpan.org>',
|
|
Packit |
d0f5c2 |
'Dan Kogai <dankogai@dan.co.jp>',
|
|
Packit |
d0f5c2 |
'Dave Evans <dave@rudolf.org.uk>',
|
|
Packit |
d0f5c2 |
'David Golden <dagolden@cpan.org>',
|
|
Packit |
d0f5c2 |
'David Steinbrunner <dsteinbrunner@pobox.com>',
|
|
Packit |
d0f5c2 |
'Deng Liu <dengliu@ntu.edu.tw>',
|
|
Packit |
d0f5c2 |
'Dominic Dunlop <domo@computer.org>',
|
|
Packit |
d0f5c2 |
'drry',
|
|
Packit |
d0f5c2 |
'Elizabeth Mattijsen <liz@dijkmat.nl>',
|
|
Packit |
d0f5c2 |
'Flavio Poletti <flavio@polettix.it>',
|
|
Packit |
d0f5c2 |
'Gerrit P. Haase <gp@familiehaase.de>',
|
|
Packit |
d0f5c2 |
'Gisle Aas <gisle@ActiveState.com>',
|
|
Packit |
d0f5c2 |
'Graham Barr <gbarr@pobox.com>',
|
|
Packit |
d0f5c2 |
'Graham Knop <haarg@haarg.org>',
|
|
Packit |
d0f5c2 |
'Graham Ollis <perl@wdlabs.com>',
|
|
Packit |
d0f5c2 |
'Gurusamy Sarathy <gsar@activestate.com>',
|
|
Packit |
d0f5c2 |
'H.Merijn Brand <h.m.brand@xs4all.nl>',
|
|
Packit |
d0f5c2 |
'Hugo van der Sanden <hv@crypt.org>',
|
|
Packit |
d0f5c2 |
'chansen <chansen@cpan.org>',
|
|
Packit |
d0f5c2 |
'Chris Nandor <pudge@pobox.com>',
|
|
Packit |
d0f5c2 |
'Inaba Hiroto <inaba@st.rim.or.jp>',
|
|
Packit |
d0f5c2 |
'Jarkko Hietaniemi <jhi@iki.fi>',
|
|
Packit |
d0f5c2 |
'Jesse Vincent <jesse@fsck.com>',
|
|
Packit |
d0f5c2 |
'Jungshik Shin <jshin@mailaps.org>',
|
|
Packit |
d0f5c2 |
'Karen Etheridge <ether@cpan.org>',
|
|
Packit |
d0f5c2 |
'Karl Williamson <khw@cpan.org>',
|
|
Packit |
d0f5c2 |
'Kenichi Ishigaki <ishigaki@cpan.org>',
|
|
Packit |
d0f5c2 |
'KONNO Hiroharu <hiroharu.konno@bowneglobal.co.jp>',
|
|
Packit |
d0f5c2 |
'Laszlo Molnar <ml1050@freemail.hu>',
|
|
Packit |
d0f5c2 |
'Makamaka <makamaka@donzoko.net>',
|
|
Packit |
d0f5c2 |
'Mark-Jason Dominus <mjd@plover.com>',
|
|
Packit |
d0f5c2 |
'Masahiro Iuchi <masahiro.iuchi@gmail.com>',
|
|
Packit |
d0f5c2 |
'MATSUNO Tokuhiro <tokuhirom+cpan@gmail.com>',
|
|
Packit |
d0f5c2 |
'Mattia Barbon <mbarbon@dsi.unive.it>',
|
|
Packit |
d0f5c2 |
'Michael G Schwern <schwern@pobox.com>',
|
|
Packit |
d0f5c2 |
'Michael LaGrasta <michael@lagrasta.com>',
|
|
Packit |
d0f5c2 |
'Miron Cuperman <miron@hyper.to>',
|
|
Packit |
d0f5c2 |
'Moritz Lenz <moritz@faui2k3.org>',
|
|
Packit |
d0f5c2 |
'MORIYAMA Masayuki <msyk@mtg.biglobe.ne.jp>',
|
|
Packit |
d0f5c2 |
'Nick Ing-Simmons <nick@ing-simmons.net>',
|
|
Packit |
d0f5c2 |
'Nicholas Clark <nick@ccl4.org>',
|
|
Packit |
d0f5c2 |
'Olivier Mengué <dolmen@cpan.org>',
|
|
Packit |
d0f5c2 |
'otsune',
|
|
Packit |
d0f5c2 |
'Pali <pali@cpan.org>',
|
|
Packit |
d0f5c2 |
'Paul Marquess <paul_marquess@yahoo.co.uk>',
|
|
Packit |
d0f5c2 |
'Peter Prymmer <pvhp@best.com>',
|
|
Packit |
d0f5c2 |
'Peter Rabbitson <ribasushi@cpan.org>',
|
|
Packit |
d0f5c2 |
'Philip Newton <pne@cpan.org>',
|
|
Packit |
d0f5c2 |
'Piotr Fusik <pfusik@op.pl>',
|
|
Packit |
d0f5c2 |
'Rafael Garcia-Suarez <rgarciasuarez@mandriva.com>',
|
|
Packit |
d0f5c2 |
'Randy Stauner <randy@magnificent-tears.com>',
|
|
Packit |
d0f5c2 |
'Reini Urban <rurban@cpan.org>',
|
|
Packit |
d0f5c2 |
'Robin Barker <rmb1@cise.npl.co.uk>',
|
|
Packit |
d0f5c2 |
'SADAHIRO Tomoyuki <SADAHIRO@cpan.org>',
|
|
Packit |
d0f5c2 |
'Simon Cozens <simon@netthink.co.uk>',
|
|
Packit |
d0f5c2 |
'Slaven Rezic <SREZIC@cpan.org>',
|
|
Packit |
d0f5c2 |
'Spider Boardman <spider@web.zk3.dec.com>',
|
|
Packit |
d0f5c2 |
'Steve Hay <steve.m.hay@googlemail.com>',
|
|
Packit |
d0f5c2 |
'Steve Peters <steve@fisharerojo.org>',
|
|
Packit |
d0f5c2 |
'SUGAWARA Hajime <sugawara@hdt.co.jp>',
|
|
Packit |
d0f5c2 |
'SUZUKI Norio <ZAP00217@nifty.com>',
|
|
Packit |
d0f5c2 |
'szr8 <blz.marcel@gmail.com>',
|
|
Packit |
d0f5c2 |
'Tatsuhiko Miyagawa <miyagawa@bulknews.net>',
|
|
Packit |
d0f5c2 |
'Tels <perl_dummy@bloodgate.com>',
|
|
Packit |
d0f5c2 |
'Tony Cook <tony@develop-help.com>',
|
|
Packit |
d0f5c2 |
'Vadim Konovalov <vkonovalov@peterstar.ru>',
|
|
Packit |
d0f5c2 |
'Victor <victor@vsespb.ru>',
|
|
Packit |
d0f5c2 |
'Ville Skyttä <ville.skytta@iki.fi>',
|
|
Packit |
d0f5c2 |
'Vincent van Dam <vvandam@sandvine.com>',
|
|
Packit |
d0f5c2 |
'Yitzchak Scott-Thoennes <sthoenna@efn.org>',
|
|
Packit |
d0f5c2 |
],
|
|
Packit |
d0f5c2 |
},
|
|
Packit |
d0f5c2 |
);
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
package MY;
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
sub post_initialize
|
|
Packit |
d0f5c2 |
{
|
|
Packit |
d0f5c2 |
my ($self) = @_;
|
|
Packit |
d0f5c2 |
my %o;
|
|
Packit |
d0f5c2 |
# Find existing O_FILES
|
|
Packit |
d0f5c2 |
foreach my $f (@{$self->{'O_FILES'}})
|
|
Packit |
d0f5c2 |
{
|
|
Packit |
d0f5c2 |
$o{$f} = 1;
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
my $x = $self->{'OBJ_EXT'};
|
|
Packit |
d0f5c2 |
# Add the table O_FILES
|
|
Packit |
d0f5c2 |
foreach my $e (keys %tables)
|
|
Packit |
d0f5c2 |
{
|
|
Packit |
d0f5c2 |
$o{$e.$x} = 1;
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
# Trick case-blind filesystems.
|
|
Packit |
d0f5c2 |
delete $o{'encode'.$x};
|
|
Packit |
d0f5c2 |
$o{'Encode'.$x} = 1;
|
|
Packit |
d0f5c2 |
# Reset the variable
|
|
Packit |
d0f5c2 |
$self->{'O_FILES'} = [sort keys %o];
|
|
Packit |
d0f5c2 |
my @files;
|
|
Packit |
d0f5c2 |
foreach my $table (sort keys %tables)
|
|
Packit |
d0f5c2 |
{
|
|
Packit |
d0f5c2 |
foreach my $ext (qw($(OBJ_EXT) .c .h .exh .fnm))
|
|
Packit |
d0f5c2 |
{
|
|
Packit |
d0f5c2 |
push (@files,$table.$ext);
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
$self->{SOURCE} .= " $table.c"
|
|
Packit |
d0f5c2 |
if $^O eq 'MacOS' && $self->{SOURCE} !~ /\b$table\.c\b/;
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
$self->{'clean'}{'FILES'} .= join(' ',@files);
|
|
Packit |
d0f5c2 |
return '';
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
sub postamble
|
|
Packit |
d0f5c2 |
{
|
|
Packit |
d0f5c2 |
my $self = shift;
|
|
Packit |
d0f5c2 |
my $dir = $self->catdir($self->curdir,'ucm');
|
|
Packit |
d0f5c2 |
my $str = "# Encode\$(OBJ_EXT) does not depend on .c files directly\n";
|
|
Packit |
d0f5c2 |
$str .= "# (except Encode.c), but on .h and .exh files written by enc2xs\n";
|
|
Packit |
d0f5c2 |
$str .= $^O eq 'MacOS' ? 'Encode.c.{$(MACPERL_BUILD_EXT_STATIC)}.o :' : 'Encode$(OBJ_EXT) :';
|
|
Packit |
d0f5c2 |
$str .= ' Encode.c';
|
|
Packit |
d0f5c2 |
foreach my $table (sort keys %tables)
|
|
Packit |
d0f5c2 |
{
|
|
Packit |
d0f5c2 |
$str .= " $table.c";
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
$str .= "\n\n";
|
|
Packit |
d0f5c2 |
foreach my $table (sort keys %tables)
|
|
Packit |
d0f5c2 |
{
|
|
Packit |
d0f5c2 |
my $numlines = 1;
|
|
Packit |
d0f5c2 |
my $lengthsofar = length($str);
|
|
Packit |
d0f5c2 |
my $continuator = '';
|
|
Packit |
d0f5c2 |
my $enc2xs = $self->catfile('bin', 'enc2xs');
|
|
Packit |
d0f5c2 |
$str .= "$table.c : $enc2xs Makefile.PL";
|
|
Packit |
d0f5c2 |
foreach my $file (@{$tables{$table}})
|
|
Packit |
d0f5c2 |
{
|
|
Packit |
d0f5c2 |
$str .= $continuator.' '.$self->catfile($dir,$file);
|
|
Packit |
d0f5c2 |
if ( length($str)-$lengthsofar > 128*$numlines )
|
|
Packit |
d0f5c2 |
{
|
|
Packit |
d0f5c2 |
$continuator .= " \\\n\t";
|
|
Packit |
d0f5c2 |
$numlines++;
|
|
Packit |
d0f5c2 |
} else {
|
|
Packit |
d0f5c2 |
$continuator = '';
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
my $plib = $self->{PERL_CORE} ? '"-I$(PERL_LIB)"' : '';
|
|
Packit |
d0f5c2 |
$plib .= " -MCross=$::Cross::platform" if defined $::Cross::platform;
|
|
Packit |
d0f5c2 |
my $ucopts = '-"Q" -"O"';
|
|
Packit |
d0f5c2 |
$str .=
|
|
Packit |
d0f5c2 |
qq{\n\t\$(PERL) $plib $enc2xs $ucopts -o \$\@ -f $table.fnm\n\n};
|
|
Packit |
d0f5c2 |
open (FILELIST, ">$table.fnm")
|
|
Packit |
d0f5c2 |
|| die "Could not open $table.fnm: $!";
|
|
Packit |
d0f5c2 |
foreach my $file (@{$tables{$table}})
|
|
Packit |
d0f5c2 |
{
|
|
Packit |
d0f5c2 |
print FILELIST $self->catfile($dir,$file) . "\n";
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
close(FILELIST);
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
return $str;
|
|
Packit |
d0f5c2 |
}
|