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 output($$)
  60 {
  61         my ($self, $text) = @_;
  62
  63         $self->{output} .= $text;
  64 }
  65
  66 sub _prepare_mk_files($)
  67 {
  68         my $self = shift;
  69         my @tmp = ();
  70
  71         foreach (@smb_build::config_mk::parsed_files) {
  72                 s/ .*$//g;
  73                 push (@tmp, $_);
  74         }
  75
  76         $self->output("
  77 ifneq (\$(MAKECMDGOALS),clean)
  78 ifneq (\$(MAKECMDGOALS),distclean)
  79 ifneq (\$(MAKECMDGOALS),realdistclean)
  80 ");
  81         $self->output("MK_FILES = " . array2oneperline(\@tmp) . "\n");
  82         $self->output("
  83 endif
  84 endif
  85 endif
  86 ");
  87 }
  88
  89 sub array2oneperline($)
  90 {
  91         my $array = shift;
  92         my $output = "";
  93
  94         foreach (@$array) {
  95                 next unless defined($_);
  96
  97                 $output .= " \\\n\t\t$_";
  98         }
  99
 100         return $output;
 101 }
 102
 103 sub _prepare_list($$$)
 104 {
 105         my ($self,$ctx,$var) = @_;
 106         my @tmparr = ();
 107
 108         push(@tmparr, @{$ctx->{$var}}) if defined($ctx->{$var});
 109
 110         my $tmplist = array2oneperline(\@tmparr);
 111         return if ($tmplist eq "");
 112
 113         $self->output("$ctx->{NAME}_$var =$tmplist\n");
 114 }
 115
 116 sub SharedModulePrimitives($$)
 117 {
 118         my ($self,$ctx) = @_;
 119
 120         #FIXME
 121 }
 122
 123 sub SharedModule($$)
 124 {
 125         my ($self,$ctx) = @_;
 126
 127         my $sane_subsystem = lc($ctx->{SUBSYSTEM});
 128         $sane_subsystem =~ s/^lib//;
 129
 130         if ($ctx->{TYPE} eq "PYTHON") {
 131                 $self->output("\$(call python_module_template," . basename($ctx->{NAME}) . ",$ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME})\n");
 132         } else {
 133                 $self->output("PLUGINS += $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
 134                 $self->output("installplugins:: $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
 135                 $self->output("\t\@echo Installing $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME} as \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
 136                 $self->output("\t\@mkdir -p \$(DESTDIR)\$(modulesdir)/$sane_subsystem/\n");
 137                 $self->output("\t\@cp $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME} \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
 138                 if (defined($ctx->{ALIASES})) {
 139                         foreach (@{$ctx->{ALIASES}}) {
 140                                 $self->output("\t\@ln -fs $ctx->{LIBRARY_REALNAME} \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$_.\$(SHLIBEXT)\n");
 141                         }
 142                 }
 143
 144                 $self->output("uninstallplugins::\n");
 145                 $self->output("\t\@echo Uninstalling \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
 146                 $self->output("\t\@-rm \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
 147
 148                 if (defined($ctx->{ALIASES})) {
 149                         foreach (@{$ctx->{ALIASES}}) {
 150                                 $self->output("\t\@-rm \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$_.\$(SHLIBEXT)\n");
 151                         }
 152                 }
 153         }
 154
 155         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
 156         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
 157         $self->_prepare_list($ctx, "DEPEND_LIST");
 158         $self->_prepare_list($ctx, "LINK_FLAGS");
 159
 160         if (defined($ctx->{INIT_FUNCTION}) and $ctx->{TYPE} ne "PYTHON" and
 161                 $ctx->{INIT_FUNCTION_TYPE} =~ /\(\*\)/) {
 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}_FULL_OBJ_LIST)
 168         \@echo Linking \$\@
 169         \@mkdir -p \$(\@D)
 170         \@\$(MDLD) \$(LDFLAGS) \$(MDLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
 171                 \$($ctx->{NAME}\_FULL_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, "FULL_OBJ_LIST");
 194         }
 195 }
 196
 197 sub SharedLibrary($$)
 198 {
 199         my ($self,$ctx) = @_;
 200
 201         $self->output("SHARED_LIBS += $ctx->{RESULT_SHARED_LIBRARY}\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 $ctx->{RESULT_SHARED_LIBRARY}: \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST)
 208         \@echo Linking \$\@
 209         \@mkdir -p \$(\@D)
 210         \@\$(SHLD) \$(LDFLAGS) \$(SHLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
 211                 \$($ctx->{NAME}\_FULL_OBJ_LIST) \\
 212                 \$($ctx->{NAME}_LINK_FLAGS) \\
 213                 \$(if \$(SONAMEFLAG), \$(SONAMEFLAG)$ctx->{LIBRARY_SONAME})
 214 ifneq ($ctx->{LIBRARY_REALNAME}, $ctx->{LIBRARY_SONAME})
 215         \@test \$($ctx->{NAME}_VERSION) = \$($ctx->{NAME}_SOVERSION) || ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$ctx->{LIBRARY_SONAME}
 216 endif
 217 ifdef $ctx->{NAME}_SOVERSION
 218         \@ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$ctx->{LIBRARY_DEBUGNAME}
 219 endif
 220 __EOD__
 221 );
 222 }
 223
 224 sub MergedObj($$)
 225 {
 226         my ($self, $ctx) = @_;
 227
 228         return unless defined($ctx->{OUTPUT});
 229
 230         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
 231         $self->output("\$(call partial_link_template, \$($ctx->{NAME}_OUTPUT), \$($ctx->{NAME}_OBJ_LIST))\n");
 232 }
 233
 234 sub StaticLibraryPrimitives($$)
 235 {
 236         my ($self,$ctx) = @_;
 237
 238         return unless (defined($ctx->{OBJ_FILES}));
 239
 240         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
 241         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
 242 }
 243
 244 sub InitFunctions($$)
 245 {
 246         my ($self, $ctx) = @_;
 247         $self->output("\$($ctx->{NAME}_OBJ_LIST): CFLAGS+=-DSTATIC_$ctx->{NAME}_MODULES=\"\$($ctx->{NAME}_INIT_FUNCTIONS)$ctx->{INIT_FUNCTION_SENTINEL}\"\n");
 248 }
 249
 250 sub StaticLibrary($$)
 251 {
 252         my ($self,$ctx) = @_;
 253
 254         return unless (defined($ctx->{OBJ_FILES}));
 255
 256         $self->output("STATIC_LIBS += $ctx->{RESULT_STATIC_LIBRARY}\n") if ($ctx->{TYPE} eq "LIBRARY");
 257         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
 258         $self->output("$ctx->{RESULT_STATIC_LIBRARY}: \$($ctx->{NAME}_FULL_OBJ_LIST)\n");
 259 }
 260
 261 sub Header($$)
 262 {
 263         my ($self,$ctx) = @_;
 264
 265         return if ($#{$ctx->{PUBLIC_HEADERS}} == -1);
 266
 267         $self->output("PUBLIC_HEADERS += \$(addprefix $ctx->{BASEDIR}/, " . join(" ", @{$ctx->{PUBLIC_HEADERS}}) . ")\n");
 268 }
 269
 270 sub Binary($$)
 271 {
 272         my ($self,$ctx) = @_;
 273
 274         unless (defined($ctx->{INSTALLDIR})) {
 275                 $self->output("binaries:: $ctx->{TARGET_BINARY}\n");
 276         } elsif ($ctx->{INSTALLDIR} eq "SBINDIR") {
 277                 $self->output("SBIN_PROGS += $ctx->{RESULT_BINARY}\n");
 278         } elsif ($ctx->{INSTALLDIR} eq "BINDIR") {
 279                 $self->output("BIN_PROGS += $ctx->{RESULT_BINARY}\n");
 280         }
 281
 282         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
 283         $self->_prepare_list($ctx, "DEPEND_LIST");
 284         $self->_prepare_list($ctx, "LINK_FLAGS");
 285
 286         if (defined($ctx->{USE_HOSTCC}) && $ctx->{USE_HOSTCC} eq "YES") {
 287 $self->output("\$(call host_binary_link_template, $ctx->{RESULT_BINARY}, \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST), \$($ctx->{NAME}_LINK_FLAGS))\n");
 288         } else {
 289 $self->output("\$(call binary_link_template, $ctx->{RESULT_BINARY}, \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST), \$($ctx->{NAME}_LINK_FLAGS))\n");
 290         }
 291 }
 292
 293 sub PythonFiles($$)
 294 {
 295         my ($self,$ctx) = @_;
 296
 297         foreach (@{$ctx->{PYTHON_FILES}}) {
 298                 $self->output("\$(call python_module_template," . basename($_) . ",\$(addprefix $ctx->{BASEDIR}/, $_))\n");
 299         }
 300 }
 301
 302 sub ProtoHeader($$)
 303 {
 304         my ($self,$ctx) = @_;
 305
 306         my $target = "\$(addprefix $ctx->{BASEDIR}/, $ctx->{PRIVATE_PROTO_HEADER})";
 307         $self->output("PROTO_HEADERS += $target\n");
 308
 309         $self->output("\$(call proto_header_template, $target, \$($ctx->{NAME}_OBJ_LIST:.o=.c))\n");
 310 }
 311
 312 sub write($$)
 313 {
 314         my ($self, $file) = @_;
 315
 316         $self->_prepare_mk_files();
 317
 318         $self->output($self->{mkfile});
 319
 320         open(MAKEFILE,">$file") || die ("Can't open $file\n");
 321         print MAKEFILE $self->{output};
 322         close(MAKEFILE);
 323
 324         print __FILE__.": creating $file\n";
 325 }
 326
 327 my $sort_available = eval "use sort 'stable'; return 1;";
 328 $sort_available = 0 unless defined($sort_available);
 329
 330 sub by_path {
 331         return  1 if($a =~ m#^\-I/#);
 332         return -1 if($b =~ m#^\-I/#);
 333         return  0;
 334 }
 335
 336 sub CFlags($$)
 337 {
 338         my ($self, $key) = @_;
 339
 340         my $srcdir = $self->{config}->{srcdir};
 341         my $builddir = $self->{config}->{builddir};
 342
 343         my $src_ne_build = ($srcdir ne $builddir) ? 1 : 0;
 344
 345         return unless defined ($key->{OBJ_LIST});
 346         return unless defined ($key->{FINAL_CFLAGS});
 347         return unless (@{$key->{FINAL_CFLAGS}} > 0);
 348
 349         my @sorted_cflags = @{$key->{FINAL_CFLAGS}};
 350         if ($sort_available) {
 351                 @sorted_cflags = sort by_path @{$key->{FINAL_CFLAGS}};
 352         }
 353
 354         # Rewrite CFLAGS so that both the source and the build
 355         # directories are in the path.
 356         my @cflags = ();
 357         foreach my $flag (@sorted_cflags) {
 358                 if($src_ne_build) {
 359                         if($flag =~ m#^-I([^/].*$)#) {
 360                                 my $dir = $1;
 361                                 $dir =~ s#^\$\((?:src|build)dir\)/?##;
 362                                 push(@cflags, "-I$builddir/$dir", "-I$srcdir/$dir");
 363                                 next;
 364                         }
 365                 }
 366                 push(@cflags, $flag);
 367         }
 368
 369         my $cflags = join(' ', @cflags);
 370
 371         my $ext = "o";
 372         $self->output("\$($key->{NAME}_OBJ_LIST) \$(patsubst %.ho,%.d,\$($key->{NAME}_OBJ_LIST:.o=.d)): CFLAGS+=$cflags\n");
 373 }
 374
 375 1;