path: root/mail/em-filter-context.c

/*
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) version 3.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with the program; if not, see <http://www.gnu.org/licenses/>
 *
 *
 * Authors:
 *      Not Zed <notzed@lostzed.mmc.com.au>
 *      Jeffrey Stedfast <fejj@ximian.com>
 *
 * Copyright (C) 1999-2008 Novell, Inc. (www.novell.com)
 *
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <string.h>

#include "em-filter-context.h"
#include "em-filter-rule.h"
#include "filter/e-filter-option.h"
#include "filter/e-filter-int.h"
#include "em-filter-source-element.h"

/* For poking into filter-folder guts */
#include "em-filter-editor-folder-element.h"

#define EM_FILTER_CONTEXT_GET_PRIVATE(obj) \
    (G_TYPE_INSTANCE_GET_PRIVATE \
    ((obj), EM_TYPE_FILTER_CONTEXT, EMFilterContextPrivate))

struct _EMFilterContextPrivate {
    EMailSession *session;
    GList *actions;
};

enum {
    PROP_0,
    PROP_SESSION
};

G_DEFINE_TYPE (
    EMFilterContext,
    em_filter_context,
    E_TYPE_RULE_CONTEXT)

static void
filter_context_set_session (EMFilterContext *context,
                            EMailSession *session)
{
    g_return_if_fail (E_IS_MAIL_SESSION (session));
    g_return_if_fail (context->priv->session == NULL);

    context->priv->session = g_object_ref (session);
}

static void
filter_context_set_property (GObject *object,
                             guint property_id,
                             const GValue *value,
                             GParamSpec *pspec)
{
    switch (property_id) {
        case PROP_SESSION:
            filter_context_set_session (
                EM_FILTER_CONTEXT (object),
                g_value_get_object (value));
            return;
    }

    G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
}

static void
filter_context_get_property (GObject *object,
                             guint property_id,
                             GValue *value,
                             GParamSpec *pspec)
{
    switch (property_id) {
        case PROP_SESSION:
            g_value_set_object (
                value,
                em_filter_context_get_session (
                EM_FILTER_CONTEXT (object)));
            return;
    }

    G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
}

static void
filter_context_dispose (GObject *object)
{
    EMFilterContextPrivate *priv;

    priv = EM_FILTER_CONTEXT_GET_PRIVATE (object);

    if (priv->session != NULL) {
        g_object_unref (priv->session);
        priv->session = NULL;
    }

    g_list_foreach (priv->actions, (GFunc) g_object_unref, NULL);
    g_list_free (priv->actions);

    /* Chain up to parent's dispose() method. */
    G_OBJECT_CLASS (em_filter_context_parent_class)->dispose (object);
}

/* We search for any folders in our actions list that need updating
 * and update them. */
static GList *
filter_context_rename_uri (ERuleContext *context,
                           const gchar *olduri,
                           const gchar *newuri,
                           GCompareFunc cmp)
{
    EFilterRule *rule;
    GList *l, *el;
    EFilterPart *action;
    EFilterElement *element;
    gint count = 0;
    GList *changed = NULL;

    /* For all rules, for all actions, for all elements, rename any
     * folder elements.  XXX Yes we could do this inside each part
     * itself, but not today. */
    rule = NULL;
    while ((rule = e_rule_context_next_rule (context, rule, NULL))) {
        gint rulecount = 0;

        l = EM_FILTER_RULE (rule)->actions;
        while (l) {
            action = l->data;

            el = action->elements;
            while (el) {
                element = el->data;

                if (EM_IS_FILTER_FOLDER_ELEMENT (element)
                    && cmp (em_filter_folder_element_get_uri (
                    EM_FILTER_FOLDER_ELEMENT (element)), olduri)) {
                    em_filter_folder_element_set_uri (
                        EM_FILTER_FOLDER_ELEMENT (
                        element), newuri);
                    rulecount++;
                }
                el = el->next;
            }
            l = l->next;
        }

        if (rulecount) {
            changed = g_list_append (changed, g_strdup (rule->name));
            e_filter_rule_emit_changed (rule);
        }

        count += rulecount;
    }

    return changed;
}

