source4/build/smb_build/output.pm

   1 # SMB Build System
   2 # - the output generating functions
   3 #
   4 #  Copyright (C) Stefan (metze) Metzmacher 2004
   5 #  Copyright (C) Jelmer Vernooij 2004
   6 #  Released under the GNU GPL
   7
   8 package output;
   9 use strict;
  10
  11 sub add_dir($$)
  12 {
  13         my ($dir,$files) = @_;
  14         my @ret = ();
  15         my $dirsep = "/";
  16
  17         $dir =~ s/^\.$//g;
  18         $dir =~ s/^\.\///g;
  19
  20         $dirsep = "" if ($dir eq "");
  21
  22         foreach (@$files) {
  23                 if (substr($_, 0, 1) ne "\$") {
  24                         $_ = "$dir$dirsep$_";
  25                         s/([^\/\.]+)\/\.\.\///g;
  26                         s/([^\/\.]+)\/\.\.\///g;
  27                 }
  28                 push (@ret, $_);
  29         }
  30
  31         return @ret;
  32 }
  33
  34 sub generate_shared_library($)
  35 {
  36         my $lib = shift;
  37         my $link_name;
  38         my $lib_name;
  39
  40         $lib->{DEPEND_LIST} = [];
  41
  42         $link_name = lc($lib->{NAME});
  43         $lib_name = $link_name;
  44
  45         if ($lib->{TYPE} eq "LIBRARY") {
  46                 $link_name = $lib->{NAME};
  47                 $link_name =~ s/^LIB//;
  48                 $link_name = lc($link_name);
  49                 $lib_name = "lib$link_name";
  50         }
  51
  52         if ($lib->{TYPE} eq "PYTHON") {
  53                 $lib->{SHAREDDIR} = "bin/python";
  54         } elsif (defined($lib->{LIBRARY_REALNAME})) {
  55                 $lib->{BASEDIR} =~ s/^\.\///g;
  56                 $lib->{SHAREDDIR} = $lib->{BASEDIR};
  57         } else {
  58                 if ($lib->{TYPE} eq "MODULE") {
  59                         my $sane_subsystem = lc($lib->{SUBSYSTEM});
  60                         $sane_subsystem =~ s/^lib//;
  61                         $lib->{SHAREDDIR} = "bin/modules/$sane_subsystem";
  62                         $lib->{LIBRARY_REALNAME} = $link_name;
  63                         $lib->{LIBRARY_REALNAME} =~ s/^$sane_subsystem\_//g;
  64                         $lib->{LIBRARY_REALNAME}.= ".\$(SHLIBEXT)";
  65                 } else {
  66                         $lib->{SHAREDDIR} = "bin/shared";
  67                         $lib->{LIBRARY_REALNAME} = "$lib_name.\$(SHLIBEXT)";
  68                 }
  69         }
  70
  71         $lib->{LIBRARY_DEBUGNAME} = $lib->{LIBRARY_REALNAME};
  72
  73         if (defined($lib->{VERSION})) {
  74                 $lib->{LIBRARY_SONAME} = "$lib->{LIBRARY_REALNAME}.$lib->{SO_VERSION}";
  75                 $lib->{LIBRARY_REALNAME} = "$lib->{LIBRARY_REALNAME}.$lib->{VERSION}";
  76         }
  77
  78         $lib->{TARGET_SHARED_LIBRARY} = "$lib->{SHAREDDIR}/$lib->{LIBRARY_REALNAME}";
  79         $lib->{OUTPUT_SHARED_LIBRARY} = $lib->{TARGET_SHARED_LIBRARY};
  80 }
  81
  82 sub generate_static_library($)
  83 {
  84         my $lib = shift;
  85         my $link_name;
  86
  87         $lib->{DEPEND_LIST} = [];
  88
  89         $link_name = $lib->{NAME};
  90         $link_name =~ s/^LIB//;
  91
  92         $lib->{LIBRARY_NAME} = "lib".lc($link_name).".a";
  93
  94         if (defined($lib->{OBJ_FILES})) {
  95                 $lib->{TARGET_STATIC_LIBRARY} = "bin/static/$lib->{LIBRARY_NAME}";
  96                 $lib->{STATICDIR} = 'bin/static';
  97         } else {
  98                 $lib->{TARGET_STATIC_LIBRARY} = "";
  99         }
 100         $lib->{OUTPUT_STATIC_LIBRARY} = $lib->{TARGET_STATIC_LIBRARY};
 101 }
 102
 103 sub generate_binary($)
 104 {
 105         my $bin = shift;
 106
 107         $bin->{DEPEND_LIST} = [];
 108         push(@{$bin->{LINK_FLAGS}}, "\$($bin->{TYPE}_$bin->{NAME}\_OBJ_LIST)");
 109
 110         $bin->{DEBUGDIR} = "bin/";
 111         $bin->{TARGET_BINARY} = $bin->{OUTPUT_BINARY} = "$bin->{DEBUGDIR}/$bin->{NAME}";
 112         $bin->{BINARY} = $bin->{NAME};
 113 }
 114
 115 sub merge_array($$)
 116 {
 117         # $dest is a reference to an array
 118         # $src is an array
 119         my ($dest, $src) = @_;
 120
 121         return unless defined($src);
 122         return unless ($#{$src} >= 0);
 123
 124         foreach my $line (@{$src}) {
 125                 next if (grep /^$line$/, @{$$dest});
 126                 push(@{$$dest}, $line);
 127         }
 128 }
 129
 130 sub create_output($$)
 131 {
 132         my ($depend, $config) = @_;
 133         my $part;
 134
 135         foreach $part (values %{$depend}) {
 136                 next unless(defined($part->{OUTPUT_TYPE}));
 137
 138                 # Combine object lists
 139                 push(@{$part->{OBJ_LIST}}, add_dir($part->{BASEDIR}, $part->{OBJ_FILES})) if defined($part->{OBJ_FILES});
 140
 141                 generate_binary($part) if grep(/BINARY/, @{$part->{OUTPUT_TYPE}});
 142                 generate_shared_library($part) if grep(/SHARED_LIBRARY/, @{$part->{OUTPUT_TYPE}});
 143                 generate_static_library($part) if grep(/STATIC_LIBRARY/, @{$part->{OUTPUT_TYPE}});
 144                 $part->{OUTPUT} = $part->{"OUTPUT_" . @{$part->{OUTPUT_TYPE}}[0]};
 145                 $part->{TARGET} = $part->{"TARGET_" . @{$part->{OUTPUT_TYPE}}[0]};
 146         }
 147
 148         foreach $part (values %{$depend}) {
 149                 next if not defined($part->{OUTPUT_TYPE});
 150
 151                 merge_array(\$part->{FINAL_CFLAGS}, $part->{CPPFLAGS});
 152                 merge_array(\$part->{FINAL_CFLAGS}, $part->{CFLAGS});
 153
 154                 foreach (@{$part->{UNIQUE_DEPENDENCIES_COMPILE}}) {
 155                         my $elem = $depend->{$_};
 156                         next if $elem == $part;
 157
 158                         merge_array(\$part->{FINAL_CFLAGS}, $elem->{CPPFLAGS});
 159                         merge_array(\$part->{FINAL_CFLAGS}, $elem->{CFLAGS});
 160                 }
 161
 162                 # Always import the link options of the unique dependencies
 163                 foreach (@{$part->{UNIQUE_DEPENDENCIES_LINK}}) {
 164                         my $elem = $depend->{$_};
 165                         next if $elem == $part;
 166
 167                         push(@{$part->{LINK_FLAGS}}, $elem->{OUTPUT}) if defined($elem->{OUTPUT});
 168                         push(@{$part->{LINK_FLAGS}}, @{$elem->{LIBS}}) if defined($elem->{LIBS});
 169                         push(@{$part->{LINK_FLAGS}},@{$elem->{LDFLAGS}}) if defined($elem->{LDFLAGS});
 170                         push(@{$part->{DEPEND_LIST}}, $elem->{TARGET}) if defined($elem->{TARGET});
 171                 }
 172         }
 173
 174         foreach $part (values %{$depend}) {
 175                 if (($part->{STANDARD_VISIBILITY} ne "default") and
 176                         ($config->{visibility_attribute} eq "yes")) {
 177                         push(@{$part->{FINAL_CFLAGS}}, "-fvisibility=$part->{STANDARD_VISIBILITY}");
 178                 }
 179         }
 180
 181         return $depend;
 182 }
 183
 184 1;