Subversion Repositories DevTools

Rev

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

Rev 5709 Rev 6133
Line 20... Line 20...
20 
 
 20 
 
21 
package WINCE_Build;
 21 
package WINCE_Build;
22 
use JatsError;
 22 
use JatsError;
23 
use Storable qw(dclone);
 23 
use Storable qw(dclone);
24 
 
 24 
 
25 
#
 - 
 
26 
#   Create a hash of GBE_MACHTYPEs for which the WINCE platform is available
 - 
 
27 
#   It won't just build on any only machine
 - 
 
28 
#
 - 
 
29 
#   Hash values are an array of all WinCE targets
 - 
 
30 
#   Simplifies the process of building components for all WinCE target
 - 
 
31 
#
 - 
 
32 
my %valid_machines = (
 - 
 
33 
 
 - 
 
34 
    'win32' => [
 - 
 
35 
                    'WCEIPA280',
 - 
 
36 
                    'WCEIT3000',
 - 
 
37 
                    'WCEPA961',
 - 
 
38 
                    'WCEPA962',
 - 
 
39 
                    'WCEPA962_500',
 - 
 
40 
                    'WCEPCM7220',
 - 
 
41 
#                   'WCEPSION_420',
 - 
 
42 
                    'WCEPSION_500',
 - 
 
43 
                    'WCEPSION_500_emu',
 - 
 
44 
                    'WCEPSION_500_VS2005',
 - 
 
45 
                    'WCEPSPC_arm',
 - 
 
46 
                    'WCEPSPC_emu',
 - 
 
47 
                    'WCEX86A420',
 - 
 
48 
                    'WCEX86A500',
 - 
 
49 
                    'WCEX86A500_SOM4455',
 - 
 
50 
                ],
 - 
 
51 
);
 - 
 
52 
 
 - 
 
53 
#-------------------------------------------------------------------------------
 25 
#-------------------------------------------------------------------------------
54 
# Function        : new_platform
 26 
# Function        : new_platform
55 
#
 27 
#
56 
# Description     : Called when a new platform is being created
 28 
# Description     : Called when a new platform is being created
57 
#                   The function can extend the build information
 29 
#                   The function can extend the build information
Line 68... Line 40...
68 
{
 40 
{
69 
    my $class = shift;              # Not really a class, but its called like a class
 41 
    my $class = shift;              # Not really a class, but its called like a class
70 
    my $pInfo  = shift;
 42 
    my $pInfo  = shift;
71 
 
 43 
 
72 
    #
 44 
    #
- 
 
 45 
    #   Get the list of targets that have been tagged as WINCE
- 
 
 46 
    #
- 
 
 47 
    my @targets = PlatformConfig::getTargetsByTag('WINCE');
- 
 
 48 
 
- 
 
 49 
    #
73 
    #   Ignore this platform if there is no way that it can be built on the
 50 
    #   Ignore this platform if there is no way that it can be built on the
74 
    #   current machine.
 51 
    #   current machine.
75 
    #
 52 
    #
76 
    my $entry = $valid_machines{$::GBE_MACHTYPE};
 - 
 
77 
    unless ( $entry )
 53 
    unless ( @targets )
78 
    {
 54 
    {
79 
        Verbose ("WINCE will not build on this machine type: $::GBE_MACHTYPE");
 55 
        Verbose ("WINCE will not build on this machine type: $::GBE_MACHTYPE");
80 
        $pInfo->{NOT_AVAILABLE} = 1;
 56 
        $pInfo->{NOT_AVAILABLE} = 1;
81 
        return;
 57 
        return;
82 
    }
 58 
    }
83 
 
 59 
 
84 
    #
 60 
    #
85 
    #   Instantiate all targets
 61 
    #   Instantiate all targets
86 
    #
 62 
    #
87 
    foreach my $target ( @$entry )
 63 
    foreach my $target ( @targets )
88 
    {
 64 
    {
89 
        WINCE_generic(  dclone($pInfo), $target );
 65 
        WINCE_generic(  dclone($pInfo), $target );
90 
    }
 66 
    }
91 
 
 67 
 
92 
    #
 68 
    #