Subversion Repositories DevTools

#..

# Copyright (C) 1998-2005 ERG Transit Systems, All rights reserved

#

# Module name   : JAVA

# Module type   : Makefile system

# Compiler(s)   : None

# Environment(s): All

#

# Description:

#       This file provides Toolset initialisation and plugin functions

#       to makelib.pl2

#

# Contents:     Basic (very basic) Java support

#

# Revision History:

#       15-Jul-05   DDP     Created

#............................................................................#

##############################################################################

#   ToolsetInit()

#       Runtime initialisation

#

##############################################################################

ToolsetInit();

sub ToolsetInit

{

    my( @args ) = @ScmToolsetArgs;             # Toolset arguments

    my( $version, $product, @defines, @dirs, @flags );

    #

    #   If the user doesn't specify a version, then force a known version

    #   1.4 may not be the current flavor, but it was when this was done!

    #

    $version = 1.4;

#.. Parse arguments

#

    Debug( "JAVA(@args)\n" );

    foreach $_ ( @args ) {

        if (/^--Version=(.*)/) {                # Compiler version

            $version = "$1";

        } else {

            Message( "JAVA: unknown toolset argument $_ -- ignored\n" );

        }

    }

#.. Parse Platform Arguments

#

    @args = @ScmPlatformArgs;                   # Platform arguments

    foreach $_ ( @args ) {

        if (/^--product=(.*)/) {                # GBE product

            $product = $1;

        } elsif (/^--Version=(.*)/) {

            $version = $1;

        } else {

            Message( "JAVA: unknown platform argument $_ -- ignored\n" );

        }

    }

#.. Toolset configuration

#

    $::ScmToolsetVersion = "1.0.0";               # our version

    $::ScmToolsetGenerate = 0;                    # generate optional

#.. Standard.rul requirements

#

    $s =   'java';          # Assembler source file

    $o =   '';              # Object file

    $a =   'class';         # Library file

    $so =  '';              # Shared library

    $exe = '.jar';          # Linked binary images

#.. Pass version information in

#

    Error ("Java Version has not been set") unless $version;

    my $nice_ver = $version;

    $nice_ver =~ s~\.~_~g;

    ToolsetDefine ( "\n#..    Specify the version of JAVA to use and the EnvVar that specifies it" );

    ToolsetDefine ( "#" );

    ToolsetDefine ( "JAVA_VER = $version" );

    ToolsetDefine ( "JAVA_HOME_VAR = JAVA_HOME_$nice_ver" );

    ToolsetDefine ( "\n" );

#.. Toolset specific definitions

#

    Init( "java_sdk" );

    ToolsetDefines( 'JAVA.DEF' );

}

########################################################################

#

#   Generate a project from the provided build.xml

#   This is aimed at Java

#

#   Arguments   : $name             - Base name of the project

#                 $buildxml         - Path to the build.xml file

#                 $pArgs            - Project specific options

#                 $auto_test        - Unit Test Target (optional)

#                 $unit_test        - Unit Test Target (optional)

#                 $pGenerated       - Ref to an array of Generated Files (optional)

#

########################################################################

our $ToolsetPROJECT_type = 'ant';

sub ToolsetPROJECT

{

    my( $name, $buildxml ,$pArgs, $auto_test, $unit_test, $pGenerated ) = @_;

    my $cmd = '$(ANT) $(ANT_VERBOSE)';

    my $io = ToolsetPrinter::New();

    #

    #   Generate the recipe to create the project

    #   Add names of co-generated targets.

    #

    $io->Label( "Build project", $name );

    $io->Entry( "Project_$name",": $buildxml\n", " \\\n", "" , @{$pGenerated} );

    $io->PrtLn( "\t\$(XX_PRE)grep \'includeAntRuntime[ \t]*=[ \t]*\"off\"\' $buildxml || (echo ANT build file MUST specify includeAntRuntime=\"off\" with each javac command; exit 1)" );

    $io->PrtLn( "\t\$(XX_PRE)\$(call ProjectDefine_$name,)" );

    $io->Newline();

    #

    #   Generate the recipe to clean the project

    #

    $io->Label( "Clean project", $name );

    $io->PrtLn( "ProjectClean_$name: $buildxml" );

    $io->PrtLn( "\t\$(XX_PRE)\$(call ProjectDefine_$name,clean)" );

    $io->Newline();

    #

    #   Generate the recipe to run unit tests on the project

    #   This is optional

    #

    if ( $auto_test )

    {

        $io->Label( "Auto Test project", $name );

        $io->PrtLn( "ProjectATest_$name: $buildxml" );

        $io->PrtLn( "\t\$(XX_PRE)\$(call ProjectDefine_$name,$auto_test)" );

        $io->Newline();

    }

    if ( $unit_test )

    {

        $io->Label( "Unit Test project", $name );

        $io->PrtLn( "ProjectUTest_$name: $buildxml" );

        $io->PrtLn( "\t\$(XX_PRE)\$(call ProjectDefine_$name,$unit_test)" );

        $io->Newline();

    }

    #

    #   Generate macro to contain the project invocation

    #   The first argument will be a 'build target' argument

    #

    $io->Label( "Macro to invoke project", $name );

    $io->PrtLn( "define ProjectDefine_$name" );

    $io->PrtLn( "\t$cmd -f $buildxml -DINTERFACEDIR=\$(PWD)/\$(INTERFACEDIR) -DGBE_TYPE=\$(GBE_TYPE) @{$pArgs} \$1" );

    $io->PrtLn( "endef");

    $io->Newline();

}

1;