Merge branch 'v4-0-test' of ssh://git.samba.org/data/git/samba into v4-0-gmake3
[gd/samba/.git] / source4 / build / smb_build / makefile.pm
1 # Samba Build System
2 # - create output for Makefile
3 #
4 #  Copyright (C) Stefan (metze) Metzmacher 2004
5 #  Copyright (C) Jelmer Vernooij 2005
6 #  Released under the GNU GPL
7
8 package smb_build::makefile;
9 use smb_build::output;
10 use File::Basename;
11 use strict;
12
13 use Cwd 'abs_path';
14
15 sub new($$$)
16 {
17         my ($myname, $config, $mkfile) = @_;
18         my $self = {};
19
20         bless($self, $myname);
21
22         $self->_set_config($config);
23
24         $self->{output} = "";
25
26         $self->output("################################################\n");
27         $self->output("# Autogenerated by build/smb_build/makefile.pm #\n");
28         $self->output("################################################\n");
29         $self->output("\n");
30         $self->output($mkfile);
31
32         return $self;
33 }
34
35 sub _set_config($$)
36 {
37         my ($self, $config) = @_;
38
39         $self->{config} = $config;
40
41         if (not defined($self->{config}->{srcdir})) {
42                 $self->{config}->{srcdir} = '.';
43         }
44
45         if (not defined($self->{config}->{builddir})) {
46                 $self->{config}->{builddir}  = '.';
47         }
48
49         if ($self->{config}->{prefix} eq "NONE") {
50                 $self->{config}->{prefix} = $self->{config}->{ac_default_prefix};
51         }
52
53         if ($self->{config}->{exec_prefix} eq "NONE") {
54                 $self->{config}->{exec_prefix} = $self->{config}->{prefix};
55         }
56 }
57
58 sub output($$)
59 {
60         my ($self, $text) = @_;
61
62         $self->{output} .= $text;
63 }
64
65 sub _prepare_mk_files($)
66 {
67         my $self = shift;
68         my @tmp = ();
69
70         foreach (@smb_build::config_mk::parsed_files) {
71                 s/ .*$//g;
72                 push (@tmp, $_);
73         }
74
75         $self->output("MK_FILES = " . array2oneperline(\@tmp) . "\n");
76 }
77
78 sub array2oneperline($)
79 {
80         my $array = shift;
81         my $output = "";
82
83         foreach (@$array) {
84                 next unless defined($_);
85
86                 $output .= " \\\n\t\t$_";
87         }
88
89         return $output;
90 }
91
92 sub _prepare_list($$$)
93 {
94         my ($self,$ctx,$var) = @_;
95         my @tmparr = ();
96
97         push(@tmparr, @{$ctx->{$var}}) if defined($ctx->{$var});
98
99         my $tmplist = array2oneperline(\@tmparr);
100         return if ($tmplist eq "");
101
102         $self->output("$ctx->{NAME}_$var =$tmplist\n");
103 }
104
105 sub PythonModule($$)
106 {
107         my ($self,$ctx) = @_;
108
109         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
110         $self->_prepare_list($ctx, "DEPEND_LIST");
111         $self->_prepare_list($ctx, "LINK_FLAGS");
112
113         $self->output("\$(eval \$(call python_c_module_template,$ctx->{LIBRARY_REALNAME},\$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST), \$($ctx->{NAME}\_FULL_OBJ_LIST) \$($ctx->{NAME}_LINK_FLAGS)))\n");
114 }
115
116 sub SharedModule($$)
117 {
118         my ($self,$ctx) = @_;
119
120         my $sane_subsystem = lc($ctx->{SUBSYSTEM});
121         $sane_subsystem =~ s/^lib//;
122         
123         $self->output("PLUGINS += $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
124         $self->output("\$(eval \$(call shared_module_install_template,$sane_subsystem, $ctx->{LIBRARY_REALNAME}))\n");
125
126         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
127         $self->_prepare_list($ctx, "DEPEND_LIST");
128         $self->_prepare_list($ctx, "LINK_FLAGS");
129
130         if (defined($ctx->{INIT_FUNCTION}) and $ctx->{INIT_FUNCTION_TYPE} =~ /\(\*\)/) {
131                 $self->output("\$($ctx->{NAME}_OBJ_FILES): CFLAGS+=-D$ctx->{INIT_FUNCTION}=init_module\n");
132         }
133
134         $self->output("\$(eval \$(call shared_module_template,$ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}, \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST), \$($ctx->{NAME}\_FULL_OBJ_LIST) \$($ctx->{NAME}_LINK_FLAGS)))\n");
135
136
137         if (defined($ctx->{ALIASES})) {
138                 $self->output("\$(eval \$(foreach alias,". join(' ', @{$ctx->{ALIASES}}) . ",\$(call shared_module_alias_template,$ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME},$sane_subsystem,\$(alias))))\n");
139         }
140 }
141
142 sub StaticLibraryPrimitives($$)
143 {
144         my ($self,$ctx) = @_;
145  
146         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
147         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
148 }
149
150 sub SharedLibraryPrimitives($$)
151 {
152         my ($self,$ctx) = @_;
153
154         if (not grep(/STATIC_LIBRARY/, @{$ctx->{OUTPUT_TYPE}})) {
155                 $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
156                 $self->_prepare_list($ctx, "FULL_OBJ_LIST");
157         }
158 }
159
160 sub SharedLibrary($$)
161 {
162         my ($self,$ctx) = @_;
163
164         $self->output("SHARED_LIBS += $ctx->{RESULT_SHARED_LIBRARY}\n");
165
166         $self->_prepare_list($ctx, "DEPEND_LIST");
167         $self->_prepare_list($ctx, "LINK_FLAGS");
168
169         $self->output("\$(eval \$(call shared_library_template,$ctx->{RESULT_SHARED_LIBRARY}, \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST), \$($ctx->{NAME}\_FULL_OBJ_LIST) \$($ctx->{NAME}_LINK_FLAGS),$ctx->{SHAREDDIR}/$ctx->{LIBRARY_SONAME},$ctx->{SHAREDDIR}/$ctx->{LIBRARY_DEBUGNAME}))\n");
170 }
171
172 sub MergedObj($$)
173 {
174         my ($self, $ctx) = @_;
175
176         $self->output("\$(call partial_link_template, $ctx->{OUTPUT}, \$($ctx->{NAME}_OBJ_FILES))\n");
177 }
178
179 sub StaticLibraryPrimitives($$)
180 {
181         my ($self,$ctx) = @_;
182
183         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
184         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
185 }
186
187 sub InitFunctions($$)
188 {
189         my ($self, $ctx) = @_;
190         $self->output("\$($ctx->{NAME}_OBJ_FILES): CFLAGS+=-DSTATIC_$ctx->{NAME}_MODULES=\"\$($ctx->{NAME}_INIT_FUNCTIONS)$ctx->{INIT_FUNCTION_SENTINEL}\"\n");
191 }
192
193 sub StaticLibrary($$)
194 {
195         my ($self,$ctx) = @_;
196
197         $self->output("STATIC_LIBS += $ctx->{RESULT_STATIC_LIBRARY}\n") if ($ctx->{TYPE} eq "LIBRARY");
198         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
199         $self->output("$ctx->{RESULT_STATIC_LIBRARY}: \$($ctx->{NAME}_FULL_OBJ_LIST)\n");
200 }
201
202 sub Binary($$)
203 {
204         my ($self,$ctx) = @_;
205
206         unless (defined($ctx->{INSTALLDIR})) {
207                 $self->output("BINARIES += $ctx->{TARGET_BINARY}\n");
208         } elsif ($ctx->{INSTALLDIR} eq "SBINDIR") {
209                 $self->output("SBIN_PROGS += $ctx->{RESULT_BINARY}\n");
210         } elsif ($ctx->{INSTALLDIR} eq "BINDIR") {
211                 $self->output("BIN_PROGS += $ctx->{RESULT_BINARY}\n");
212         }
213
214         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
215         $self->_prepare_list($ctx, "DEPEND_LIST");
216         $self->_prepare_list($ctx, "LINK_FLAGS");
217
218         if (defined($ctx->{USE_HOSTCC}) && $ctx->{USE_HOSTCC} eq "YES") {
219 $self->output("\$(call host_binary_link_template, $ctx->{RESULT_BINARY}, \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST), \$($ctx->{NAME}_LINK_FLAGS))\n");
220         } else {
221 $self->output("\$(call binary_link_template, $ctx->{RESULT_BINARY}, \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST), \$($ctx->{NAME}_LINK_FLAGS))\n");
222         }
223 }
224
225 sub PythonFiles($$)
226 {
227         my ($self,$ctx) = @_;
228
229         foreach (@{$ctx->{PYTHON_FILES}}) {
230                 $self->output("\$(eval \$(call python_py_module_template," . basename($_) . ",\$(addprefix $ctx->{BASEDIR}/, $_)))\n");
231         }
232 }
233
234 sub ProtoHeader($$)
235 {
236         my ($self,$ctx) = @_;
237
238         my $target = "\$(addprefix $ctx->{BASEDIR}/, $ctx->{PRIVATE_PROTO_HEADER})";
239         $self->output("PROTO_HEADERS += $target\n");
240         $self->output("\$(call proto_header_template, $target, \$($ctx->{NAME}_OBJ_FILES:.o=.c))\n");
241 }
242
243 sub write($$)
244 {
245         my ($self, $file) = @_;
246
247         $self->_prepare_mk_files();
248
249         open(MAKEFILE,">$file") || die ("Can't open $file\n");
250         print MAKEFILE $self->{output};
251         close(MAKEFILE);
252
253         print __FILE__.": creating $file\n";
254 }
255
256 my $sort_available = eval "use sort 'stable'; return 1;";
257 $sort_available = 0 unless defined($sort_available);
258
259 sub by_path {
260         return  1 if($a =~ m#^\-I/#);
261         return -1 if($b =~ m#^\-I/#);
262         return  0;
263 }
264
265 sub CFlags($$)
266 {
267         my ($self, $key) = @_;
268
269         my $srcdir = $self->{config}->{srcdir};
270         my $builddir = $self->{config}->{builddir};
271
272         my $src_ne_build = ($srcdir ne $builddir) ? 1 : 0;
273
274         return unless defined ($key->{FINAL_CFLAGS});
275         return unless (@{$key->{FINAL_CFLAGS}} > 0);
276
277         my @sorted_cflags = @{$key->{FINAL_CFLAGS}};
278         if ($sort_available) {
279                 @sorted_cflags = sort by_path @{$key->{FINAL_CFLAGS}};
280         }
281
282         # Rewrite CFLAGS so that both the source and the build
283         # directories are in the path.
284         my @cflags = ();
285         foreach my $flag (@sorted_cflags) {
286                 if($src_ne_build) {
287                         if($flag =~ m#^-I([^/].*$)#) {
288                                 my $dir = $1;
289                                 $dir =~ s#^\$\((?:src|build)dir\)/?##;
290                                 push(@cflags, "-I$builddir/$dir", "-I$srcdir/$dir");
291                                 next;
292                         }
293                 }
294                 push(@cflags, $flag);
295         }
296         
297         my $cflags = join(' ', @cflags);
298
299         $self->output("\$(patsubst %.ho,%.d,\$($key->{NAME}_OBJ_FILES:.o=.d)) \$($key->{NAME}_OBJ_FILES): CFLAGS+= $cflags\n");
300 }
301
302 1;