Subversion Repositories DevTools

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

# Copyright (C) 2008 ERG Limited, All rights reserved

#

# Module name   : wsdl-tools

# Module type   : JATS Plugin

# Compiler(s)   : Perl

# Environment(s): JATS

#

# Description   : This package extends the JATS toolset at build time

#                 It provides additional directives to the JATS makefiles

#                 to simplify the directives.

#

#                 The directive matches up with a run-time tool to

#                 do the bulk of the work.

#

# Operation     : This package adds the JATS directive ShellBuild

#                 When used the directive will use GenerateFiles to invoke

#                 a shell program at make-time to actually do the hard work.

#

# Directives    : ShellBuild (platform, script, ... )

#

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

use strict;

use warnings;

use File::Basename;

use JatsError;

#

#   Global JATS-internal variables

#

our $so;                            # Toolset dependent shared library suffix

our %SHLIB_LIBS;                    # Hash keyed by known Shared Libraries

#-------------------------------------------------------------------------------

# Function        : ShellBuild

#

# Description     : Launches a shell build script that has had a set of 

#                   pre-invoke work performed already.

#

# Inputs          : platform          - Standard Platform Specifier

#                   script            - The shell build script to launch.

#                   uargs             - User options

#

#                     -DownloadPkg=   - Name of the package that has been 

#                                       downloaded.  If empty the download package

#                                       is generated automatically.

#                     -XGccInPath     - Forces the cross compiler GCC to be 

#                                       placed in the path directly.

#

# Returns         : Nothing

#

sub ShellBuild

{

    my ($platforms, $script, @uargs) = @_;

    return if ( ! ActivePlatform($platforms) );

    #

    #   Generate the files

    #   Use standard JATS directive

    #

    Src($platforms, $script);

    GenerateFiles($platforms, '--Tool=shellbuild.sh', '-ShellBuild='.$script,

                  '--Var(BuildName)',               # Target Package

                  '--Var(BuildVersion)',            # Target Package Version

                  '--Var(Platform)',                # Target platform

                  '--Var(Type)',                    # Build Type

                  '--Var(Arch)',                    # Architecture

                  '--Var(MachType)',                # Machine Type

                  '--Var(BuildRoot)',               # Build Root

                  '--Var(CompilerPath)',            # Path to compiler

                  '--Var(PackageBinDir)',           # Package Bin dir

                  '--Var(PackageIncDir)',           # Package Inc dir

                  '--Var(PackageLibDir)',           # Package Lib dir

                  '--Var(PackagePkgDir)',           # Package Pkg dir

                  '--Var(PackageDir)',              # Package dir

                  '--Var(PackageToolDir)',          # Tools dir

                  '--Var(PackageToolBin)',          # Tools binaries dir

                  '--Var(PackageToolScript)',       # Tools scripts dir

                  "--NoGenerate", "--Clean", @uargs );

}

#-------------------------------------------------------------------------------

# Function        : DebianShellBuild

#

# Description     : Launches a shell build script that has had a set of 

#                   pre-invoke work performed already.  Once the script

#                   Completes a Debian package builder is launched.

#

# Inputs          : platform          - Standard Platform Specifier

#                   script            - The shell build script to launch.

#                   uargs             - User options, as per ShellBuild().

#

# Returns         : Nothing

#

sub DebianShellBuild

{

    my ($platforms, $script, @uargs) = @_;

    return if ( ! ActivePlatform($platforms) );

    # Generate the files using ShellBuild()

    ShellBuild($platforms, $script, '-DebianPackage', @uargs);

    MakeDebianPackage($platforms, '--Script=.deb/debbuild.pl' );

}

1;