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