blob: 456c65121397ec7ce639c0c081f519db2fb7d2f7 (
plain)
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
package GNUACEProjectCreator;
# ************************************************************
# Description : A GNU Project Creator for ACE
# Author : Chad Elliott
# Create Date : 3/13/2002
# ************************************************************
# ************************************************************
# Pragmas
# ************************************************************
use strict;
use File::Basename;
use ProjectCreator;
use vars qw(@ISA);
@ISA = qw(ProjectCreator);
# ************************************************************
# Subroutine Section
# ************************************************************
sub dollar_special {
#my($self) = shift;
return 1;
}
sub expand_variables_from_template_values {
#my($self) = shift;
return 0;
}
sub sort_files {
#my($self) = shift;
return 0;
}
sub convert_slashes {
#my($self) = shift;
return 0;
}
sub list_mpc_files {
my($self) = shift;
my($hash) = shift;
my(@files) = ();
foreach my $key (keys %$hash) {
push(@files, $self->reverse_relative($key), $self->list_mpc_files($$hash{$key}));
}
return @files;
}
sub fill_value {
my($self) = shift;
my($name) = shift;
my($value) = undef;
my($names) = $self->{'source_files'};
if ($name eq 'mpc_files') {
my(@mpc_files) = $self->list_mpc_files($self->get_inheritance_tree());
$value = \@mpc_files;
}
elsif ($name eq 'vpath') {
my(%vpath) = ();
foreach my $name (keys %$names) {
my($comps) = $$names{$name};
foreach my $key (keys %$comps) {
foreach my $item (@{$$comps{$key}}) {
my($dname) = $self->relative($self->mpc_dirname($item));
if ($dname ne '.' && $dname !~ /^\.\.\//) {
$vpath{$dname} = 1;
}
}
}
}
my($str) = join(':', keys %vpath);
if ($str ne '') {
$value = 'VPATH = .:' . $str . $self->crlf();
}
}
elsif ($name eq 'tao') {
my($incs) = $self->get_assignment('includes');
my($libs) = $self->get_assignment('libpaths');
$value = ((defined $incs && $incs =~ /tao/i) ||
(defined $libs && $libs =~ /tao/i));
}
elsif ($name eq 'ciao') {
my($incs) = $self->get_assignment('includes');
my($libs) = $self->get_assignment('libpaths');
$value = ((defined $incs && $incs =~ /ciao/i) ||
(defined $libs && $libs =~ /ciao/i));
}
return $value;
}
sub project_file_name {
my($self) = shift;
my($name) = shift;
if (!defined $name) {
$name = $self->project_name();
}
return $self->get_modified_project_file_name('GNUmakefile' .
($name eq '' ? '' : ".$name"),
'');
}
sub get_dll_exe_template_input_file {
#my($self) = shift;
return 'gnuexe';
}
sub get_dll_template_input_file {
#my($self) = shift;
return 'gnudll';
}
sub get_template {
#my($self) = shift;
return 'gnu';
}
1;
|
