view release on metacpan or  search on metacpan

inc/Alien/Uninum/ModuleBuild.pm  view on Meta::CPAN

package Alien::Uninum::ModuleBuild;

# based off <https://metacpan.org/source/PLICEASE/Alien-Libarchive-0.10/inc/Alien/Libarchive/ModuleBuild.pm>
# @ <https://github.com/plicease/Alien-Libarchive/blob/f2546c32ff338abb420808bf9212ffc97145a019/inc/Alien/Libarchive/ModuleBuild.pm>
 
use strict;
use warnings;
use base qw( Alien::Base::ModuleBuild );
use FindBin ();
use Text::ParseWords qw( shellwords );
 
sub new {
  my $class = shift;
  return $class->SUPER::new(@_);
}

my $cflags;
my $libs;

sub alien_do_commands
{
  my($self, $phase) = @_;
 
  #unless(defined $cflags)
  #{
    #my $first = 1;
    #foreach my $dep (qw( Alien::GMP ))
    #{
      #my @dep = ref $dep ? @$dep : ($dep);
      #foreach my $name (@dep)
      #{
        #my $alien = eval qq{ require $name; $name->new };
        #next if $@;
        #print "\n\n" if $first; $first = 0;
        #print "  trying to use $name: ";
       
        #require ExtUtils::CChecker;
        #require Capture::Tiny;
       
        #my $cc = ExtUtils::CChecker->new;
        #$cc->push_extra_compiler_flags(shellwords ' ' . $alien->cflags);
        #$cc->push_extra_linker_flags(shellwords  ' ' . $alien->libs);
        #my $ok;
        #my $out = Capture::Tiny::capture_merged(sub {
          #$ok = $cc->try_compile_run("int main(int argc, char *argv[]) { return 0; }");
        #});
        #if($ok)
        #{
          #print "ok\n";
          #$cflags .= ' ' . $alien->cflags;
          #$libs   .= ' ' . $alien->libs;
          #last;
        #}
        #else
        #{
          #print "failed\n";
          #print $out;
        #}
      #}
    #}
    #print "\n\n" unless $first;
  #}
 
  #local $ENV{CFLAGS} = $cflags;
  #local $ENV{LIBS}   = $libs;
   
  $self->SUPER::alien_do_commands($phase);
}

package
  main;

use Config;

sub alien_patch {
	my $unicode_h = 'unicode.h';
	my $unicode_h_new = "$unicode_h.tmp";
	open my $in,  '<', $unicode_h;
	open my $out, '>', $unicode_h_new;
	while(<$in>) {
		if(/^typedef.*UTF32;/) {
			# replace the UTF32 tyepdef
			# (it shouldn't be an unsigned long)
			print $out <<END;
/* PATCH: use Perl's U32 for portability */
typedef $Config{u32type}	UTF32;
END
		} else {
			print $out $_;
		}
	}
	close $in;
	close $out;
	unlink $unicode_h;
	rename $unicode_h_new, $unicode_h;
}
 
1;