source/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 add_dir_str($$)
  13 {
  14         my ($dir,$file) = @_;
  15         my $dirsep = "/";
  16
  17         $dir =~ s/^\.$//g;
  18         $dir =~ s/^\.\///g;
  19
  20         $dirsep = "" if ($dir eq "");
  21
  22         my $ret = $file;
  23         if (substr($ret, 0, 1) ne "\$") {
  24                 $ret = "$dir$dirsep$file";
  25                 $ret =~ s/([^\/\.]+)\/\.\.\///g;
  26                 $ret =~ s/([^\/\.]+)\/\.\.\///g;
  27         }
  28
  29         return $ret;
  30 }
  31
  32 sub add_dir_array($$)
  33 {
  34         my ($dir,$files) = @_;
  35         my @ret = ();
  36
  37         foreach (@{$files}) {
  38                 push (@ret, add_dir_str($dir, $_));
  39         }
  40
  41         return @ret;
  42 }
  43
  44 sub generate_shared_library($)
  45 {
  46         my $lib = shift;
  47         my $link_name;
  48         my $lib_name;
  49
  50         $lib->{DEPEND_LIST} = [];
  51
  52         $link_name = lc($lib->{NAME});
  53         $lib_name = $link_name;
  54
  55         if ($lib->{TYPE} eq "LIBRARY") {
  56                 $link_name = $lib->{NAME};
  57                 $link_name =~ s/^LIB//;
  58                 $link_name = lc($link_name);
  59                 $lib_name = "lib$link_name";
  60         }
  61
  62         if ($lib->{TYPE} eq "PYTHON") {
  63                 $lib->{SHAREDDIR} = "bin/python";
  64         } elsif (defined($lib->{LIBRARY_REALNAME})) {
  65                 $lib->{BASEDIR} =~ s/^\.\///g;
  66                 $lib->{SHAREDDIR} = $lib->{BASEDIR};
  67         } else {
  68                 if ($lib->{TYPE} eq "MODULE") {
  69                         my $sane_subsystem = lc($lib->{SUBSYSTEM});
  70                         $sane_subsystem =~ s/^lib//;
  71                         $lib->{SHAREDDIR} = "bin/modules/$sane_subsystem";
  72                         $lib->{LIBRARY_REALNAME} = $link_name;
  73                         $lib->{LIBRARY_REALNAME} =~ s/^$sane_subsystem\_//g;
  74                         $lib->{LIBRARY_REALNAME}.= ".\$(SHLIBEXT)";
  75                 } else {
  76                         $lib->{SHAREDDIR} = "bin/shared";
  77                         $lib->{LIBRARY_REALNAME} = "$lib_name.\$(SHLIBEXT)";
  78                 }
  79         }
  80
  81         $lib->{LIBRARY_DEBUGNAME} = $lib->{LIBRARY_REALNAME};
  82
  83         if (defined($lib->{VERSION}) and $config::config{SONAMEFLAG} ne "#") {
  84                 $lib->{LIBRARY_SONAME} = "$lib->{LIBRARY_REALNAME}.\$($lib->{NAME}_SOVERSION)";
  85                 $lib->{LIBRARY_REALNAME} = "$lib->{LIBRARY_REALNAME}.\$($lib->{NAME}_VERSION)";
  86         }
  87
  88         $lib->{RESULT_SHARED_LIBRARY} = "$lib->{SHAREDDIR}/$lib->{LIBRARY_REALNAME}";
  89         $lib->{OUTPUT_SHARED_LIBRARY} = "-l$link_name";
  90         $lib->{TARGET_SHARED_LIBRARY} = $lib->{RESULT_SHARED_LIBRARY};
  91 }
  92
  93 sub generate_merged_obj($)
  94 {
  95         my $lib = shift;
  96
  97         my $link_name = $lib->{NAME};
  98         $link_name =~ s/^LIB//;
  99
 100         if (defined($lib->{OBJ_FILES})) {
 101                 $lib->{MERGED_OBJNAME} = lc($link_name).".o";
 102                 $lib->{RESULT_MERGED_OBJ} = $lib->{OUTPUT_MERGED_OBJ} = "bin/mergedobj/$lib->{MERGED_OBJNAME}";
 103                 $lib->{TARGET_MERGED_OBJ} = $lib->{RESULT_MERGED_OBJ};
 104         } else {
 105                 $lib->{TARGET_MERGED_OBJ} = "";
 106                 $lib->{RESULT_MERGED_OBJ} = "";
 107         }
 108 }
 109
 110 sub generate_static_library($)
 111 {
 112         my $lib = shift;
 113         my $link_name;
 114
 115         $lib->{DEPEND_LIST} = [];
 116
 117         $link_name = $lib->{NAME};
 118         $link_name =~ s/^LIB//;
 119
 120         $lib->{LIBRARY_NAME} = "lib".lc($link_name).".a";
 121
 122         if (defined($lib->{OBJ_FILES})) {
 123                 $lib->{RESULT_STATIC_LIBRARY} = "bin/static/$lib->{LIBRARY_NAME}";
 124                 $lib->{TARGET_STATIC_LIBRARY} = $lib->{RESULT_STATIC_LIBRARY};
 125                 $lib->{STATICDIR} = 'bin/static';
 126                 $lib->{OUTPUT_STATIC_LIBRARY} = "-l".lc($link_name);
 127         } else {
 128                 $lib->{RESULT_STATIC_LIBRARY} = "";
 129                 $lib->{TARGET_STATIC_LIBRARY} = "";
 130                 $lib->{OUTPUT_STATIC_LIBRARY} = "";
 131         }
 132 }
 133
 134 sub generate_binary($)
 135 {
 136         my $bin = shift;
 137
 138         $bin->{DEPEND_LIST} = [];
 139         push(@{$bin->{LINK_FLAGS}}, "\$($bin->{NAME}\_FULL_OBJ_LIST)");
 140
 141         $bin->{DEBUGDIR} = "bin";
 142         $bin->{RESULT_BINARY} = $bin->{OUTPUT_BINARY} = "$bin->{DEBUGDIR}/$bin->{NAME}";
 143         $bin->{TARGET_BINARY} = $bin->{RESULT_BINARY};
 144         $bin->{BINARY} = $bin->{NAME};
 145 }
 146
 147 sub merge_array($$)
 148 {
 149         # $dest is a reference to an array
 150         # $src is an array
 151         my ($dest, $src) = @_;
 152
 153         return unless defined($src);
 154         return unless ($#{$src} >= 0);
 155
 156         foreach my $line (@{$src}) {
 157                 next if (grep /^$line$/, @{$$dest});
 158                 push(@{$$dest}, $line);
 159         }
 160 }
 161
 162 sub create_output($$)
 163 {
 164         my ($depend, $config) = @_;
 165         my $part;
 166
 167         foreach $part (values %{$depend}) {
 168                 next unless(defined($part->{OUTPUT_TYPE}));
 169
 170                 # Combine object lists
 171                 my @list = add_dir_array($part->{BASEDIR}, $part->{OBJ_FILES});
 172                 push(@{$part->{OBJ_LIST}}, @list) if defined($part->{OBJ_FILES});
 173
 174                 generate_binary($part) if grep(/BINARY/, @{$part->{OUTPUT_TYPE}});
 175                 generate_shared_library($part) if grep(/SHARED_LIBRARY/, @{$part->{OUTPUT_TYPE}});
 176                 generate_static_library($part) if grep(/STATIC_LIBRARY/, @{$part->{OUTPUT_TYPE}});
 177                 generate_merged_obj($part) if grep(/MERGED_OBJ/, @{$part->{OUTPUT_TYPE}});
 178                 $part->{OUTPUT} = $part->{"OUTPUT_" . @{$part->{OUTPUT_TYPE}}[0]};
 179                 $part->{TARGET} = $part->{"TARGET_" . @{$part->{OUTPUT_TYPE}}[0]};
 180         }
 181
 182         foreach $part (values %{$depend}) {
 183                 next if not defined($part->{OUTPUT_TYPE});
 184
 185                 merge_array(\$part->{FINAL_CFLAGS}, $part->{CPPFLAGS});
 186                 merge_array(\$part->{FINAL_CFLAGS}, $part->{CFLAGS});
 187
 188                 foreach (@{$part->{UNIQUE_DEPENDENCIES_COMPILE}}) {
 189                         my $elem = $depend->{$_};
 190                         next if $elem == $part;
 191
 192                         merge_array(\$part->{FINAL_CFLAGS}, $elem->{CPPFLAGS});
 193                         merge_array(\$part->{FINAL_CFLAGS}, $elem->{CFLAGS});
 194                 }
 195
 196                 # Always import the link options of the unique dependencies
 197                 foreach (@{$part->{UNIQUE_DEPENDENCIES_LINK}}) {
 198                         my $elem = $depend->{$_};
 199                         next if $elem == $part;
 200
 201                         push(@{$part->{LINK_FLAGS}}, @{$elem->{LIBS}}) if defined($elem->{LIBS});
 202                         push(@{$part->{LINK_FLAGS}}, @{$elem->{LDFLAGS}}) if defined($elem->{LDFLAGS});
 203                         if (defined($elem->{OUTPUT_TYPE}) and @{$elem->{OUTPUT_TYPE}}[0] eq "MERGED_OBJ") {
 204                                 push (@{$part->{FULL_OBJ_LIST}}, $elem->{TARGET});
 205                         } else {
 206                                 push(@{$part->{LINK_FLAGS}}, "\$($elem->{NAME}_OUTPUT)") if defined($elem->{OUTPUT});
 207                                 push(@{$part->{DEPEND_LIST}}, $elem->{TARGET}) if defined($elem->{TARGET});
 208                         }
 209                 }
 210         }
 211
 212         foreach $part (values %{$depend}) {
 213                 if (($part->{STANDARD_VISIBILITY} ne "default") and
 214                         ($config->{visibility_attribute} eq "yes")) {
 215                         push(@{$part->{FINAL_CFLAGS}}, "-fvisibility=$part->{STANDARD_VISIBILITY}");
 216                 }
 217         }
 218
 219         return $depend;
 220 }
 221
 222 1;