path: root/addressbook/gui/component/select-names/e-select-names-model.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
 * Authors: 
 *   Chris Lahey     <clahey@helixcode.com>
 *
 * Copyright (C) 2000 Helix Code, Inc.
 */

#include <config.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <gtk/gtk.h>

#include "e-select-names-model.h"
#include "e-util/e-util.h"
#include "addressbook/backend/ebook/e-card-simple.h"

enum {
    E_SELECT_NAMES_MODEL_CHANGED,
    E_SELECT_NAMES_MODEL_LAST_SIGNAL
};

static guint e_select_names_model_signals[E_SELECT_NAMES_MODEL_LAST_SIGNAL] = { 0 };

/* Object argument IDs */
enum {
    ARG_0,
    ARG_CARD,
};

static void e_select_names_model_init (ESelectNamesModel *model);
static void e_select_names_model_class_init (ESelectNamesModelClass *klass);

static void e_select_names_model_destroy (GtkObject *object);
static void e_select_names_model_set_arg (GtkObject *object, GtkArg *arg, guint arg_id);
static void e_select_names_model_get_arg (GtkObject *object, GtkArg *arg, guint arg_id);

/**
 * e_select_names_model_get_type:
 * @void: 
 * 
 * Registers the &ESelectNamesModel class if necessary, and returns the type ID
 * associated to it.
 * 
 * Return value: The type ID of the &ESelectNamesModel class.
 **/
GtkType
e_select_names_model_get_type (void)
{
    static GtkType model_type = 0;

    if (!model_type) {
        GtkTypeInfo model_info = {
            "ESelectNamesModel",
            sizeof (ESelectNamesModel),
            sizeof (ESelectNamesModelClass),
            (GtkClassInitFunc) e_select_names_model_class_init,
            (GtkObjectInitFunc) e_select_names_model_init,
            NULL, /* reserved_1 */
            NULL, /* reserved_2 */
            (GtkClassInitFunc) NULL
        };

        model_type = gtk_type_unique (gtk_object_get_type (), &model_info);
    }

    return model_type;
}

/**
 * e_select_names_model_new:
 * @VCard: a string in vCard format
 *
 * Returns: a new #ESelectNamesModel that wraps the @VCard.
 */
ESelectNamesModel *
e_select_names_model_new (void)
{
    ESelectNamesModel *model = E_SELECT_NAMES_MODEL(gtk_type_new(e_select_names_model_get_type()));
    return model;
}

/**
 * e_select_names_model_new:
 * @VCard: a string in vCard format
 *
 * Returns: a new #ESelectNamesModel that wraps the @VCard.
 */
ESelectNamesModel *
e_select_names_model_duplicate (ESelectNamesModel *old)
{
    ESelectNamesModel *model = E_SELECT_NAMES_MODEL(gtk_type_new(e_select_names_model_get_type()));
    model->data = e_list_duplicate(old->data);
    model->id = g_strdup(old->id);
    model->title = g_strdup(old->title);
    return model;
}

static void
e_select_names_model_class_init (ESelectNamesModelClass *klass)
{
    GtkObjectClass *object_class;

    object_class = GTK_OBJECT_CLASS(klass);

    e_select_names_model_signals[E_SELECT_NAMES_MODEL_CHANGED] =
        gtk_signal_new ("changed",
                GTK_RUN_LAST,
                object_class->type,
                GTK_SIGNAL_OFFSET (ESelectNamesModelClass, changed),
                gtk_marshal_NONE__NONE,
                GTK_TYPE_NONE, 0);

    gtk_object_class_add_signals (object_class, e_select_names_model_signals, E_SELECT_NAMES_MODEL_LAST_SIGNAL);

    gtk_object_add_arg_type ("ESelectNamesModel::card",
                 GTK_TYPE_OBJECT, GTK_ARG_READWRITE, ARG_CARD);

    klass->changed = NULL;

    object_class->destroy = e_select_names_model_destroy;
    object_class->get_arg = e_select_names_model_get_arg;
    object_class->set_arg = e_select_names_model_set_arg;
}

/*
 * ESelectNamesModel lifecycle management and vcard loading/saving.
 */

static void
e_select_names_model_destroy (GtkObject *object)
{
    ESelectNamesModel *model;
    
    model = E_SELECT_NAMES_MODEL (object);

    gtk_object_unref(GTK_OBJECT(model->data));
}


