ext/Encode/Byte/Makefile.PL

   1 use 5.7.2;
   2 use strict;
   3 use ExtUtils::MakeMaker;
   4 use File::Spec::Functions;
   5
   6 my $name = 'Byte';
   7 my %tables = (
   8           byte_t =>
   9           [
  10            # misc. vendors
  11            'gsm0338.ucm',
  12            'nextstep.ucm',
  13            'hp-roman8.ucm',
  14            'viscii.ucm',
  15            'adobeStdenc.ucm',
  16            # koi8
  17            'koi8-f.ucm', 'koi8-r.ucm', 'koi8-u.ucm',
  18            # Mac
  19            qw(
  20           macArabic.ucm
  21           macCentEuro.ucm
  22           macCroatian.ucm
  23           macCyrillic.ucm
  24           macFarsi.ucm
  25           macGreek.ucm
  26           macHebrew.ucm
  27           macIceland.ucm
  28           macRoman.ucm
  29           macROMnn.ucm
  30           macRUMnn.ucm
  31           macSami.ucm
  32           macThai.ucm
  33           macTurkish.ucm
  34           macUkraine.ucm
  35           ),
  36           ],
  37              );
  38
  39 my %not_here =
  40     map {$_ => 1}
  41 (
  42  '8859-1.ucm', # default
  43  qw(cp037.ucm cp1026.ucm cp1047.ucm cp500.ucm cp875.ucm), # EBCDIC
  44  qw(cp932.ucm cp936.ucm cp949.ucm cp950.ucm),  # CJK
  45  );
  46
  47 opendir(ENC,catdir(updir(),'ucm')) or die $!;
  48 while (defined(my $file = readdir(ENC)))
  49 {
  50     $file =~ /^(8859|cp).*\.ucm$/io or next;
  51     $not_here{$file} and next;
  52     push(@{$tables{byte_t}},$file);
  53 }
  54 closedir(ENC);
  55
  56 WriteMakefile(
  57               INC               => "-I../Encode",
  58           NAME          => 'Encode::'.$name,
  59           VERSION_FROM  => "$name.pm",
  60           OBJECT                => '$(O_FILES)',
  61           'dist'                => {
  62           COMPRESS      => 'gzip -9f',
  63           SUFFIX        => 'gz',
  64           DIST_DEFAULT => 'all tardist',
  65           },
  66           MAN3PODS      => {},
  67           # OS 390 winges about line numbers > 64K ???
  68           XSOPT => '-nolinenumbers',
  69           );
  70
  71 package MY;
  72
  73 sub post_initialize
  74 {
  75     my ($self) = @_;
  76     my %o;
  77     my $x = $self->{'OBJ_EXT'};
  78     # Add the table O_FILES
  79     foreach my $e (keys %tables)
  80     {
  81     $o{$e.$x} = 1;
  82     }
  83     $o{"$name$x"} = 1;
  84     $self->{'O_FILES'} = [sort keys %o];
  85     my @files = ("$name.xs");
  86     $self->{'C'} = ["$name.c"];
  87     $self->{SOURCE} .= " $name.c"
  88         if $^O eq 'MacOS' && $self->{SOURCE} !~ /\b$name\.c\b/;
  89     $self->{'H'} = [$self->catfile($self->updir,'Encode', 'encode.h')];
  90     my %xs;
  91     foreach my $table (keys %tables) {
  92     push (@{$self->{'C'}},"$table.c");
  93     # Do NOT add $table.h etc. to H_FILES unless we own up as to how they
  94     # get built.
  95     foreach my $ext (qw($(OBJ_EXT) .c .h .exh .fnm)) {
  96         push (@files,$table.$ext);
  97     }
  98     $self->{SOURCE} .= " $table.c"
  99         if $^O eq 'MacOS' && $self->{SOURCE} !~ /\b$table\.c\b/;
 100     }
 101     $self->{'XS'} = { "$name.xs" => "$name.c" };
 102     $self->{'clean'}{'FILES'} .= join(' ',@files);
 103     open(XS,">$name.xs") || die "Cannot open $name.xs:$!";
 104     print XS <<'END';
 105 #include <EXTERN.h>
 106 #include <perl.h>
 107 #include <XSUB.h>
 108 #define U8 U8
 109 #include "encode.h"
 110 END
 111     foreach my $table (keys %tables) {
 112     print XS qq[#include "${table}.h"\n];
 113     }
 114     print XS <<"END";
 115
 116 static void
 117 Encode_XSEncoding(pTHX_ encode_t *enc)
 118 {
 119  dSP;
 120  HV *stash = gv_stashpv("Encode::XS", TRUE);
 121  SV *sv    = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash);
 122  int i = 0;
 123  PUSHMARK(sp);
 124  XPUSHs(sv);
 125  while (enc->name[i])
 126   {
 127    const char *name = enc->name[i++];
 128    XPUSHs(sv_2mortal(newSVpvn(name,strlen(name))));
 129   }
 130  PUTBACK;
 131  call_pv("Encode::define_encoding",G_DISCARD);
 132  SvREFCNT_dec(sv);
 133 }
 134
 135 MODULE = Encode::$name  PACKAGE = Encode::$name
 136 PROTOTYPES: DISABLE
 137 BOOT:
 138 {
 139 END
 140     foreach my $table (keys %tables) {
 141     print XS qq[#include "${table}.exh"\n];
 142     }
 143     print XS "}\n";
 144     close(XS);
 145     return "# Built $name.xs\n\n";
 146 }
 147
 148 sub postamble
 149 {
 150     my $self = shift;
 151     my $dir  = $self->catdir($self->updir,'ucm');
 152     my $str  = "# $name\$(OBJ_EXT) depends on .h and .exh files not .c files - but all written by enc2xs\n";
 153     $str    .= "$name.c : $name.xs ";
 154     foreach my $table (keys %tables)
 155     {
 156     $str .= " $table.c";
 157     }
 158     $str .= "\n\n";
 159     $str .= "$name\$(OBJ_EXT) : $name.c\n\n";
 160
 161     my $enc2xs = $self->catfile($self->updir,'bin', 'enc2xs');
 162     foreach my $table (keys %tables)
 163     {
 164     my $numlines = 1;
 165     my $lengthsofar = length($str);
 166     my $continuator = '';
 167     $str .= "$table.c : $enc2xs Makefile.PL";
 168     foreach my $file (@{$tables{$table}})
 169     {
 170         $str .= $continuator.' '.$self->catfile($dir,$file);
 171         if ( length($str)-$lengthsofar > 128*$numlines )
 172         {
 173         $continuator .= " \\\n\t";
 174         $numlines++;
 175         } else {
 176         $continuator = '';
 177         }
 178     }
 179     my $plib   = $self->{PERL_CORE} ? '"-I$(PERL_LIB)"' : '';
 180     $plib .= " -MCross=$::Cross::platform" if defined $::Cross::platform;
 181     my $ucopts = '-"Q" -"O"';
 182     $str .=
 183         qq{\n\t\$(PERL) $plib $enc2xs $ucopts -o \$\@ -f $table.fnm\n\n};
 184     open (FILELIST, ">$table.fnm")
 185         || die "Could not open $table.fnm: $!";
 186     foreach my $file (@{$tables{$table}})
 187     {
 188         print FILELIST $self->catfile($dir,$file) . "\n";
 189     }
 190     close(FILELIST);
 191     }
 192     return $str;
 193 }
 194