/* SPDX-License-Identifier: LGPL-2.1-or-later */
/*
 * Copyright (C) 2007 - 2014 Red Hat, Inc.
 * Copyright (C) 2007 - 2008 Novell, Inc.
 */

#include "libnm-core-impl/nm-default-libnm-core.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;
}
