# This file is part of shellfire core. It is subject to the licence terms in the COPYRIGHT file found in the top-level directory of this distribution and at https://raw.githubusercontent.com/shellfire-dev/core/master/COPYRIGHT. No part of shellfire core, including this file, may be copied, modified, propagated, or distributed except according to the terms contained in the COPYRIGHT file.
# Copyright © 2014-2015 The developers of shellfire core. See the COPYRIGHT file in the top-level directory of this distribution and at https://raw.githubusercontent.com/shellfire-dev/core/master/COPYRIGHT.


core_usesIn core compatibility
core_usesIn core/variable array

core_functions_register()
{
	local functionsVariableName="$1"
	shift 1
	
	core_variable_array_append "$functionsVariableName" "$@"
	core_dependency_declaresAsArray "$functionsVariableName"
}

core_functions_execute()
{
	local functionsVariableName="$1"
	shift 1
	
	if core_variable_isSet "$functionsVariableName"; then
		core_variable_array_iterateAsCallbacks "$functionsVariableName" "$@"
	fi
}

# Not perfect by any means; an expanded environment variable with content of 'a shell function', say, could fail this test
core_functions_exists()
{
	local functionName="$1"
	if ! type "$functionName" 1>/dev/null 2>/dev/null; then
		return 1
	fi
	
	local arg0
	local arg1
	local arg2
	local arg3
	local arg4
	IFS=' ' read -r arg0 arg1 arg2 arg3 arg4 <<-EOF
		$(type "$functionName")
	EOF
	
	case "$arg3" in
		
		# dash
		shell)
			if [ "$arg4" = 'function' ]; then
				return 0
			fi
		;;
		
		# bash
		function)
			return 0
		;;
		
		# AIX shell
		'function.')
			return 0
		;;
		
	esac
	
	return 1
}