/* SPDX-License-Identifier: GPL-2.0-or-later */
/*
 * Copyright (C) 2013 Red Hat, Inc.
 */

/**
 * SECTION:nmt-list
 * @short_description: An editable list of IP addresses, hostnames, or key=value pairs
 *
 * #NmtList is a subclass of #NmtWidgetList that contains
 * entries displaying IP addresses, address/prefix strings,
 * hostnames, or key=value pairs. This is designed for binding its
 * #NmtList:strings property to an appropriate property via one
 * of the nm-editor-bindings functions.
 */

#include "libnm-client-aux-extern/nm-default-client.h"

#include "nmt-list.h"

#include <arpa/inet.h>
#include <netinet/in.h>
#include <stdlib.h>

#include "nmt-ip-entry.h"

G_DEFINE_TYPE(NmtList, nmt_list, NMT_TYPE_WIDGET_LIST)

#define NMT_LIST_GET_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE((o), NMT_TYPE_LIST, NmtListPrivate))

typedef struct {
    NmtListType list_type;
    char      **strings;
} NmtListPrivate;

enum {
    PROP_0,
    PROP_LIST_TYPE,
    PROP_STRINGS,

    LAST_PROP
};

/**
 * NmtListType:
 * @NMT_LIST_IP4_WITH_PREFIX: IPv4 address/prefix strings
 * @NMT_LIST_IP4: IPv4 addresses
 * @NMT_LIST_IP6_WITH_PREFIX: IPv6 address/prefix strings
 * @NMT_LIST_IP6: IPv6 addresses
 * @NMT_LIST_HOSTNAME: hostnames
 *
 * The type of address in an #NmtList
 */

/**
 * nmt_list_new:
 * @list_type: the type of address the list will contain
 *
 * Creates a new #NmtList
 *
 * Returns: a new #NmtList
 */
NmtNewtWidget *
nmt_list_new(NmtListType list_type)
{
    return g_object_new(NMT_TYPE_LIST, "list-type", list_type, NULL);
}

static void
nmt_list_init(NmtList *list)
{}

static gboolean
strings_transform_to_entry(GBinding     *binding,
                           const GValue *source_value,
                           GValue       *target_value,
                           gpointer      user_data)
{
    int    n = GPOINTER_TO_INT(user_data);
    char **strings;

    strings = g_value_get_boxed(source_value);
    if (n >= g_strv_length(strings))
        return FALSE;

    g_value_set_string(target_value, strings[n]);
    return TRUE;
}

static gboolean
strings_transform_from_entry(GBinding     *binding,
                             const GValue *source_value,
                             GValue       *target_value,
                             gpointer      user_data)
{
    NmtList        *list = NMT_LIST(g_binding_get_source(binding));
    NmtListPrivate *priv = NMT_LIST_GET_PRIVATE(list);
    int             n    = GPOINTER_TO_INT(user_data);

    if (n >= g_strv_length(priv->strings))
        return FALSE;

    g_free(priv->strings[n]);
    priv->strings[n] = g_value_dup_string(source_value);

    g_value_set_boxed(target_value, priv->strings);
    return TRUE;
}

static gboolean
hostname_filter(NmtNewtEntry *entry, const char *text, int ch, int position, gpointer user_data)
{
    return g_ascii_isalnum(ch) || ch == '.' || ch == '-' || ch == '~';
}

static gboolean
key_value_validate(NmtNewtEntry *entry, const char *text, gpointer user_data)
{
    const char *val;

    if (!text || !text[0])
        return TRUE;

    val = strchr(text, '=');
    return val && val != text && val[1];
}

static NmtNewtWidget *
nmt_list_create_widget(NmtWidgetList *list, int num)
{
    NmtListPrivate *priv = NMT_LIST_GET_PRIVATE(list);
    NmtNewtWidget  *entry;

    if (priv->list_type == NMT_LIST_IP4_WITH_PREFIX) {
        entry = nmt_ip_entry_new(25, AF_INET, TRUE, FALSE);
    } else if (priv->list_type == NMT_LIST_IP4) {
        entry = nmt_ip_entry_new(25, AF_INET, FALSE, FALSE);
    } else if (priv->list_type == NMT_LIST_IP6_WITH_PREFIX) {
        entry = nmt_ip_entry_new(25, AF_INET6, TRUE, FALSE);
    } else if (priv->list_type == NMT_LIST_IP6) {
        entry = nmt_ip_entry_new(25, AF_INET6, FALSE, FALSE);
    } else if (priv->list_type == NMT_LIST_HOSTNAME) {
        entry = nmt_newt_entry_new(25, NMT_NEWT_ENTRY_NONEMPTY);
        nmt_newt_entry_set_filter(NMT_NEWT_ENTRY(entry), hostname_filter, list);
    } else if (priv->list_type == NMT_LIST_KEY_VALUE) {
        entry = nmt_newt_entry_new(40, 0);
        nmt_newt_entry_set_validator(NMT_NEWT_ENTRY(entry), key_value_validate, NULL);
    } else {
        g_return_val_if_reached(NULL);
    }

    g_object_bind_property_full(list,
                                "strings",
                                entry,
                                "text",
                                G_BINDING_BIDIRECTIONAL | G_BINDING_SYNC_CREATE,
                                strings_transform_to_entry,
                                strings_transform_from_entry,
                                GINT_TO_POINTER(num),
                                NULL);

    return entry;
}

