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         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 $init_obj = "";
 128
 129         my $sane_subsystem = lc($ctx->{SUBSYSTEM});
 130         $sane_subsystem =~ s/^lib//;
 131
 132         if ($ctx->{TYPE} eq "PYTHON") {
 133                 $self->output("PYTHON_DSOS += $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
 134         } else {
 135                 $self->output("PLUGINS += $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
 136                 $self->output("installplugins:: $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
 137                 $self->output("\t\@echo Installing $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME} as \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
 138                 $self->output("\t\@mkdir -p \$(DESTDIR)\$(modulesdir)/$sane_subsystem/\n");
 139                 $self->output("\t\@cp $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME} \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
 140                 if (defined($ctx->{ALIASES})) {
 141                         foreach (@{$ctx->{ALIASES}}) {
 142                                 $self->output("\t\@rm -f \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$_.\$(SHLIBEXT)\n");
 143                                 $self->output("\t\@ln -fs $ctx->{LIBRARY_REALNAME} \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$_.\$(SHLIBEXT)\n");
 144                         }
 145                 }
 146
 147                 $self->output("uninstallplugins::\n");
 148                 $self->output("\t\@echo Uninstalling \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
 149                 $self->output("\t\@-rm \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
 150
 151                 if (defined($ctx->{ALIASES})) {
 152                         foreach (@{$ctx->{ALIASES}}) {
 153                                 $self->output("\t\@-rm \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$_.\$(SHLIBEXT)\n");
 154                         }
 155                 }
 156         }
 157
 158         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
 159         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
 160         $self->_prepare_list($ctx, "DEPEND_LIST");
 161         $self->_prepare_list($ctx, "LINK_FLAGS");
 162
 163         if (defined($ctx->{INIT_FUNCTION}) and $ctx->{TYPE} ne "PYTHON" and
 164                 $ctx->{INIT_FUNCTION_TYPE} =~ /\(\*\)/) {
 165                 my $init_fn = $ctx->{INIT_FUNCTION_TYPE};
 166                 $init_fn =~ s/\(\*\)/init_module/;
 167                 my $proto_fn = $ctx->{INIT_FUNCTION_TYPE};
 168                 $proto_fn =~ s/\(\*\)/$ctx->{INIT_FUNCTION}/;
 169
 170                 $self->output(<< "__EOD__"
 171 bin/$ctx->{NAME}_init_module.c:
 172         \@echo Creating \$\@
 173         \@echo \"#include \\\"includes.h\\\"\" > \$\@
 174         \@echo \"$proto_fn;\" >> \$\@
 175         \@echo \"_PUBLIC_ $init_fn\" >> \$\@
 176         \@echo \"{\" >> \$\@
 177         \@echo \"       return $ctx->{INIT_FUNCTION}();\" >> \$\@
 178         \@echo \"}\" >> \$\@
 179         \@echo \"\" >> \$\@
 180 __EOD__
 181 );
 182                 $init_obj = "bin/$ctx->{NAME}_init_module.o";
 183         }
 184
 185         $self->output(<< "__EOD__"
 186 #
 187
 188 $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}: \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST) $init_obj
 189         \@echo Linking \$\@
 190         \@mkdir -p $ctx->{SHAREDDIR}
 191         \@\$(MDLD) \$(LDFLAGS) \$(MDLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
 192                 \$($ctx->{NAME}\_FULL_OBJ_LIST) $init_obj \\
 193                 \$($ctx->{NAME}_LINK_FLAGS)
 194 __EOD__
 195 );
 196
 197         if (defined($ctx->{ALIASES})) {
 198                 foreach (@{$ctx->{ALIASES}}) {
 199                         $self->output("\t\@rm -f $ctx->{SHAREDDIR}/$_.\$(SHLIBEXT)\n");
 200                         $self->output("\t\@ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$_.\$(SHLIBEXT)\n");
 201                 }
 202         }
 203         $self->output("\n");
 204 }
 205
 206 sub SharedLibraryPrimitives($$)
 207 {
 208         my ($self,$ctx) = @_;
 209
 210         $self->output("$ctx->{NAME}_SOVERSION = $ctx->{SO_VERSION}\n") if (defined($ctx->{SO_VERSION}));
 211         $self->output("$ctx->{NAME}_VERSION = $ctx->{VERSION}\n") if (defined($ctx->{VERSION}));
 212
 213         if (not grep(/STATIC_LIBRARY/, @{$ctx->{OUTPUT_TYPE}})) {
 214                 $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
 215                 $self->_prepare_list($ctx, "FULL_OBJ_LIST");
 216         }
 217 }
 218
 219 sub SharedLibrary($$)
 220 {
 221         my ($self,$ctx) = @_;
 222
 223         $self->output("SHARED_LIBS += $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n") if (defined($ctx->{SO_VERSION}));
 224
 225         $self->_prepare_list($ctx, "DEPEND_LIST");
 226         $self->_prepare_list($ctx, "LINK_FLAGS");
 227
 228         $self->output(<< "__EOD__"
 229 $ctx->{RESULT_SHARED_LIBRARY}: \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST)
 230         \@echo Linking \$\@
 231         \@mkdir -p \$(\@D)
 232         \@\$(SHLD) \$(LDFLAGS) \$(SHLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
 233                 \$($ctx->{NAME}\_FULL_OBJ_LIST) \\
 234                 \$($ctx->{NAME}_LINK_FLAGS) \\
 235                 \$(if \$(SONAMEFLAG), \$(SONAMEFLAG)$ctx->{LIBRARY_SONAME})
 236 __EOD__
 237 );
 238         if ($ctx->{LIBRARY_REALNAME} ne $ctx->{LIBRARY_SONAME}) {
 239                 $self->output("\t\@test \$($ctx->{NAME}_VERSION) = \$($ctx->{NAME}_SOVERSION) || ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$ctx->{LIBRARY_SONAME}\n");
 240         }
 241         $self->output("ifdef $ctx->{NAME}_SOVERSION\n");
 242         $self->output("\t\@ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$ctx->{LIBRARY_DEBUGNAME}\n");
 243         $self->output("endif\n");
 244 }
 245
 246 sub MergedObj($$)
 247 {
 248         my ($self, $ctx) = @_;
 249
 250         return unless defined($ctx->{OUTPUT});
 251
 252         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
 253         $self->output(<< "__EOD__"
 254 #
 255 $ctx->{RESULT_MERGED_OBJ}: \$($ctx->{NAME}_OBJ_LIST)
 256         \@echo Partially linking \$@
 257         \@mkdir -p \$(\@D)
 258         \$(PARTLINK) -o \$@ \$($ctx->{NAME}_OBJ_LIST)
 259
 260 __EOD__
 261 );
 262 }
 263
 264 sub StaticLibrary($$)
 265 {
 266         my ($self,$ctx) = @_;
 267
 268         return unless (defined($ctx->{OBJ_FILES}));
 269
 270         $self->output("STATIC_LIBS += $ctx->{TARGET_STATIC_LIBRARY}\n") if ($ctx->{TYPE} eq "LIBRARY");
 271
 272         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
 273         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
 274
 275         $self->output("$ctx->{RESULT_STATIC_LIBRARY}: \$($ctx->{NAME}_FULL_OBJ_LIST)\n");
 276 }
 277
 278 sub Binary($$)
 279 {
 280         my ($self,$ctx) = @_;
 281
 282         unless (defined($ctx->{INSTALLDIR})) {
 283         } elsif ($ctx->{INSTALLDIR} eq "SBINDIR") {
 284                 $self->output("SBIN_PROGS += bin/$ctx->{BINARY}\n");
 285         } elsif ($ctx->{INSTALLDIR} eq "BINDIR") {
 286                 $self->output("BIN_PROGS += bin/$ctx->{BINARY}\n");
 287         }
 288
 289         $self->output("binaries:: $ctx->{TARGET_BINARY}\n");
 290
 291         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
 292         $self->_prepare_list($ctx, "DEPEND_LIST");
 293         $self->_prepare_list($ctx, "LINK_FLAGS");
 294
 295 $self->output(<< "__EOD__"
 296 $ctx->{RESULT_BINARY}: \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST)
 297         \@echo Linking \$\@
 298 __EOD__
 299         );
 300
 301         if (defined($ctx->{USE_HOSTCC}) && $ctx->{USE_HOSTCC} eq "YES") {
 302                 $self->output(<< "__EOD__"
 303         \@\$(HOSTLD) \$(HOSTLD_FLAGS) -L\${builddir}/bin/static -o \$\@ \$(INSTALL_LINK_FLAGS) \\
 304                 \$\($ctx->{NAME}_LINK_FLAGS)
 305 __EOD__
 306                 );
 307         } else {
 308                 $self->output(<< "__EOD__"
 309         \@\$(BNLD) \$(BNLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
 310                 \$\($ctx->{NAME}_LINK_FLAGS)
 311
 312 __EOD__
 313                 );
 314         }
 315 }
 316
 317 sub PythonFiles($$)
 318 {
 319         my ($self,$ctx) = @_;
 320
 321         foreach (@{$ctx->{PYTHON_FILES}}) {
 322                 my $target = "bin/python/".basename($_);
 323                 my $source = output::add_dir_str($ctx->{BASEDIR}, $_);
 324                 $self->output("$target: $source\n\n");
 325                 $self->output("PYTHON_PYS += $target\n");
 326         }
 327 }
 328
 329 sub ProtoHeader($$)
 330 {
 331         my ($self,$ctx) = @_;
 332
 333         my $priv = output::add_dir_str($ctx->{BASEDIR}, $ctx->{PRIVATE_PROTO_HEADER});
 334         $self->output("PROTO_HEADERS += $priv\n");
 335
 336         $self->output("$priv: $ctx->{MK_FILE} \$($ctx->{NAME}_OBJ_LIST:.o=.c) \$(srcdir)/script/mkproto.pl\n");
 337         $self->output("\t\@echo \"Creating \$@\"\n");
 338         $self->output("\t\@mkdir -p \$(\@D)\n");
 339         $self->output("\t\@\$(PERL) \$(srcdir)/script/mkproto.pl --srcdir=\$(srcdir) --builddir=\$(builddir) --public=/dev/null --private=\$@ \$($ctx->{NAME}_OBJ_LIST)\n\n");
 340 }
 341
 342 sub write($$)
 343 {
 344         my ($self, $file) = @_;
 345
 346         $self->output("ALL_OBJS = " . array2oneperline($self->{all_objs}) . "\n");
 347
 348         $self->_prepare_mk_files();
 349
 350         $self->output($self->{mkfile});
 351
 352         open(MAKEFILE,">$file") || die ("Can't open $file\n");
 353         print MAKEFILE $self->{output};
 354         close(MAKEFILE);
 355
 356         print __FILE__.": creating $file\n";
 357 }
 358
 359 my $sort_available = eval "use sort 'stable'; return 1;";
 360 $sort_available = 0 unless defined($sort_available);
 361
 362 sub by_path {
 363         return  1 if($a =~ m#^\-I/#);
 364         return -1 if($b =~ m#^\-I/#);
 365         return  0;
 366 }
 367
 368 sub CFlags($$)
 369 {
 370         my ($self, $key) = @_;
 371
 372         my $srcdir = $self->{config}->{srcdir};
 373         my $builddir = $self->{config}->{builddir};
 374
 375         my $src_ne_build = ($srcdir ne $builddir) ? 1 : 0;
 376
 377         return unless defined ($key->{OBJ_LIST});
 378         return unless defined ($key->{FINAL_CFLAGS});
 379         return unless (@{$key->{FINAL_CFLAGS}} > 0);
 380
 381         my @sorted_cflags = @{$key->{FINAL_CFLAGS}};
 382         if ($sort_available) {
 383                 @sorted_cflags = sort by_path @{$key->{FINAL_CFLAGS}};
 384         }
 385
 386         # Rewrite CFLAGS so that both the source and the build
 387         # directories are in the path.
 388         my @cflags = ();
 389         foreach my $flag (@sorted_cflags) {
 390                 if($src_ne_build) {
 391                                 if($flag =~ m#^-I([^/].*$)#) {
 392                                         my $dir = $1;
 393                                         $dir =~ s#^\$\((?:src|build)dir\)/?##;
 394                                 push(@cflags, "-I$builddir/$dir", "-I$srcdir/$dir");
 395                                         next;
 396                                 }
 397                 }
 398                 push(@cflags, $flag);
 399         }
 400
 401         my $cflags = join(' ', @cflags);
 402
 403         $self->output("\$(patsubst %.ho,%.d,\$($key->{NAME}_OBJ_LIST:.o=.d)) \$($key->{NAME}_OBJ_LIST): CFLAGS+= $cflags\n");
 404 }
 405
 406 1;