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