Subversion Repositories DevTools

Rev

Rev 1469 | Rev 1477 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1469 Rev 1475
Line 21... Line 21...
21 
#
 21 
#
22 
#......................................................................#
 22 
#......................................................................#
23 
 
 23 
 
24 
use strict;
 24 
use strict;
25 
use warnings;
 25 
use warnings;
26 
use File::Basename;
 - 
 
27 
use JatsError;
 26 
use JatsError;
- 
 
 27 
use FileUtils;
28 
 
 28 
 
29 
#
 29 
#
30 
#   Global JATS-internal variables
 30 
#   Jats Globals
31 
#
 31 
#
32 
our $so;                            # Toolset dependent shared library suffix
 - 
 
33 
our %SHLIB_LIBS;                    # Hash keyed by known Shared Libraries
 32 
our $ScmPlatform;
34 
 
 33 
 
35 
#-------------------------------------------------------------------------------
 34 
#-------------------------------------------------------------------------------
36 
# Function        : ShellBuild
 35 
# Function        : ShellBuild
37 
#
 36 
#
38 
# Description     : Launches a shell build script that has had a set of
37 
# Description     : Launches a shell build script that has had a set of
Line 62... Line 61...
62 
 
 61 
 
63 
    #
 62 
    #
64 
    #   Generate the files
 63 
    #   Generate the files
65 
    #   Use standard JATS directive
 64 
    #   Use standard JATS directive
66 
    #
 65 
    #
67 
    Src($platforms, $script);
 66 
    Src('*', $script);
68 
    GenerateFiles($platforms, '--Tool=shellbuild.sh', '-ShellBuild='.$script,
 67 
    GenerateFiles('*', '--Tool=shellbuild.sh',      # Tool to use
- 
 
 68 
                  '-ShellBuild='.$script,           # User script
69 
                  '--Var(BuildName)',               # Target Package
 69 
                  '--Var(BuildName)',               # Target Package
70 
                  '--Var(BuildVersion)',            # Target Package Version
 70 
                  '--Var(BuildVersion)',            # Target Package Version
71 
                  '--Var(Platform)',                # Target platform
 71 
                  '--Var(Platform)',                # Target platform
72 
                  '--Var(Type)',                    # Build Type
 72 
                  '--Var(Type)',                    # Build Type
73 
                  '--Var(Arch)',                    # Architecture
 73 
                  '--Var(Arch)',                    # Architecture
74 
                  '--Var(MachType)',                # Machine Type
 74 
                  '--Var(MachType)',                # Machine Type
75 
                  '--Var(BuildRoot)',               # Build Root
 75 
                  '--Var(BuildRoot)',               # Build Root
- 
 
 76 
                  '--Var(InterfaceDir)',            # Interface dir
- 
 
 77 
                  '--Var(LocalDir)',                # Local dir
76 
                  '--Var(CompilerPath)',            # Path to compiler
 78 
                  '--Var(CompilerPath)',            # Path to compiler
77 
                  '--Var(BinDir)',                  # Binary output directory
 79 
                  '--Var(BinDir)',                  # Binary output directory
78 
                  '--Var(ObjDir)',                  # Object output directory
 80 
                  '--Var(ObjDir)',                  # Object output directory
79 
                  '--Var(LibDir)',                  # Library output directory
 81 
                  '--Var(LibDir)',                  # Library output directory
80 
                  '--Var(PackageBinDir)',           # Package Bin dir
 82 
                  '--Var(PackageBinDir)',           # Package Bin dir
Line 105... Line 107...
105 
{
 107 
{
106 
    my ($platforms, $script, @uargs) = @_;
 108 
    my ($platforms, $script, @uargs) = @_;
107 
 
 109 
 
108 
    return if ( ! ActivePlatform($platforms) );
 110 
    return if ( ! ActivePlatform($platforms) );
109 
 
 111 
 
- 
 
 112 
    #
- 
 
 113 
    #   The ShellBuild script will create the 'debbuild.pl' file
- 
 
 114 
    #   Create a temp copy here in order to supress warnings
- 
 
 115 
    #
- 
 
 116 
    my $deb_dir = "$ScmPlatform.deb";
- 
 
 117 
    my $deb_build = $deb_dir . '/debbuild.pl';
- 
 
 118 
    mkdir ($deb_dir);
- 
 
 119 
    TouchFile ( $deb_build );
- 
 
 120 
 
110 
    # Generate the files using ShellBuild()
 121 
    # Generate the files using ShellBuild()
111 
    ShellBuild($platforms, $script, '-DebianPackage', @uargs);
 122 
    ShellBuild       ('*', $script, "-DebianPackage=$deb_dir", @uargs);
112
- 
 
113 
    MakeDebianPackage($platforms, '--Script=.deb/debbuild.pl' );
 123 
    MakeDebianPackage('*', "--Script=$deb_build"  );
114 
}
 124 
}
115 
 
 125 
 
116 
1;
 126 
1;