/* SPDX-License-Identifier: LGPL-2.1+ */

/*

 * Copyright (C) 2007 - 2014 Red Hat, Inc.

 * Copyright (C) 2007 - 2008 Novell, Inc.

 */

#include "nm-default.h"

#include "nm-property-compare.h"

#include <netinet/in.h>

static int

_nm_property_compare_collection(GVariant *value1, GVariant *value2)

{

    GVariant *child1, *child2;

    int       i, len1, len2;

    int       ret;

    len1 = g_variant_n_children(value1);

    len2 = g_variant_n_children(value2);

    if (len1 != len2)

        return len1 < len2 ? -1 : len1 > len2;

    for (i = 0; i < len1; i++) {

        child1 = g_variant_get_child_value(value1, i);

        child2 = g_variant_get_child_value(value2, i);

        ret = nm_property_compare(child1, child2);

        g_variant_unref(child1);

        g_variant_unref(child2);

        if (ret)

            return ret;

    }

    return 0;

}

static int

_nm_property_compare_vardict(GVariant *value1, GVariant *value2)

{

    GVariantIter iter;

    int          len1, len2;

    const char * key;

    GVariant *   val1, *val2;

    len1 = g_variant_n_children(value1);

    len2 = g_variant_n_children(value2);

    if (len1 != len2)

        return len1 < len2 ? -1 : 1;

    g_variant_iter_init(&iter, value1);

    while (g_variant_iter_next(&iter, "{&sv}", &key, &val1)) {

        if (!g_variant_lookup(value2, key, "v", &val2)) {

            g_variant_unref(val1);

            return -1;

        }

        if (!g_variant_equal(val1, val2)) {

            g_variant_unref(val1);

            g_variant_unref(val2);

            return -1;

        }

        g_variant_unref(val1);

        g_variant_unref(val2);

    }

    return 0;

}

static int

_nm_property_compare_strdict(GVariant *value1, GVariant *value2)

{

    GVariantIter iter;

    int          len1, len2;

    const char * key, *val1, *val2;

    int          ret;

    len1 = g_variant_n_children(value1);

    len2 = g_variant_n_children(value2);

    if (len1 != len2)

        return len1 < len2 ? -1 : len1 > len2;

    g_variant_iter_init(&iter, value1);

    while (g_variant_iter_next(&iter, "{&s&s}", &key, &val1)) {

        if (!g_variant_lookup(value2, key, "&s", &val2))

            return -1;

        ret = strcmp(val1, val2);

        if (ret)

            return ret;

    }

    return 0;

}

int

nm_property_compare(GVariant *value1, GVariant *value2)

{

    const GVariantType *type1;

    const GVariantType *type2;

    int                 ret;

    if (value1 == value2)

        return 0;

    if (!value1)

        return 1;

    if (!value2)

        return -1;

    type1 = g_variant_get_type(value1);

    type2 = g_variant_get_type(value2);

    if (!g_variant_type_equal(type1, type2))

        return type1 < type2 ? -1 : type1 > type2;

    if (g_variant_type_is_basic(type1))

        ret = g_variant_compare(value1, value2);

    else if (g_variant_is_of_type(value1, G_VARIANT_TYPE("a{ss}")))

        ret = _nm_property_compare_strdict(value1, value2);

    else if (g_variant_is_of_type(value1, G_VARIANT_TYPE("a{sv}")))

        ret = _nm_property_compare_vardict(value1, value2);

    else if (g_variant_type_is_array(type1))

        ret = _nm_property_compare_collection(value1, value2);

    else if (g_variant_type_is_tuple(type1))

        ret = _nm_property_compare_collection(value1, value2);

    else {

        g_warning("Don't know how to compare variant type '%s'", (const char *) type1);

        ret = value1 == value2;

    }

    return ret;

}