Subversion Repositories DevTools

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

# Copyright (c) VIX TECHNOLOGY (AUST) LTD

#

# File:         PLATFORM/GENERICS.cfg

#

# Contents:     GENERICS Build support

#

#               This package is used during the processing of the build.pl file

#               Values provided by this package are used to extend the Platform

#               information as platforms are being created. This provides a

#               powerful set of mechanism to extend the entire JATS toolset

#

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

use strict;

use warnings;

package GENERICS_Build;

use JatsError;

use Storable qw(dclone);

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

# Function        : new_platform

#

# Description     : Called when a new platform is being created

#                   The function can extend the build information

#

#                   The 'GENERICS' platform will be converted into a 'suitable'

#                   platform for the current machine.

#

# Inputs          : $pInfo          - Reference to the platform build info hash

#

# Returns         : Nothing yet

#

sub new_platform

{

    my $class = shift;              # Not really a class, but its called like a class

    my $pInfo  = shift;

    #

    #   Get the list of targets that have been tagged as GENERICS

    #   

    my @targets = PlatformConfig::getTargetsByTag('GENERIC');

    #

    #   Ignore this platform if there is no way that it can be built on the

    #   current machine.

    #

    unless ( @targets )

    {

        Verbose ("GENERICS will not build on this machine type: $::GBE_MACHTYPE");

        $pInfo->{NOT_AVAILABLE} = 1;

        return;

    }

    #

    #   Instantiate all targets

    #

    foreach my $target ( @targets )

    {

        GENERICS_generic(  dclone($pInfo), $target );

    }

    #

    #   All done

    #   Mark the original entry as a TEMPLATE so that it won't be added

    #   We have added cloned copies of it

    #

    $pInfo->{TEMPLATE} = 1;

}

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

# Function        : GENERICS_generic

#

# Description     : Take a clone of the buildinfo structure and specialise it

#                   for the required target

#

# Inputs          : $pInfo       - A clone of the buildinfo data

#                   $target      - Name of the target platform

#

# Returns         : Nothing

#                   The buildinfo MUST be added to the build system

#

sub GENERICS_generic

{

    my ($pInfo, $target) = @_;

    #

    #   Request that a simple BuildAlias be created for this platform

    #   Use the original name of the TARGET

    #

    $pInfo->{ALIAS} = $pInfo->{TARGET};

    #

    #   Alter the 'TARGET' name

    #   This is allowed (expected)

    #

    $pInfo->{TARGET} = uc($target);

    #

    #   Register this 'new' buildinfo entry with the build system

    #

    ::AddBuildPlatformEntry( $pInfo );

}

1;