Subversion Repositories DevTools

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

# 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 $dataDir = "$::ScmRoot/$::ScmInterface";

    my $dataFile = "$dataDir/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};

    }

    #

    # Save to disk if

    #   Target directory exists - creation may be delayed

    #   We have added entries

    #

    if ( @fileList )

    {

        #

        #   Add files

        #       Need to be full paths

        #

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

        #

        #   Save file

        #   Simply rewrite the file - if the terget directory exists

        #   Its creation may be after we have started accumulating files

        #

        if ( -d $dataDir  ) {

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

            $fh->Header( "ToolsetFile", "Toolset Files" );

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

            $fh->Close();

        }

    }

}