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 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->{SO_VERSION}";
  85                 $lib->{LIBRARY_REALNAME} = "$lib->{LIBRARY_REALNAME}.$lib->{VERSION}";
  86         }
  87
  88         $lib->{TARGET_SHARED_LIBRARY} = "$lib->{SHAREDDIR}/$lib->{LIBRARY_REALNAME}";
  89         $lib->{OUTPUT_SHARED_LIBRARY} = $lib->{TARGET_SHARED_LIBRARY};
  90 }
  91
  92 sub generate_static_library($)
  93 {
  94         my $lib = shift;
  95         my $link_name;
  96
  97         $lib->{DEPEND_LIST} = [];
  98
  99         $link_name = $lib->{NAME};
 100         $link_name =~ s/^LIB//;
 101
 102         $lib->{LIBRARY_NAME} = "lib".lc($link_name).".a";
 103
 104         if (defined($lib->{OBJ_FILES})) {
 105                 $lib->{TARGET_STATIC_LIBRARY} = "bin/static/$lib->{LIBRARY_NAME}";
 106                 $lib->{STATICDIR} = 'bin/static';
 107         } else {
 108                 $lib->{TARGET_STATIC_LIBRARY} = "";
 109         }
 110         $lib->{OUTPUT_STATIC_LIBRARY} = $lib->{TARGET_STATIC_LIBRARY};
 111 }
 112
 113 sub generate_binary($)
 114 {
 115         my $bin = shift;
 116
 117         $bin->{DEPEND_LIST} = [];
 118         push(@{$bin->{LINK_FLAGS}}, "\$($bin->{TYPE}_$bin->{NAME}\_OBJ_LIST)");
 119
 120         $bin->{DEBUGDIR} = "bin/";
 121         $bin->{TARGET_BINARY} = $bin->{OUTPUT_BINARY} = "$bin->{DEBUGDIR}/$bin->{NAME}";
 122         $bin->{BINARY} = $bin->{NAME};
 123 }
 124
 125 sub merge_array($$)
 126 {
 127         # $dest is a reference to an array
 128         # $src is an array
 129         my ($dest, $src) = @_;
 130
 131         return unless defined($src);
 132         return unless ($#{$src} >= 0);
 133
 134         foreach my $line (@{$src}) {
 135                 next if (grep /^$line$/, @{$$dest});
 136                 push(@{$$dest}, $line);
 137         }
 138 }
 139
 140 sub create_output($$)
 141 {
 142         my ($depend, $config) = @_;
 143         my $part;
 144
 145         foreach $part (values %{$depend}) {
 146                 next unless(defined($part->{OUTPUT_TYPE}));
 147
 148                 # Combine object lists
 149                 my @list = add_dir_array($part->{BASEDIR}, $part->{OBJ_FILES});
 150                 push(@{$part->{OBJ_LIST}}, @list) if defined($part->{OBJ_FILES});
 151
 152                 generate_binary($part) if grep(/BINARY/, @{$part->{OUTPUT_TYPE}});
 153                 generate_shared_library($part) if grep(/SHARED_LIBRARY/, @{$part->{OUTPUT_TYPE}});
 154                 generate_static_library($part) if grep(/STATIC_LIBRARY/, @{$part->{OUTPUT_TYPE}});
 155                 $part->{OUTPUT} = $part->{"OUTPUT_" . @{$part->{OUTPUT_TYPE}}[0]};
 156                 $part->{TARGET} = $part->{"TARGET_" . @{$part->{OUTPUT_TYPE}}[0]};
 157         }
 158
 159         foreach $part (values %{$depend}) {
 160                 next if not defined($part->{OUTPUT_TYPE});
 161
 162                 merge_array(\$part->{FINAL_CFLAGS}, $part->{CPPFLAGS});
 163                 merge_array(\$part->{FINAL_CFLAGS}, $part->{CFLAGS});
 164
 165                 foreach (@{$part->{UNIQUE_DEPENDENCIES_COMPILE}}) {
 166                         my $elem = $depend->{$_};
 167                         next if $elem == $part;
 168
 169                         merge_array(\$part->{FINAL_CFLAGS}, $elem->{CPPFLAGS});
 170                         merge_array(\$part->{FINAL_CFLAGS}, $elem->{CFLAGS});
 171                 }
 172
 173                 # Always import the link options of the unique dependencies
 174                 foreach (@{$part->{UNIQUE_DEPENDENCIES_LINK}}) {
 175                         my $elem = $depend->{$_};
 176                         next if $elem == $part;
 177
 178                         push(@{$part->{LINK_FLAGS}}, $elem->{OUTPUT}) if defined($elem->{OUTPUT});
 179                         push(@{$part->{LINK_FLAGS}}, @{$elem->{LIBS}}) if defined($elem->{LIBS});
 180                         push(@{$part->{LINK_FLAGS}},@{$elem->{LDFLAGS}}) if defined($elem->{LDFLAGS});
 181                         push(@{$part->{DEPEND_LIST}}, $elem->{TARGET}) if defined($elem->{TARGET});
 182                 }
 183         }
 184
 185         foreach $part (values %{$depend}) {
 186                 if (($part->{STANDARD_VISIBILITY} ne "default") and
 187                         ($config->{visibility_attribute} eq "yes")) {
 188                         push(@{$part->{FINAL_CFLAGS}}, "-fvisibility=$part->{STANDARD_VISIBILITY}");
 189                 }
 190         }
 191
 192         return $depend;
 193 }
 194
 195 1;