use ExtUtils::MakeMaker ;
use File::Find ;
use strict ;
use File::Spec ;
# The file we just produced in the parent Makefile.PL
require "Inline/Java/default_j2sdk.pl" ;
my $build_jni = $main::build_jni ;
my $build_perl_natives = $main::build_perl_natives ;
my $build_perl_interpreter = $main::build_perl_interpreter ;
my $jvm_lib_type = $main::jvm_lib_type ;
my $jvm_lib = Inline::Java::Portable::portable('JVM_LIB') ;
my $jvm_so = Inline::Java::Portable::portable('JVM_SO') ;
my %so_dirs = () ;
my @files = (
        'jni.h',
        'jni_md.h',
        $jvm_lib,
) ;
if ($jvm_so ne $jvm_lib){
        push @files, $jvm_so ;
}
push @files, 'jvm.cfg' ;
my $files = {
        'jni.h'         => {
                discard         => qr/include-old/,
        },
        'jni_md.h'      => {
                discard         => qr/include-old/,
        },
        $jvm_lib        => {
        },
        'jvm.cfg'       => {
        },
        $jvm_so         => {
        },
} ;
foreach my $f (@files){
        $files->{$f}->{selected} = undef ;
        $files->{$f}->{choices} = [] ;
        $files->{$f}->{default_choice} = 1 ;
}
my $build_jni_by_dflt = Inline::Java::Portable::portable("BUILD_JNI_BY_DFLT") ;
if (! defined($build_jni)){
  $build_jni = $build_jni_by_dflt;
}
if ($build_jni){
        print "\nBuilding JNI extension.\n\n" ;
        my $jdk_dir = Inline::Java::get_default_j2sdk() ;
        my $symlink = Inline::Java::Portable::portable("GOT_SYMLINK") ;
        find(
                {
                        wanted => \&search,
                        ($symlink ? (follow_fast => 1, follow_skip => 2) : ()),
                },
                $jdk_dir) ;
        my $type = FindDefaultVMType() ;
        if (defined($type)){
                my $cnt = 1 ;
                foreach my $c (@{$files->{$jvm_so}->{choices}}){
                        if ($c =~ /$type/){
                                $files->{$jvm_so}->{default_choice} = $cnt ;
                        }
                        $cnt++ ;
                }
        }
        # We no longer need jvm.cfg from now on...
        pop @files ;
        my $done = 0 ;
        foreach my $f (@files){
                my $cnt = scalar(@{$files->{$f}->{choices}}) ;
                if ($cnt == 0){
                        print "Can't locate file '$f' anywhere under '$jdk_dir'\n" ;
                        $done = 1 ;
                        last ;
                }
                elsif ($cnt == 1){
                        $files->{$f}->{selected} = $files->{$f}->{choices}->[0] ;
                }
                else {
                        my $choose = 1 ;
                        if (($f eq $jvm_lib)&&(defined($jvm_lib_type))){
                                my @matches = grep {/$jvm_lib_type/} @{$files->{$f}->{choices}} ;
                                if (! scalar(@matches)){
                                        print "WARNING: No $f type matching '$jvm_lib_type' found.\n\n" ;
                                }
                                elsif (scalar(@matches) == 1){
                                        print "Automatically selecting '$matches[0]' for $f type.\n\n" ;
                                        $files->{$f}->{selected} = $matches[0] ;
                                        $choose = 0 ;
                                }
                        }
                        Choose($f) if $choose ;
                }
        }
        if (! $done){
                # We have all the required files selected.
                CleanSoDirs() ;
                # Cygwin: create gcc-compatible library wrapper for jvm.dll
                if ($^O eq 'cygwin') {
                        my $lib = File::Spec->catfile(Cwd::cwd, 'libjvm.dll.a') ;
                        my $dll = File::Spec->catfile($files->{$jvm_so}->{selected}, 'jvm.dll') ;
                        print "Creating '$lib' for cygwin.\n\n" ;
                        system("/usr/bin/dlltool --kill-at --dllname jvm.dll --output-lib '$lib' '$dll'") 
                                and print "Error attempting to create '$lib'\n" ;
                }
                print "Building with:\n" ;
                map { print "  " . File::Spec->catfile($files->{$_}->{selected}, $_) . "\n" ;} @files ;
                $done = 0 ;
                if (! $done){
                        print
                                "\nNote: In order for Inline::Java to use the JNI extension, you will need to\n" .                          
                                "use the JNI configuration option or set the PERL_INLINE_JAVA_JNI environment\n" .
                                "variable to a true value. You will also need to add the following directories\n" .
                                "to your " . Inline::Java::Portable::portable('SO_LIB_PATH_VAR') . " environment variable:\n" ;
                        @main::SO_DIRS = keys %so_dirs ;
                        map {print "  $_\n"; } @main::SO_DIRS ;
                        print "See README.JNI for more information.\n\n" ;
                        @main::I = map { Inline::Java::Portable::portable('SUB_FIX_MAKE_QUOTES', "-I$_") } 
                                ($files->{'jni.h'}->{selected}, $files->{'jni_md.h'}->{selected}) ;
                        @main::L = map { Inline::Java::Portable::portable('SUB_FIX_MAKE_QUOTES', "-L$_") }
                                ($files->{$jvm_lib}->{selected}) ;
                        if ($^O eq 'cygwin') {
                                push @main::L, Inline::Java::Portable::portable('SUB_FIX_MAKE_QUOTES', '-L' . Cwd::cwd);
                        }
                        my $DIR = [] ;
                        if (! defined($build_perl_interpreter)){
                                print <<TXT;
The PerlInterpreter extension allows Inline::Java to be loaded directly from
Java using an embedded Perl interpreter. It is still EXPERIMENTAL and 
may not build or work properly on all platforms. See documentation for 
more details.
TXT
                                if (AskYN("Do you wish to build the PerlInterpreter extension?", 'n')){
                                        $build_perl_interpreter = 1 ;
                                }
                                print "\n" ;
                        }
                        if ($build_perl_interpreter){
                                push @{$DIR}, 'PerlInterpreter' ;
                        }
                        if (! defined($build_perl_natives)){
                                print <<TXT;
The PerlNatives extension allows for callbacks to be defined as native
Java methods. It is still EXPERIMENTAL and may not build or work properly
on all platforms. See documentation for more details.
Note: PerlNatives requires J2SDK 1.4 or greater.
TXT
                                if (AskYN("Do you wish to build the PerlNatives extension?", 'n')){
                                        $build_perl_natives = 1 ;
                                }
                                print "\n" ;
                        }
                        if ($build_perl_natives){
                                push @{$DIR}, 'PerlNatives' ;
                        }
                        WriteMakefile(
                                NAME => 'Inline::Java::JNI',
                                VERSION_FROM => 'JNI.pm',
                                DIR => $DIR,
                                PMLIBDIRS => [File::Spec->catdir('sources', 'org', 'perl', 'inline', 'java')],
                                INC => join(' ', @main::I),
                                LIBS => [join(' ', @main::L) . " -ljvm"],
                                dynamic_lib => { 
                                        OTHERLDFLAGS => Inline::Java::Portable::portable('OTHERLDFLAGS') 
                                },
                                # CCFLAGS => '-D_REENTRANT',
                        ) ;
                }
        }
}
else{
        print "\n" ;
        WriteMakefile(
                NAME => 'Inline::Java::JNI',
                VERSION_FROM => 'JNI.pm',
                DIR => [],
                PMLIBDIRS => [File::Spec->catdir('sources', 'org', 'perl', 'inline', 'java')],
                XS => {},
                C => []
        ) ;
}
#################################################
sub search {
        my $file = $_ ;
        my $ext = Inline::Java::Portable::portable('SO_EXT') ;
        if ($File::Find::dir =~ /jre/){
                if ($file =~ /\.$ext$/){
                        my $dir = File::Spec->canonpath($File::Find::dir) ;
                        $so_dirs{$dir} = 1 ;
                }
        }
        foreach my $f (@files){
                if ($file eq $f){
                        my $re = $files->{$f}->{discard} ;
                        if ((! $re)||($File::Find::dir !~ /$re/)){
                                push @{$files->{$f}->{choices}}, File::Spec->canonpath($File::Find::dir) ;
                        }
                        last ;
                }
        }
}
sub CleanSoDirs {
        foreach my $d (keys %so_dirs){
                if (-e File::Spec->catfile($d, $jvm_so)){
                        delete $so_dirs{$d} ;
                }
                elsif ($d =~ /plugin/){
                                delete $so_dirs{$d} ;
                }
                elsif ($d =~ /motif/){
                                delete $so_dirs{$d} ;
                }
                elsif ($d =~ /javaws/){
                                delete $so_dirs{$d} ;
                }
                elsif ($d =~ /headless/){
                                delete $so_dirs{$d} ;
                }
                elsif ($d =~ /xawt/){
                                delete $so_dirs{$d} ;
                }
                elsif ($d =~ /_threads/){
                        if ($d !~ /native_threads/){
                                delete $so_dirs{$d} ;
                        }
                }
        }
        $so_dirs{$files->{$jvm_so}->{selected}} = 1 ;
}
sub FindDefaultVMType {
        my $type = undef ;
        my $choices = $files->{'jvm.cfg'}->{choices} ;
        if (scalar(@{$choices})){
                my $cfg = File::Spec->catfile($choices->[0], 'jvm.cfg') ;
                if (open(CFG, "<$cfg")){
                        while (<CFG>){
                                my $line = $_ ;
                                chomp($line) ;
                                $line =~ s/^\s+// ;
                                $line =~ s/\s+$// ;
                                if (! $line){
                                        next ;
                                }
                                elsif ($line =~ /^#/){
                                        next ;
                                }
                                else{
                                        ($type) = split(/\s+/, $line) ;
                                        $type =~ s/^-// ;
                                        last ;
                                }
                        }
                        close(CFG) ;
                }
        }
        return $type ;
}
sub Choose {
        my $f = shift ;
        my $o = $files->{$f} ;
        my $cnt = 0 ;
        my $def = undef ;
        foreach my $f (@{$o->{choices}}){
                $cnt++ ;
                print "$cnt) $f\n" ;
        }
        my $idx = AskSub("Please select from the above list which '$f' to use:",
                $o->{default_choice}, sub {(($_[0] >= 1)&&($_[0] <= $cnt))}) ;
        $o->{selected} = $o->{choices}->[int($idx) - 1] ;
        print "\n" ;
}
# Gets string from stdin
sub Ask {
        my $ques = shift ;
        my $def = shift ;
        return AskSub($ques, $def, undef) ;
}
# Gets yes/no from stdin
sub AskYN {
        my $ques = shift ;
        my $def = shift ;
        my $ans = AskSub($ques, $def, sub {((! $_[0])||($_[0] =~ /^(y|n)$/i))}) ;
        return (($ans =~ /^y$/i) ? 1 : 0) ;
}
sub AskSub {
        my $ques = shift ;
        my $def = shift ;
        my $sub = shift ;
        while (1){
                my $ans = prompt($ques, $def) ;
                if (! $sub){
                        return $ans ;
                }
                elsif ($sub->($ans)){
                        return $ans ;
                }
        }
}