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