Subversion Repositories DevTools

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
227 dpurdie 1 
# -*- mode: perl; indent-width: 4; -*-
2 
##############################################################################
5709 dpurdie 3 
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
227 dpurdie 4 
#
5 
# File:         PLATFORM/wce
6 
#
7 
# Contents:     Generic WCE (Windows CE) platform definition
8 
#
9 
# Version   Who      Date       Description
10 
#           APY      26/04/04   Created
11 
#
12 
##############################################################################
13 
#
14 
 
15 
WCEInit();
16 
 
17 
sub WCEInit
18 
{
19 
    my( @args ) = @ScmPlatformArgs;             # Platform arguments
303 dpurdie 20 
    my( $CEVersion, $CEPlatform, $CETargetCPU, $CEHostCPU, $CEToolchain );
227 dpurdie 21 
 
22 
#.. Parse arguments
23 
#
24 
    Debug( "wce(@args)\n" );
25 
 
26 
    foreach $_ ( @args ) {
27 
        if (/^--Version=(.*)/) {                # OS Version
28 
            $CEVersion   = "$1";
29 
 
30 
        } elsif (/^--SDK=(.*)/) {               # SDK
31 
            $CEPlatform  = "$1";
32 
 
33 
        } elsif (/^--Target=(.*)/) {            # CPU
34 
            $CETargetCPU = "$1";
35 
 
36 
        } elsif (/^--Host=(.*)/) {              # HOST CPU
37 
            $CEHostCPU   = "$1";
303 dpurdie 38 
 
39 
        } elsif (/^--Toolchain=(.*)/) {         # Underling Toolchain
40 
            $CEToolchain   = "$1";
41 
 
227 dpurdie 42 
        }
43 
    }
44 
 
45 
    Error ("WCE platform must specify --Target")
46 
        unless ( $CETargetCPU ne "" );
47 
 
48 
    Error ("WCE platform must specify emulator --Host")
49 
        unless ( $CETargetCPU ne "emulator" || $CEHostCPU ne "" );
50 
 
51 
    if ($CEVersion eq "")
52 
    {
53 
        Error ("WCE platform must specify --Version or WCEDefaultVersion")
54 
            unless ( defined($WCEDefaultVersion) );
55 
 
56 
        push( @ScmPlatformArgs, "--Version=$WCEDefaultVersion" );
57 
    }
58 
 
59 
    if ($CEPlatform eq "")
60 
    {
61 
        Error ("WCE platform must specify --SDK or WCEDefaultPlatform")
62 
            unless ( defined($WCEDefaultPlatform) );
63 
 
64 
        push( @ScmPlatformArgs, "--SDK=$WCEDefaultPlatform" );
65 
    }
303 dpurdie 66 
 
67 
    if ($CEToolchain eq "")
68 
    {
69 
        push( @ScmPlatformArgs, "--Toolchain=EVC4" );
70 
    }
71 
 
227 dpurdie 72 
 
73 
#.. Toolset
74 
#
75 
 
303 dpurdie 76 
    Toolset( '*', 'vcwce.pl' );                      # Embedded Visual C
227 dpurdie 77 
}
78 
 
79 
1;