diff options
Diffstat (limited to 'source4/build/smb_build/config_mk.pm')
| -rw-r--r-- | source4/build/smb_build/config_mk.pm | 200 |
1 files changed, 0 insertions, 200 deletions
diff --git a/source4/build/smb_build/config_mk.pm b/source4/build/smb_build/config_mk.pm index 11ef8cf7b1..464f1674eb 100644 --- a/source4/build/smb_build/config_mk.pm +++ b/source4/build/smb_build/config_mk.pm @@ -238,206 +238,6 @@ sub _fetch_array_from_config_mk($$$) return input::str2array($val); } -########################################################### -# A function for fetching MODULE_<module>_<parameter> -# variables out of a config.mk file -# -# $value = module_get_var($filename,$module,$parameter) -# -# $filename - the path of the config.mk file -# which should be parsed -# -# $module - the middle part of the variable name of which we want the value -# -# $parameter - the last part of the variable name of which we want the value -# -# $value - the value of the variable -sub module_get_var($$$) -{ - my $filename = shift; - my $module = shift; - my $var = shift; - - my $section = "MODULE::".$module; - - return _fetch_var_from_config_mk($filename,$section,$var); -} - -########################################################### -# A function for fetching MODULE_<module>_<parameter> -# variables out of a config.mk file -# -# $array = module_get_array($filename,$module,$parameter) -# -# $filename - the path of the config.mk file -# which should be parsed -# -# $module - the middle part of the variable name of which we want the value -# -# $parameter - the last part of the variable name of which we want the value -# -# $array - the array of values of the variable -sub module_get_array($$$) -{ - my $filename = shift; - my $module = shift; - my $var = shift; - - my $section = "MODULE::".$module; - - return _fetch_array_from_config_mk($filename,$section,$var); -} - -########################################################### -# A function for fetching SUBSYSTEM_<subsystem>_<parameter> -# variables out of a config.mk file -# -# $value = subsystem_get_var($filename,$subsystem,$parameter) -# -# $filename - the path of the config.mk file -# which should be parsed -# -# $subsystem - the middle part of the variable name of which we want the value -# -# $parameter - the last part of the variable name of which we want the value -# -# $value - the value of the variable -sub subsystem_get_var($$$) -{ - my $filename = shift; - my $subsystem = shift; - my $var = shift; - - my $section = "SUBSYSTEM::".$subsystem; - - return _fetch_var_from_config_mk($filename,$section,$var); -} - -########################################################### -# A function for fetching SUBSYSTEM_<subsystem>_<parameter> -# variables out of a config.mk file -# -# $array = subsystem_get_array($filename,$subsystem,$parameter) -# -# $filename - the path of the config.mk file -# which should be parsed -# -# $subsystem - the middle part of the variable name of which we want the value -# -# $parameter - the last part of the variable name of which we want the value -# -# $array - the array of values of the variable -sub subsystem_get_array($$$) -{ - my $filename = shift; - my $subsystem = shift; - my $var = shift; - - my $section = "SUBSYSTEM::".$subsystem; - - return _fetch_array_from_config_mk($filename,$section,$var); -} - -########################################################### -# A function for fetching LIBRARY_<library>_<parameter> -# variables out of a config.mk file -# -# $value = library_get_var($filename,$library,$parameter) -# -# $filename - the path of the config.mk file -# which should be parsed -# -# $library - the middle part of the variable name of which we want the value -# -# $parameter - the last part of the variable name of which we want the value -# -# $value - the value of the variable -sub library_get_var($$$) -{ - my $filename = shift; - my $library = shift; - my $var = shift; - - my $section = "LIBRARY::".$library; - - return _fetch_var_from_config_mk($filename,$section,$var); -} - -########################################################### -# A function for fetching LIBRARY_<library>_<parameter> -# variables out of a config.mk file -# -# $array = library_get_array($filename,$library,$parameter) -# -# $filename - the path of the config.mk file -# which should be parsed -# -# $library - the middle part of the variable name of which we want the value -# -# $parameter - the last part of the variable name of which we want the value -# -# $array - the array of values of the variable -sub library_get_array($$$) -{ - my $filename = shift; - my $library = shift; - my $var = shift; - - my $section = "LIBRARY::".$library; - - return _fetch_array_from_config_mk($filename,$section,$var); -} - -########################################################### -# A function for fetching BINARY_<binary>_<parameter> -# variables out of a config.mk file -# -# $value = binary_get_var($filename,$binary,$parameter) -# -# $filename - the path of the config.mk file -# which should be parsed -# -# $binary - the middle part of the variable name of which we want the value -# -# $parameter - the last part of the variable name of which we want the value -# -# $value - the value of the variable -sub binary_get_var($$$) -{ - my $filename = shift; - my $binary = shift; - my $var = shift; - - my $section = "BINARY::".$binary; - - return _fetch_var_from_config_mk($filename,$section,$var); -} - -########################################################### -# A function for fetching BINARY_<binary>_<parameter> -# variables out of a config.mk file -# -# $array = binary_get_array($filename,$binary,$parameter) -# -# $filename - the path of the config.mk file -# which should be parsed -# -# $binary - the middle part of the variable name of which we want the value -# -# $parameter - the last part of the variable name of which we want the value -# -# $array - the array of values of the variable -sub binary_get_array($$$) -{ - my $filename = shift; - my $binary = shift; - my $var = shift; - - my $section = "BINARY::".$binary; - - return _fetch_array_from_config_mk($filename,$section,$var); -} - sub import_file($$) { my $input = shift; |