tools/perlmod/Midas/3.32/lib/site_perl/5.8.0/Midas/Configure.pm

# ========== Copyright Header Begin ==========================================
#
# OpenSPARC T2 Processor File: Configure.pm
# Copyright (C) 1995-2007 Sun Microsystems, Inc. All Rights Reserved
# 4150 Network Circle, Santa Clara, California 95054, U.S.A.
#
# * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; version 2 of the License.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
# For the avoidance of doubt, and except that if any non-GPL license
# choice is available it will apply instead, Sun elects to use only
# the General Public License version 2 (GPLv2) at this time for any
# software where a choice of GPL license versions is made
# available with the language indicating that GPLv2 or any later version
# may be used, or where a choice of which version of the GPL is applied is
# otherwise unspecified.
#
# Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
# CA 95054 USA or visit www.sun.com if you need additional information or
# have any questions.
#
# ========== Copyright Header End ============================================
# -*- perl -*-

package Midas::Configure;
use strict;

use File::Spec;
use Data::Dumper;

use Midas::Paths;
use Midas::Globals;
use Midas::Error;

require Midas::Command;

require Exporter;
our @ISA       = qw(Exporter);
our @EXPORT    = qw(configure init_config add_cpp_defines);
our @EXPORT_OK = qw();


my %default_config =
  (
   verbose => 1,

   cpp_includes => {
                    diagroot => ['verif/diag/assembly/include'],
                    startdir => ['.'],
                    builddir => ['.'],
                    abs      => [],
                   },
   cpp_defines  => [ 'GOLDFINGER=1'
                   ],
   m4_includes  => {
                    diagroot => [],
                    startdir => ['.'],
                    builddir => ['.'],
                    abs      => [],
                   },

   addphdr       => 0,

   cleanup       => 1,
   force_cleanup => 0,

   link_paths => {
                  diagroot => ['verif/diag'],
                  startdir => ['.'],
                  builddir => [],
                  abs      => [],
                 },

   csrc_includes => {
                  diagroot => ['verif/diag/c'],
                  startdir => ['.'],
                  builddir => [],
                  abs      => [],
                 },

   c_includes => {
                  diagroot => ['verif/diag/c/include'],
                  startdir => ['.'],
                  builddir => ['.'],
                  abs      => [],
                 },

   # Default build directory (this is used as a default for the State
   # version, which is the one that really gets used).  Can be full
   # path or relative to starting directory.

   build_dir    => './build',

   # Full path or relative to build_dir
   local_src    => 'diag.src',
   local_s      => 'diag.s',
   local_pl     => 'diag.pl',
   local_cpp    => 'diag.cpp',
   local_m4     => 'diag.m4',
   local_ldscr  => 'diag*.ld_scr',
   local_exe    => 'diag*.exe',
   local_image  => 'mem.image',
   local_events => 'diag.ev',
   local_symtab => 'symbol.tbl',
   local_goldfinger => 'diag.goldfinger',
   local_directives => 'diag.midas',

   local_cmdfile => '.midas_args',
   local_oldcmdfile => '.midas_args.old',
   local_oldm4 => '.midas.diag.m4.old',

   intermed_files => [qw(local_src local_s local_pl local_cpp local_m4
                         local_ldscr local_goldfinger local_directives
                         sec*.s sec*.o
                        )],

   force_build => 0,

   allow_tsb_conflicts => 0,
   allow_empty_sections => 0,
   allow_illegal_page_sizes => 0,
   allow_duplicate_tags => 0,
   allow_misaligned_tsb_base => 0,
   gen_all_tsbs => 0,
   compress_image => 1,
   env_zero => 1,
   build_threads => 3,

   goldfinger_cmd => 'goldfinger',
   goldfinger_version => '1.07',

   default_radix => 'decimal',

   product_files => {
                     required => [qw(local_s local_image local_events
                                     local_symtab local_exe)],
                     optional => [qw(local_pl)],
                     clean    => [qw(local_image local_events
                                     local_symtab local_exe)],
                    },
   copy_products => 0,

   cat_cmd => 'gcat',
   diff_cmd => 'diff',


   # If 1, use only full paths.  Otherwise use relative paths wherever
   # possible to make output more clear.
   full_paths   => 0,

   # Default MMU type
   mmu_type     => 'niagara',
   ttefmt       => 'sun4v',
   tsbtagfmt    => 'tagaccess',


   pal_cmd      => 'pal',
   pal_opt      => [],
   pal_diag_args => [],

   cpp_cmd      => 'bw_cpp',
   cpp_opt      => ['-B -P'],

   m4_cmd       => 'bw_m4',
   m4_opt       => [],

   as_cmd       => 'g_as',
   as_opt       => ['-xarch=v9b'],

   ld_cmd       => 'g_ld',
   ld_opt       => ['-b elf64-sparc', '-no-warn-mismatch',
                    '--no-check-sections'],

   gcc_cmd      => 'gcc',
   gcc_opt      => ['-m64', '-nostdinc', '-fno-common', '-fno-builtin'],

   perl_cmd     => 'perl',
  );


