Subversion Repositories DevTools

##############################################################################
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
#
# File:         PLATFORM/wce
#
# Contents:     Generic WCE (Windows CE) platform definition
#
##############################################################################

WCEInit();

sub WCEInit
{
    my( @args ) = @ScmPlatformArgs;             # Platform arguments
    my( $CEVersion, $CEPlatform, $CETargetCPU, $CEHostCPU, $CEToolchain );

#.. Parse arguments
#
    Debug( "wce(@args)\n" );

    foreach $_ ( @args ) {
        if (/^--Version=(.*)/) {                # OS Version
            $CEVersion   = "$1";

        } elsif (/^--SDK=(.*)/) {               # SDK
            $CEPlatform  = "$1";

        } elsif (/^--Target=(.*)/) {            # CPU
            $CETargetCPU = "$1";

        } elsif (/^--Host=(.*)/) {              # HOST CPU
            $CEHostCPU   = "$1";
            
        } elsif (/^--Toolchain=(.*)/) {         # Underling Toolchain
            $CEToolchain   = "$1";
            
        }
    }

    Error ("WCE platform must specify --Target")
        unless ( $CETargetCPU ne "" );

    Error ("WCE platform must specify emulator --Host")
        unless ( $CETargetCPU ne "emulator" || $CEHostCPU ne "" );

    if ($CEVersion eq "")
    {
        Error ("WCE platform must specify --Version or WCEDefaultVersion")
            unless ( defined($WCEDefaultVersion) );

        push( @ScmPlatformArgs, "--Version=$WCEDefaultVersion" );
    }

    if ($CEPlatform eq "")
    {
        Error ("WCE platform must specify --SDK or WCEDefaultPlatform")
            unless ( defined($WCEDefaultPlatform) );

        push( @ScmPlatformArgs, "--SDK=$WCEDefaultPlatform" );
    }
    
    if ($CEToolchain eq "")
    {
        push( @ScmPlatformArgs, "--Toolchain=EVC4" );
    }
    

#.. Toolset
#

    Toolset( '*', 'vcwce.pl' );                      # Embedded Visual C
}

1;