Subversion Repositories DevTools

Rev

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

Rev 5709 Rev 6133
Line 16... Line 16...
16 
use warnings;
 16 
use warnings;
17 
 
 17 
 
18 
package CSHARP2008_Build;
 18 
package CSHARP2008_Build;
19 
use JatsError;
 19 
use JatsError;
20 
 
 20 
 
21 
#
 - 
 
22 
#   Create a hash of GBE_MACHTYPEs for which the CSHARP platform is available
 - 
 
23 
#   It won't just build on any old machine
 - 
 
24 
#
 - 
 
25 
my %valid_machines = (
 - 
 
26 
    'win32'             => 1,
 - 
 
27 
);
 - 
 
28 
 
 - 
 
29 
#-------------------------------------------------------------------------------
 21 
#-------------------------------------------------------------------------------
30 
# Function        : new_platform
 22 
# Function        : new_platform
31 
#
 23 
#
32 
# Description     : Called when a new platform is being created
 24 
# Description     : Called when a new platform is being created
33 
#                   The function can extend the build information
 25 
#                   The function can extend the build information
Line 47... Line 39...
47 
 
 39 
 
48 
    #
 40 
    #
49 
    #   Ignore this platform if there is no way that it can be built on the
 41 
    #   Ignore this platform if there is no way that it can be built on the
50 
    #   current machine.
 42 
    #   current machine.
51 
    #
 43 
    #
52 
    my $entry = $valid_machines{$::GBE_MACHTYPE};
 44 
    unless ( PlatformConfig::targetHasTag( 'CSHARP2008', 'KNOWN' ) )
53 
    unless ( $entry )
 - 
 
54 
    {
 45 
    {
55 
        Verbose ("CSHARP2008 will not build on this machine type: $::GBE_MACHTYPE");
 46 
        Verbose ("CSHARP2008 will not build on this machine type: $::GBE_MACHTYPE");
56 
        $pInfo->{NOT_AVAILABLE} = 1;
 47 
        $pInfo->{NOT_AVAILABLE} = 1;
57 
        return;
 48 
        return;
58 
    }
 49 
    }