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 
###############################################################################
3 
# Copyright (c) ERG Electronics Ltd. 1996-2004
4 
#
5 
# File:         PLATFORM/JAVA
6 
#
7 
# Contents:     Minimul support for packages that are machine independent
8 
#
9 
# Revision History:
10 
#   02-Sep-04   DDP     Created
11 
#
12 
###############################################################################
13 
#
14 
 
15 
JAVAInit();
16 
 
17 
###############################################################################
18 
#
19 
sub JAVAInit
20 
{
21 
    my( @args ) = @ScmPlatformArgs;            # Platform arguments
22 
    my( $product, $version );
23 
 
24 
#.. Parse arguments
25 
#
26 
    Debug( "JAVA(@args)\n" );
27 
 
28 
    foreach $_ ( @args ) {
29 
        if (/^--product=(.*)/) {
30 
            $product = $1;
31 
 
32 
        } elsif (/^--Version=(.*)/) {
33 
            $version = $1;
34 
 
35 
        } else {
36 
            Message( "JAVA: unknown option $_ -- ignored\n" );
37 
        }
38 
    }
39 
 
40 
#... Toolset
41 
#
42 
    Toolset( '*', "JAVA.PL" );
43 
    return 1;
44 
}
45