8f0509692c7816d0803be56ab6ff8f5a2e341a04
[samba.git] / source / 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         unless(defined($subsys->{OUTPUT_TYPE})) {
58                 $subsys->{OUTPUT_TYPE} = $subsystem_output_type;
59         }
60 }
61
62 sub check_module($$)
63 {
64         my $CTX = shift;
65         my $mod = shift;
66
67         die("Module $mod->{NAME} does not have a SUBSYSTEM set") if not defined($mod->{SUBSYSTEM});
68
69         ($mod->{DEFAULT_BUILD} = "STATIC") if not defined($mod->{DEFAULT_BUILD});
70         
71         my $use_default = 0;
72
73         $mod->{SUBSYSTEM} = join(' ', @{$mod->{SUBSYSTEM}});
74
75         if (!(defined($CTX->{INPUT}{$mod->{SUBSYSTEM}}))) {
76                 $mod->{BUILD} = "NOT";
77                 $mod->{ENABLE} = "NO";
78                 printf("Module: %s...PARENT SUBSYSTEM ($mod->{SUBSYSTEM}) DISABLED\n",$mod->{NAME});
79                 return;
80         }
81
82         if ($mod->{ENABLE} ne "YES")
83         {
84                 $mod->{CHOSEN_BUILD} = "NOT";
85         }
86
87         if (not defined($mod->{CHOSEN_BUILD}) or $mod->{CHOSEN_BUILD} eq "DEFAULT") {
88                 $mod->{CHOSEN_BUILD} = $mod->{DEFAULT_BUILD};
89         }
90
91         if ($mod->{CHOSEN_BUILD} eq "SHARED") {
92                 $mod->{ENABLE} = "YES";
93                 $mod->{OUTPUT_TYPE} = "SHARED_LIBRARY";
94                 push (@{$mod->{REQUIRED_SUBSYSTEMS}}, $mod->{SUBSYSTEM});
95                 printf("Module: %s...shared\n",$mod->{NAME});
96         } elsif ($mod->{CHOSEN_BUILD} eq "STATIC") {
97                 $mod->{ENABLE} = "YES";
98                 push (@{$CTX->{INPUT}{$mod->{SUBSYSTEM}}{REQUIRED_SUBSYSTEMS}}, $mod->{NAME});
99                 printf("Module: %s...static\n",$mod->{NAME});
100                 $mod->{OUTPUT_TYPE} = $subsystem_output_type;
101         } else {
102                 $mod->{ENABLE} = "NO";
103                 printf("Module: %s...not\n",$mod->{NAME});
104                 return;
105         }
106 }
107
108 sub check_library($$)
109 {
110         my $CTX = shift;
111         my $lib = shift;
112
113         if ($lib->{ENABLE} ne "YES") {
114                 printf("Library: %s...disabled\n",$lib->{NAME});
115                 return;
116         }
117
118         $lib->{OUTPUT_TYPE} = "SHARED_LIBRARY";
119
120         if (defined($lib->{MAJOR_VERSION})) {
121             $lib->{MAJOR_VERSION} = join('', @{$lib->{MAJOR_VERSION}});
122         }
123         if (defined($lib->{MINOR_VERSION})) {
124             $lib->{MINOR_VERSION} = join('', @{$lib->{MINOR_VERSION}});
125         }
126         if (defined($lib->{RELEASE_VERSION})) {
127             $lib->{RELEASE_VERSION} = join('', @{$lib->{RELEASE_VERSION}});
128         }
129 }
130
131 sub check_binary($$)
132 {
133         my $CTX = shift;
134         my $bin = shift;
135
136         if ($bin->{ENABLE} ne "YES") {
137                 printf("Binary: %s...disabled\n",$bin->{NAME});
138                 return;
139         }
140
141         ($bin->{BINARY} = (lc $bin->{NAME})) if not defined($bin->{BINARY});
142
143         $bin->{OUTPUT_TYPE} = "BINARY";
144 }
145
146 sub calc_unique_deps
147 {
148         my $deps = shift;
149         my $udeps = shift;
150
151         foreach my $dep (@{$deps}) {
152                 if (not defined($udeps->{$$dep->{NAME}})) {
153                         $udeps->{$$dep->{NAME}} = "BUSY";
154                         calc_unique_deps($$dep->{DEPENDENCIES}, $udeps);
155                         $udeps->{$$dep->{NAME}} = $$dep;
156                 }
157         }
158 }
159
160
161
162 ###########################################################
163 # This function checks the input from the configure script 
164 #
165 # check_input($SMB_BUILD_CTX)
166 #
167 # $SMB_BUILD_CTX -      the global SMB_BUILD context
168 sub check($)
169 {
170         my $CTX = shift;
171
172         ($subsystem_output_type = $ENV{SUBSYSTEM_OUTPUT_TYPE}) if (defined($ENV{"SUBSYSTEM_OUTPUT_TYPE"}));
173
174         foreach my $part (values %{$CTX->{INPUT}}) {
175                 ($part->{ENABLE} = "YES") if not defined($part->{ENABLE});
176         }
177
178         foreach my $k (keys %{$CTX->{INPUT}}) {
179                 my $part = $CTX->{INPUT}->{$k};
180                 if (not defined($part->{TYPE})) {
181                         print STDERR "$k does not have a type set.. Perhaps it's only mentioned in a .m4 but not in a .mk file?\n";
182                         next;
183                 }
184                 check_subsystem($CTX, $part) if ($part->{TYPE} eq "SUBSYSTEM");
185                 check_module($CTX, $part) if ($part->{TYPE} eq "MODULE");
186                 check_library($CTX, $part) if ($part->{TYPE} eq "LIBRARY");
187                 check_binary($CTX, $part) if ($part->{TYPE} eq "BINARY");
188
189                 #FIXME: REQUIRED_LIBRARIES needs to go
190                 if (defined($part->{REQUIRED_LIBRARIES})) {
191                         push(@{$part->{REQUIRED_SUBSYSTEMS}}, @{$part->{REQUIRED_LIBRARIES}});
192                         delete ($part->{REQUIRED_LIBRARIES});
193                 }
194         }
195
196         my %depend = %{$CTX->{INPUT}};
197
198         foreach my $part (values %depend) {
199                 
200                 # Generate list of dependencies
201                 $part->{DEPENDENCIES} = [];
202
203                 foreach my $key (@{$part->{REQUIRED_SUBSYSTEMS}}) {
204                         die("$part->{NAME} has undefined dependency $key\n") if not defined($depend{$key});
205                         push (@{$part->{DEPENDENCIES}}, \$depend{$key});
206                 }
207
208                 delete ($part->{REQUIRED_SUBSYSTEMS});
209         }
210
211         foreach my $part (values %depend) {
212                 $part->{UNIQUE_DEPENDENCIES} = {};
213                 calc_unique_deps($part->{DEPENDENCIES}, $part->{UNIQUE_DEPENDENCIES});
214         }
215
216         return %depend;
217 }
218
219 1;