static GList *
filter_context_delete_uri (ERuleContext *context,
                           const gchar *uri,
                           GCompareFunc cmp)
{
    /* We basically do similar to above, but when we find it,
     * remove the action, and if thats the last action, this
     * might create an empty rule?  Remove the rule? */

    EFilterRule *rule;
    GList *l, *el;
    EFilterPart *action;
    EFilterElement *element;
    gint count = 0;
    GList *deleted = NULL;

    /* For all rules, for all actions, for all elements, check
     * deleted folder elements. XXX  Yes we could do this inside
     * each part itself, but not today. */
    rule = NULL;
    while ((rule = e_rule_context_next_rule (context, rule, NULL))) {
        gint recorded = 0;

        l = EM_FILTER_RULE (rule)->actions;
        while (l) {
            action = l->data;

            el = action->elements;
            while (el) {
                element = el->data;

                if (EM_IS_FILTER_FOLDER_ELEMENT (element)
                    && cmp (em_filter_folder_element_get_uri (
                    EM_FILTER_FOLDER_ELEMENT (element)), uri)) {
                    /* check if last action, if so, remove rule instead? */
                    l = l->next;
                    em_filter_rule_remove_action ((EMFilterRule *) rule, action);
                    g_object_unref (action);
                    count++;
                    if (!recorded)
                        deleted = g_list_append (deleted, g_strdup (rule->name));
                    goto next_action;
                }
                el = el->next;
            }
            l = l->next;
        next_action:
            ;
        }
    }

    return deleted;
}

static EFilterElement *
filter_context_new_element (ERuleContext *context,
                            const gchar *type)
{
    EMFilterContextPrivate *priv;

    priv = EM_FILTER_CONTEXT_GET_PRIVATE (context);

    if (strcmp (type, "folder") == 0)
        return em_filter_editor_folder_element_new (priv->session);

    if (strcmp (type, "system-flag") == 0)
        return e_filter_option_new ();

    if (strcmp (type, "score") == 0)
        return e_filter_int_new_type ("score", -3, 3);

    if (strcmp (type, "source") == 0)
        return em_filter_source_element_new (priv->session);

    return E_RULE_CONTEXT_CLASS (em_filter_context_parent_class)->
        new_element (context, type);
}

static void
em_filter_context_class_init (EMFilterContextClass *class)
{
    GObjectClass *object_class;
    ERuleContextClass *rule_context_class;

    g_type_class_add_private (class, sizeof (EMFilterContextPrivate));

    object_class = G_OBJECT_CLASS (class);
    object_class->set_property = filter_context_set_property;
    object_class->get_property = filter_context_get_property;
    object_class->dispose = filter_context_dispose;

    rule_context_class = E_RULE_CONTEXT_CLASS (class);
    rule_context_class->rename_uri = filter_context_rename_uri;
    rule_context_class->delete_uri = filter_context_delete_uri;
    rule_context_class->new_element = filter_context_new_element;

    g_object_class_install_property (
        object_class,
        PROP_SESSION,
        g_param_spec_object (
            "session",
            NULL,
            NULL,
            E_TYPE_MAIL_SESSION,
            G_PARAM_READWRITE |
            G_PARAM_CONSTRUCT_ONLY));
}

static void
em_filter_context_init (EMFilterContext *context)
{
    context->priv = EM_FILTER_CONTEXT_GET_PRIVATE (context);

    e_rule_context_add_part_set (
        E_RULE_CONTEXT (context),
        "partset", E_TYPE_FILTER_PART,
        (ERuleContextPartFunc) e_rule_context_add_part,
        (ERuleContextNextPartFunc) e_rule_context_next_part);

    e_rule_context_add_part_set (
        E_RULE_CONTEXT (context),
        "actionset", E_TYPE_FILTER_PART,
        (ERuleContextPartFunc) em_filter_context_add_action,
        (ERuleContextNextPartFunc) em_filter_context_next_action);

    e_rule_context_add_rule_set (
        E_RULE_CONTEXT (context),
        "ruleset", EM_TYPE_FILTER_RULE,
        (ERuleContextRuleFunc) e_rule_context_add_rule,
        (ERuleContextNextRuleFunc) e_rule_context_next_rule);
}

EMFilterContext *
em_filter_context_new (EMailSession *session)
{
    g_return_val_if_fail (E_IS_MAIL_SESSION (session), NULL);

    return g_object_new (
        EM_TYPE_FILTER_CONTEXT, "session", session, NULL);
}

EMailSession *
em_filter_context_get_session (EMFilterContext *context)
{
    g_return_val_if_fail (EM_IS_FILTER_CONTEXT (context), NULL);

    return context->priv->session;
}

void
em_filter_context_add_action (EMFilterContext *context,
                              EFilterPart *action)
{
    context->priv->actions =
        g_list_append (context->priv->actions, action);
}

EFilterPart *
em_filter_context_find_action (EMFilterContext *context,
                               const gchar *name)
{
    return e_filter_part_find_list (context->priv->actions, name);
}

EFilterPart *
em_filter_context_create_action (EMFilterContext *context,
                                 const gchar *name)
{
    EFilterPart *part;

    if ((part = em_filter_context_find_action (context, name)))
        return e_filter_part_clone (part);

    return NULL;
}

EFilterPart *
em_filter_context_next_action (EMFilterContext *context,
                               EFilterPart *last)
{
    return e_filter_part_next_list (context->priv->actions, last);
}