##############################################################################

sub init_config {
  my $def_config= \%default_config;

  Midas::Command::chat "init_config, project is $PROJECT.\n";
  my $dumper = Data::Dumper->new([$def_config]);

  $dumper->Purity(1)->Deepcopy(1);
  my $new_config = eval "no strict; " . $dumper->Dump;

  Midas::Command::fatal("Deepcopy of config failed!: $@\n", M_CODE) if $@;

  %CONFIG = %{ $new_config };

  {
    package Config_Sandbox;
    our %PROJ_CONFIG;
    unless(my $return = do $Midas::Globals::CONFIG_FILE) {
       Midas::Command::chat
           ("WARNING! Can't parse config file ".
            "'$Midas::Globals::CONFIG_FILE': $@\n".
            "Using defaults.\n", 1) if $@;
       Midas::Command::chat
           ("WARNING! Can't find config file ".
            "'$Midas::Globals::CONFIG_FILE': $!\n".
            "Using defaults.\n", 1) unless defined $return;
    } else {
      if(exists $PROJ_CONFIG{$Midas::Globals::PROJECT}) {
         Midas::Command::chat
             ("Setting project defaults for project ".
              "'$Midas::Globals::PROJECT'.\n");
         foreach my $key (keys %{ $PROJ_CONFIG{$Midas::Globals::PROJECT} } ) {
           $Midas::Globals::CONFIG{$key} =
             $PROJ_CONFIG{$Midas::Globals::PROJECT}{$key};
         }
      } else {
        Midas::Command::chat("WARNING! No project config for project ".
                             "'$Midas::Globals::PROJECT'.\n".
                             "Using defaults.\n", 1);
      }
    }
  }


  (my $MAJOR_VERSION = $Midas::VERSION) =~ s/\..*$//;
  (my $MINOR_VERSION = $Midas::VERSION) =~ s/^.*\.//;

  add_cpp_defines(
                  "MIDAS_VERSION=$Midas::VERSION",
                  "MIDAS_MAJOR_VERS=$MAJOR_VERSION",
                  "MIDAS_MINOR_VERS=$MINOR_VERSION"
                 );

  # Make Path's version of full_paths a *reference* to the Configure version.
  # This way, when one changes, they both change.  Ditto for verbose.
  Midas::Paths::configure(full_paths => \$CONFIG{full_paths});
  Midas::Command::configure(verbose => \$CONFIG{verbose});
}

##############################################################################

sub configure {
  my %args = @_;

  foreach my $key (keys %args) {
    $CONFIG{$key} = $args{$key};
  }

  return %CONFIG;
}

##############################################################################

sub add_cpp_includes {
  my @includes = @_;
  $CONFIG{cpp_includes}{abs} = [] unless exists $CONFIG{cpp_includes}{abs};
  unshift @{$CONFIG{cpp_includes}{abs}}, @includes;
}

##############################################################################

sub add_m4_includes {
  my @includes = @_;
  $CONFIG{m4_includes}{abs} = [] unless exists $CONFIG{m4_includes}{abs};
  unshift @{$CONFIG{m4_includes}{abs}}, @includes;
}

##############################################################################

sub add_link_includes {
  my @includes = @_;
  $CONFIG{link_path}{abs} = [] unless exists $CONFIG{link_path}{abs};
  unshift @{$CONFIG{link_path}{abs}}, @includes;
}

##############################################################################

sub add_csrc_includes {
  my @includes = @_;
  $CONFIG{csrc_includes}{abs} = [] unless exists $CONFIG{csrc_includes}{abs};
  unshift @{$CONFIG{csrc_includes}{abs}}, @includes;
}

##############################################################################

sub add_cpp_defines {
  my @defines = @_;
  push @{$CONFIG{cpp_defines}}, @defines;
}

##############################################################################

sub add_pal_diag_args {
  my @args = @_;
  push @{$CONFIG{pal_diag_args}}, @args;
}

##############################################################################

sub append_configuration {
  my %args = @_;
  foreach my $key (keys %args) {
    if(ref $CONFIG{$key}) {
      if(ref $CONFIG{$key} eq 'ARRAY') {
        push @{$CONFIG{$key}}, @{$args{$key}};
      } else {
        Midas::Command::fatal
            ("Only know how to append configuration to arrays (not $key).\n");
      }
    } else {
      Midas::Command::fatal("Can't append to scalar key $key\n", M_CODE);
    }
  }
}

##############################################################################
##############################################################################
1;