Subversion Repositories DevTools

# 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.

#                   variant           - The Debian package name variant.

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

#

# Returns         : Nothing

#

sub DebianVariantShellBuild

{

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

    return if ( ! ActivePlatform($platforms) );

    #

    #   The ShellBuild script will create the 'debbuild.pl' file

    #   Create a temp copy here in order to supress warnings

    #

    my $deb_dir = "$ScmPlatform.deb";

    my $deb_build = $deb_dir . '/debbuild.pl';

    mkdir ($deb_dir);

    TouchFile ( $deb_build );

    # Generate the files using ShellBuild()

    ShellBuild       ('*', $script, "-DebianPackage=$deb_dir", @uargs);

    MakeDebianPackage('*', "--Script=$deb_build", "--Variant=$variant"  );

}

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