source4/build/smb_build/input.pm

   1 ###########################################################
   2 ### SMB Build System                                    ###
   3 ### - the input checking functions                      ###
   4 ###                                                     ###
   5 ###  Copyright (C) Stefan (metze) Metzmacher 2004       ###
   6 ###  Copyright (C) Jelmer Vernooij 2004 ###
   7 ###  Released under the GNU GPL                         ###
   8 ###########################################################
   9
  10 use strict;
  11 package input;
  12
  13 my $subsystem_output_type = "OBJLIST";
  14 my $srcdir = ".";
  15
  16 sub strtrim($)
  17 {
  18         my $str = shift;
  19         my @ar = ();
  20
  21         $str =~ s/^[\t\n ]*//g;
  22
  23         $str =~ s/[\t\n ]*$//g;
  24
  25         return $str;
  26 }
  27
  28 sub str2array($)
  29 {
  30         my $str = shift;
  31         my @ar = ();
  32
  33         $str =~ s/^[\t\n ]*//g;
  34
  35         $str =~ s/[\t\n ]*$//g;
  36
  37         $str =~ s/([\t\n ]+)/ /g;
  38
  39         if (length($str)==0) {
  40                 return ();
  41         }
  42
  43         @ar = split(/[ \t\n]/,$str);
  44
  45         return @ar;
  46 }
  47
  48 sub check_subsystem($$)
  49 {
  50         my $CTX = shift;
  51         my $subsys = shift;
  52         if ($subsys->{ENABLE} ne "YES") {
  53                 printf("Subsystem: %s disabled!\n",$subsys->{NAME});
  54                 return;
  55         }
  56
  57         $subsys->{OUTPUT_TYPE} = $subsystem_output_type;
  58 }
  59
  60 sub check_module($$)
  61 {
  62         my $CTX = shift;
  63         my $mod = shift;
  64
  65         die("Module $mod->{NAME} does not have a SUBSYSTEM set") if not defined($mod->{SUBSYSTEM});
  66
  67         ($mod->{DEFAULT_BUILD} = "STATIC") if not defined($mod->{DEFAULT_BUILD});
  68
  69         my $use_default = 0;
  70
  71         $mod->{SUBSYSTEM} = join(' ', @{$mod->{SUBSYSTEM}});
  72
  73         if (!(defined($CTX->{INPUT}{$mod->{SUBSYSTEM}}))) {
  74                 $mod->{BUILD} = "NOT";
  75                 $mod->{ENABLE} = "NO";
  76                 printf("Module: %s...PARENT SUBSYSTEM ($mod->{SUBSYSTEM}) DISABLED\n",$mod->{NAME});
  77                 return;
  78         }
  79
  80         if ($mod->{ENABLE} ne "YES")
  81         {
  82                 $mod->{CHOSEN_BUILD} = "NOT";
  83         }
  84
  85         if (not defined($mod->{CHOSEN_BUILD}) or $mod->{CHOSEN_BUILD} eq "DEFAULT") {
  86                 $mod->{CHOSEN_BUILD} = $mod->{DEFAULT_BUILD};
  87         }
  88
  89         if ($mod->{CHOSEN_BUILD} eq "SHARED") {
  90                 $mod->{ENABLE} = "YES";
  91                 $mod->{OUTPUT_TYPE} = "SHARED_LIBRARY";
  92                 push (@{$mod->{REQUIRED_SUBSYSTEMS}}, $mod->{SUBSYSTEM});
  93                 printf("Module: %s...shared\n",$mod->{NAME});
  94         } elsif ($mod->{CHOSEN_BUILD} eq "STATIC") {
  95                 $mod->{ENABLE} = "YES";
  96                 push (@{$CTX->{INPUT}{$mod->{SUBSYSTEM}}{REQUIRED_SUBSYSTEMS}}, $mod->{NAME});
  97                 printf("Module: %s...static\n",$mod->{NAME});
  98                 $mod->{OUTPUT_TYPE} = $subsystem_output_type;
  99         } else {
 100                 $mod->{ENABLE} = "NO";
 101                 printf("Module: %s...not\n",$mod->{NAME});
 102                 return;
 103         }
 104 }
 105
 106 sub check_library($$)
 107 {
 108         my $CTX = shift;
 109         my $lib = shift;
 110
 111         if ($lib->{ENABLE} ne "YES") {
 112                 printf("Library: %s...disabled\n",$lib->{NAME});
 113                 return;
 114         }
 115
 116         $lib->{OUTPUT_TYPE} = "SHARED_LIBRARY";
 117         $lib->{MAJOR_VERSION} = join('', @{$lib->{MAJOR_VERSION}});
 118         $lib->{MINOR_VERSION} = join('', @{$lib->{MINOR_VERSION}});
 119         $lib->{RELEASE_VERSION} = join('', @{$lib->{RELEASE_VERSION}});
 120 }
 121
 122 sub check_binary($$)
 123 {
 124         my $CTX = shift;
 125         my $bin = shift;
 126
 127         if ($bin->{ENABLE} ne "YES") {
 128                 printf("Binary: %s...disabled\n",$bin->{NAME});
 129                 return;
 130         }
 131
 132         ($bin->{BINARY} = (lc $bin->{NAME})) if not defined($bin->{BINARY});
 133
 134         $bin->{OUTPUT_TYPE} = "BINARY";
 135 }
 136
 137 sub calc_unique_deps
 138 {
 139         my $deps = shift;
 140         my $udeps = shift;
 141
 142         foreach my $dep (@{$deps}) {
 143                 if (not defined($udeps->{$$dep->{NAME}})) {
 144                         $udeps->{$$dep->{NAME}} = "BUSY";
 145                         calc_unique_deps($$dep->{DEPENDENCIES}, $udeps);
 146                         $udeps->{$$dep->{NAME}} = $$dep;
 147                 }
 148         }
 149 }
 150
 151
 152
 153 ###########################################################
 154 # This function checks the input from the configure script
 155 #
 156 # check_input($SMB_BUILD_CTX)
 157 #
 158 # $SMB_BUILD_CTX -      the global SMB_BUILD context
 159 sub check($)
 160 {
 161         my $CTX = shift;
 162
 163         ($subsystem_output_type = $ENV{SUBSYSTEM_OUTPUT_TYPE}) if (defined($ENV{"SUBSYSTEM_OUTPUT_TYPE"}));
 164
 165         foreach my $part (values %{$CTX->{INPUT}}) {
 166                 ($part->{ENABLE} = "YES") if not defined($part->{ENABLE});
 167         }
 168
 169         foreach my $part (values %{$CTX->{INPUT}}) {
 170                 check_subsystem($CTX, $part) if ($part->{TYPE} eq "SUBSYSTEM");
 171                 check_module($CTX, $part) if ($part->{TYPE} eq "MODULE");
 172                 check_library($CTX, $part) if ($part->{TYPE} eq "LIBRARY");
 173                 check_binary($CTX, $part) if ($part->{TYPE} eq "BINARY");
 174
 175                 #FIXME: REQUIRED_LIBRARIES needs to go
 176                 if (defined($part->{REQUIRED_LIBRARIES})) {
 177                         push(@{$part->{REQUIRED_SUBSYSTEMS}}, @{$part->{REQUIRED_LIBRARIES}});
 178                         delete ($part->{REQUIRED_LIBRARIES});
 179                 }
 180         }
 181
 182         my %depend = %{$CTX->{INPUT}};
 183
 184         foreach my $part (values %depend) {
 185
 186                 # Generate list of dependencies
 187                 $part->{DEPENDENCIES} = [];
 188
 189                 foreach my $key (@{$part->{REQUIRED_SUBSYSTEMS}}) {
 190                         die("$part->{NAME} has undefined dependency $key\n") if not defined($depend{$key});
 191                         push (@{$part->{DEPENDENCIES}}, \$depend{$key});
 192                 }
 193
 194                 delete ($part->{REQUIRED_SUBSYSTEMS});
 195         }
 196
 197         foreach my $part (values %depend) {
 198                 $part->{UNIQUE_DEPENDENCIES} = {};
 199                 calc_unique_deps($part->{DEPENDENCIES}, $part->{UNIQUE_DEPENDENCIES});
 200         }
 201
 202         return %depend;
 203 }
 204
 205 1;