libnet: Make UserInfo accept a SID as input as well, fix wb_cmd_getpwuid
[gd/samba/.git] / source4 / build / smb_build / makefile.pm
1 # Samba Build System
2 # - create output for Makefile
3 #
4 #  Copyright (C) Stefan (metze) Metzmacher 2004
5 #  Copyright (C) Jelmer Vernooij 2005
6 #  Released under the GNU GPL
7
8 package smb_build::makefile;
9 use smb_build::output;
10 use File::Basename;
11 use strict;
12
13 use Cwd 'abs_path';
14
15 sub new($$$)
16 {
17         my ($myname, $config, $mkfile) = @_;
18         my $self = {};
19
20         bless($self, $myname);
21
22         $self->_set_config($config);
23
24         $self->{output} = "";
25
26         $self->output("################################################\n");
27         $self->output("# Autogenerated by build/smb_build/makefile.pm #\n");
28         $self->output("################################################\n");
29         $self->output("\n");
30         $self->output($mkfile);
31
32         return $self;
33 }
34
35 sub _set_config($$)
36 {
37         my ($self, $config) = @_;
38
39         $self->{config} = $config;
40
41         if (not defined($self->{config}->{srcdir})) {
42                 $self->{config}->{srcdir} = '.';
43         }
44
45         if (not defined($self->{config}->{builddir})) {
46                 $self->{config}->{builddir}  = '.';
47         }
48
49         if ($self->{config}->{prefix} eq "NONE") {
50                 $self->{config}->{prefix} = $self->{config}->{ac_default_prefix};
51         }
52
53         if ($self->{config}->{exec_prefix} eq "NONE") {
54                 $self->{config}->{exec_prefix} = $self->{config}->{prefix};
55         }
56 }
57
58 sub output($$)
59 {
60         my ($self, $text) = @_;
61
62         $self->{output} .= $text;
63 }
64
65 sub _prepare_mk_files($)
66 {
67         my $self = shift;
68         my @tmp = ();
69
70         foreach (@smb_build::config_mk::parsed_files) {
71                 s/ .*$//g;
72                 push (@tmp, $_);
73         }
74
75         $self->output("
76 ifneq (\$(MAKECMDGOALS),clean)
77 ifneq (\$(MAKECMDGOALS),distclean)
78 ifneq (\$(MAKECMDGOALS),realdistclean)
79 ");
80         $self->output("MK_FILES = " . array2oneperline(\@tmp) . "\n");
81         $self->output("
82 endif
83 endif
84 endif
85 ");
86 }
87
88 sub array2oneperline($)
89 {
90         my $array = shift;
91         my $output = "";
92
93         foreach (@$array) {
94                 next unless defined($_);
95
96                 $output .= " \\\n\t\t$_";
97         }
98
99         return $output;
100 }
101
102 sub _prepare_list($$$)
103 {
104         my ($self,$ctx,$var) = @_;
105         my @tmparr = ();
106
107         push(@tmparr, @{$ctx->{$var}}) if defined($ctx->{$var});
108
109         my $tmplist = array2oneperline(\@tmparr);
110         return if ($tmplist eq "");
111
112         $self->output("$ctx->{NAME}_$var =$tmplist\n");
113 }
114
115 sub SharedModulePrimitives($$)
116 {
117         my ($self,$ctx) = @_;
118         
119         #FIXME
120 }
121
122 sub SharedModule($$)
123 {
124         my ($self,$ctx) = @_;
125
126         my $init_obj = "";
127
128         my $sane_subsystem = lc($ctx->{SUBSYSTEM});
129         $sane_subsystem =~ s/^lib//;
130         
131         if ($ctx->{TYPE} eq "PYTHON") {
132                 $self->output("PYTHON_DSOS += $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
133         } else {
134                 $self->output("PLUGINS += $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
135                 $self->output("installplugins:: $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
136                 $self->output("\t\@echo Installing $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME} as \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
137                 $self->output("\t\@mkdir -p \$(DESTDIR)\$(modulesdir)/$sane_subsystem/\n");
138                 $self->output("\t\@cp $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME} \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
139                 if (defined($ctx->{ALIASES})) {
140                         foreach (@{$ctx->{ALIASES}}) {
141                                 $self->output("\t\@rm -f \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$_.\$(SHLIBEXT)\n");
142                                 $self->output("\t\@ln -fs $ctx->{LIBRARY_REALNAME} \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$_.\$(SHLIBEXT)\n");
143                         }
144                 }
145
146                 $self->output("uninstallplugins::\n");
147                 $self->output("\t\@echo Uninstalling \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
148                 $self->output("\t\@-rm \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$ctx->{LIBRARY_REALNAME}\n");
149
150                 if (defined($ctx->{ALIASES})) {
151                         foreach (@{$ctx->{ALIASES}}) {
152                                 $self->output("\t\@-rm \$(DESTDIR)\$(modulesdir)/$sane_subsystem/$_.\$(SHLIBEXT)\n");
153                         }
154                 }
155         }
156
157         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
158         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
159         $self->_prepare_list($ctx, "DEPEND_LIST");
160         $self->_prepare_list($ctx, "LINK_FLAGS");
161
162         if (defined($ctx->{INIT_FUNCTION}) and $ctx->{TYPE} ne "PYTHON" and 
163                 $ctx->{INIT_FUNCTION_TYPE} =~ /\(\*\)/) {
164                 my $init_fn = $ctx->{INIT_FUNCTION_TYPE};
165                 $init_fn =~ s/\(\*\)/init_module/;
166                 my $proto_fn = $ctx->{INIT_FUNCTION_TYPE};
167                 $proto_fn =~ s/\(\*\)/$ctx->{INIT_FUNCTION}/;
168
169                 $self->output(<< "__EOD__"
170 bin/$ctx->{NAME}_init_module.c:
171         \@echo Creating \$\@
172         \@echo \"#include \\\"includes.h\\\"\" > \$\@
173         \@echo \"$proto_fn;\" >> \$\@
174         \@echo \"_PUBLIC_ $init_fn\" >> \$\@
175         \@echo \"{\" >> \$\@
176         \@echo \"       return $ctx->{INIT_FUNCTION}();\" >> \$\@
177         \@echo \"}\" >> \$\@
178         \@echo \"\" >> \$\@
179 __EOD__
180 );
181                 $init_obj = "bin/$ctx->{NAME}_init_module.o";
182         }
183
184         $self->output(<< "__EOD__"
185 #
186
187 $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}: \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST) $init_obj
188         \@echo Linking \$\@
189         \@mkdir -p $ctx->{SHAREDDIR}
190         \@\$(MDLD) \$(LDFLAGS) \$(MDLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
191                 \$($ctx->{NAME}\_FULL_OBJ_LIST) $init_obj \\
192                 \$($ctx->{NAME}_LINK_FLAGS)
193 __EOD__
194 );
195
196         if (defined($ctx->{ALIASES})) {
197                 foreach (@{$ctx->{ALIASES}}) {
198                         $self->output("\t\@rm -f $ctx->{SHAREDDIR}/$_.\$(SHLIBEXT)\n");
199                         $self->output("\t\@ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$_.\$(SHLIBEXT)\n");
200                 }
201         }
202         $self->output("\n");
203 }
204
205 sub StaticLibraryPrimitives($$)
206 {
207         my ($self,$ctx) = @_;
208  
209         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
210         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
211 }
212
213 sub SharedLibraryPrimitives($$)
214 {
215         my ($self,$ctx) = @_;
216
217         if (not grep(/STATIC_LIBRARY/, @{$ctx->{OUTPUT_TYPE}})) {
218                 $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
219                 $self->_prepare_list($ctx, "FULL_OBJ_LIST");
220         }
221 }
222
223 sub SharedLibrary($$)
224 {
225         my ($self,$ctx) = @_;
226
227         if (!defined($ctx->{LIBRARY_SONAME})) {
228                 $ctx->{LIBRARY_SONAME} = "";
229         }
230
231         $self->output("SHARED_LIBS += $ctx->{SHAREDDIR}/$ctx->{LIBRARY_REALNAME}\n");
232
233         $self->_prepare_list($ctx, "DEPEND_LIST");
234         $self->_prepare_list($ctx, "LINK_FLAGS");
235
236         $self->output(<< "__EOD__"
237 $ctx->{RESULT_SHARED_LIBRARY}: \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST)
238         \@echo Linking \$\@
239         \@mkdir -p \$(\@D)
240         \@\$(SHLD) \$(LDFLAGS) \$(SHLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
241                 \$($ctx->{NAME}\_FULL_OBJ_LIST) \\
242                 \$($ctx->{NAME}_LINK_FLAGS) \\
243                 \$(if \$(SONAMEFLAG), \$(SONAMEFLAG)$ctx->{LIBRARY_SONAME})
244 __EOD__
245 );
246         if ($ctx->{LIBRARY_REALNAME} ne $ctx->{LIBRARY_SONAME}) {
247                 $self->output("ifneq (\$($ctx->{NAME}_VERSION),\$($ctx->{NAME}_SOVERSION))\n");
248                 $self->output("\t\@ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$ctx->{LIBRARY_SONAME}\n");
249                 $self->output("endif\n");
250         }
251         $self->output("ifdef $ctx->{NAME}_SOVERSION\n");
252         $self->output("\t\@ln -fs $ctx->{LIBRARY_REALNAME} $ctx->{SHAREDDIR}/$ctx->{LIBRARY_DEBUGNAME}\n");
253         $self->output("endif\n");
254 }
255
256 sub MergedObj($$)
257 {
258         my ($self, $ctx) = @_;
259
260         return unless defined($ctx->{OUTPUT});
261
262         $self->output("$ctx->{NAME}_OUTPUT = $ctx->{OUTPUT}\n");
263         $self->output(<< "__EOD__"
264 #
265 $ctx->{RESULT_MERGED_OBJ}: \$($ctx->{NAME}_OBJ_FILES)
266         \@echo Partially linking \$@
267         \@mkdir -p \$(\@D)
268         \$(PARTLINK) -o \$@ \$($ctx->{NAME}_OBJ_FILES)
269
270 __EOD__
271 );
272 }
273
274 sub StaticLibrary($$)
275 {
276         my ($self,$ctx) = @_;
277
278         $self->output("STATIC_LIBS += $ctx->{TARGET_STATIC_LIBRARY}\n") if ($ctx->{TYPE} eq "LIBRARY");
279
280         $self->output("$ctx->{RESULT_STATIC_LIBRARY}: \$($ctx->{NAME}_FULL_OBJ_LIST)\n");
281 }
282
283 sub Binary($$)
284 {
285         my ($self,$ctx) = @_;
286
287         unless (defined($ctx->{INSTALLDIR})) {
288         } elsif ($ctx->{INSTALLDIR} eq "SBINDIR") {
289                 $self->output("SBIN_PROGS += bin/$ctx->{BINARY}\n");
290         } elsif ($ctx->{INSTALLDIR} eq "BINDIR") {
291                 $self->output("BIN_PROGS += bin/$ctx->{BINARY}\n");
292         }
293
294         $self->output("binaries:: $ctx->{TARGET_BINARY}\n");
295
296         $self->_prepare_list($ctx, "FULL_OBJ_LIST");
297         $self->_prepare_list($ctx, "DEPEND_LIST");
298         $self->_prepare_list($ctx, "LINK_FLAGS");
299
300 $self->output(<< "__EOD__"
301 $ctx->{RESULT_BINARY}: \$($ctx->{NAME}_DEPEND_LIST) \$($ctx->{NAME}_FULL_OBJ_LIST)
302         \@echo Linking \$\@
303 __EOD__
304         );
305
306         if (defined($ctx->{USE_HOSTCC}) && $ctx->{USE_HOSTCC} eq "YES") {
307                 $self->output(<< "__EOD__"
308         \@\$(HOSTLD) \$(HOSTLD_FLAGS) -L\${builddir}/bin/static -o \$\@ \$(INSTALL_LINK_FLAGS) \\
309                 \$\($ctx->{NAME}_LINK_FLAGS)
310 __EOD__
311                 );
312         } else {
313                 $self->output(<< "__EOD__"
314         \@\$(BNLD) \$(BNLD_FLAGS) \$(INTERN_LDFLAGS) -o \$\@ \$(INSTALL_LINK_FLAGS) \\
315                 \$\($ctx->{NAME}_LINK_FLAGS) 
316
317 __EOD__
318                 );
319         }
320 }
321
322 sub PythonFiles($$)
323 {
324         my ($self,$ctx) = @_;
325
326         foreach (@{$ctx->{PYTHON_FILES}}) {
327                 my $target = "bin/python/".basename($_);
328                 my $source = "\$(addprefix $ctx->{BASEDIR}/, $_)";
329                 $self->output("$target: $source\n\n");
330                 $self->output("PYTHON_PYS += $target\n");
331         }
332 }
333
334 sub ProtoHeader($$)
335 {
336         my ($self,$ctx) = @_;
337
338         my $priv = "$ctx->{BASEDIR}/$ctx->{PRIVATE_PROTO_HEADER}";
339         $self->output("PROTO_HEADERS += $priv\n");
340
341         $self->output("$priv: $ctx->{MK_FILE} \$($ctx->{NAME}_OBJ_FILES:.o=.c) \$(srcdir)/script/mkproto.pl\n");
342         $self->output("\t\@echo \"Creating \$@\"\n");
343         $self->output("\t\@mkdir -p \$(\@D)\n");
344         $self->output("\t\@\$(PERL) \$(srcdir)/script/mkproto.pl --srcdir=\$(srcdir) --builddir=\$(builddir) --public=/dev/null --private=\$@ \$($ctx->{NAME}_OBJ_FILES)\n\n");
345 }
346
347 sub write($$)
348 {
349         my ($self, $file) = @_;
350
351         $self->output("ALL_OBJS = " . array2oneperline($self->{all_objs}) . "\n");
352
353         $self->_prepare_mk_files();
354
355         $self->output($self->{mkfile});
356
357         open(MAKEFILE,">$file") || die ("Can't open $file\n");
358         print MAKEFILE $self->{output};
359         close(MAKEFILE);
360
361         print __FILE__.": creating $file\n";
362 }
363
364 my $sort_available = eval "use sort 'stable'; return 1;";
365 $sort_available = 0 unless defined($sort_available);
366
367 sub by_path {
368         return  1 if($a =~ m#^\-I/#);
369         return -1 if($b =~ m#^\-I/#);
370         return  0;
371 }
372
373 sub CFlags($$)
374 {
375         my ($self, $key) = @_;
376
377         my $srcdir = $self->{config}->{srcdir};
378         my $builddir = $self->{config}->{builddir};
379
380         my $src_ne_build = ($srcdir ne $builddir) ? 1 : 0;
381
382         return unless defined ($key->{FINAL_CFLAGS});
383         return unless (@{$key->{FINAL_CFLAGS}} > 0);
384
385         my @sorted_cflags = @{$key->{FINAL_CFLAGS}};
386         if ($sort_available) {
387                 @sorted_cflags = sort by_path @{$key->{FINAL_CFLAGS}};
388         }
389
390         # Rewrite CFLAGS so that both the source and the build
391         # directories are in the path.
392         my @cflags = ();
393         foreach my $flag (@sorted_cflags) {
394                 if($src_ne_build) {
395                         if($flag =~ m#^-I([^/].*$)#) {
396                                 my $dir = $1;
397                                 $dir =~ s#^\$\((?:src|build)dir\)/?##;
398                                 push(@cflags, "-I$builddir/$dir", "-I$srcdir/$dir");
399                                 next;
400                         }
401                 }
402                 push(@cflags, $flag);
403         }
404         
405         my $cflags = join(' ', @cflags);
406
407         $self->output("\$(patsubst %.ho,%.d,\$($key->{NAME}_OBJ_FILES:.o=.d)) \$($key->{NAME}_OBJ_FILES): CFLAGS+= $cflags\n");
408 }
409
410 1;