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