Subversion Repositories DevTools

# -*- mode: perl; indent-width: 4; -*-
###############################################################################
# Copyright (c) ERG Electronics Ltd. 1996-2004
# 
# File:         PLATFORM/JAVA
#
# Contents:     Minimul support for packages that are machine independent
#
# Revision History:
#   02-Sep-04   DDP     Created
#
###############################################################################
#

JAVAInit();

###############################################################################
#
sub JAVAInit
{
    my( @args ) = @ScmPlatformArgs;            # Platform arguments
    my( $product, $version );

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

    foreach $_ ( @args ) {
        if (/^--product=(.*)/) {
            $product = $1;

        } elsif (/^--Version=(.*)/) {
            $version = $1;
            
        } else {
            Message( "JAVA: unknown option $_ -- ignored\n" );
        }
    }

#... Toolset
#
    Toolset( '*', "JAVA.PL" );
    return 1;
}