3
use ExtUtils::MakeMaker;
6
my %tables = (euc_cn_t => ['euc-cn.ucm',
10
'2312_t' => ['gb2312.ucm'],
11
'12345_t' => ['gb12345.ucm'],
12
ir_165_t => ['ir-165.ucm'],
15
unless ($ENV{AGGREGATE_TABLES}){
17
for my $k (keys %tables){
18
push @ucm, @{$tables{$k}};
22
for my $ucm (sort @ucm){
24
my $t = sprintf ("%s_%02d_t", substr($ucm, 0, 2), $seq++);
25
$tables{$t} = [ $ucm ];
33
NAME => 'Encode::'.$name,
34
VERSION_FROM => "$name.pm",
35
OBJECT => '$(O_FILES)',
37
COMPRESS => 'gzip -9f',
39
DIST_DEFAULT => 'all tardist',
42
# OS 390 winges about line numbers > 64K ???
43
XSOPT => '-nolinenumbers',
44
XSPROTOARG => '-noprototypes',
53
my $x = $self->{'OBJ_EXT'};
54
# Add the table O_FILES
55
foreach my $e (keys %tables)
60
$self->{'O_FILES'} = [sort keys %o];
61
my @files = ("$name.xs");
62
$self->{'C'} = ["$name.c"];
63
$self->{SOURCE} .= " $name.c"
64
if $^O eq 'MacOS' && $self->{SOURCE} !~ /\b$name\.c\b/;
65
$self->{'H'} = [$self->catfile($self->updir,'Encode', 'encode.h')];
67
foreach my $table (keys %tables) {
68
push (@{$self->{'C'}},"$table.c");
69
# Do NOT add $table.h etc. to H_FILES unless we own up as to how they
71
foreach my $ext (qw($(OBJ_EXT) .c .h .exh .fnm)) {
72
push (@files,$table.$ext);
74
$self->{SOURCE} .= " $table.c"
75
if $^O eq 'MacOS' && $self->{SOURCE} !~ /\b$table\.c\b/;
77
$self->{'XS'} = { "$name.xs" => "$name.c" };
78
$self->{'clean'}{'FILES'} .= join(' ',@files);
79
open(XS,">$name.xs") || die "Cannot open $name.xs:$!";
87
foreach my $table (keys %tables) {
88
print XS qq[#include "${table}.h"\n];
93
Encode_XSEncoding(pTHX_ encode_t *enc)
96
HV *stash = gv_stashpv("Encode::XS", TRUE);
97
SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash);
103
const char *name = enc->name[i++];
104
XPUSHs(sv_2mortal(newSVpvn(name,strlen(name))));
107
call_pv("Encode::define_encoding",G_DISCARD);
111
MODULE = Encode::$name PACKAGE = Encode::$name
116
foreach my $table (keys %tables) {
117
print XS qq[#include "${table}.exh"\n];
121
return "# Built $name.xs\n\n";
127
my $dir = $self->catdir($self->updir,'ucm');
128
my $str = "# $name\$(OBJ_EXT) depends on .h and .exh files not .c files - but all written by enc2xs\n";
129
$str .= "$name.c : $name.xs ";
130
foreach my $table (keys %tables)
135
$str .= "$name\$(OBJ_EXT) : $name.c\n\n";
137
my $enc2xs = $self->catfile($self->updir,'bin', 'enc2xs');
138
foreach my $table (keys %tables)
141
my $lengthsofar = length($str);
142
my $continuator = '';
143
$str .= "$table.c : $enc2xs Makefile.PL";
144
foreach my $file (@{$tables{$table}})
146
$str .= $continuator.' '.$self->catfile($dir,$file);
147
if ( length($str)-$lengthsofar > 128*$numlines )
149
$continuator .= " \\\n\t";
155
my $plib = $self->{PERL_CORE} ? '"-I$(PERL_LIB)"' : '';
156
$plib .= " -MCross=$::Cross::platform" if defined $::Cross::platform;
159
qq{\n\t\$(PERL) $plib $enc2xs $ucopts -o \$\@ -f $table.fnm\n\n};
160
open (FILELIST, ">$table.fnm")
161
|| die "Could not open $table.fnm: $!";
162
foreach my $file (@{$tables{$table}})
164
print FILELIST $self->catfile($dir,$file) . "\n";