#!/usr/bin/perl
 
# Checking cross compile
$hostos   = `uname -s | sed -e s/\-.*//`;    chop($hostos);
$hostarch = `uname -m | sed -e s/i.86/x86/`;chop($hostarch);
 
$binary = $ENV{"BINARY"};
 
$makefile = shift(@ARGV);
$config   = shift(@ARGV);
 
$compiler_name = join(" ", @ARGV);
 
# First, we need to know the target OS and compiler name
 
$data = `$compiler_name -E ctest.c`;
 
if ($?) {
    printf STDERR "C Compiler ($compiler_name) is something wrong.\n";
    die 1;
}
 
$cross_suffix = "";
 
if ($ARGV[0] =~ /(.*)(-[.\d]+)/) {
    if ($1 =~ /(.*-)(.*)/) {
	$cross_suffix = $1;
    }
} else {
    if ($ARGV[0] =~ /(.*-)(.*)/) {
	$cross_suffix = $1;
    }
}
 
$compiler = "";
$compiler = PGI       if ($data =~ /COMPILER_PGI/);
$compiler = PATHSCALE if ($data =~ /COMPILER_PATHSCALE/);
$compiler = INTEL     if ($data =~ /COMPILER_INTEL/);
$compiler = OPEN64    if ($data =~ /COMPILER_OPEN64/);
$compiler = SUN       if ($data =~ /COMPILER_SUN/);
$compiler = IBM       if ($data =~ /COMPILER_IBM/);
$compiler = DEC       if ($data =~ /COMPILER_DEC/);
$compiler = GCC       if ($compiler eq "");
 
$os = Linux           if ($data =~ /OS_LINUX/);
$os = FreeBSD         if ($data =~ /OS_FreeBSD/);
$os = NetBSD          if ($data =~ /OS_NetBSD/);
$os = Darwin          if ($data =~ /OS_Darwin/);
$os = SunOS           if ($data =~ /OS_SunOS/);
$os = AIX             if ($data =~ /OS_AIX/);
$os = osf             if ($data =~ /OS_OSF/);
$os = WINNT           if ($data =~ /OS_WINNT/);
$os = CYGWIN_NT       if ($data =~ /OS_CYGWIN/);
$os = Interix         if ($data =~ /OS_INTERIX/);
 
$architecture = x86    if ($data =~ /ARCH_X86/);
$architecture = x86_64 if ($data =~ /ARCH_X86_64/);
$architecture = power  if ($data =~ /ARCH_POWER/);
$architecture = mips32 if ($data =~ /ARCH_MIPS32/);
$architecture = mips64 if ($data =~ /ARCH_MIPS64/);
$architecture = alpha  if ($data =~ /ARCH_ALPHA/);
$architecture = sparc  if ($data =~ /ARCH_SPARC/);
$architecture = ia64   if ($data =~ /ARCH_IA64/);
 
$defined = 0;
 
if ($os eq "AIX") {
    $compiler_name .= " -maix32" if ($binary eq "32");
    $compiler_name .= " -maix64" if ($binary eq "64");
    $defined = 1;
}
 
if (($architecture eq "mips32") || ($architecture eq "mips64")) {
    $compiler_name .= " -mabi=n32" if ($binary eq "32");
    $compiler_name .= " -mabi=64" if ($binary eq "64");
    $defined = 1;
}
 
if ($architecture eq "alpha") {
    $defined = 1;
    $binary = 64;
}
 
if ($architecture eq "ia64") {
    $defined = 1;
    $binary = 64;
}
 
if (($architecture eq "x86") && ($os ne Darwin) && ($os ne SunOS)) {
    $defined = 1;
    $binary =32;
}
 
if ($compiler eq "PGI") {
    $compiler_name .= " -tp p7"    if ($binary eq "32");
    $compiler_name .= " -tp p7-64" if ($binary eq "64");
    $openmp = "-mp";
    $defined = 1;
}
 
if ($compiler eq "IBM") {
    $compiler_name .= " -q32"  if ($binary eq "32");
    $compiler_name .= " -q64"  if ($binary eq "64");
    $openmp = "-qsmp=omp";
    $defined = 1;
}
 
if ($compiler eq "INTEL") {
    $openmp = "-openmp";
}
 
if ($compiler eq "PATHSCALE") {
    $openmp = "-mp";
}
 
if ($compiler eq "OPEN64") {
    $openmp = "-mp";
}
 
if ($compiler eq "GCC") {
    $openmp = "-fopenmp";
}
 
if ($defined == 0) {
    $compiler_name .= " -m32" if ($binary eq "32");
    $compiler_name .= " -m64" if ($binary eq "64");
}
 
# Do again
 
$data = `$compiler_name -E ctest.c`;
 
if ($?) {
    printf STDERR "C Compiler ($compiler_name) is something wrong.\n";
    die 1;
}
 
