1use 5.7.2;
2use strict;
3use ExtUtils::MakeMaker;
4use strict;
5
6my %tables = (
7	      euc_jp_t   => ['euc-jp.ucm'],
8              sjis_t     => ['shiftjis.ucm',
9			     'macJapanese.ucm',
10			     'cp932.ucm'],
11	      raw_t      => [
12			     qw(jis0201.ucm jis0208.ucm jis0212.ucm)
13			     ],
14             );
15
16unless ($ENV{AGGREGATE_TABLES}){
17    my @ucm;
18    for my $k (keys %tables){
19	push @ucm, @{$tables{$k}};
20    }
21    %tables = ();
22    my $seq = 0;
23    for my $ucm (sort @ucm){
24	# 8.3 compliance !
25	my $t = sprintf ("%s_%02d_t", substr($ucm, 0, 2), $seq++);
26	$tables{$t} = [ $ucm ];
27    }
28}
29
30my $name = 'JP';
31
32WriteMakefile(
33              INC		=> "-I../Encode",
34	      NAME		=> 'Encode::'.$name,
35	      VERSION_FROM	=> "$name.pm",
36	      OBJECT		=> '$(O_FILES)',
37	      'dist'		=> {
38		  COMPRESS	=> 'gzip -9f',
39		  SUFFIX	=> 'gz',
40		  DIST_DEFAULT => 'all tardist',
41	      },
42	      MAN3PODS	=> {},
43	      # OS 390 winges about line numbers > 64K ???
44	      XSOPT => '-nolinenumbers',
45	      );
46
47package MY;
48
49sub post_initialize
50{
51    my ($self) = @_;
52    my %o;
53    my $x = $self->{'OBJ_EXT'};
54    # Add the table O_FILES
55    foreach my $e (keys %tables)
56    {
57	$o{$e.$x} = 1;
58    }
59    $o{"$name$x"} = 1;
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')];
66    my %xs;
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
70	# get built.
71	foreach my $ext (qw($(OBJ_EXT) .c .h .exh .fnm)) {
72	    push (@files,$table.$ext);
73	}
74	$self->{SOURCE} .= " $table.c"
75	    if $^O eq 'MacOS' && $self->{SOURCE} !~ /\b$table\.c\b/;
76    }
77    $self->{'XS'} = { "$name.xs" => "$name.c" };
78    $self->{'clean'}{'FILES'} .= join(' ',@files);
79    open(XS,">$name.xs") || die "Cannot open $name.xs:$!";
80    print XS <<'END';
81#include <EXTERN.h>
82#include <perl.h>
83#include <XSUB.h>
84#define U8 U8
85#include "encode.h"
86END
87    foreach my $table (keys %tables) {
88	print XS qq[#include "${table}.h"\n];
89    }
90    print XS <<"END";
91
92static void
93Encode_XSEncoding(pTHX_ encode_t *enc)
94{
95 dSP;
96 HV *stash = gv_stashpv("Encode::XS", TRUE);
97 SV *sv    = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash);
98 int i = 0;
99 PUSHMARK(sp);
100 XPUSHs(sv);
101 while (enc->name[i])
102  {
103   const char *name = enc->name[i++];
104   XPUSHs(sv_2mortal(newSVpvn(name,strlen(name))));
105  }
106 PUTBACK;
107 call_pv("Encode::define_encoding",G_DISCARD);
108 SvREFCNT_dec(sv);
109}
110
111MODULE = Encode::$name	PACKAGE = Encode::$name
112PROTOTYPES: DISABLE
113BOOT:
114{
115END
116    foreach my $table (keys %tables) {
117	print XS qq[#include "${table}.exh"\n];
118    }
119    print XS "}\n";
120    close(XS);
121    return "# Built $name.xs\n\n";
122}
123
124sub postamble
125{
126    my $self = shift;
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)
131    {
132	$str .= " $table.c";
133    }
134    $str .= "\n\n";
135    $str .= "$name\$(OBJ_EXT) : $name.c\n\n";
136
137    my $enc2xs = $self->catfile($self->updir,'bin', 'enc2xs');
138    foreach my $table (keys %tables)
139    {
140	my $numlines = 1;
141	my $lengthsofar = length($str);
142	my $continuator = '';
143	$str .= "$table.c : $enc2xs Makefile.PL";
144	foreach my $file (@{$tables{$table}})
145	{
146	    $str .= $continuator.' '.$self->catfile($dir,$file);
147	    if ( length($str)-$lengthsofar > 128*$numlines )
148	    {
149		$continuator .= " \\\n\t";
150		$numlines++;
151	    } else {
152		$continuator = '';
153	    }
154	}
155	my $plib   = $self->{PERL_CORE} ? '"-I$(PERL_LIB)"' : '';
156	$plib .= " -MCross=$::Cross::platform" if defined $::Cross::platform;
157	my $ucopts = '-"Q"';
158	$str .=
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}})
163	{
164	    print FILELIST $self->catfile($dir,$file) . "\n";
165	}
166	close(FILELIST);
167    }
168    return $str;
169}
170
171