Subversion Repositories DevTools

Rev

Rev 6079 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6079 Rev 6133
Line 18... Line 18...
18 
 
 18 
 
19 
package LINUX_Build;
 19 
package LINUX_Build;
20 
use JatsError;
 20 
use JatsError;
21 
use Storable qw(dclone);
 21 
use Storable qw(dclone);
22 
 
 22 
 
23 
#
 - 
 
24 
#   Create a hash of GBE_MACHTYPEs for which the LINUX platform is available
 - 
 
25 
#   It won't just build on any old machine
 - 
 
26 
#
 - 
 
27 
#   Hash values are an array of:
 - 
 
28 
#           Operating System
 - 
 
29 
#           architecture
 - 
 
30 
#
 - 
 
31 
my %valid_machines = (
 - 
 
32 
    'linux_x64'              => [ 'UBUNTU14',                       # Current compiler on 64 bit linux
 - 
 
33 
                                  'UBUNTU14_INSTRUMENT' ],
- 
 
34 
);
 - 
 
35 
 
 - 
 
36 
#-------------------------------------------------------------------------------
 23 
#-------------------------------------------------------------------------------
37 
# Function        : new_platform
 24 
# Function        : new_platform
38 
#
 25 
#
39 
# Description     : Called when a new platform is being created
 26 
# Description     : Called when a new platform is being created
40 
#                   The function can extend the build information
 27 
#                   The function can extend the build information
Line 51... Line 38...
51 
{
 38 
{
52 
    my $class = shift;              # Not really a class, but its called like a class
 39 
    my $class = shift;              # Not really a class, but its called like a class
53 
    my $pInfo  = shift;
 40 
    my $pInfo  = shift;
54 
 
 41 
 
55 
    #
 42 
    #
- 
 
 43 
    #   Get the list of targets that have been tagged as LINUX
- 
 
 44 
    #
- 
 
 45 
    my @targets = PlatformConfig::getTargetsByTag('LINUX');
- 
 
 46 
 
- 
 
 47 
    #
56 
    #   Ignore this platform if there is no way that it can be built on the
 48 
    #   Ignore this platform if there is no way that it can be built on the
57 
    #   current machine.
 49 
    #   current machine.
58 
    #
 50 
    #
59 
    my $entry = $valid_machines{$::GBE_MACHTYPE};
 - 
 
60 
    unless ( $entry )
 51 
    unless ( @targets )
61 
    {
 52 
    {
62 
        Verbose ("LINUX will not build on this machine type: $::GBE_MACHTYPE");
 53 
        Verbose ("LINUX will not build on this machine type: $::GBE_MACHTYPE");
63 
        $pInfo->{NOT_AVAILABLE} = 1;
 54 
        $pInfo->{NOT_AVAILABLE} = 1;
64 
        return;
 55 
        return;
65 
    }
 56 
    }
66 
 
 57 
 
67 
    #
 58 
    #
68 
    #   Instantiate all targets
 59 
    #   Instantiate all targets
69 
    #
 60 
    #
70 
    foreach my $target ( @$entry )
 61 
    foreach my $target ( @targets )
71 
    {
 62 
    {
72 
        LINUX_generic(  dclone($pInfo), $target );
 63 
        LINUX_generic(  dclone($pInfo), $target );
73 
    }
 64 
    }
74 
 
 65 
 
75 
    #
 66 
    #