static void
nmt_list_add_clicked(NmtWidgetList *list)
{
    NmtListPrivate *priv = NMT_LIST_GET_PRIVATE(list);
    int             len;

    len                    = priv->strings ? g_strv_length(priv->strings) : 0;
    priv->strings          = g_renew(char *, priv->strings, len + 2);
    priv->strings[len]     = g_strdup("");
    priv->strings[len + 1] = NULL;

    nmt_widget_list_set_length(list, len + 1);
    g_object_notify(G_OBJECT(list), "strings");
}

static void
nmt_list_remove_clicked(NmtWidgetList *list, int num)
{
    NmtListPrivate *priv = NMT_LIST_GET_PRIVATE(list);
    int             len;

    len = g_strv_length(priv->strings);
    g_free(priv->strings[num]);
    memmove(priv->strings + num, priv->strings + num + 1, (len - num) * sizeof(char *));

    nmt_widget_list_set_length(list, len - 1);
    g_object_notify(G_OBJECT(list), "strings");
}

static void
nmt_list_set_property(GObject *object, guint prop_id, const GValue *value, GParamSpec *pspec)
{
    NmtListPrivate *priv = NMT_LIST_GET_PRIVATE(object);

    switch (prop_id) {
    case PROP_LIST_TYPE:
        priv->list_type = g_value_get_uint(value);
        break;
    case PROP_STRINGS:
        g_strfreev(priv->strings);
        priv->strings = g_value_dup_boxed(value);
        if (!priv->strings)
            priv->strings = nm_strv_empty_new();
        nmt_widget_list_set_length(NMT_WIDGET_LIST(object), g_strv_length(priv->strings));
        break;
    default:
        G_OBJECT_WARN_INVALID_PROPERTY_ID(object, prop_id, pspec);
        break;
    }
}

static void
nmt_list_get_property(GObject *object, guint prop_id, GValue *value, GParamSpec *pspec)
{
    NmtListPrivate *priv = NMT_LIST_GET_PRIVATE(object);

    switch (prop_id) {
    case PROP_LIST_TYPE:
        g_value_set_uint(value, priv->list_type);
        break;
    case PROP_STRINGS:
        g_value_set_boxed(value, priv->strings);
        break;
    default:
        G_OBJECT_WARN_INVALID_PROPERTY_ID(object, prop_id, pspec);
        break;
    }
}

static void
nmt_list_class_init(NmtListClass *list_class)
{
    GObjectClass       *object_class      = G_OBJECT_CLASS(list_class);
    NmtWidgetListClass *widget_list_class = NMT_WIDGET_LIST_CLASS(list_class);

    g_type_class_add_private(list_class, sizeof(NmtListPrivate));

    /* virtual methods */
    object_class->set_property = nmt_list_set_property;
    object_class->get_property = nmt_list_get_property;

    widget_list_class->create_widget  = nmt_list_create_widget;
    widget_list_class->add_clicked    = nmt_list_add_clicked;
    widget_list_class->remove_clicked = nmt_list_remove_clicked;

    /**
     * NmtList:list-type:
     *
     * The type of address the list holds.
     */
    g_object_class_install_property(
        object_class,
        PROP_LIST_TYPE,
        g_param_spec_uint("list-type",
                          "",
                          "",
                          0,
                          G_MAXUINT,
                          0,
                          G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY | G_PARAM_STATIC_STRINGS));
    /**
     * NmtList:strings:
     *
     * The strings in the list's entries.
     */
    g_object_class_install_property(object_class,
                                    PROP_STRINGS,
                                    g_param_spec_boxed("strings",
                                                       "",
                                                       "",
                                                       G_TYPE_STRV,
                                                       G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
}