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 use smb_build::config;
  11
  12 sub generate_shared_library($)
  13 {
  14         my $lib = shift;
  15         my $link_name;
  16         my $lib_name;
  17
  18         $lib->{DEPEND_LIST} = [];
  19
  20         $link_name = lc($lib->{NAME});
  21         $lib_name = $link_name;
  22
  23         if ($lib->{TYPE} eq "LIBRARY") {
  24                 $link_name = $lib->{NAME};
  25                 $link_name =~ s/^LIB//;
  26                 $link_name = lc($link_name);
  27                 $lib_name = "lib$link_name";
  28         }
  29
  30         if ($lib->{TYPE} eq "PYTHON") {
  31                 $lib->{SHAREDDIR} = "bin/python";
  32         } elsif (defined($lib->{LIBRARY_REALNAME})) {
  33                 $lib->{BASEDIR} =~ s/^\.\///g;
  34                 $lib->{SHAREDDIR} = $lib->{BASEDIR};
  35         } else {
  36                 if ($lib->{TYPE} eq "MODULE") {
  37                         my $sane_subsystem = lc($lib->{SUBSYSTEM});
  38                         $sane_subsystem =~ s/^lib//;
  39                         $lib->{SHAREDDIR} = "bin/modules/$sane_subsystem";
  40                         $lib->{LIBRARY_REALNAME} = $link_name;
  41                         $lib->{LIBRARY_REALNAME} =~ s/^$sane_subsystem\_//g;
  42                         $lib->{LIBRARY_REALNAME}.= ".\$(SHLIBEXT)";
  43                 } else {
  44                         $lib->{SHAREDDIR} = "bin/shared";
  45                         $lib->{LIBRARY_REALNAME} = "$lib_name.\$(SHLIBEXT)";
  46                 }
  47         }
  48
  49         $lib->{LIBRARY_DEBUGNAME} = $lib->{LIBRARY_REALNAME};
  50
  51         if (defined($lib->{VERSION}) and $config::config{SONAMEFLAG} ne "#") {
  52                 $lib->{LIBRARY_SONAME} = "$lib->{LIBRARY_REALNAME}.\$($lib->{NAME}_SOVERSION)";
  53                 $lib->{LIBRARY_REALNAME} = "$lib->{LIBRARY_REALNAME}.\$($lib->{NAME}_VERSION)";
  54         }
  55
  56         $lib->{RESULT_SHARED_LIBRARY} = "$lib->{SHAREDDIR}/$lib->{LIBRARY_REALNAME}";
  57         $lib->{OUTPUT_SHARED_LIBRARY} = "-l$link_name";
  58         $lib->{TARGET_SHARED_LIBRARY} = $lib->{RESULT_SHARED_LIBRARY};
  59 }
  60
  61 sub generate_merged_obj($)
  62 {
  63         my $lib = shift;
  64
  65         my $link_name = $lib->{NAME};
  66         $link_name =~ s/^LIB//;
  67
  68         if (defined($lib->{OBJ_FILES})) {
  69                 $lib->{MERGED_OBJNAME} = lc($link_name).".o";
  70                 $lib->{RESULT_MERGED_OBJ} = $lib->{OUTPUT_MERGED_OBJ} = "bin/mergedobj/$lib->{MERGED_OBJNAME}";
  71                 $lib->{TARGET_MERGED_OBJ} = $lib->{RESULT_MERGED_OBJ};
  72         } else {
  73                 $lib->{TARGET_MERGED_OBJ} = "";
  74                 $lib->{RESULT_MERGED_OBJ} = "";
  75         }
  76 }
  77
  78 sub generate_static_library($)
  79 {
  80         my $lib = shift;
  81         my $link_name;
  82
  83         $lib->{DEPEND_LIST} = [];
  84
  85         $link_name = $lib->{NAME};
  86         $link_name =~ s/^LIB//;
  87
  88         $lib->{LIBRARY_NAME} = "lib".lc($link_name).".a";
  89
  90         if (defined($lib->{OBJ_FILES})) {
  91                 $lib->{RESULT_STATIC_LIBRARY} = "bin/static/$lib->{LIBRARY_NAME}";
  92                 $lib->{TARGET_STATIC_LIBRARY} = $lib->{RESULT_STATIC_LIBRARY};
  93                 $lib->{STATICDIR} = 'bin/static';
  94                 $lib->{OUTPUT_STATIC_LIBRARY} = "-l".lc($link_name);
  95         } else {
  96                 $lib->{RESULT_STATIC_LIBRARY} = "";
  97                 $lib->{TARGET_STATIC_LIBRARY} = "";
  98                 $lib->{OUTPUT_STATIC_LIBRARY} = "";
  99         }
 100 }
 101
 102 sub generate_binary($)
 103 {
 104         my $bin = shift;
 105
 106         $bin->{DEPEND_LIST} = [];
 107         push(@{$bin->{LINK_FLAGS}}, "\$($bin->{NAME}\_FULL_OBJ_LIST)");
 108
 109         $bin->{DEBUGDIR} = "bin";
 110         $bin->{RESULT_BINARY} = $bin->{OUTPUT_BINARY} = "$bin->{DEBUGDIR}/$bin->{NAME}";
 111         $bin->{TARGET_BINARY} = $bin->{RESULT_BINARY};
 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                 if (defined($part->{OBJ_FILES})) {
 140                         my $list;
 141
 142                         $list = join(" ", @{$part->{OBJ_FILES}});
 143                         unless ($list =~ /^\.\//) {
 144                                 $list = "\$(addprefix $part->{BASEDIR}/, $list)"
 145                         }
 146                         push(@{$part->{OBJ_LIST}}, $list);
 147                 }
 148
 149                 generate_binary($part) if grep(/BINARY/, @{$part->{OUTPUT_TYPE}});
 150                 generate_shared_library($part) if grep(/SHARED_LIBRARY/, @{$part->{OUTPUT_TYPE}});
 151                 generate_static_library($part) if grep(/STATIC_LIBRARY/, @{$part->{OUTPUT_TYPE}});
 152                 generate_merged_obj($part) if grep(/MERGED_OBJ/, @{$part->{OUTPUT_TYPE}});
 153                 $part->{OUTPUT} = $part->{"OUTPUT_" . @{$part->{OUTPUT_TYPE}}[0]};
 154                 $part->{TARGET} = $part->{"TARGET_" . @{$part->{OUTPUT_TYPE}}[0]};
 155         }
 156
 157         foreach $part (values %{$depend}) {
 158                 next if not defined($part->{OUTPUT_TYPE});
 159
 160                 merge_array(\$part->{FINAL_CFLAGS}, $part->{CPPFLAGS});
 161                 merge_array(\$part->{FINAL_CFLAGS}, $part->{CFLAGS});
 162
 163                 foreach (@{$part->{UNIQUE_DEPENDENCIES_ALL}}) {
 164                         my $elem = $depend->{$_};
 165                         next if $elem == $part;
 166
 167                         merge_array(\$part->{FINAL_CFLAGS}, $elem->{CPPFLAGS});
 168                         merge_array(\$part->{FINAL_CFLAGS}, $elem->{CFLAGS});
 169                 }
 170
 171                 # Always import the link options of the unique dependencies
 172                 foreach (@{$part->{UNIQUE_DEPENDENCIES_LINK}}) {
 173                         my $elem = $depend->{$_};
 174                         next if $elem == $part;
 175
 176                         push(@{$part->{LINK_FLAGS}}, @{$elem->{LIBS}}) if defined($elem->{LIBS});
 177                         push(@{$part->{LINK_FLAGS}}, @{$elem->{LDFLAGS}}) if defined($elem->{LDFLAGS});
 178                         if (defined($elem->{OUTPUT_TYPE}) and @{$elem->{OUTPUT_TYPE}}[0] eq "MERGED_OBJ") {
 179                                 push (@{$part->{FULL_OBJ_LIST}}, $elem->{TARGET});
 180                         } else {
 181                                 push(@{$part->{LINK_FLAGS}}, "\$($elem->{NAME}_OUTPUT)") if defined($elem->{OUTPUT});
 182                                 push(@{$part->{DEPEND_LIST}}, $elem->{TARGET}) if defined($elem->{TARGET});
 183                         }
 184                 }
 185         }
 186
 187         foreach $part (values %{$depend}) {
 188                 if (defined($part->{STANDARD_VISIBILITY}) and ($part->{STANDARD_VISIBILITY} ne "default") and
 189                         ($config->{visibility_attribute} eq "yes")) {
 190                         push(@{$part->{FINAL_CFLAGS}}, "-fvisibility=$part->{STANDARD_VISIBILITY}");
 191                 }
 192         }
 193
 194         return $depend;
 195 }
 196
 197 1;