Subversion Repositories DevTools

Rev

Rev 1532 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1532 Rev 1534
Line 20... Line 20...
20 
use warnings;
 20 
use warnings;
21 
use Data::Dumper;
 21 
use Data::Dumper;
22 
 
 22 
 
23 
#===============================================================================
 23 
#===============================================================================
24 
package DeployUtils::BuildConfig;
 24 
package DeployUtils::BuildConfig;
25 
use DeployUtils::Logger;
 25 
use JatsError;
26 
 
 26 
 
27 
# automatically export what we need into namespace of caller.
 27 
# automatically export what we need into namespace of caller.
28 
use Exporter();
 28 
use Exporter();
29 
our (@ISA, @EXPORT);
 29 
our (@ISA, @EXPORT);
30 
@ISA         = qw(Exporter);
 30 
@ISA         = qw(Exporter);
Line 54... Line 54...
54 
    my $obclass = shift;
 54 
    my $obclass = shift;
55 
    my $class = ref($obclass) || $obclass;
 55 
    my $class = ref($obclass) || $obclass;
56 
    my $buildPath = shift;
 56 
    my $buildPath = shift;
57 
    my $Platform = shift;
 57 
    my $Platform = shift;
58 
 
 58 
 
59 
    LogDebug("BuildFile::new Instantiating new object of class $class");
 59 
    Debug("BuildFile::new Instantiating new object of class $class");
60 
    bless my $self = {
 60 
    bless my $self = {
61 
        _BUILDPATH          => $buildPath,
 61 
        _BUILDPATH          => $buildPath,
62 
        _PLATFORM           => $Platform,
 62 
        _PLATFORM           => $Platform,
63 
        _DPKGARCHIVE        => {},
 63 
        _DPKGARCHIVE        => {},
64 
    } => ( $class );
 64 
    } => ( $class );
Line 97... Line 97...
97 
    #   Current assumption is that the build.cfg file is within a directory
 97 
    #   Current assumption is that the build.cfg file is within a directory
98 
    #   named 'inerface'. This is not strictly true as the name of the directory
 98 
    #   named 'inerface'. This is not strictly true as the name of the directory
99 
    #   is specified in the build.pl file. We could hunt for it.
 99 
    #   is specified in the build.pl file. We could hunt for it.
100 
    #
 100 
    #
101 
    my $cfgfile = "$RootDir/interface/build.cfg";
 101 
    my $cfgfile = "$RootDir/interface/build.cfg";
102 
    LogError ("Cannot find file: $cfgfile" ) unless ( -f $cfgfile );
 102 
    Error ("Cannot find file: $cfgfile" ) unless ( -f $cfgfile );
103 
 
 103 
 
104 
    #
 104 
    #
105 
    #   Include the build.cfg data
 105 
    #   Include the build.cfg data
106 
    #
 106 
    #
107 
 
 107