From dfac3f56fb47715349812d48747c4a76cb71294b Mon Sep 17 00:00:00 2001 From: Jelmer Vernooij Date: Fri, 20 May 2005 14:11:25 +0000 Subject: r6924: Remove some unused functions. (This used to be commit a7846183035295c2d60148beb23ddb4ed7d20723) --- source4/build/smb_build/config_mk.pm | 200 ----------------------------------- 1 file changed, 200 deletions(-) (limited to 'source4') 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__ -# 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__ -# 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__ -# 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__ -# 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__ -# 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__ -# 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__ -# 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__ -# 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; -- cgit