Subversion Repositories DevTools

#   Convert Machine Type to Machine Class

#       These match the Release Manager and BuildTool definitions

#       Used for GENERIC Processing

#

my %MachineTypeToClass = (

      linux_i386        => 'LINUX',

      linux_x64         => 'LINUX',

      solaris10_sparc32 => 'SOLARIS',

      solaris10_x86     => 'SOLARIS',

      sparc             => 'SOLARIS',

      win32             => 'WIN32',

);

#

#   A hash of 'special' knon targets

#   Simply used to reduce JATS warnins about some psuedo targets

my %knownSpecial;

#                   simplify lookup. Add in thr three types of GENERIC target:

#                       GENERIC         - can be built on ANY machine

#                       GENERIC_XXX     - can be built on machine of class XXX

#                       MACH_YYY        - can be built on MACHTYPE YYY

#   #

#   #   Insert GENERIC_<MachClass>

#   #

#   Error (__PACKAGE__ . " : Unknown build machine class: $::GBE_MACHTYPE")

#       unless ( exists $MachineTypeToClass{$::GBE_MACHTYPE} );

#   $BuildAvailabilityData{join('_','GENERIC', $MachineTypeToClass{$::GBE_MACHTYPE} )} = 2;

#

#   #

#   #   Insert MachType definition

#   #   These are of the form MACH_xxxx

#   #

#   $BuildAvailabilityData{join('_','MACH', uc($::GBE_MACHTYPE) )} = 2;

#

#   #

#   #   Create a hash of special 'known' targets

#   #

   $knownSpecial{'GENERIC'} = 2;

#   foreach my $machtype ( keys %MachineTypeToClass ) {

#       $knownSpecial{join('_','MACH', uc($machtype) )} = 2;

#       $knownSpecial{join('_','GENERIC', $MachineTypeToClass{$machtype} )} = 2;

#   }

#                   current machine type. Also indicate if it is a GENERIC

#                   1                   - target can be built, subject to build filter

#                   2                   - target can be built, is Generic           

    Error("Internal: checkBuildAvailability. No argument specified") unless $target;

    {

        return $BuildAvailabilityData{$target} ;

    }

    return 0;

#-------------------------------------------------------------------------------

# Function        : checkKnownSpecial

#

# Description     : Check that a given (special) target is known to JATS

#                   Used to suppress warnings about GENERIC targets not known

#                   to the current machine type.

#

# Inputs          : $target             - Name of target platform

#

#

# Returns         : 0                   - target not known

#                   1                   - target is known to JATS

#

sub checkKnownSpecial

{

    my ($target) = @_;

    Error("Internal: checkKnown. No argument specified") unless $target;

    InitData();

    if (exists $knownSpecial{$target})

    {

        return $knownSpecial{$target} ;

    }

    return 0;

}