1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
package GNUAutobuildWorkspaceCreator;
# ************************************************************
# Description : A GNU Workspace (GNUmakefile) creator that
# collates build results for a single makefile
# before outputting to stdout.
# Author : Chad Elliott, minor modifications by Will Otte
# Create Date : 3/22/07
# ************************************************************
# ************************************************************
# Pragmas
# ************************************************************
use strict;
use GNUACEWorkspaceCreator;
use GNUAutobuildProjectCreator;
use MakeWorkspaceBase;
use WorkspaceCreator;
use vars qw(@ISA);
@ISA = qw(GNUACEWorkspaceCreator MakeWorkspaceBase WorkspaceCreator);
# ************************************************************
# Data Section
# ************************************************************
my($base) = 'GNUmakefile';
# ************************************************************
# Subroutine Section
# ************************************************************
sub extractType {
return 'gnuace';
}
sub write_project_targets {
my($self) = shift;
my($fh) = shift;
my($crlf) = shift;
my($target) = shift;
my($list) = shift;
foreach my $project (@$list) {
my($dname) = $self->mpc_dirname($project);
my($chdir) = ($dname ne '.');
my($output_project) = ($chdir ? $self->mpc_basename($project) : $project);
print $fh "\t\@",
($chdir ? "cd $dname && " : ''),
"\$(MAKE) -f ",
$output_project,
" $target &> $output_project.log ; cat $output_project.log ; rm $output_project.log $crlf";
}
}
1;
|
