Subversion Repositories DevTools

Rev

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

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