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::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         $lns .= "\nifdef $ctx->{NAME}_SOVERSION";
 249         $lns .= "\n\t\@ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$ctx->{LIBRARY_DEBUGNAME}";
 250         $lns .= "\nendif";
 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 \$(\@D)
 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 \$(\@D)
 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 Binary($$)
 299 {
 300         my ($self,$ctx) = @_;
 301
 302         unless (defined($ctx->{INSTALLDIR})) {
 303         } elsif ($ctx->{INSTALLDIR} eq "SBINDIR") {
 304                 $self->output("SBIN_PROGS += bin/$ctx->{BINARY}\n");
 305         } elsif ($ctx->{INSTALLDIR} eq "BINDIR") {
 306                 $self->output("BIN_PROGS += bin/$ctx->{BINARY}\n");
 307         }
 308
 309         $self->output("binaries:: $ctx->{TARGET_BINARY}\n");
 310
 311         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
 312         $self->_prepare_list($ctx, "DEPEND_LIST");
 313         $self->_prepare_list($ctx, "LINK_FLAGS");
 314
 315 $self->output(<< "__EOD__"
 316 $ctx->{RESULT_BINARY}: \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST)
 317         \@echo Linking \$\@
 318 __EOD__
 319         );
 320
 321         if (defined($ctx->{USE_HOSTCC}) && $ctx->{USE_HOSTCC} eq "YES") {
 322                 $self->output(<< "__EOD__"
 323         \@\$(HOSTLD) \$(HOSTLD_FLAGS) -L\${builddir}/bin/static -o \$\@ \$(INSTALL_LINK_FLAGS) \\
 324                 \$\($ctx->{NAME}_LINK_FLAGS)
 325 __EOD__
 326                 );
 327         } else {
 328                 $self->output(<< "__EOD__"
 329         \@\$(BNLD) \$(BNLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
 330                 \$\($ctx->{NAME}_LINK_FLAGS)
 331
 332 __EOD__
 333                 );
 334         }
 335 }
 336
 337 sub PythonFiles($$)
 338 {
 339         my ($self,$ctx) = @_;
 340
 341         foreach (@{$ctx->{PYTHON_FILES}}) {
 342                 my $target = "bin/python/".basename($_);
 343                 my $source = output::add_dir_str($ctx->{BASEDIR}, $_);
 344                 $self->output("$target: $source\n\n");
 345                 $self->output("PYTHON_PYS += $target\n");
 346         }
 347 }
 348
 349 sub ProtoHeader($$)
 350 {
 351         my ($self,$ctx) = @_;
 352
 353         my $priv = output::add_dir_str($ctx->{BASEDIR}, $ctx->{PRIVATE_PROTO_HEADER});
 354         $self->output("PROTO_HEADERS += $priv\n");
 355
 356         $self->output("$priv: $ctx->{MK_FILE} \$($ctx->{NAME}_OBJ_LIST:.o=.c) \$(srcdir)/script/mkproto.pl\n");
 357         $self->output("\t\@echo \"Creating \$@\"\n");
 358         $self->output("\t\@mkdir -p \$(\@D)\n");
 359         $self->output("\t\@\$(PERL) \$(srcdir)/script/mkproto.pl --srcdir=\$(srcdir) --builddir=\$(builddir) --all=\$@ \$($ctx->{NAME}_OBJ_LIST)\n\n");
 360 }
 361
 362 sub write($$)
 363 {
 364         my ($self, $file) = @_;
 365
 366         $self->output("ALL_OBJS = " . array2oneperline($self->{all_objs}) . "\n");
 367
 368         $self->_prepare_mk_files();
 369
 370         $self->output($self->{mkfile});
 371
 372         if ($self->{automatic_deps}) {
 373                 $self->output("
 374 ifneq (\$(MAKECMDGOALS),clean)
 375 ifneq (\$(MAKECMDGOALS),distclean)
 376 ifneq (\$(MAKECMDGOALS),realdistclean)
 377 ifneq (\$(SKIP_DEP_FILES),yes)
 378 -include \$(DEP_FILES)
 379 endif
 380 endif
 381 endif
 382 endif
 383
 384 ifneq (\$(SKIP_DEP_FILES),yes)
 385 clean::
 386         \@echo Removing dependency files
 387         \@find . -name '*.d' -o -name '*.hd' | xargs rm -f
 388 endif
 389 ");
 390         } else {
 391                 $self->output("include \$(srcdir)/static_deps.mk\n");
 392         }
 393
 394         open(MAKEFILE,">$file") || die ("Can't open $file\n");
 395         print MAKEFILE $self->{output};
 396         close(MAKEFILE);
 397
 398         print __FILE__.": creating $file\n";
 399 }
 400
 401 1;