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         return $self;
  34 }
  35
  36 sub _set_config($$)
  37 {
  38         my ($self, $config) = @_;
  39
  40         $self->{config} = $config;
  41
  42         if (not defined($self->{config}->{srcdir})) {
  43                 $self->{config}->{srcdir} = '.';
  44         }
  45
  46         if (not defined($self->{config}->{builddir})) {
  47                 $self->{config}->{builddir}  = '.';
  48         }
  49
  50         if ($self->{config}->{prefix} eq "NONE") {
  51                 $self->{config}->{prefix} = $self->{config}->{ac_default_prefix};
  52         }
  53
  54         if ($self->{config}->{exec_prefix} eq "NONE") {
  55                 $self->{config}->{exec_prefix} = $self->{config}->{prefix};
  56         }
  57 }
  58
  59 sub _set_config($$)
  60 {
  61         my ($self, $config) = @_;
  62
  63         $self->{config} = $config;
  64
  65         if (not defined($self->{config}->{srcdir})) {
  66                 $self->{config}->{srcdir} = '.';
  67         }
  68
  69         if (not defined($self->{config}->{builddir})) {
  70                 $self->{config}->{builddir}  = '.';
  71         }
  72
  73         if ($self->{config}->{prefix} eq "NONE") {
  74                 $self->{config}->{prefix} = $self->{config}->{ac_default_prefix};
  75         }
  76
  77         if ($self->{config}->{exec_prefix} eq "NONE") {
  78                 $self->{config}->{exec_prefix} = $self->{config}->{prefix};
  79         }
  80 }
  81
  82 sub output($$)
  83 {
  84         my ($self, $text) = @_;
  85
  86         $self->{output} .= $text;
  87 }
  88
  89 sub _prepare_mk_files($)
  90 {
  91         my $self = shift;
  92         my @tmp = ();
  93
  94         foreach (@smb_build::config_mk::parsed_files) {
  95                 s/ .*$//g;
  96                 push (@tmp, $_);
  97         }
  98
  99         $self->output("
 100 ifneq (\$(MAKECMDGOALS),clean)
 101 ifneq (\$(MAKECMDGOALS),distclean)
 102 ifneq (\$(MAKECMDGOALS),realdistclean)
 103 ");
 104         $self->output("MK_FILES = " . array2oneperline(\@tmp) . "\n");
 105         $self->output("
 106 endif
 107 endif
 108 endif
 109 ");
 110 }
 111
 112 sub array2oneperline($)
 113 {
 114         my $array = shift;
 115         my $output = "";
 116
 117         foreach (@$array) {
 118                 next unless defined($_);
 119
 120                 $output .= " \\\n\t\t$_";
 121         }
 122
 123         return $output;
 124 }
 125
 126 sub _prepare_list($$$)
 127 {
 128         my ($self,$ctx,$var) = @_;
 129         my @tmparr = ();
 130
 131         push(@tmparr, @{$ctx->{$var}}) if defined($ctx->{$var});
 132
 133         my $tmplist = array2oneperline(\@tmparr);
 134         return if ($tmplist eq "");
 135
 136         $self->output("$ctx->{NAME}_$var =$tmplist\n");
 137 }
 138
 139 sub PythonModule($$)
 140 {
 141         my ($self,$ctx) = @_;
 142
 143         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
 144         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
 145         $self->_prepare_list($ctx, "DEPEND_LIST");
 146         $self->_prepare_list($ctx, "LINK_FLAGS");
 147
 148         $self->output("\$(eval \$(call python_c_module_template,$ctx->{LIBRARY_REALNAME},\$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST), \$($ctx->{NAME}\_FULL_OBJ_LIST) \$($ctx->{NAME}_LINK_FLAGS)))\n");
 149 }
 150
 151 sub SharedModule($$)
 152 {
 153         my ($self,$ctx) = @_;
 154
 155         my $sane_subsystem = lc($ctx->{SUBSYSTEM});
 156         $sane_subsystem =~ s/^lib//;
 157
 158         $self->output("PLUGINS += $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
 159         $self->output("installplugins:: $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
 160         $self->output("\t\@echo Installing $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME} as \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
 161         $self->output("\t\@mkdir -p \$(DESTDIR)\$(modulesdir)/$sane_subsystem/\n");
 162         $self->output("\t\@cp $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME} \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
 163         if (defined($ctx->{ALIASES})) {
 164                 foreach (@{$ctx->{ALIASES}}) {
 165                         $self->output("\t\@ln -fs $ctx->{LIBRARY_REALNAME} \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$_.\$(SHLIBEXT)\n");
 166                 }
 167         }
 168
 169         $self->output("uninstallplugins::\n");
 170         $self->output("\t\@echo Uninstalling \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
 171         $self->output("\t\@-rm \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
 172
 173         if (defined($ctx->{ALIASES})) {
 174                 foreach (@{$ctx->{ALIASES}}) {
 175                         $self->output("\t\@-rm \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$_.\$(SHLIBEXT)\n");
 176                 }
 177         }
 178
 179         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
 180         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
 181         $self->_prepare_list($ctx, "DEPEND_LIST");
 182         $self->_prepare_list($ctx, "LINK_FLAGS");
 183
 184         if (defined($ctx->{INIT_FUNCTION}) and $ctx->{INIT_FUNCTION_TYPE} =~ /\(\*\)/) {
 185                 $self->output("\$($ctx->{NAME}_OBJ_LIST): CFLAGS+=-D$ctx->{INIT_FUNCTION}=init_module\n");
 186         }
 187
 188         $self->output("\$(eval \$(call shared_module_template,$ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}, \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST), \$($ctx->{NAME}\_FULL_OBJ_LIST) \$($ctx->{NAME}_LINK_FLAGS)))\n");
 189
 190         if (defined($ctx->{ALIASES})) {
 191                 foreach (@{$ctx->{ALIASES}}) {
 192                         $self->output("$ctx->{SHAREDDIR}/$_.\$(SHLIBEXT): $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
 193                         $self->output("\t\@ln -fs \$(<F) \$@\n");
 194                         $self->output("PLUGINS += $ctx->{SHAREDDIR}/$_.\$(SHLIBEXT)\n");
 195                 }
 196         }
 197 }
 198
 199 sub SharedLibraryPrimitives($$)
 200 {
 201         my ($self,$ctx) = @_;
 202
 203         $self->output("$ctx->{NAME}_SOVERSION = $ctx->{SO_VERSION}\n") if (defined($ctx->{SO_VERSION}));
 204         $self->output("$ctx->{NAME}_VERSION = $ctx->{VERSION}\n") if (defined($ctx->{VERSION}));
 205
 206         if (not grep(/STATIC_LIBRARY/, @{$ctx->{OUTPUT_TYPE}})) {
 207                 $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
 208                 $self->_prepare_list($ctx, "FULL_OBJ_LIST");
 209         }
 210 }
 211
 212 sub SharedLibrary($$)
 213 {
 214         my ($self,$ctx) = @_;
 215
 216         $self->output("SHARED_LIBS += $ctx->{RESULT_SHARED_LIBRARY}\n") if (defined($ctx->{SO_VERSION}));
 217
 218         $self->_prepare_list($ctx, "DEPEND_LIST");
 219         $self->_prepare_list($ctx, "LINK_FLAGS");
 220
 221         $self->output(<< "__EOD__"
 222 $ctx->{RESULT_SHARED_LIBRARY}: \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST)
 223         \@echo Linking \$\@
 224         \@mkdir -p \$(\@D)
 225         \@\$(SHLD) \$(LDFLAGS) \$(SHLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
 226                 \$($ctx->{NAME}\_FULL_OBJ_LIST) \\
 227                 \$($ctx->{NAME}_LINK_FLAGS) \\
 228                 \$(if \$(SONAMEFLAG), \$(SONAMEFLAG)$ctx->{LIBRARY_SONAME})
 229 ifneq ($ctx->{LIBRARY_REALNAME}, $ctx->{LIBRARY_SONAME})
 230         \@test \$($ctx->{NAME}_VERSION) = \$($ctx->{NAME}_SOVERSION) || ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$ctx->{LIBRARY_SONAME}
 231 endif
 232 ifdef $ctx->{NAME}_SOVERSION
 233         \@ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$ctx->{LIBRARY_DEBUGNAME}
 234 endif
 235 __EOD__
 236 );
 237 }
 238
 239 sub MergedObj($$)
 240 {
 241         my ($self, $ctx) = @_;
 242
 243         return unless defined($ctx->{OUTPUT});
 244
 245         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
 246         $self->output("\$(call partial_link_template, \$($ctx->{NAME}_OUTPUT), \$($ctx->{NAME}_OBJ_LIST))\n");
 247 }
 248
 249 sub StaticLibraryPrimitives($$)
 250 {
 251         my ($self,$ctx) = @_;
 252
 253         return unless (defined($ctx->{OBJ_FILES}));
 254
 255         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
 256         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
 257 }
 258
 259 sub InitFunctions($$)
 260 {
 261         my ($self, $ctx) = @_;
 262         $self->output("\$($ctx->{NAME}_OBJ_LIST): CFLAGS+=-DSTATIC_$ctx->{NAME}_MODULES=\"\$($ctx->{NAME}_INIT_FUNCTIONS)$ctx->{INIT_FUNCTION_SENTINEL}\"\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->{RESULT_STATIC_LIBRARY}\n") if ($ctx->{TYPE} eq "LIBRARY");
 272         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
 273         $self->output("$ctx->{RESULT_STATIC_LIBRARY}: \$($ctx->{NAME}_FULL_OBJ_LIST)\n");
 274 }
 275
 276 sub Binary($$)
 277 {
 278         my ($self,$ctx) = @_;
 279
 280         unless (defined($ctx->{INSTALLDIR})) {
 281                 $self->output("binaries:: $ctx->{TARGET_BINARY}\n");
 282         } elsif ($ctx->{INSTALLDIR} eq "SBINDIR") {
 283                 $self->output("SBIN_PROGS += $ctx->{RESULT_BINARY}\n");
 284         } elsif ($ctx->{INSTALLDIR} eq "BINDIR") {
 285                 $self->output("BIN_PROGS += $ctx->{RESULT_BINARY}\n");
 286         }
 287
 288         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
 289         $self->_prepare_list($ctx, "DEPEND_LIST");
 290         $self->_prepare_list($ctx, "LINK_FLAGS");
 291
 292         if (defined($ctx->{USE_HOSTCC}) && $ctx->{USE_HOSTCC} eq "YES") {
 293 $self->output("\$(call host_binary_link_template, $ctx->{RESULT_BINARY}, \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST), \$($ctx->{NAME}_LINK_FLAGS))\n");
 294         } else {
 295 $self->output("\$(call binary_link_template, $ctx->{RESULT_BINARY}, \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST), \$($ctx->{NAME}_LINK_FLAGS))\n");
 296         }
 297 }
 298
 299 sub PythonFiles($$)
 300 {
 301         my ($self,$ctx) = @_;
 302
 303         foreach (@{$ctx->{PYTHON_FILES}}) {
 304                 $self->output("\$(eval \$(call python_py_module_template," . basename($_) . ",\$(addprefix $ctx->{BASEDIR}/, $_)))\n");
 305         }
 306 }
 307
 308 sub ProtoHeader($$)
 309 {
 310         my ($self,$ctx) = @_;
 311
 312         my $target = "\$(addprefix $ctx->{BASEDIR}/, $ctx->{PRIVATE_PROTO_HEADER})";
 313         $self->output("PROTO_HEADERS += $target\n");
 314         $self->output("\$(call proto_header_template, $target, \$($ctx->{NAME}_OBJ_LIST:.o=.c))\n");
 315 }
 316
 317 sub write($$)
 318 {
 319         my ($self, $file) = @_;
 320
 321         $self->_prepare_mk_files();
 322
 323         $self->output($self->{mkfile});
 324
 325         open(MAKEFILE,">$file") || die ("Can't open $file\n");
 326         print MAKEFILE $self->{output};
 327         close(MAKEFILE);
 328
 329         print __FILE__.": creating $file\n";
 330 }
 331
 332 my $sort_available = eval "use sort 'stable'; return 1;";
 333 $sort_available = 0 unless defined($sort_available);
 334
 335 sub by_path {
 336         return  1 if($a =~ m#^\-I/#);
 337         return -1 if($b =~ m#^\-I/#);
 338         return  0;
 339 }
 340
 341 sub CFlags($$)
 342 {
 343         my ($self, $key) = @_;
 344
 345         my $srcdir = $self->{config}->{srcdir};
 346         my $builddir = $self->{config}->{builddir};
 347
 348         my $src_ne_build = ($srcdir ne $builddir) ? 1 : 0;
 349
 350         return unless defined ($key->{OBJ_LIST});
 351         return unless defined ($key->{FINAL_CFLAGS});
 352         return unless (@{$key->{FINAL_CFLAGS}} > 0);
 353
 354         my @sorted_cflags = @{$key->{FINAL_CFLAGS}};
 355         if ($sort_available) {
 356                 @sorted_cflags = sort by_path @{$key->{FINAL_CFLAGS}};
 357         }
 358
 359         # Rewrite CFLAGS so that both the source and the build
 360         # directories are in the path.
 361         my @cflags = ();
 362         foreach my $flag (@sorted_cflags) {
 363                 if($src_ne_build) {
 364                         if($flag =~ m#^-I([^/].*$)#) {
 365                                 my $dir = $1;
 366                                 $dir =~ s#^\$\((?:src|build)dir\)/?##;
 367                                 push(@cflags, "-I$builddir/$dir", "-I$srcdir/$dir");
 368                                 next;
 369                         }
 370                 }
 371                 push(@cflags, $flag);
 372         }
 373
 374         my $cflags = join(' ', @cflags);
 375
 376         my $ext = "o";
 377         $self->output("\$($key->{NAME}_OBJ_LIST) \$(patsubst %.ho,%.d,\$($key->{NAME}_OBJ_LIST:.o=.d)): CFLAGS+=$cflags\n");
 378 }
 379
 380 my $sort_available = eval "use sort 'stable'; return 1;";
 381 $sort_available = 0 unless defined($sort_available);
 382
 383 sub by_path {
 384         return  1 if($a =~ m#^\-I/#);
 385         return -1 if($b =~ m#^\-I/#);
 386         return  0;
 387 }
 388
 389 sub CFlags($$)
 390 {
 391         my ($self, $key) = @_;
 392
 393         my $srcdir = $self->{config}->{srcdir};
 394         my $builddir = $self->{config}->{builddir};
 395
 396         my $src_ne_build = ($srcdir ne $builddir) ? 1 : 0;
 397
 398         return unless defined ($key->{OBJ_LIST});
 399         return unless defined ($key->{FINAL_CFLAGS});
 400         return unless (@{$key->{FINAL_CFLAGS}} > 0);
 401
 402         my @sorted_cflags = @{$key->{FINAL_CFLAGS}};
 403         if ($sort_available) {
 404                 @sorted_cflags = sort by_path @{$key->{FINAL_CFLAGS}};
 405         }
 406
 407         # Rewrite CFLAGS so that both the source and the build
 408         # directories are in the path.
 409         my @cflags = ();
 410         foreach my $flag (@sorted_cflags) {
 411                 if($src_ne_build) {
 412                                 if($flag =~ m#^-I([^/].*$)#) {
 413                                         my $dir = $1;
 414                                         $dir =~ s#^\$\((?:src|build)dir\)/?##;
 415                                 push(@cflags, "-I$builddir/$dir", "-I$srcdir/$dir");
 416                                         next;
 417                                 }
 418                 }
 419                 push(@cflags, $flag);
 420         }
 421
 422         my $cflags = join(' ', @cflags);
 423
 424         foreach (@{$key->{OBJ_LIST}}) {
 425                 my $ofile = $_;
 426                 my $dfile = $_;
 427                 $dfile =~ s/\.o$/.d/;
 428                 $dfile =~ s/\.ho$/.d/;
 429                 $self->output("$ofile $dfile: CFLAGS+= $cflags\n");
 430         }
 431 }
 432
 433 1;