$architecture = x86    if ($data =~ /ARCH_X86/);
$architecture = x86_64 if ($data =~ /ARCH_X86_64/);
$architecture = power  if ($data =~ /ARCH_POWER/);
$architecture = mips32 if ($data =~ /ARCH_MIPS32/);
$architecture = mips64 if ($data =~ /ARCH_MIPS64/);
$architecture = alpha  if ($data =~ /ARCH_ALPHA/);
$architecture = sparc  if ($data =~ /ARCH_SPARC/);
$architecture = ia64   if ($data =~ /ARCH_IA64/);
 
$binformat    = bin32;
$binformat    = bin64  if ($data =~ /BINARY_64/);
 
$data = `$compiler_name -S ctest1.c && grep globl ctest1.s | head -n 1 && rm -f ctest1.s`;
 
$data =~ /globl\s([_\.]*)(.*)/;
 
$need_fu      = $1;
 
$cross = 0;
$cross = 1 if ($os ne $hostos);
 
if ($architecture ne $hostarch) {
    $cross = 1;
    $cross = 0 if (($hostarch eq "x86_64") && ($architecture eq "x86"));
    $cross = 0 if (($hostarch eq "mips64") && ($architecture eq "mips"));
}
 
$openmp = "" if $ENV{USE_OPENMP} != 1;
 
$linker_L = "";
$linker_l = "";
$linker_a = "";
 
{
    $link = `$compiler_name -c ctest2.c -o ctest2.o 2>&1 && $compiler_name $openmp -v ctest2.o -o ctest2 2>&1 && rm -f ctest2.o ctest2 ctest2.exe`;
    
    $link =~ s/\-Y\sP\,/\-Y/g;
    
    @flags = split(/[\s\,\n]/, $link);
    # remove leading and trailing quotes from each flag.
    @flags = map {s/^['"]|['"]$//g; $_} @flags;
 
    foreach $flags (@flags) {
	if (
	    ($flags =~ /^\-L/)
	    && ($flags !~ /^-LIST:/)
	    && ($flags !~ /^-LANG:/)
	    ) {
	    $linker_L .= $flags . " " 
	    }
 
	if ($flags =~ /^\-Y/) {
	    $linker_L .= "-Wl,". $flags . " " 
	    }
	
	if (
	    ($flags =~ /^\-l/) 
	    && ($flags !~ /gfortranbegin/)
	    && ($flags !~ /frtbegin/)
	    && ($flags !~ /pathfstart/)
	    && ($flags !~ /numa/)
	    && ($flags !~ /crt[0-9]/)
	    && ($flags !~ /gcc/)
	    && ($flags !~ /user32/)
	    && ($flags !~ /kernel32/)
	    && ($flags !~ /advapi32/)
	    && ($flags !~ /shell32/)
	    ) {
	    $linker_l .= $flags . " " 
	}
 
	$linker_a .= $flags . " " if $flags =~ /\.a$/;
    }
 
}
 
open(MAKEFILE, "> $makefile") || die "Can't create $makefile";
open(CONFFILE, "> $config"  ) || die "Can't create $config";
 
# print $data, "\n";
 
print MAKEFILE "OSNAME=$os\n";
print MAKEFILE "ARCH=$architecture\n";
print MAKEFILE "C_COMPILER=$compiler\n";
print MAKEFILE "BINARY32=\n" if $binformat ne bin32;
print MAKEFILE "BINARY64=\n" if $binformat ne bin64;
print MAKEFILE "BINARY32=1\n" if $binformat eq bin32;
print MAKEFILE "BINARY64=1\n" if $binformat eq bin64;
print MAKEFILE "FU=$need_fu\n" if $need_fu ne "";
print MAKEFILE "CROSS_SUFFIX=$cross_suffix\n" if $cross_suffix ne "";
print MAKEFILE "CROSS=1\n" if $cross != 0;
print MAKEFILE "CEXTRALIB=$linker_L $linker_l $linker_a\n";
 
$os           =~ tr/[a-z]/[A-Z]/;
$architecture =~ tr/[a-z]/[A-Z]/;
$compiler     =~ tr/[a-z]/[A-Z]/;
 
print CONFFILE "#define OS_$os\t1\n";
print CONFFILE "#define ARCH_$architecture\t1\n";
print CONFFILE "#define C_$compiler\t1\n";
print CONFFILE "#define __32BIT__\t1\n"  if $binformat eq bin32;
print CONFFILE "#define __64BIT__\t1\n"  if $binformat eq bin64;
print CONFFILE "#define FUNDERSCORE\t$need_fu\n" if $need_fu ne "";
 
if ($os eq "LINUX") {
    
    @pthread = split(/\s+/, `nm /lib/libpthread.so* | grep _pthread_create`);
    
    if ($pthread[2] ne "") {
	print CONFFILE "#define PTHREAD_CREATE_FUNC	$pthread[2]\n";
    } else {
	print CONFFILE "#define PTHREAD_CREATE_FUNC	pthread_create\n";
    }
} else {
    print CONFFILE "#define PTHREAD_CREATE_FUNC	pthread_create\n";
}
 
close(MAKEFILE);
close(CONFFILE);