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