2 # - config.mk parsing functions
4 # Copyright (C) Stefan (metze) Metzmacher 2004
5 # Copyright (C) Jelmer Vernooij 2005
6 # Released under the GNU GPL
9 package smb_build::config_mk;
23 "OBJ_FILES" => "list",
25 "PRIVATE_DEPENDENCIES" => "list",
26 "PUBLIC_DEPENDENCIES" => "list",
30 "MANPAGE" => "string",
32 "PUBLIC_PROTO_HEADER" => "string",
33 "PRIVATE_PROTO_HEADER" => "string",
35 "PUBLIC_HEADERS" => "list",
37 "EXTRA_CFLAGS" => "string",
38 "STANDARD_VISIBILITY" => "string"
41 "SUBSYSTEM" => "string",
43 "INIT_FUNCTION" => "string",
44 "OBJ_FILES" => "list",
46 "PUBLIC_DEPENDENCIES" => "list",
47 "PRIVATE_DEPENDENCIES" => "list",
53 "OUTPUT_TYPE" => "string",
55 "MANPAGE" => "string",
56 "PRIVATE_PROTO_HEADER" => "string",
58 "EXTRA_CFLAGS" => "string"
61 "OBJ_FILES" => "list",
63 "PRIVATE_DEPENDENCIES" => "list",
67 "MANPAGE" => "string",
68 "INSTALLDIR" => "string",
69 "PRIVATE_PROTO_HEADER" => "string",
70 "PUBLIC_PROTO_HEADER" => "string",
71 "PUBLIC_HEADERS" => "list",
73 "EXTRA_CFLAGS" => "string",
74 "STANDARD_VISIBILITY" => "string"
77 "VERSION" => "string",
78 "SO_VERSION" => "string",
79 "LIBRARY_REALNAME" => "string",
81 "INIT_FUNCTION_TYPE" => "string",
83 "OBJ_FILES" => "list",
85 "DESCRIPTION" => "string",
87 "PRIVATE_DEPENDENCIES" => "list",
88 "PUBLIC_DEPENDENCIES" => "list",
92 "MANPAGE" => "string",
94 "PUBLIC_HEADERS" => "list",
96 "PUBLIC_PROTO_HEADER" => "string",
97 "PRIVATE_PROTO_HEADER" => "string",
99 "EXTRA_CFLAGS" => "string",
100 "STANDARD_VISIBILITY" => "string"
104 use vars qw(@parsed_files);
108 ###########################################################
109 # The parsing function which parses the file
111 # $result = _parse_config_mk($filename)
113 # $filename - the path of the config.mk file
114 # which should be parsed
115 sub run_config_mk($$$$)
117 sub run_config_mk($$$$);
118 my ($input, $srcdir, $builddir, $filename) = @_;
122 my $section = "GLOBAL";
125 my $parsing_file = $builddir."/".$filename;
127 $ENV{samba_builddir} = $builddir;
128 $ENV{samba_srcdir} = $srcdir;
130 if (!open(CONFIG_MK, $parsing_file)) {
131 $parsing_file = $srcdir."/".$filename;
132 open(CONFIG_MK, $parsing_file) or
133 die("Can't open neither `$builddir."/".$filename' nor `$srcdir/$filename'\n");
136 push (@parsed_files, $parsing_file);
139 my @lines = <CONFIG_MK>;
148 # lines beginning with '#' are ignored
159 if ($line =~ /^\[([-a-zA-Z0-9_:]+)\][\t ]*$/)
167 if ($line =~ /^include (.*)$/) {
168 $makefile .= run_config_mk($input, $srcdir, $builddir, dirname($filename)."/$1");
173 if ($line =~ /^[ \t]*$/) {
175 if ($infragment) { $makefile.="\n"; }
179 # global stuff is considered part of the makefile
180 if ($section eq "GLOBAL") {
181 if (!$infragment) { $makefile.="\n"; }
189 if ($line =~ /^([a-zA-Z0-9_]+)[\t ]*=(.*)$/) {
190 $result->{$section}{$1}{VAL} = $2;
191 $result->{$section}{$1}{KEY} = $1;
196 die("$srcdir."/".$filename:$linenum: Bad line while parsing $srcdir."/".$filename");
199 foreach my $section (keys %{$result}) {
200 my ($type, $name) = split(/::/, $section, 2);
202 my $sectype = $section_types->{$type};
203 if (not defined($sectype)) {
204 die($srcdir."/".$filename.":[".$section."] unknown section type \"".$type."\"!");
207 $input->{$name}{NAME} = $name;
208 $input->{$name}{TYPE} = $type;
209 $input->{$name}{MK_FILE} = $srcdir."/".$filename;
210 $input->{$name}{BASEDIR} = dirname($filename);
212 foreach my $key (values %{$result->{$section}}) {
213 $key->{VAL} = smb_build::input::strtrim($key->{VAL});
214 my $vartype = $sectype->{$key->{KEY}};
215 if (not defined($vartype)) {
216 die($srcdir."/".$filename.":[".$section."]: unknown attribute type \"$key->{KEY}\"!");
218 if ($vartype eq "string") {
219 $input->{$name}{$key->{KEY}} = $key->{VAL};
220 } elsif ($vartype eq "list") {
221 $input->{$name}{$key->{KEY}} = [smb_build::input::str2array($key->{VAL})];
222 } elsif ($vartype eq "bool") {
223 if (($key->{VAL} ne "YES") and ($key->{VAL} ne "NO")) {
224 die("Invalid value for bool attribute $key->{KEY}: $key->{VAL} in section $section");
226 $input->{$name}{$key->{KEY}} = $key->{VAL};