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
  16         $dir =~ s/^\.\///g;
  17
  18         foreach (@$files) {
  19                 if (substr($_, 0, 1) ne "\$") {
  20                         $_ = "$dir/$_";
  21                         s/([^\/\.]+)\/\.\.\///g;
  22                 }
  23                 push (@ret, $_);
  24         }
  25
  26         return @ret;
  27 }
  28
  29 sub generate_mergedobj($)
  30 {
  31         my $subsys = shift;
  32
  33         $subsys->{OUTPUT} = $subsys->{TARGET} = "bin/subsystems/$subsys->{TYPE}_$subsys->{NAME}.o";
  34 }
  35
  36 sub generate_objlist($)
  37 {
  38         my $subsys = shift;
  39
  40         $subsys->{TARGET} = "bin/.$subsys->{TYPE}_$subsys->{NAME}";
  41         $subsys->{OUTPUT} = "\$($subsys->{TYPE}_$subsys->{NAME}_OBJ_LIST)";
  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         $lib->{LINK_FLAGS} = ["\$($lib->{TYPE}_$lib->{NAME}\_OBJ_LIST)"];
  52
  53         $link_name = lc($lib->{NAME});
  54         $lib_name = $link_name;
  55
  56         if ($lib->{TYPE} eq "LIBRARY") {
  57                 $link_name = $lib->{NAME};
  58                 $link_name =~ s/^LIB//;
  59                 $link_name = lc($link_name);
  60                 $lib_name = "lib$link_name";
  61         }
  62
  63         if (defined($lib->{LIBRARY_REALNAME})) {
  64                 $lib->{BASEDIR} =~ s/^\.\///g;
  65                 $lib->{LIBRARY_REALNAME} = "$lib->{LIBRARY_REALNAME}";
  66                 $lib->{DEBUGDIR} = $lib->{RELEASEDIR} = $lib->{BASEDIR};
  67         } else {
  68                 if ($lib->{TYPE} eq "MODULE") {
  69                         $lib->{DEBUGDIR} = "bin/modules/$lib->{SUBSYSTEM}";
  70                         $lib->{RELEASEDIR} = "bin/install/modules/$lib->{SUBSYSTEM}";
  71                         $lib->{LIBRARY_REALNAME} = $link_name;
  72                         $lib->{LIBRARY_REALNAME} =~ s/^$lib->{SUBSYSTEM}_//g;
  73                         $lib->{LIBRARY_REALNAME}.= ".\$(SHLIBEXT)";
  74                 } else {
  75                         $lib->{DEBUGDIR} = "bin";
  76                         $lib->{RELEASEDIR} = "bin/install";
  77                         $lib->{LIBRARY_REALNAME} = "$lib_name.\$(SHLIBEXT)";
  78                 }
  79         }
  80
  81         if (defined($lib->{VERSION})) {
  82                 $lib->{LIBRARY_SONAME} = "$lib->{LIBRARY_REALNAME}.$lib->{SO_VERSION}";
  83                 $lib->{LIBRARY_REALNAME} = "$lib->{LIBRARY_REALNAME}.$lib->{VERSION}";
  84         }
  85
  86         $lib->{TARGET} = "$lib->{DEBUGDIR}/$lib->{LIBRARY_REALNAME}";
  87         $lib->{OUTPUT} = $lib->{TARGET};
  88 }
  89
  90 sub generate_static_library($)
  91 {
  92         my $lib = shift;
  93         my $link_name;
  94
  95         $lib->{DEPEND_LIST} = [];
  96
  97         $link_name = $lib->{NAME};
  98         $link_name =~ s/^LIB//;
  99
 100         $lib->{LIBRARY_NAME} = "lib".lc($link_name).".a";
 101         $lib->{LINK_FLAGS} = ["\$($lib->{TYPE}_$lib->{NAME}\_OBJ_LIST)"];
 102
 103         $lib->{TARGET} = "bin/$lib->{LIBRARY_NAME}";
 104         $lib->{OUTPUT} = "-l".lc($link_name);
 105 }
 106
 107 sub generate_binary($)
 108 {
 109         my $bin = shift;
 110
 111         $bin->{DEPEND_LIST} = [];
 112         $bin->{LINK_FLAGS} = ["\$($bin->{TYPE}_$bin->{NAME}\_OBJ_LIST)"];
 113
 114         $bin->{RELEASEDIR} = "bin/install";
 115         $bin->{DEBUGDIR} = "bin/";
 116         $bin->{TARGET} = $bin->{OUTPUT} = "$bin->{DEBUGDIR}/$bin->{NAME}";
 117         $bin->{BINARY} = $bin->{NAME};
 118 }
 119
 120
 121 sub create_output($$)
 122 {
 123         my ($depend, $config) = @_;
 124         my $part;
 125
 126         foreach $part (values %{$depend}) {
 127                 next unless(defined($part->{OUTPUT_TYPE}));
 128
 129                 # Combine object lists
 130                 push(@{$part->{OBJ_LIST}}, add_dir($part->{BASEDIR}, $part->{OBJ_FILES})) if defined($part->{OBJ_FILES});
 131
 132                 if ((not defined($part->{OBJ_LIST}) or
 133                         scalar(@{$part->{OBJ_LIST}}) == 0) and
 134                         $part->{OUTPUT_TYPE} eq "MERGEDOBJ") {
 135                         $part->{OUTPUT_TYPE} = "OBJLIST";
 136                 }
 137
 138                 generate_binary($part) if $part->{OUTPUT_TYPE} eq "BINARY";
 139                 generate_mergedobj($part) if $part->{OUTPUT_TYPE} eq "MERGEDOBJ";
 140                 generate_objlist($part) if $part->{OUTPUT_TYPE} eq "OBJLIST";
 141                 generate_shared_library($part) if $part->{OUTPUT_TYPE} eq "SHARED_LIBRARY";
 142                 generate_static_library($part) if $part->{OUTPUT_TYPE} eq "STATIC_LIBRARY";
 143
 144         }
 145
 146         foreach $part (values %{$depend}) {
 147                 next if not defined($part->{OUTPUT_TYPE});
 148
 149                 foreach (@{$part->{UNIQUE_DEPENDENCIES_ALL}}) {
 150                         my $elem = $depend->{$_};
 151                         next if $elem == $part;
 152
 153                         push(@{$part->{PUBLIC_CFLAGS}}, @{$elem->{CPPFLAGS}}) if defined(@{$elem->{CPPFLAGS}});
 154                         push(@{$part->{PUBLIC_CFLAGS}}, $elem->{CFLAGS}) if defined($elem->{CFLAGS});
 155                 }
 156
 157
 158                 # Always import the CFLAGS and CPPFLAGS of the unique dependencies
 159                 foreach (@{$part->{UNIQUE_DEPENDENCIES}}) {
 160                         my $elem = $depend->{$_};
 161                         next if $elem == $part;
 162
 163                         push(@{$part->{LINK_FLAGS}}, $elem->{OUTPUT}) if defined($elem->{OUTPUT});
 164                         push(@{$part->{LINK_FLAGS}}, @{$elem->{LIBS}}) if defined($elem->{LIBS});
 165                         push(@{$part->{LINK_FLAGS}},@{$elem->{LDFLAGS}}) if defined($elem->{LDFLAGS});
 166                         push(@{$part->{DEPEND_LIST}}, $elem->{TARGET}) if defined($elem->{TARGET});
 167                 }
 168         }
 169
 170         foreach $part (values %{$depend}) {
 171                 $part->{CFLAGS} .= " " . join(' ', @{$part->{PUBLIC_CFLAGS}}) if defined($part->{PUBLIC_CFLAGS});
 172                 $part->{CFLAGS} .= " " . join(' ', @{$part->{CPPFLAGS}}) if defined($part->{CPPFLAGS});
 173                 if (($part->{STANDARD_VISIBILITY} ne "default") and
 174                         ($config->{visibility_attribute} eq "yes")) {
 175                         $part->{CFLAGS} .=  " -fvisibility=$part->{STANDARD_VISIBILITY}";
 176                 }
 177         }
 178
 179
 180         return $depend;
 181 }
 182
 183 1;