2 # - create output for Makefile
4 # Copyright (C) Stefan (metze) Metzmacher 2004
5 # Copyright (C) Jelmer Vernooij 2005
6 # Released under the GNU GPL
8 package smb_build::makefile;
17 my ($myname, $config, $mkfile) = @_;
20 bless($self, $myname);
22 $self->_set_config($config);
26 $self->{mkfile} = $mkfile;
28 $self->output("################################################\n");
29 $self->output("# Autogenerated by build/smb_build/makefile.pm #\n");
30 $self->output("################################################\n");
38 my ($self, $config) = @_;
40 $self->{config} = $config;
42 if (not defined($self->{config}->{srcdir})) {
43 $self->{config}->{srcdir} = '.';
46 if (not defined($self->{config}->{builddir})) {
47 $self->{config}->{builddir} = '.';
50 if ($self->{config}->{prefix} eq "NONE") {
51 $self->{config}->{prefix} = $self->{config}->{ac_default_prefix};
54 if ($self->{config}->{exec_prefix} eq "NONE") {
55 $self->{config}->{exec_prefix} = $self->{config}->{prefix};
61 my ($self, $text) = @_;
63 $self->{output} .= $text;
66 sub _prepare_mk_files($)
71 foreach (@smb_build::config_mk::parsed_files) {
77 ifneq (\$(MAKECMDGOALS),clean)
78 ifneq (\$(MAKECMDGOALS),distclean)
79 ifneq (\$(MAKECMDGOALS),realdistclean)
81 $self->output("MK_FILES = " . array2oneperline(\@tmp) . "\n");
89 sub array2oneperline($)
95 next unless defined($_);
97 $output .= " \\\n\t\t$_";
103 sub _prepare_list($$$)
105 my ($self,$ctx,$var) = @_;
108 push(@tmparr, @{$ctx->{$var}}) if defined($ctx->{$var});
110 my $tmplist = array2oneperline(\@tmparr);
111 return if ($tmplist eq "");
113 $self->output("$ctx->{NAME}_$var =$tmplist\n");
116 sub SharedModulePrimitives($$)
118 my ($self,$ctx) = @_;
125 my ($self,$ctx) = @_;
127 my $sane_subsystem = lc($ctx->{SUBSYSTEM});
128 $sane_subsystem =~ s/^lib//;
130 if ($ctx->{TYPE} eq "PYTHON") {
131 $self->output("PYTHON_DSOS += $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
133 $self->output("PLUGINS += $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
134 $self->output("installplugins:: $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
135 $self->output("\t\@echo Installing $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME} as \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
136 $self->output("\t\@mkdir -p \$(DESTDIR)\$(modulesdir)/$sane_subsystem/\n");
137 $self->output("\t\@cp $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME} \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
138 if (defined($ctx->{ALIASES})) {
139 foreach (@{$ctx->{ALIASES}}) {
140 $self->output("\t\@ln -fs $ctx->{LIBRARY_REALNAME} \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$_.\$(SHLIBEXT)\n");
144 $self->output("uninstallplugins::\n");
145 $self->output("\t\@echo Uninstalling \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
146 $self->output("\t\@-rm \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
148 if (defined($ctx->{ALIASES})) {
149 foreach (@{$ctx->{ALIASES}}) {
150 $self->output("\t\@-rm \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$_.\$(SHLIBEXT)\n");
155 $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
156 $self->_prepare_list($ctx, "FULL_OBJ_LIST");
157 $self->_prepare_list($ctx, "DEPEND_LIST");
158 $self->_prepare_list($ctx, "LINK_FLAGS");
160 if (defined($ctx->{INIT_FUNCTION}) and $ctx->{TYPE} ne "PYTHON" and
161 $ctx->{INIT_FUNCTION_TYPE} =~ /\(\*\)/) {
162 $self->output("\$($ctx->{NAME}_OBJ_LIST): CFLAGS+=-D$ctx->{INIT_FUNCTION}=init_module\n");
165 $self->output(<< "__EOD__"
167 $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}: \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST)
170 \@\$(MDLD) \$(LDFLAGS) \$(MDLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
171 \$($ctx->{NAME}\_FULL_OBJ_LIST) \\
172 \$($ctx->{NAME}_LINK_FLAGS)
176 if (defined($ctx->{ALIASES})) {
177 foreach (@{$ctx->{ALIASES}}) {
178 $self->output("\t\@ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$_.\$(SHLIBEXT)\n");
184 sub SharedLibraryPrimitives($$)
186 my ($self,$ctx) = @_;
188 $self->output("$ctx->{NAME}_SOVERSION = $ctx->{SO_VERSION}\n") if (defined($ctx->{SO_VERSION}));
189 $self->output("$ctx->{NAME}_VERSION = $ctx->{VERSION}\n") if (defined($ctx->{VERSION}));
191 if (not grep(/STATIC_LIBRARY/, @{$ctx->{OUTPUT_TYPE}})) {
192 $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
193 $self->_prepare_list($ctx, "FULL_OBJ_LIST");
197 sub SharedLibrary($$)
199 my ($self,$ctx) = @_;
201 $self->output("SHARED_LIBS += $ctx->{RESULT_SHARED_LIBRARY}\n") if (defined($ctx->{SO_VERSION}));
203 $self->_prepare_list($ctx, "DEPEND_LIST");
204 $self->_prepare_list($ctx, "LINK_FLAGS");
206 $self->output(<< "__EOD__"
208 $ctx->{RESULT_SHARED_LIBRARY}: \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST)
211 \@\$(SHLD) \$(LDFLAGS) \$(SHLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
212 \$($ctx->{NAME}\_FULL_OBJ_LIST) \\
213 \$($ctx->{NAME}_LINK_FLAGS) \\
214 \$(if \$(SONAMEFLAG), \$(SONAMEFLAG)$ctx->{LIBRARY_SONAME})
217 if ($ctx->{LIBRARY_REALNAME} ne $ctx->{LIBRARY_SONAME}) {
218 $self->output("\t\@test \$($ctx->{NAME}_VERSION) = \$($ctx->{NAME}_SOVERSION) || ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$ctx->{LIBRARY_SONAME}\n");
220 $self->output("ifdef $ctx->{NAME}_SOVERSION\n");
221 $self->output("\t\@ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$ctx->{LIBRARY_DEBUGNAME}\n");
222 $self->output("endif\n");
227 my ($self, $ctx) = @_;
229 return unless defined($ctx->{OUTPUT});
231 $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
232 $self->output(<< "__EOD__"
234 $ctx->{RESULT_MERGED_OBJ}: \$($ctx->{NAME}_OBJ_LIST)
235 \@echo Partially linking \$@
237 \$(PARTLINK) -o \$@ \$^
243 sub StaticLibraryPrimitives($$)
245 my ($self,$ctx) = @_;
247 return unless (defined($ctx->{OBJ_FILES}));
249 $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
250 $self->_prepare_list($ctx, "FULL_OBJ_LIST");
253 sub InitFunctions($$)
255 my ($self, $ctx) = @_;
256 $self->output("\$($ctx->{NAME}_OBJ_LIST): CFLAGS+=-DSTATIC_$ctx->{NAME}_MODULES=\"\\\"\$($ctx->{NAME}_INIT_FUNCTIONS)$ctx->{INIT_FUNCTION_SENTINEL}\\\"\"\n");
259 sub StaticLibrary($$)
261 my ($self,$ctx) = @_;
263 return unless (defined($ctx->{OBJ_FILES}));
265 $self->output("STATIC_LIBS += $ctx->{RESULT_STATIC_LIBRARY}\n") if ($ctx->{TYPE} eq "LIBRARY");
266 $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
267 $self->output("$ctx->{RESULT_STATIC_LIBRARY}: \$($ctx->{NAME}_FULL_OBJ_LIST)\n");
272 my ($self,$ctx) = @_;
274 return if ($#{$ctx->{PUBLIC_HEADERS}} == -1);
276 $self->output("PUBLIC_HEADERS += \$(realpath \$(addprefix $ctx->{BASEDIR}/, " . join(" ", @{$ctx->{PUBLIC_HEADERS}}) . "))\n");
281 my ($self,$ctx) = @_;
283 unless (defined($ctx->{INSTALLDIR})) {
284 } elsif ($ctx->{INSTALLDIR} eq "SBINDIR") {
285 $self->output("SBIN_PROGS += $ctx->{RESULT_BINARY}\n");
286 } elsif ($ctx->{INSTALLDIR} eq "BINDIR") {
287 $self->output("BIN_PROGS += $ctx->{RESULT_BINARY}\n");
290 $self->output("binaries:: $ctx->{TARGET_BINARY}\n");
292 $self->_prepare_list($ctx, "FULL_OBJ_LIST");
293 $self->_prepare_list($ctx, "DEPEND_LIST");
294 $self->_prepare_list($ctx, "LINK_FLAGS");
296 $self->output(<< "__EOD__"
297 $ctx->{RESULT_BINARY}: \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST)
302 if (defined($ctx->{USE_HOSTCC}) && $ctx->{USE_HOSTCC} eq "YES") {
303 $self->output(<< "__EOD__"
304 \@\$(HOSTLD) \$(HOSTLD_FLAGS) -L\${builddir}/bin/static -o \$\@ \$(INSTALL_LINK_FLAGS) \\
305 \$\($ctx->{NAME}_LINK_FLAGS)
309 $self->output(<< "__EOD__"
310 \@\$(BNLD) \$(BNLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
311 \$\($ctx->{NAME}_LINK_FLAGS)
320 my ($self,$ctx) = @_;
322 foreach (@{$ctx->{PYTHON_FILES}}) {
323 my $target = "bin/python/".basename($_);
324 $self->output("$target: \$(realpath \$(addprefix $ctx->{BASEDIR}/, $_))\n\n");
325 $self->output("PYTHON_PYS += $target\n");
331 my ($self,$ctx) = @_;
333 $self->output("MANPAGES += \$(realpath \$(addprefix $ctx->{BASEDIR}/, $ctx->{MANPAGE}))\n");
338 my ($self,$ctx) = @_;
345 if (defined($ctx->{PRIVATE_PROTO_HEADER})) {
346 $priv = "\$(realpath \$(addprefix $ctx->{BASEDIR}/, $ctx->{PRIVATE_PROTO_HEADER}))";
348 if (defined($ctx->{PUBLIC_PROTO_HEADER})) {
351 $self->output("PROTO_HEADERS += $priv\n");
353 $ctx->{PRIVATE_PROTO_HEADER} = $ctx->{PUBLIC_PROTO_HEADER};
354 $priv = "\$(realpath \$(addprefix $ctx->{BASEDIR}/, $ctx->{PRIVATE_PROTO_HEADER}))";
357 if (defined($ctx->{PUBLIC_PROTO_HEADER})) {
358 $pub = "\$(realpath \$(addprefix $ctx->{BASEDIR}/, $ctx->{PUBLIC_PROTO_HEADER}))";
360 $self->output("PROTO_HEADERS += $pub\n");
362 $ctx->{PUBLIC_PROTO_HEADER} = $ctx->{PRIVATE_PROTO_HEADER};
363 $pub = "\$(realpath \$(addprefix $ctx->{BASEDIR}/, $ctx->{PUBLIC_PROTO_HEADER}))";
366 $self->output("$pub: $ctx->{MK_FILE} \$($ctx->{NAME}_OBJ_LIST:.o=.c) \$(srcdir)/script/mkproto.pl\n");
367 $self->output("\t\@echo \"Creating \$@\"\n");
368 $self->output("\t\@\$(PERL) \$(srcdir)/script/mkproto.pl --srcdir=\$(srcdir) --builddir=\$(builddir) --private=$priv --public=$pub \$($ctx->{NAME}_OBJ_LIST)\n\n");
373 my ($self, $file) = @_;
375 $self->_prepare_mk_files();
377 $self->output($self->{mkfile});
379 open(MAKEFILE,">$file") || die ("Can't open $file\n");
380 print MAKEFILE $self->{output};
383 print __FILE__.": creating $file\n";
386 my $sort_available = eval "use sort 'stable'; return 1;";
387 $sort_available = 0 unless defined($sort_available);
390 return 1 if($a =~ m#^\-I/#);
391 return -1 if($b =~ m#^\-I/#);
397 my ($self, $key) = @_;
399 my $srcdir = $self->{config}->{srcdir};
400 my $builddir = $self->{config}->{builddir};
402 my $src_ne_build = ($srcdir ne $builddir) ? 1 : 0;
404 return unless defined ($key->{OBJ_LIST});
405 return unless defined ($key->{FINAL_CFLAGS});
406 return unless (@{$key->{FINAL_CFLAGS}} > 0);
408 my @sorted_cflags = @{$key->{FINAL_CFLAGS}};
409 if ($sort_available) {
410 @sorted_cflags = sort by_path @{$key->{FINAL_CFLAGS}};
413 # Rewrite CFLAGS so that both the source and the build
414 # directories are in the path.
416 foreach my $flag (@sorted_cflags) {
418 if($flag =~ m#^-I([^/].*$)#) {
420 $dir =~ s#^\$\((?:src|build)dir\)/?##;
421 push(@cflags, "-I$builddir/$dir", "-I$srcdir/$dir");
425 push(@cflags, $flag);
428 my $cflags = join(' ', @cflags);
430 foreach (@{$key->{OBJ_LIST}}) {
433 $dfile =~ s/\.o$/.d/;
434 $dfile =~ s/\.ho$/.d/;
435 $self->output("$ofile $dfile: CFLAGS+= $cflags\n");