Add secure versions for metacallv and metacallfv.

Author: viferga

source/metacall/include/metacall/metacall.h

@@ -270,6 +270,24 @@ METACALL_API int metacall_load_from_configuration(const char * path, void ** han
 */
 METACALL_API void * metacallv(const char * name, void * args[]);
 
+/**
+*  @brief
+*    Call a function anonymously by value array @args
+*
+*  @param[in] name
+*    Name of the function
+*
+*  @param[in] args
+*    Array of pointers to data
+*
+*  @param[in] size
+*    Number of elements of the call
+*
+*  @return
+*    Pointer to value containing the result of the call
+*/
+METACALL_API void * metacallv_s(const char * name, void * args[], size_t size);
+
 /**
 *  @brief
 *    Call a function anonymously by handle @handle value array @args
@@ -421,6 +439,24 @@ METACALL_API void * metacall_handle_export(void * handle);
 */
 METACALL_API void * metacallfv(void * func, void * args[]);
 
+/**
+*  @brief
+*    Call a function anonymously by value array @args and function @func
+*
+*  @param[in] func
+*    Reference to function to be called
+*
+*  @param[in] args
+*    Array of pointers to data
+*
+*  @param[in] size
+*    Number of function arguments
+*
+*  @return
+*    Pointer to value containing the result of the call
+*/
+METACALL_API void * metacallfv_s(void * func, void * args[], size_t size);
+
 /**
 *  @brief
 *    Call a function anonymously by variable arguments @va_args and function @func

source/metacall/source/metacall.c

@@ -264,6 +264,11 @@ void * metacallv(const char * name, void * args[])
 	return metacallfv(loader_get(name), args);
 }
 
+void * metacallv_s(const char * name, void * args[], size_t size)
+{
+	return metacallfv_s(loader_get(name), args, size);
+}
+
 void * metacallhv(void * handle, const char * name, void * args[])
 {
 	(void)handle;
@@ -611,11 +616,25 @@ void * metacallfv(void * func, void * args[])
 	{
 		signature s = function_signature(f);
 
-		size_t iterator, args_count = signature_count(s);
+		return metacallfv_s(func, args, signature_count(s));
+	}
+
+	return NULL;
+}
+
+void * metacallfv_s(void * func, void * args[], size_t size)
+{
+	function f = (function)func;
+
+	if (f != NULL)
+	{
+		signature s = function_signature(f);
+
+		size_t iterator;
 
 		value ret;
 
-		for (iterator = 0; iterator < args_count; ++iterator)
+		for (iterator = 0; iterator < size; ++iterator)
 		{
 			type t = signature_get_type(s, iterator);
 
@@ -635,7 +654,7 @@ void * metacallfv(void * func, void * args[])
 			}
 		}
 
-		ret = function_call(f, args, args_count);
+		ret = function_call(f, args, size);
 
 		if (ret != NULL)
 		{