Return to moreconfigure.pl CVS log

Up to [Development] / JSOC

Changes to add new DRMS configuration parameter for the SUMS DB HOST, and localization clean-up.

#!/usr/bin/perl -w 

# Determine which compilers are installed; then set make variables to indicate that
# Also, set DEFAULT values for Stanford-specific (if running at Stanford) make variables.
# To override the DEFAULT Stanford values, create a config.local file.

use constant ICCMAJOR => 9;
use constant ICCMINOR => 0;
use constant IFORTMAJOR => 9;
use constant IFORTMINOR => 0;
use constant GCCMAJOR => 3;
use constant GCCMINOR => 0;
use constant GFORTMAJOR => 4;
use constant GFORTMINOR => 2;

my($arg);
my($pos);
my($outdir);
my($outfile);
my($customdefsfile);
my($major);
my($minor);
my($hasicc);
my($hasifort);
my($hasgcc);
my($hasgfort);
my($skipautocomp);
my($line);

while ($arg = shift(@ARGV))
{
    if (($pos = index($arg, "-d", 0)) == 0)
    {
	$outdir = substr($arg, 2);
    }
    elsif (($pos = index($arg, "-f", 0)) == 0)
    {
	$outfile = substr($arg, 2);
    }
    elsif (($pos = index($arg, "-c", 0)) == 0)
    {
	$customdefsfile = substr($arg, 2);
    }
}

$outfile = "$outdir/$outfile";

$hasicc = 0;
$hasifort = 0;
$hasgcc = 0;
$hasgfort = 0;
$skipautocomp = 0;

if (defined($outdir) && defined($outfile))
{
   # Check to see if user does not want to auto-configure compiler make variables
   # Read the file containing the defs (right now, customizeddefs.h for Stanford, 
   # localization.h for non-Stanford).
   if (defined($customdefsfile) && -e $customdefsfile)
   {
      if (open(DEFSFILE, "<$customdefsfile"))
      {
         my($doautocomp) = 0;

         while (defined($line = <DEFSFILE>))
         {
            if ($line =~ /AUTOSELCOMP\s+(.+)/)
            {
               $doautocomp = $1;
               $skipautocomp = !$doautocomp;
               last;
            }
         }

         close(DEFSFILE);
      }
   }

   if (!$skipautocomp)
   {
      # Try icc
      $ans = `icc -V 2>&1`;      

      if (defined($ans) && $ans =~ /Version\s+(\d+)\.(\d+)/)
      {
         $major = $1;
         $minor = $2;

         if (IsVersion($major, $minor, ICCMAJOR, ICCMINOR))
         {
            $hasicc = 1;
         }
      }

      # Try gcc
      if (!$hasicc)
      {
         $ans = `gcc -v 2>&1`;
         if (defined($ans) && $ans =~ /gcc\s+version\s+(\d+)\.(\d+)/)
         {
            $major = $1;
            $minor = $2;

            if (IsVersion($major, $minor, GCCMAJOR, GCCMINOR))
            {
               $hasgcc = 1;
            }
         }
      }

      # Try ifort
      $ans = `ifort -V 2>&1`;
      if (defined($ans) && $ans =~ /Version\s+(\d+)\.(\d+)/)
      {
         $major = $1;
         $minor = $2;

         if (IsVersion($major, $minor, IFORTMAJOR, IFORTMINOR))
         {
            $hasifort = 1;
         }
      }

      # Try gfortran
      if (!$hasifort)
      {
         $ans = `gfortran -v 2>&1`;
         if (defined($ans) && $ans =~ /gcc\s+version\s+(\d+)\.(\d+)/)
         {
            $major = $1;
            $minor = $2;

            if (IsVersion($major, $minor, GFORTMAJOR, GFORTMINOR))
            {
               $hasgfort = 1;
            }
         }
      }
   }

    open(OUTFILE, ">>$outfile") || die "Couldn't open file $outfile for writing.\n";

    # Error messages
    if (!$skipautocomp)
    {
       if (!$hasicc && !$hasgcc)
       {
          print "Fatal error: Acceptable C compiler not found! You will be unable to build the DRMS library.\n";
       }
       elsif ($hasicc)
       {
          print OUTFILE "COMPILER = icc\n";
       }
       else
       {
          print OUTFILE "COMPILER = gcc\n";
       }

       if (!$hasifort && !$hasgfort)
       {
          print "Warning: Acceptable Fortran compiler not found! Fortran interface will not be built, and you will be unable to build Fortran modules.\n";
       }
       elsif ($hasifort)
       {
          print OUTFILE "FCOMPILER = ifort\n";
       }
       else
       {
          print OUTFILE "FCOMPILER = gfortran\n";
       }
    }

    # Print out env var override logic - otherwise we lose this logic in make_basic.mk
    # as the include of custom.mk comes after this logic in make_basic.mk
    print OUTFILE "ifneq (\$(JSOC_COMPILER),)\n  COMPILER = \$(JSOC_COMPILER)\nendif\n";
    print OUTFILE "ifneq (\$(JSOC_FCOMPILER),)\n  FCOMPILER = \$(JSOC_FCOMPILER)\nendif\n\n";

    # Set DEFAULT values for Stanford-specific (if running at Stanford) make variables.
    if (-e "configsdp.txt") 
    {
       my($line);
       my($parse);

       if (open(SUFLAG, "<configsdp.txt"))
       {

          $parse = 0;

          while (defined($line = <SUFLAG>))
          {
             chomp($line);
             
             if ($line =~ /^__LIBS__/)
             {
                $parse = 1;
                next;
             }
             elsif ($parse && $line =~ /^__END__/)
             {
                last;
             }

             if ($parse && $line !~ /^#/ && $line =~ /\S+/)
             {
                print OUTFILE "$line\n";
             }
          }

          close(SUFLAG);
       }
    }

    close(OUTFILE);
}

sub IsVersion
{
    my($maj1) = $_[0];
    my($min1) = $_[1];
    my($maj2) = $_[2];
    my($min2) = $_[3];

    my($res) = 0;
    
    if ($maj1 > $maj2 || ($maj1 == $maj2 && $min1 >= $min2))
    {
        $res = 1;
    }
    
    return $res;
}