Avoid redetermining paths; use already stored values.
[jelmer/samba4-debian.git] / source / 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::env;
10 use smb_build::output;
11 use File::Basename;
12 use strict;
13
14 use base 'smb_build::env';
15 use Cwd 'abs_path';
16
17 sub new($$$)
18 {
19         my ($myname, $config, $mkfile) = @_;
20         my $self = new smb_build::env($config);
21         
22         bless($self, $myname);
23
24         $self->{manpages} = [];
25         $self->{sbin_progs} = [];
26         $self->{bin_progs} = [];
27         $self->{static_libs} = [];
28         $self->{python_dsos} = [];
29         $self->{python_pys} = [];
30         $self->{shared_libs} = [];
31         $self->{headers} = [];
32         $self->{plugins} = [];
33         $self->{pc_files} = [];
34         $self->{proto_headers} = [];
35         $self->{output} = "";
36
37         $self->{mkfile} = $mkfile;
38
39         $self->output("################################################\n");
40         $self->output("# Autogenerated by build/smb_build/makefile.pm #\n");
41         $self->output("################################################\n");
42         $self->output("\n");
43
44         if (!$self->{automatic_deps}) {
45                 $self->output("ALL_PREDEP = proto\n");
46                 $self->output(".NOTPARALLEL:\n");
47         }
48
49         return $self;
50 }
51
52 sub output($$)
53 {
54         my ($self, $text) = @_;
55
56         $self->{output} .= $text;
57 }
58
59 sub _prepare_mk_files($)
60 {
61         my $self = shift;
62         my @tmp = ();
63
64         foreach (@smb_build::config_mk::parsed_files) {
65                 s/ .*$//g;
66                 push (@tmp, $_);
67         }
68
69         if ($self->{gnu_make}) {
70                 $self->output("
71 ifneq (\$(MAKECMDGOALS),clean)
72 ifneq (\$(MAKECMDGOALS),distclean)
73 ifneq (\$(MAKECMDGOALS),realdistclean)
74 ");
75         }
76
77         $self->output("MK_FILES = " . array2oneperline(\@tmp) . "\n");
78
79         if ($self->{gnu_make}) {
80                 $self->output("
81 endif
82 endif
83 endif
84 ");
85         }
86 }
87
88 sub array2oneperline($)
89 {
90         my $array = shift;
91         my $output = "";
92
93         foreach (@$array) {
94                 next unless defined($_);
95
96                 $output .= " \\\n\t\t$_";
97         }
98
99         return $output;
100 }
101
102 sub _prepare_list($$$)
103 {
104         my ($self,$ctx,$var) = @_;
105         my @tmparr = ();
106
107         push(@tmparr, @{$ctx->{$var}}) if defined($ctx->{$var});
108
109         my $tmplist = array2oneperline(\@tmparr);
110         return if ($tmplist eq "");
111
112         $self->output("$ctx->{NAME}_$var =$tmplist\n");
113 }
114
115 sub Integrated($$)
116 {
117         my ($self,$ctx) = @_;
118
119         $self->_prepare_list($ctx, "OBJ_LIST");
120 }
121
122 sub SharedModulePrimitives($$)
123 {
124         my ($self,$ctx) = @_;
125         
126         #FIXME
127 }
128
129 sub SharedModule($$)
130 {
131         my ($self,$ctx) = @_;
132
133         my $init_obj = "";
134
135         my $sane_subsystem = lc($ctx->{SUBSYSTEM});
136         $sane_subsystem =~ s/^lib//;
137         
138         if ($ctx->{TYPE} eq "PYTHON") {
139                 push (@{$self->{python_dsos}}, 
140                         "$ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}");
141         } else {
142                 push (@{$self->{plugins}}, "$ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}");
143                 $self->output("installplugins:: $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
144                 $self->output("\t\@echo Installing $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME} as \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
145                 $self->output("\t\@mkdir -p \$(DESTDIR)\$(modulesdir)/$sane_subsystem/\n");
146                 $self->output("\t\@cp $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME} \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
147                 if (defined($ctx->{ALIASES})) {
148                         foreach (@{$ctx->{ALIASES}}) {
149                                 $self->output("\t\@rm -f \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$_.\$(SHLIBEXT)\n");
150                                 $self->output("\t\@ln -fs $ctx->{LIBRARY_REALNAME} \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$_.\$(SHLIBEXT)\n");
151                         }
152                 }
153
154                 $self->output("uninstallplugins::\n");
155                 $self->output("\t\@echo Uninstalling \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
156                 $self->output("\t\@-rm \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
157
158                 if (defined($ctx->{ALIASES})) {
159                         foreach (@{$ctx->{ALIASES}}) {
160                                 $self->output("\t\@-rm \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$_.\$(SHLIBEXT)\n");
161                         }
162                 }
163         }
164
165         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
166         $self->_prepare_list($ctx, "OBJ_LIST");
167         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
168         $self->_prepare_list($ctx, "DEPEND_LIST");
169         $self->_prepare_list($ctx, "LINK_FLAGS");
170
171         push(@{$self->{all_objs}}, "\$($ctx->{NAME}_FULL_OBJ_LIST)");
172
173         if (defined($ctx->{INIT_FUNCTION}) and $ctx->{TYPE} ne "PYTHON") {
174                 my $init_fn = $ctx->{INIT_FUNCTION_TYPE};
175                 $init_fn =~ s/\(\*\)/init_module/;
176                 my $proto_fn = $ctx->{INIT_FUNCTION_TYPE};
177                 $proto_fn =~ s/\(\*\)/$ctx->{INIT_FUNCTION}/;
178
179                 $self->output(<< "__EOD__"
180 bin/$ctx->{NAME}_init_module.c:
181         \@echo Creating \$\@
182         \@echo \"#include \\\"includes.h\\\"\" > \$\@
183         \@echo \"$proto_fn;\" >> \$\@
184         \@echo \"_PUBLIC_ $init_fn\" >> \$\@
185         \@echo \"{\" >> \$\@
186         \@echo \"       return $ctx->{INIT_FUNCTION}();\" >> \$\@
187         \@echo \"}\" >> \$\@
188         \@echo \"\" >> \$\@
189 __EOD__
190 );
191                 $init_obj = "bin/$ctx->{NAME}_init_module.o";
192         }
193
194         $self->output(<< "__EOD__"
195 #
196
197 $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}: \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST) $init_obj
198         \@echo Linking \$\@
199         \@mkdir -p $ctx->{SHAREDDIR}
200         \@\$(MDLD) \$(MDLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
201                 \$($ctx->{NAME}\_FULL_OBJ_LIST) $init_obj \\
202                 \$($ctx->{NAME}_LINK_FLAGS)
203 __EOD__
204 );
205
206         if (defined($ctx->{ALIASES})) {
207                 foreach (@{$ctx->{ALIASES}}) {
208                         $self->output("\t\@rm -f $ctx->{SHAREDDIR}/$_.\$(SHLIBEXT)\n");
209                         $self->output("\t\@ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$_.\$(SHLIBEXT)\n");
210                 }
211         }
212         $self->output("\n");
213 }
214
215 sub SharedLibraryPrimitives($$)
216 {
217         my ($self,$ctx) = @_;
218
219         $self->output("$ctx->{NAME}_SOVERSION = $ctx->{SO_VERSION}\n") if (defined($ctx->{SO_VERSION}));
220         $self->output("$ctx->{NAME}_VERSION = $ctx->{VERSION}\n") if (defined($ctx->{VERSION}));
221
222         if (not grep(/STATIC_LIBRARY/, @{$ctx->{OUTPUT_TYPE}})) {
223                 $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
224                 $self->_prepare_list($ctx, "OBJ_LIST");
225                 $self->_prepare_list($ctx, "FULL_OBJ_LIST");
226         }
227 }
228
229 sub SharedLibrary($$)
230 {
231         my ($self,$ctx) = @_;
232
233         push (@{$self->{shared_libs}}, $ctx->{RESULT_SHARED_LIBRARY}) if (defined($ctx->{SO_VERSION}));
234
235         $self->_prepare_list($ctx, "DEPEND_LIST");
236         $self->_prepare_list($ctx, "LINK_FLAGS");
237
238         push(@{$self->{all_objs}}, "\$($ctx->{NAME}_FULL_OBJ_LIST)");
239
240         my $soarg = "";
241         my $lns = "";
242         if ($self->{config}->{SONAMEFLAG} ne "#" and defined($ctx->{LIBRARY_SONAME})) {
243                 $soarg = "$self->{config}->{SONAMEFLAG}$ctx->{LIBRARY_SONAME}";
244                 if ($ctx->{LIBRARY_REALNAME} ne $ctx->{LIBRARY_SONAME}) {
245                         $lns .= "\n\t\@test \$($ctx->{NAME}_VERSION) = \$($ctx->{NAME}_SOVERSION) || ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$ctx->{LIBRARY_SONAME}";
246                 }
247         }
248
249         if (defined($ctx->{LIBRARY_SONAME})) {
250                 $lns .= "\n\t\@ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$ctx->{LIBRARY_DEBUGNAME}";
251         }
252
253         $self->output(<< "__EOD__"
254 #
255 $ctx->{RESULT_SHARED_LIBRARY}: \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST)
256         \@echo Linking \$\@
257         \@mkdir -p $ctx->{SHAREDDIR}
258         \@\$(SHLD) \$(SHLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
259                 \$($ctx->{NAME}\_FULL_OBJ_LIST) \\
260                 \$($ctx->{NAME}_LINK_FLAGS) \\
261                 $soarg$lns
262 __EOD__
263 );
264         $self->output("\n");
265 }
266
267 sub MergedObj($$)
268 {
269         my ($self, $ctx) = @_;
270
271         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
272         $self->_prepare_list($ctx, "OBJ_LIST");
273         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
274         push(@{$self->{all_objs}}, "\$($ctx->{NAME}_FULL_OBJ_LIST)");
275         $self->output(<< "__EOD__"
276 #
277 $ctx->{RESULT_MERGED_OBJ}: \$($ctx->{NAME}_FULL_OBJ_LIST)
278         \@echo Partially linking \$@
279         \@mkdir -p bin/mergedobj
280         \$(PARTLINK) -o \$@ \$($ctx->{NAME}_FULL_OBJ_LIST)
281
282 __EOD__
283 );
284 }
285
286 sub StaticLibrary($$)
287 {
288         my ($self,$ctx) = @_;
289
290         return unless (defined($ctx->{OBJ_FILES}));
291
292         push (@{$self->{static_libs}}, $ctx->{RESULT_STATIC_LIBRARY}) if ($ctx->{TYPE} eq "LIBRARY");
293
294         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
295         $self->_prepare_list($ctx, "OBJ_LIST");
296         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
297
298         push(@{$self->{all_objs}}, "\$($ctx->{NAME}_FULL_OBJ_LIST)");
299
300         $self->output(<< "__EOD__"
301 #
302 $ctx->{RESULT_STATIC_LIBRARY}: \$($ctx->{NAME}_FULL_OBJ_LIST)
303         \@echo Linking \$@
304         \@rm -f \$@
305         \@mkdir -p $ctx->{STATICDIR}
306         \@\$(STLD) \$(STLD_FLAGS) \$@ \$($ctx->{NAME}_FULL_OBJ_LIST)
307
308 __EOD__
309 );
310 }
311
312 sub Header($$)
313 {
314         my ($self,$ctx) = @_;
315
316         foreach (@{$ctx->{PUBLIC_HEADERS}}) {
317                 push (@{$self->{headers}}, output::add_dir_str($ctx->{BASEDIR}, $_));
318         }
319 }
320
321 sub Binary($$)
322 {
323         my ($self,$ctx) = @_;
324
325         my $extradir = "";
326
327         push(@{$self->{all_objs}}, "\$($ctx->{NAME}_FULL_OBJ_LIST)");
328                 
329         unless (defined($ctx->{INSTALLDIR})) {
330         } elsif ($ctx->{INSTALLDIR} eq "SBINDIR") {
331                 push (@{$self->{sbin_progs}}, $ctx->{RESULT_BINARY});
332         } elsif ($ctx->{INSTALLDIR} eq "BINDIR") {
333                 push (@{$self->{bin_progs}}, $ctx->{RESULT_BINARY});
334         }
335
336         $self->output("binaries:: $ctx->{TARGET_BINARY}\n");
337
338         $self->_prepare_list($ctx, "OBJ_LIST");
339         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
340         $self->_prepare_list($ctx, "DEPEND_LIST");
341         $self->_prepare_list($ctx, "LINK_FLAGS");
342
343 $self->output(<< "__EOD__"
344 $ctx->{RESULT_BINARY}: \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST)
345         \@echo Linking \$\@
346 __EOD__
347         );
348
349         if (defined($ctx->{USE_HOSTCC}) && $ctx->{USE_HOSTCC} eq "YES") {
350                 $self->output(<< "__EOD__"
351         \@\$(HOSTLD) \$(HOSTLD_FLAGS) -L\${builddir}/bin/static -o \$\@ \$(INSTALL_LINK_FLAGS) \\
352                 \$\($ctx->{NAME}_LINK_FLAGS)
353 __EOD__
354                 );
355         } else {
356                 $self->output(<< "__EOD__"
357         \@\$(BNLD) \$(BNLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
358                 \$\($ctx->{NAME}_LINK_FLAGS) 
359
360 __EOD__
361                 );
362         }
363 }
364
365 sub PythonFiles($$)
366 {
367         my ($self,$ctx) = @_;
368
369         foreach (@{$ctx->{PYTHON_FILES}}) {
370                 my $target = "bin/python/".basename($_);
371                 my $source = output::add_dir_str($ctx->{BASEDIR}, $_);
372                 $self->output("$target: $source\n" .
373                                           "\tmkdir -p \$(builddir)/bin/python\n" .
374                               "\tcp $source \$@\n\n");
375                 push (@{$self->{python_pys}}, $target);
376         }
377 }
378
379 sub Manpage($$)
380 {
381         my ($self,$ctx) = @_;
382
383         my $path = output::add_dir_str($ctx->{BASEDIR}, $ctx->{MANPAGE});
384         push (@{$self->{manpages}}, $path);
385 }
386
387 sub ProtoHeader($$)
388 {
389         my ($self,$ctx) = @_;
390
391         my $target = "";
392         my $comment = "Creating ";
393
394         my $priv = undef;
395         my $pub = undef;
396
397         if (defined($ctx->{PRIVATE_PROTO_HEADER})) {
398                 $priv = output::add_dir_str($ctx->{BASEDIR}, $ctx->{PRIVATE_PROTO_HEADER});
399                 $target .= $priv;
400                 $comment .= $priv;
401                 if (defined($ctx->{PUBLIC_PROTO_HEADER})) {
402                         $comment .= " and ";
403                         $target.= " ";
404                 }
405                 push (@{$self->{proto_headers}}, $priv);
406         } else {
407                 $ctx->{PRIVATE_PROTO_HEADER} = $ctx->{PUBLIC_PROTO_HEADER};
408                 $priv = output::add_dir_str($ctx->{BASEDIR}, $ctx->{PRIVATE_PROTO_HEADER});
409         }
410
411         if (defined($ctx->{PUBLIC_PROTO_HEADER})) {
412                 $pub = output::add_dir_str($ctx->{BASEDIR}, $ctx->{PUBLIC_PROTO_HEADER});
413                 $comment .= $pub;
414                 $target .= $pub;
415                 push (@{$self->{proto_headers}}, $pub);
416         } else {
417                 $ctx->{PUBLIC_PROTO_HEADER} = $ctx->{PRIVATE_PROTO_HEADER};
418                 $pub = output::add_dir_str($ctx->{BASEDIR}, $ctx->{PUBLIC_PROTO_HEADER});
419         }
420
421         $self->output("$pub: $ctx->{MK_FILE} \$($ctx->{NAME}_OBJ_LIST:.o=.c) \$(srcdir)/script/mkproto.pl\n");
422         $self->output("\t\@echo \"$comment\"\n");
423         $self->output("\t\@\$(PERL) \$(srcdir)/script/mkproto.pl --srcdir=\$(srcdir) --builddir=\$(builddir) --private=$priv --public=$pub \$($ctx->{NAME}_OBJ_LIST)\n\n");
424 }
425
426 sub write($$)
427 {
428         my ($self, $file) = @_;
429
430         $self->output("MANPAGES = " . array2oneperline($self->{manpages})."\n");
431         $self->output("BIN_PROGS = " . array2oneperline($self->{bin_progs}) . "\n");
432         $self->output("SBIN_PROGS = " . array2oneperline($self->{sbin_progs}) . "\n");
433         $self->output("STATIC_LIBS = " . array2oneperline($self->{static_libs}) . "\n");
434         $self->output("SHARED_LIBS = " . array2oneperline($self->{shared_libs}) . "\n");
435         $self->output("PYTHON_DSOS = " . array2oneperline($self->{python_dsos}) . "\n");
436         $self->output("PYTHON_PYS = " . array2oneperline($self->{python_pys}) . "\n");
437         $self->output("PUBLIC_HEADERS = " . array2oneperline($self->{headers}) . "\n");
438         $self->output("PC_FILES = " . array2oneperline($self->{pc_files}) . "\n");
439         $self->output("ALL_OBJS = " . array2oneperline($self->{all_objs}) . "\n");
440         $self->output("PROTO_HEADERS = " . array2oneperline($self->{proto_headers}) .  "\n");
441         $self->output("PLUGINS = " . array2oneperline($self->{plugins}) . "\n");
442
443         $self->_prepare_mk_files();
444
445         $self->output($self->{mkfile});
446
447         if ($self->{automatic_deps}) {
448                 $self->output("
449 ifneq (\$(MAKECMDGOALS),clean)
450 ifneq (\$(MAKECMDGOALS),distclean)
451 ifneq (\$(MAKECMDGOALS),realdistclean)
452 ifneq (\$(SKIP_DEP_FILES),yes)
453 -include \$(DEP_FILES)
454 endif
455 endif
456 endif
457 endif
458
459 ifneq (\$(SKIP_DEP_FILES),yes)
460 clean::
461         \@echo Removing dependency files
462         \@find . -name '*.d' -o -name '*.hd' | xargs rm -f
463 endif
464 ");
465         } else {
466                 $self->output("include \$(srcdir)/static_deps.mk\n");
467         }
468
469         open(MAKEFILE,">$file") || die ("Can't open $file\n");
470         print MAKEFILE $self->{output};
471         close(MAKEFILE);
472
473         print __FILE__.": creating $file\n";
474 }
475
476 1;