/* Set_arg handler for the model */
static void
e_select_names_model_set_arg (GtkObject *object, GtkArg *arg, guint arg_id)
{
    ESelectNamesModel *model;
    
    model = E_SELECT_NAMES_MODEL (object);

    switch (arg_id) {
    case ARG_CARD:
        break;
    default:
        return;
    }
}

/* Get_arg handler for the model */
static void
e_select_names_model_get_arg (GtkObject *object, GtkArg *arg, guint arg_id)
{
    ESelectNamesModel *model;

    model = E_SELECT_NAMES_MODEL (object);

    switch (arg_id) {
    case ARG_CARD:
        break;
    default:
        arg->type = GTK_TYPE_INVALID;
        break;
    }
}

static void *
data_copy(const void *sec, void *data)
{
    const ESelectNamesModelData *section = sec;
    ESelectNamesModelData *newsec;
    
    newsec = g_new(ESelectNamesModelData, 1);
    newsec->type = section->type;
    newsec->card = section->card;
    if (newsec->card)
        gtk_object_ref(GTK_OBJECT(newsec->card));
    newsec->string = g_strdup(section->string);
    return newsec;
}

static void
data_free(void *sec, void *data)
{
    ESelectNamesModelData *section = sec;
    if (section->card)
        gtk_object_unref(GTK_OBJECT(section->card));
    g_free(section->string);
    g_free(section);
}

/**
 * e_select_names_model_init:
 */
static void
e_select_names_model_init (ESelectNamesModel *model)
{
    model->data = e_list_new(data_copy, data_free, model);
}

static void *
copy_func(const void *data, void *user_data)
{
    GtkObject *object = (void *) data;
    if (object)
        gtk_object_ref(object);
    return object;
}

static void
free_func(void *data, void *user_data)
{
    GtkObject *object = data;
    if (object)
        gtk_object_unref(object);
}

/* Of type ECard */
EList                    *e_select_names_model_get_cards                 (ESelectNamesModel *model)
{
    EList *list = e_list_new(copy_func, free_func, NULL);
    EIterator *iterator = e_list_get_iterator(model->data);
    EIterator *new_iterator = e_list_get_iterator(list);

    for (e_iterator_reset(iterator); e_iterator_is_valid(iterator); e_iterator_next(iterator)) {
        ESelectNamesModelData *node = (void *) e_iterator_get(iterator);
        ECard *card;
        ECardSimple *simple;
        if (node->card) {
            card = node->card;
            gtk_object_ref(GTK_OBJECT(card));
        } else {
            card = e_card_new("");
        }
        simple = e_card_simple_new(card);
        e_card_simple_set_arbitrary(simple, "text_version", "string", node->string);
        e_iterator_insert(new_iterator, card, FALSE);
        gtk_object_unref(GTK_OBJECT(card));
        gtk_object_unref(GTK_OBJECT(simple));
    }
    return list;
}

EList                    *e_select_names_model_get_data                 (ESelectNamesModel *model)
{
    return model->data;
}

static void
e_select_names_model_changed           (ESelectNamesModel *model)
{
    gtk_signal_emit(GTK_OBJECT(model),
            e_select_names_model_signals[E_SELECT_NAMES_MODEL_CHANGED]);
}

void
e_select_names_model_insert            (ESelectNamesModel *model,
                    EIterator *iterator, /* Must be one of the iterators in the model, or NULL if the list is empty. */
                    int index,
                    char *data)
{
    gchar **strings = e_strsplit(data, ",", -1);
    int i;
    if (iterator == NULL) {
        ESelectNamesModelData new = {E_SELECT_NAMES_MODEL_DATA_TYPE_STRING_ADDRESS, NULL, ""};

        e_list_append(model->data, &new);
        iterator = e_list_get_iterator(model->data);

        index = 0;
    } else {
        gtk_object_ref(GTK_OBJECT(iterator));
    }
    if (strings[0]) {
        ESelectNamesModelData *node = (void *) e_iterator_get(iterator);
        gchar *temp = g_strdup_printf("%.*s%s%s", index, node->string, strings[0], node->string + index);
        g_free(node->string);
        node->string = temp;
        index += strlen(strings[0]);

        for (i = 1; strings[i]; i++) {
            ESelectNamesModelData *node = (void *) e_iterator_get(iterator);
            gchar *temp = g_strdup_printf("%.*s", index, node->string);
            gchar *temp2 = g_strdup_printf("%s%s", strings[i], node->string + index);

            g_free(node->string);
            node->type = E_SELECT_NAMES_MODEL_DATA_TYPE_STRING_ADDRESS;
            node->string = temp;
            if (node->card)
                gtk_object_unref(GTK_OBJECT(node->card));
            node->card = NULL;

            node = g_new(ESelectNamesModelData, 1);
            node->type = E_SELECT_NAMES_MODEL_DATA_TYPE_STRING_ADDRESS;
            node->card = NULL;
            node->string = temp2;
            e_iterator_insert(iterator, node, 0);
            index = strlen(strings[i]);
            g_free(node->string);
            g_free(node);
        }
    }
    e_select_names_model_changed(model);
    gtk_object_unref(GTK_OBJECT(iterator));
}

