source4/build/smb_build/main.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

###########################################################
### SMB Build System					###
### - the main program					###
###							###
###  Copyright (C) Stefan (metze) Metzmacher 2004	###
###  Released under the GNU GPL				###
###########################################################

use Data::Dumper;
sub _dump_ctx($)
{
	my $ctx = shift;

	open (DUMP,"> config.smb_build.dump");
	
	print DUMP Dumper($ctx);

	close(DUMP);

	return;
}

sub smb_build_main($)
{
	check_input($SMB_BUILD_CTX);

	create_depend($SMB_BUILD_CTX);

	create_output($SMB_BUILD_CTX);

	create_makefile_in($SMB_BUILD_CTX);

	create_smb_build_h($SMB_BUILD_CTX);

	_dump_ctx($SMB_BUILD_CTX);

	return 0;
}