1use 5.7.2;
2use strict;
3use ExtUtils::MakeMaker;
4use strict;
5
6my %tables = (big5_t	=> ['big5-eten.ucm',
7                'big5-hkscs.ucm',
8                'macChintrad.ucm',
9                'cp950.ucm'],
10             );
11
12unless ($ENV{AGGREGATE_TABLES}){
13    my @ucm;
14    for my $k (keys %tables){
15    push @ucm, @{$tables{$k}};
16    }
17    %tables = ();
18    my $seq = 0;
19    for my $ucm (sort @ucm){
20    # 8.3 compliance !
21    my $t = sprintf ("%s_%02d_t", substr($ucm, 0, 2), $seq++);
22    $tables{$t} = [ $ucm ];
23    }
24}
25
26my $name = 'TW';
27
28WriteMakefile(
29              INC		=> "-I../Encode",
30          NAME		=> 'Encode::'.$name,
31          VERSION_FROM	=> "$name.pm",
32          OBJECT		=> '$(O_FILES)',
33          'dist'		=> {
34          COMPRESS	=> 'gzip -9f',
35          SUFFIX	=> 'gz',
36          DIST_DEFAULT => 'all tardist',
37          },
38          MAN3PODS	=> {},
39          # OS 390 winges about line numbers > 64K ???
40          XSOPT => '-nolinenumbers',
41          );
42
43package MY;
44
45sub post_initialize
46{
47    my ($self) = @_;
48    my %o;
49    my $x = $self->{'OBJ_EXT'};
50    # Add the table O_FILES
51    foreach my $e (keys %tables)
52    {
53    $o{$e.$x} = 1;
54    }
55    $o{"$name$x"} = 1;
56    $self->{'O_FILES'} = [sort keys %o];
57    my @files = ("$name.xs");
58    $self->{'C'} = ["$name.c"];
59    $self->{SOURCE} .= " $name.c"
60        if $^O eq 'MacOS' && $self->{SOURCE} !~ /\b$name\.c\b/;
61    $self->{'H'} = [$self->catfile($self->updir,'Encode', 'encode.h')];
62    my %xs;
63    foreach my $table (sort keys %tables) {
64    push (@{$self->{'C'}},"$table.c");
65    # Do NOT add $table.h etc. to H_FILES unless we own up as to how they
66    # get built.
67    foreach my $ext (qw($(OBJ_EXT) .c .h .exh .fnm)) {
68        push (@files,$table.$ext);
69    }
70    $self->{SOURCE} .= " $table.c"
71        if $^O eq 'MacOS' && $self->{SOURCE} !~ /\b$table\.c\b/;
72    }
73    $self->{'XS'} = { "$name.xs" => "$name.c" };
74    $self->{'clean'}{'FILES'} .= join(' ',@files);
75    open(XS,">$name.xs") || die "Cannot open $name.xs:$!";
76    print XS <<'END';
77#define PERL_NO_GET_CONTEXT
78#include <EXTERN.h>
79#include <perl.h>
80#include <XSUB.h>
81#include "encode.h"
82END
83    foreach my $table (sort keys %tables) {
84    print XS qq[#include "${table}.h"\n];
85    }
86    print XS <<"END";
87
88static void
89Encode_XSEncoding(pTHX_ encode_t *enc)
90{
91 dSP;
92 HV *stash = gv_stashpv("Encode::XS", TRUE);
93 SV *iv    = newSViv(PTR2IV(enc));
94 SV *sv    = sv_bless(newRV_noinc(iv),stash);
95 int i = 0;
96 /* with the SvLEN() == 0 hack, PVX won't be freed. We cast away name's
97 constness, in the hope that perl won't mess with it. */
98 assert(SvTYPE(iv) >= SVt_PV); assert(SvLEN(iv) == 0);
99 SvFLAGS(iv) |= SVp_POK;
100 SvPVX(iv) = (char*) enc->name[0];
101 PUSHMARK(sp);
102 XPUSHs(sv);
103 while (enc->name[i])
104  {
105   const char *name = enc->name[i++];
106   XPUSHs(sv_2mortal(newSVpvn(name,strlen(name))));
107  }
108 PUTBACK;
109 call_pv("Encode::define_encoding",G_DISCARD);
110 SvREFCNT_dec(sv);
111}
112
113MODULE = Encode::$name	PACKAGE = Encode::$name
114PROTOTYPES: DISABLE
115BOOT:
116{
117END
118    foreach my $table (sort keys %tables) {
119    print XS qq[#include "${table}.exh"\n];
120    }
121    print XS "}\n";
122    close(XS);
123    return "# Built $name.xs\n\n";
124}
125
126sub postamble
127{
128    my $self = shift;
129    my $dir  = $self->catdir($self->updir,'ucm');
130    my $str  = "# $name\$(OBJ_EXT) depends on .h and .exh files not .c files - but all written by enc2xs\n";
131    $str    .= "$name.c : $name.xs ";
132    foreach my $table (sort keys %tables)
133    {
134    $str .= " $table.c";
135    }
136    $str .= "\n\n";
137    $str .= "$name\$(OBJ_EXT) : $name.c\n\n";
138
139    my $enc2xs = $self->catfile($self->updir,'bin', 'enc2xs');
140    foreach my $table (sort keys %tables)
141    {
142    my $numlines = 1;
143    my $lengthsofar = length($str);
144    my $continuator = '';
145    $str .= "$table.c : $enc2xs Makefile.PL";
146    foreach my $file (@{$tables{$table}})
147    {
148        $str .= $continuator.' '.$self->catfile($dir,$file);
149        if ( length($str)-$lengthsofar > 128*$numlines )
150        {
151        $continuator .= " \\\n\t";
152        $numlines++;
153        } else {
154        $continuator = '';
155        }
156    }
157    my $plib   = $self->{PERL_CORE} ? '"-I$(PERL_LIB)"' : '';
158    $plib .= " -MCross=$::Cross::platform" if defined $::Cross::platform;
159    my $ucopts = '-"Q"';
160    $str .=
161        qq{\n\t\$(PERL) $plib $enc2xs $ucopts -o \$\@ -f $table.fnm\n\n};
162    open (FILELIST, ">$table.fnm")
163        || die "Could not open $table.fnm: $!";
164    foreach my $file (@{$tables{$table}})
165    {
166        print FILELIST $self->catfile($dir,$file) . "\n";
167    }
168    close(FILELIST);
169    }
170    return $str;
171}
172
173