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