/* -*- mode: c; indent-tabs-mode: t; c-basic-offset: 8; -*- */

#define PUSH_METHODS(prefix, av, info)                                  \
	gint i, n_methods = g_ ## prefix ## _info_get_n_methods (info); \
	for (i = 0; i < n_methods; i++) { \
		GIFunctionInfo *function_info; \
		const gchar *function_name; \
		function_info = g_ ## prefix ## _info_get_method (info, i); \
		function_name = g_base_info_get_name (function_info); \
		av_push (av, newSVpv (function_name, 0)); \
		g_base_info_unref (function_info); \
	}

static void
store_methods (HV *namespaced_functions, GIBaseInfo *info, GIInfoType info_type)
{
	const gchar *namespace;
	AV *av;

	namespace = g_base_info_get_name (info);
	av = newAV ();

	switch (info_type) {
	    case GI_INFO_TYPE_OBJECT:
	    {
		PUSH_METHODS (object, av, info);
		break;
	    }

	    case GI_INFO_TYPE_INTERFACE:
	    {
		PUSH_METHODS (interface, av, info);
		break;
	    }

	    case GI_INFO_TYPE_BOXED:
	    case GI_INFO_TYPE_STRUCT:
	    {
		PUSH_METHODS (struct, av, info);
		break;
	    }

	    case GI_INFO_TYPE_UNION:
	    {
		PUSH_METHODS (union, av, info);
		break;
	    }

	    case GI_INFO_TYPE_ENUM:
	    case GI_INFO_TYPE_FLAGS:
	    {
#if GI_CHECK_VERSION (1, 29, 17)
		PUSH_METHODS (enum, av, info);
#endif
		break;
	    }

	    default:
		ccroak ("store_methods: unsupported info type %d", info_type);
	}

	gperl_hv_take_sv (namespaced_functions, namespace, strlen (namespace),
	                  newRV_noinc ((SV *) av));
}