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