Subversion Repositories DevTools

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

# Copyright (C) 1998-2013 Vix Technology, All rights reserved

#

# Module name   : MakePax.pl

# Module type   : Makefile system

# Compiler(s)   : Perl

# Environment(s): jats

#

# Description   : Build Wrpper for the MakePax directive

#                 This script is invoked at 'make' time

#                 A perl script is used to provide a little bit of flexability

#

# Usage:        : Invoked by JAT make system

#

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

require 5.008_002;

use strict;

use warnings;

use Pod::Usage;

use Getopt::Long;

use File::Path;

use JatsError;

use JatsSystem;

use FileUtils;

#

#   Globals

#

#

#   Command line options

#

my $opt_debug   = $ENV{'GBE_DEBUG'};        # Allow global debug

my $opt_verbose = $ENV{'GBE_VERBOSE'};      # Allow global verbose

my $opt_vargs;                              # Verbose arg

my $opt_help = 0;

my $opt_manual = 0;

my $opt_clean = 0;

my $opt_platform;

my $opt_buildname;

my $opt_buildversion;

my $opt_interfacedir;

my $opt_pkgdir;

my $opt_component;

my $opt_src;

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

# Function        : Main Entry point

#

# Description     : This function will be called when the package is initialised

#                   Extract arguments from the users environment

#

#                   Done here to greatly simplify the user script

#                   There should be no junk in the user script - keep it simple

#

# Inputs          :

#

# Returns         : 

#

main();

sub main

{

    my $dist_tree;

    my @make_args;

    my $result = GetOptions (

                "verbose:s"         => \$opt_vargs,

                "clean"             => \$opt_clean,

                "BuildName=s"       => \$opt_buildname,

                "BuildVersion=s"    => \$opt_buildversion,

                "Platform=s"        => \$opt_platform,

                "InterfaceDir=s"    => \$opt_interfacedir,

                "PackageDir=s"      => \$opt_pkgdir,

                "Component=s"       => \$opt_component,

                "Src=s"             => \$opt_src,

    );

    ErrorConfig( 'name'    => 'MakePax',

                 'verbose' => $opt_verbose,

                 'debug'   => $opt_debug );

    #

    #   Init the FileSystem Uiltity interface

    #

    InitFileUtils();

    #

    #   Ensure that we have all required options

    #

    Error ("BuildName not set")                 unless ( $opt_buildname );

    Error ("BuildVersion not set")              unless ( $opt_buildversion );

    Error ("InterfaceDir not set")              unless ( $opt_interfacedir );

    Error ("Package Dir not set")               unless ( $opt_pkgdir );

    Error ("Component not set")                 unless ( $opt_component );

    Error ("Source not set")                    unless ( $opt_src );

    #

    #   A few sanity checks

    #

    Error ("Cannot find 'intellect.bat'. This file was generated by JATS")

        unless ( -f 'intellect.bat' );

    Error ("Source does not contain a 'makefile'", 'Src:' . $opt_src)

        unless ( -f join('/', $opt_src, 'makefile') );

    #

    #   Define some global values

    #

    push @make_args, '-c', $opt_src;

    push @make_args, "-DDIST_PLATFORM=$opt_platform" if ( $opt_platform );

    push @make_args, '-DMAKE_VERBOSE=1' if $opt_vargs;

    $dist_tree = FullPath(join('/', $opt_pkgdir, 'pkg', $opt_component));

    #

    #   Clean package

    #

    if ( $opt_clean )

    {

        Message ("Clean Pax Build");

        runMake( @make_args, 'very_clean' );

        exit 0;

    }

    #

    #   Build Package

    #       Remove packageing output

    #       Make install - in tree

    #       Make install - - for packaging

    #

    RmDirTree($dist_tree);

    mkpath($dist_tree, 0, 0775);

    Message ("Build Software");

    runMake( @make_args, 'install' );

    Message ("Package Software");

    runMake( @make_args, '-DDIST_TREE=' . $dist_tree, 'install' );

}

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

# Function        : runMake

#

# Description     : Run the PAX Builder Make command in the PAX Builder

#                   environment - as setup by intellect.bat

#

# Inputs          : Array of make arguments

#

# Returns         : Will not return on error

#

sub runMake

{

    my (@args) = @_;

    System ('--Exit','--NoShell','intellect.bat', 'make', @args );

}