Subversion Repositories DevTools

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

# Compiler(s)   : Perl

# Environment(s): jats

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

# Function        : ToolsetFile

#

# Description     : Maintain a datastructure of files that are created

#                   by the makefile creation process.

#

#                   Used to simplify the clobber process

#

#                   Maintains a in-memory datastructure

#

# Inputs          : fileList        - Files to add to the list

#

# Returns         : Nothing

#

our %GBE_TOOLSETFiles;

sub ToolsetFile

{

    my (@fileList) = @_;

    Verbose2 ("ToolsetFile:", @fileList);

    Error ("Internal: ToolsetFile. ScmRoot or ScmInterface not defined")

        unless ( defined $::ScmRoot && defined $::ScmInterface );

    my $dataFile = "$::ScmRoot/$::ScmInterface/GbeFiles.cfg";

    Error ("Internal: ToolsetFile. Cwd not defined")

        unless ( defined $::Cwd );

    #

    #   Initial read of data structure

    #   Only read on first call

    #

    unless ( %GBE_TOOLSETFiles )

    {

        if ( -f  $dataFile )

        {

            require ( $dataFile );

        }

        # Capture the package root directory

        $GBE_TOOLSETFiles{Root} = AbsPath($::ScmRoot)

            unless defined $GBE_TOOLSETFiles{Root};

    }

    #

    #   Add files

    #       Need to be full paths

    #

    $GBE_TOOLSETFiles{Files}{RelPath(AbsPath($_), $GBE_TOOLSETFiles{Root} )} = 1 foreach ( @fileList );

    #

    #   Save file

    #   Simply rewrite the file

    #

    my $fh = ConfigurationFile::New( $dataFile );

    $fh->Header( "ToolsetFile",

                              "Toolset Files" );

    $fh->Dump( [\%GBE_TOOLSETFiles], [qw(*GBE_TOOLSETFiles)] );

    $fh->Close();

}