void
e_select_names_model_insert_length     (ESelectNamesModel *model,
                    EIterator *iterator, /* Must be one of the iterators in the model. */
                    int index,
                    char *data,
                    int length)
{
    gchar *string = g_new(char, length + 1);
    strncpy(string, data, length);
    string[length] = 0;
    e_select_names_model_insert(model, iterator, index, string);
    g_free(string);
}

void
e_select_names_model_delete            (ESelectNamesModel *model,
                    EIterator *iterator, /* Must be one of the iterators in the model. */
                    int index,
                    int length)
{
    while (length > 0 && e_iterator_is_valid(iterator)) {
        ESelectNamesModelData *node = (void *) e_iterator_get(iterator);
        int this_length = strlen(node->string);
        if (this_length <= index + length) {
            gchar *temp = g_strdup_printf("%.*s", index, node->string);
            g_free(node->string);
            node->string = temp;
            length -= this_length - index;
        } else {
            gchar *temp = g_strdup_printf("%.*s%s", index, node->string, node->string + index + length);
            g_free(node->string);
            node->string = temp;
            break;
        }
        
        if (length > 0) {
            e_iterator_next(iterator);
            if (e_iterator_is_valid(iterator)) {
                ESelectNamesModelData *node2 = (void *) e_iterator_get(iterator);
                gchar *temp = g_strdup_printf("%s%s", node->string, node2->string);
                g_free(node2->string);
                node2->string = temp;
                e_iterator_prev(iterator);
                e_iterator_delete(iterator);
                length --;
            }
        }
    }
    e_select_names_model_changed(model);
}

void
e_select_names_model_replace           (ESelectNamesModel *model,
                    EIterator *iterator, /* Must be one of the iterators in the model. */
                    int index,
                    int length,
                    char *data)
{
    if (iterator == NULL) {
        ESelectNamesModelData new = {E_SELECT_NAMES_MODEL_DATA_TYPE_STRING_ADDRESS, NULL, ""};

        e_list_append(model->data, &new);
        iterator = e_list_get_iterator(model->data);

        index = 0;
    } else {
        gtk_object_ref(GTK_OBJECT(iterator));
    }
    while (length > 0 && e_iterator_is_valid(iterator)) {
        ESelectNamesModelData *node = (void *) e_iterator_get(iterator);
        int this_length = strlen(node->string);
        if (this_length <= index + length) {
            gchar *temp = g_strdup_printf("%.*s", index, node->string);
            g_free(node->string);
            node->string = temp;
            length -= this_length - index;
        } else {
            gchar *temp = g_strdup_printf("%.*s%s", index, node->string, node->string + index + length);
            g_free(node->string);
            node->string = temp;
            length = 0;
        }

        if (length > 0) {
            e_iterator_next(iterator);
            if (e_iterator_is_valid(iterator)) {
                ESelectNamesModelData *node2 = (void *) e_iterator_get(iterator);
                gchar *temp = g_strdup_printf("%s%s", node->string, node2->string);
                g_free(node2->string);
                node2->string = temp;
                e_iterator_prev(iterator);
                e_iterator_delete(iterator);
            }
        }
    }
    if (!e_iterator_is_valid(iterator)) {
        ESelectNamesModelData *node;
        e_iterator_last(iterator);
        if (e_iterator_is_valid(iterator)) {
            node = (void *) e_iterator_get(iterator);
            index = strlen(node->string);
        } else
            index = 0;
    }
    e_select_names_model_insert (model, iterator, index, data);
    gtk_object_unref(GTK_OBJECT(iterator));
}


void
e_select_names_model_add_item          (ESelectNamesModel *model,
                    EIterator *iterator, /* NULL for at the beginning. */
                    ESelectNamesModelData *data)
{
    e_iterator_insert(iterator, data, FALSE);
    e_select_names_model_changed(model);
}

void
e_select_names_model_remove_item       (ESelectNamesModel *model,
                    EIterator *iterator)
{
    e_iterator_delete(iterator);
    e_select_names_model_changed(model);
}