source4/build/smb_build/output.pm

   1 ###########################################################
   2 ### SMB Build System                                    ###
   3 ### - the output generating functions                   ###
   4 ###                                                     ###
   5 ###  Copyright (C) Stefan (metze) Metzmacher 2004       ###
   6 ###  Copyright (C) Jelmer Vernooij 2004 ###
   7 ###  Released under the GNU GPL                         ###
   8 ###########################################################
   9
  10 package output;
  11 use strict;
  12
  13 sub generate_objlist($)
  14 {
  15         my $subsys = shift;
  16
  17         $subsys->{TARGET} = "bin/.$subsys->{TYPE}_$subsys->{NAME}";
  18         $subsys->{OUTPUT} = "\$($subsys->{TYPE}_$subsys->{NAME}_OBJS)";
  19 }
  20
  21 sub generate_shared_library($)
  22 {
  23         my $lib = shift;
  24
  25         @{$lib->{DEPEND_LIST}} = ();
  26         @{$lib->{LINK_LIST}} = ("\$($lib->{TYPE}_$lib->{NAME}\_OBJS)");
  27         $lib->{LIBRARY_NAME} = lc($lib->{NAME}).".so";
  28         $lib->{TARGET} = "bin/lib$lib->{LIBRARY_NAME}";
  29         if (defined($lib->{MAJOR_VERSION})) {
  30                 $lib->{LIBRARY_SONAME} = $lib->{LIBRARY_NAME}.".$lib->{MAJOR_VERSION}";
  31                 $lib->{LIBRARY_REALNAME} = $lib->{LIBRARY_SONAME}.".$lib->{MINOR_VERSION}.$lib->{RELEASE_VERSION}";
  32                 $lib->{TARGET} = "bin/lib$lib->{LIBRARY_REALNAME}";
  33                 @{$lib->{LINK_FLAGS}} = ("\@SONAMEFLAG\@$lib->{LIBRARY_SONAME}");
  34         }
  35         $lib->{OUTPUT} = "-l".lc($lib->{NAME});
  36 }
  37
  38 sub generate_static_library($)
  39 {
  40         my $lib = shift;
  41
  42         @{$lib->{DEPEND_LIST}} = ();
  43
  44         $lib->{LIBRARY_NAME} = lc($lib->{NAME}).".a";
  45         @{$lib->{LINK_LIST}} = ("\$($lib->{TYPE}_$lib->{NAME}\_OBJS)");
  46         @{$lib->{LINK_FLAGS}} = ();
  47
  48         $lib->{TARGET} = "bin/lib$lib->{LIBRARY_NAME}";
  49         $lib->{OUTPUT} = "-l".lc($lib->{NAME});
  50 }
  51
  52 sub generate_binary($)
  53 {
  54         my $bin = shift;
  55
  56         @{$bin->{DEPEND_LIST}} = ();
  57         @{$bin->{LINK_LIST}} = ("\$($bin->{TYPE}_$bin->{NAME}\_OBJS)");
  58         @{$bin->{LINK_FLAGS}} = ();
  59
  60         $bin->{TARGET} = $bin->{OUTPUT} = "bin/$bin->{NAME}";
  61         $bin->{BINARY} = $bin->{NAME};
  62 }
  63
  64 sub create_output($)
  65 {
  66         my $depend = shift;
  67         my $part;
  68
  69         $depend->{PROTO}{OUTPUT_TYPE} = "OBJLIST";
  70         $depend->{PROTO}{TYPE} = "PROTO";
  71         $depend->{PROTO}{NAME} = "PROTO";
  72
  73         $depend->{ALL_OBJS}{OUTPUT_TYPE} = "OBJLIST";
  74         $depend->{ALL_OBJS}{TYPE} = "";
  75         $depend->{ALL_OBJS}{NAME} = "ALL_OBJS";
  76
  77         foreach $part (values %{$depend}) {
  78                 next if not defined($part->{OUTPUT_TYPE});
  79
  80                 generate_binary($part) if $part->{OUTPUT_TYPE} eq "BINARY";
  81                 generate_objlist($part) if $part->{OUTPUT_TYPE} eq "OBJLIST";
  82                 generate_shared_library($part) if $part->{OUTPUT_TYPE} eq "SHARED_LIBRARY";
  83                 generate_static_library($part) if $part->{OUTPUT_TYPE} eq "STATIC_LIBRARY";
  84
  85                 # Combine object lists
  86                 push(@{$part->{OBJ_LIST}}, @{$part->{INIT_OBJ_FILES}}) if defined($part->{INIT_OBJ_FILES});
  87                 push(@{$part->{OBJ_LIST}}, @{$part->{ADD_OBJ_FILES}}) if defined($part->{ADD_OBJ_FILES});
  88                 push(@{$part->{OBJ_LIST}}, @{$part->{OBJ_FILES}}) if defined($part->{OBJ_FILES});
  89
  90                 push(@{$depend->{ALL_OBJS}{OBJ_LIST}}, @{$part->{OBJ_LIST}}) if (defined(@{$part->{OBJ_LIST}}));
  91                 push(@{$depend->{PROTO}{OBJ_LIST}}, @{$part->{OBJ_LIST}}) if ((not defined ($part->{NOPROTO}) or $part->{NOPROTO} eq "NO") and defined(@{$part->{OBJ_LIST}}));
  92         }
  93
  94         foreach $part (values %{$depend}) {
  95                 next if not defined($part->{OUTPUT_TYPE});
  96
  97                 foreach (@{$part->{DEPENDENCIES}}) {
  98                         my $elem = $$_;
  99                         push(@{$part->{DEPEND_LIST}}, $elem->{TARGET}) if defined($elem->{TARGET});
 100                 }
 101
 102                 # Always import the CFLAGS and CPPFLAGS of the unique dependencies
 103                 foreach my $elem (values %{$part->{UNIQUE_DEPENDENCIES}}) {
 104                         next if $elem == $part;
 105
 106                         push(@{$part->{CPPFLAGS}}, @{$elem->{CPPFLAGS}}) if defined(@{$elem->{CPPFLAGS}});
 107                         push(@{$part->{CFLAGS}}, @{$elem->{CFLAGS}}) if defined(@{$elem->{CFLAGS}});
 108                         push(@{$part->{LINK_LIST}}, $elem->{OUTPUT}) if defined($elem->{OUTPUT});
 109                         push(@{$part->{LINK_FLAGS}}, @{$elem->{LIBS}}) if defined($elem->{LIBS});
 110                         push(@{$part->{LINK_FLAGS}},@{$elem->{LDFLAGS}}) if defined($elem->{LDFLAGS});
 111
 112                         push(@{$part->{SUBSYSTEM_INIT_FUNCTIONS}}, $elem->{INIT_FUNCTION}) if
 113                                 $part->{OUTPUT_TYPE} eq "BINARY" and
 114                                 defined($elem->{INIT_FUNCTION}) and
 115                                 $elem->{INIT_FUNCTION} ne "" and
 116                                 $part->{OUTPUT_TYPE} ne "SHARED_LIBRARY";
 117                 }
 118         }
 119
 120         return $depend;
 121 }
 122
 123 1;