Subversion Repositories DevTools

        my $cfg_file = "$::ScmRoot/$::ScmInterface/$cf_filelist{$dir}";

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

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

#   Package to contain makefile data reader operations

#   Simple single target reader for use at runtime

#

#

package JatsMakeConfigLoader;

use JatsError;

use JatsEnv;

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

# Function        : Load

#

# Description     : Load Makefile data

#                   Uses EnvVars setup by the build system to load the

#                   makefile data for the current platform

#

#                   Used by some utilities that need to access definitions

#                   and information available after the makefile has been

#                   parsed.

#

# Inputs          : None

#

# Returns         : Ref to a class to allow manipulation of the data

#

sub Load

{

    #

    #   These MUST be in the environment

    #

    EnvImport ('GBE_MAKE_TYPE');

    EnvImport ('GBE_MAKE_TARGET');

    EnvImport ('GBE_MAKE_CFG');

    my $data = JatsMakeConfigDataReader::New( $::GBE_MAKE_CFG );

    #

    #   Delete data for platforms other than the current one

    #   Not essentail, but it will save memory and it will

    #   make the data structure easier to debug

    #

    $data->{FULL} = $data->{FULL}{$::GBE_MAKE_TARGET};

    #

    #   Clean up a few items

    #   A few items are a hash of items keys on platform name

    #   Remove the extra level of indirection to simplify access

    #

    foreach  ( qw (%ScmBuildPkgRules

                   %BUILDINFO

                   %BUILDPLATFORM_PARTS

                   %ScmBuildProducts )  )

    {

        $data->{FULL}{$_} = $data->{FULL}{$_}{$::GBE_MAKE_TARGET};

    }

    #

    #   Add a little bit more data

    #

    $data->{'PLATFORM'} = $::GBE_MAKE_TARGET;

    $data->{'TYPE'} = $::GBE_MAKE_TYPE;

    #

    #   Bless myself

    #

    return bless $data, __PACKAGE__;

}

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

# Function        : GetData

#

# Description     : Return a ref to the complete raw data

#

# Returns         :

#

sub GetData

{

    my( $self ) = @_;

    return $self->{FULL};

}

sub GetInfo

{

    my( $self ) = @_;

    return $self->{INFO};

}

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

# Function        : GetDataItem

#

# Description     : Return a data item

#

# Inputs          : self            - Object data

#                   item            - Item within the platform data

#

# Returns         : 

#

sub GetDataItem

{

    my( $self, $item ) = @_;

    return undef unless ( exists $self->{FULL}{$item} );

    return $self->{FULL}{$item};

}

sub GetInfoItem

{

    my( $self, $item ) = @_;

    return undef unless ( exists $self->{INFO}{$item} );

    return $self->{INFO}{$item};

}