// SPDX-License-Identifier: LGPL-2.1+
/*
 * Copyright (C) 2019 Red Hat, Inc.
 */

#ifndef __NM_VALUE_TYPE_H__
#define __NM_VALUE_TYPE_H__

typedef enum {
	NM_VALUE_TYPE_UNSPEC = 1,
	NM_VALUE_TYPE_BOOL   = 2,
	NM_VALUE_TYPE_INT32  = 3,
	NM_VALUE_TYPE_INT    = 4,
	NM_VALUE_TYPE_STRING = 5,
} NMValueType;

/*****************************************************************************/

#ifdef NM_VALUE_TYPE_DEFINE_FUNCTIONS

typedef union {
	bool             v_bool;
	gint32           v_int32;
	int              v_int;
	const char      *v_string;

	/* for convenience, also let the union contain other pointer types. These are
	 * for NM_VALUE_TYPE_UNSPEC. */
	gconstpointer   *v_ptr;
	const GPtrArray *v_ptrarray;

} NMValueTypUnion;

/* Set the NMValueTypUnion. You can also assign the member directly.
 * The only purpose of this is that it also returns a pointer to the
 * union. So, you can do
 *
 *   ptr = NM_VALUE_TYP_UNION_SET (&value_typ_union_storage, v_bool, TRUE);
 */
#define NM_VALUE_TYP_UNION_SET(_arg, _type, _val) \
	({ \
		NMValueTypUnion *const _arg2 = (_arg); \
		\
		*_arg2 = (NMValueTypUnion) { \
			._type = (_val), \
		}; \
		_arg2; \
	})

typedef struct {
	bool has;
	NMValueTypUnion val;
} NMValueTypUnioMaybe;

#define NM_VALUE_TYP_UNIO_MAYBE_SET(_arg, _type, _val) \
	({ \
		NMValueTypUnioMaybe *const _arg2 = (_arg); \
		\
		*_arg2 = (NMValueTypUnioMaybe) { \
			.has       = TRUE, \
			.val._type = (_val), \
		}; \
		_arg2; \
	})

/*****************************************************************************/

static inline int
nm_value_type_cmp (NMValueType value_type,
                   gconstpointer p_a,
                   gconstpointer p_b)
{
	switch (value_type) {
	case NM_VALUE_TYPE_BOOL:   NM_CMP_DIRECT (*((const bool   *) p_a), *((const bool   *) p_b)); return 0;
	case NM_VALUE_TYPE_INT32:  NM_CMP_DIRECT (*((const gint32 *) p_a), *((const gint32 *) p_b)); return 0;
	case NM_VALUE_TYPE_INT:    NM_CMP_DIRECT (*((const int    *) p_a), *((const int    *) p_b)); return 0;
	case NM_VALUE_TYPE_STRING: return nm_strcmp0 (*((const char *const*) p_a), *((const char *const*) p_b));
	case NM_VALUE_TYPE_UNSPEC:
		break;
	}
	nm_assert_not_reached ();
	return 0;
}

static inline gboolean
nm_value_type_equal (NMValueType value_type,
                     gconstpointer p_a,
                     gconstpointer p_b)
{
	return nm_value_type_cmp (value_type, p_a, p_b) == 0;
}

static inline void
nm_value_type_copy (NMValueType value_type,
                    gpointer dst,
                    gconstpointer src)
{
	switch (value_type) {
	case NM_VALUE_TYPE_BOOL:   (*((bool   *) dst) = *((const bool   *) src)); return;
	case NM_VALUE_TYPE_INT32:  (*((gint32 *) dst) = *((const gint32 *) src)); return;
	case NM_VALUE_TYPE_INT:    (*((int    *) dst) = *((const int    *) src)); return;
	case NM_VALUE_TYPE_STRING:
		/* self assignment safe! */
		if (*((char **) dst) != *((const char *const*) src)) {
			g_free (*((char **) dst));
			*((char **) dst) = g_strdup (*((const char *const*) src));
		}
		return;
	case NM_VALUE_TYPE_UNSPEC:
		break;
	}
	nm_assert_not_reached ();
}

static inline void
nm_value_type_get_from_variant (NMValueType value_type,
                                gpointer dst,
                                GVariant *variant,
                                gboolean clone)
{
	switch (value_type) {
	case NM_VALUE_TYPE_BOOL:   *((bool   *) dst) = g_variant_get_boolean (variant); return;
	case NM_VALUE_TYPE_INT32:  *((gint32 *) dst) = g_variant_get_int32 (variant);   return;
	case NM_VALUE_TYPE_STRING:
		if (clone) {
			g_free (*((char **) dst));
			*((char **) dst) = g_variant_dup_string (variant, NULL);
		} else {
			/* we don't clone the string, nor free the previous value. */
			*((const char **) dst) = g_variant_get_string (variant, NULL);
		}
		return;

	case NM_VALUE_TYPE_INT:
		/* "int" also does not have a define variant type, because it's not
		 * clear how many bits we would need. */

		/* fall-through */
	case NM_VALUE_TYPE_UNSPEC:
		break;
	}
	nm_assert_not_reached ();
}

static inline GVariant *
nm_value_type_to_variant (NMValueType value_type,
                          gconstpointer src)
{
	const char *v_string;

	switch (value_type) {
	case NM_VALUE_TYPE_BOOL:   return g_variant_new_boolean (*((const bool   *) src));
	case NM_VALUE_TYPE_INT32:  return g_variant_new_int32   (*((const gint32 *) src));;
	case NM_VALUE_TYPE_STRING:
		v_string = *((const char *const*) src);
		return v_string ? g_variant_new_string (v_string) : NULL;

	case NM_VALUE_TYPE_INT:
		/* "int" also does not have a define variant type, because it's not
		 * clear how many bits we would need. */

		/* fall-through */
	case NM_VALUE_TYPE_UNSPEC:
		break;
	}
	nm_assert_not_reached ();
	return NULL;
}

static inline const GVariantType *
nm_value_type_get_variant_type (NMValueType value_type)
{
	switch (value_type) {
	case NM_VALUE_TYPE_BOOL:   return G_VARIANT_TYPE_BOOLEAN;
	case NM_VALUE_TYPE_INT32:  return G_VARIANT_TYPE_INT32;
	case NM_VALUE_TYPE_STRING: return G_VARIANT_TYPE_STRING;

	case NM_VALUE_TYPE_INT:
		/* "int" also does not have a define variant type, because it's not
		 * clear how many bits we would need. */

		/* fall-through */
	case NM_VALUE_TYPE_UNSPEC:
		break;
	}
	nm_assert_not_reached ();
	return NULL;
}

/*****************************************************************************/

#endif /* NM_VALUE_TYPE_DEFINE_FUNCTIONS */

#endif  /* __NM_VALUE_TYPE_H__ */