/*
* 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 <sys/types.h>
#include <regex.h>
#include <gtk/gtk.h>
#include <glib/gi18n.h>
#include "filter-input.h"
#include "libedataserver/e-sexp.h"
#include "e-util/e-error.h"
#define d(x)
static gboolean validate (FilterElement *fe);
static int input_eq (FilterElement *fe, FilterElement *cm);
static void xml_create (FilterElement *fe, xmlNodePtr node);
static xmlNodePtr xml_encode (FilterElement *fe);
static int xml_decode (FilterElement *fe, xmlNodePtr node);
static GtkWidget *get_widget (FilterElement *fe);
static void build_code (FilterElement *fe, GString *out, struct _FilterPart *ff);
static void format_sexp (FilterElement *, GString *);
static void filter_input_class_init (FilterInputClass *klass);
static void filter_input_init (FilterInput *fi);
static void filter_input_finalise (GObject *obj);
static FilterElementClass *parent_class = NULL;
GType
filter_input_get_type (void)
{
static GType type = 0;
if (!type) {
static const GTypeInfo info = {
sizeof (FilterInputClass),
NULL, /* base_class_init */
NULL, /* base_class_finalize */
(GClassInitFunc) filter_input_class_init,
NULL, /* class_finalize */
NULL, /* class_data */
sizeof (FilterInput),
0, /* n_preallocs */
(GInstanceInitFunc) filter_input_init,
};
type = g_type_register_static (FILTER_TYPE_ELEMENT, "FilterInput", &info, 0);
}
return type;
}
static void
filter_input_class_init (FilterInputClass *klass)
{
GObjectClass *object_class = G_OBJECT_CLASS (klass);
FilterElementClass *fe_class = FILTER_ELEMENT_CLASS (klass);
parent_class = g_type_class_ref (FILTER_TYPE_ELEMENT);
object_class->finalize = filter_input_finalise;
/* override methods */
fe_class->validate = validate;
fe_class->eq = input_eq;
fe_class->xml_create = xml_create;
fe_class->xml_encode = xml_encode;
fe_class->xml_decode = xml_decode;
fe_class->get_widget = get_widget;
fe_class->build_code = build_code;
fe_class->format_sexp = format_sexp;
}
static void
filter_input_init (FilterInput *fi)
{
fi->values = g_list_prepend (NULL, g_strdup (""));
}
static void
filter_input_finalise (GObject *obj)
{
FilterInput *fi = (FilterInput *) obj;
xmlFree (fi->type);
g_list_foreach (fi->values, (GFunc)g_free, NULL);
g_list_free (fi->values);
G_OBJECT_CLASS (parent_class)->finalize (obj);
}
/**
* filter_input_new:
*
* Create a new FilterInput object.
*
* Return value: A new #FilterInput object.
**/
FilterInput *
filter_input_new (void)
{
return (FilterInput *) g_object_new (FILTER_TYPE_INPUT, NULL, NULL);
}
FilterInput *
filter_input_new_type_name (const char *type)
{
FilterInput *fi;
fi = filter_input_new ();
fi->type = (char *)xmlStrdup ((xmlChar *)type);
d(printf("new type %s = %p\n", type, fi));
return fi;
}
void
filter_input_set_value (FilterInput *fi, const char *value)
{
GList *l;
d(printf("set_value '%s'\n", value));
l = fi->values;
while (l) {
g_free (l->data);
l = g_list_next (l);
}
g_list_free (fi->values);
fi->values = g_list_append (NULL, g_strdup (value));
}
static gboolean
validate (FilterElement *fe)
{
FilterInput *fi = (FilterInput *)fe;
gboolean valid = TRUE;
if (fi->values && !strcmp (fi->type, "regex")) {
const char *pattern;
regex_t regexpat;
int regerr;
pattern = fi->values->data;
if ((regerr = regcomp (®expat, pattern, REG_EXTENDED | REG_NEWLINE | REG_ICASE))) {
size_t reglen;
char *regmsg;
/* regerror gets called twice to get the full error string
length to do proper posix error reporting */
reglen = regerror (regerr, ®expat, 0, 0);
regmsg = g_malloc0 (reglen + 1);
regerror (regerr, ®expat, regmsg, reglen);
/* FIXME: FilterElement should probably have a
GtkWidget member pointing to the value gotten with
::get_widget() so that we can get the parent window
here. */
e_error_run(NULL, "filter:bad-regexp", pattern, regmsg, NULL);
g_free (regmsg);
valid = FALSE;
}
regfree (®expat);
}
return valid;
}
static int
list_eq (GList *al, GList *bl)
{
int truth = TRUE;
while (truth && al && bl) {
truth = strcmp ((char *) al->data, (char *) bl->data) == 0;
al = al->next;
bl = bl->next;
}
return truth && al == NULL && bl == NULL;
}
static int
input_eq (FilterElement *fe, FilterElement *cm)
{
FilterInput *fi = (FilterInput *)fe, *ci = (FilterInput *)cm;
return FILTER_ELEMENT_CLASS (parent_class)->eq (fe, cm)
&& strcmp (fi->type, ci->type) == 0
&& list_eq (fi->values, ci->values);
}
static void
xml_create (FilterElement *fe, xmlNodePtr node)
{
/* parent implementation */
FILTER_ELEMENT_CLASS (parent_class)->xml_create (fe, node);
}
static xmlNodePtr
xml_encode (FilterElement *fe)
{
xmlNodePtr value;
GList *l;
FilterInput *fi = (FilterInput *)fe;
const gchar *type;
type = fi->type ? fi->type : "string";
d(printf ("Encoding %s as xml\n", type));
value = xmlNewNode (NULL, (const unsigned char *)"value");
xmlSetProp (value, (const unsigned char *)"name", (unsigned char *)fe->name);
xmlSetProp (value, (const unsigned char *)"type", (unsigned char *)type);
l = fi->values;
while (l) {
xmlNodePtr cur;
xmlChar *str = l->data;
cur = xmlNewChild (value, NULL, (unsigned char *)type, NULL);
str = xmlEncodeEntitiesReentrant (NULL, str);
xmlNodeSetContent (cur, str);
xmlFree (str);
l = l->next;
}
return value;
}
static int
xml_decode (FilterElement *fe, xmlNodePtr node)
{
FilterInput *fi = (FilterInput *)fe;
char *name, *str, *type;
xmlNodePtr n;
GList *l;
l = fi->values;
while (l) {
g_free (l->data);
l = l->next;
}
g_list_free (fi->values);
fi->values = NULL;
name = (char *)xmlGetProp (node, (const unsigned char *)"name");
type = (char *)xmlGetProp (node, (const unsigned char *)"type");
d(printf("Decoding %s from xml %p\n", type, fe));
d(printf ("Name = %s\n", name));
xmlFree (fe->name);
fe->name = name;
xmlFree (fi->type);
fi->type = type;
n = node->children;
while (n) {
if (!strcmp ((char *)n->name, type)) {
if (!(str = (char *)xmlNodeGetContent (n)))
str = (char *)xmlStrdup ((const unsigned char *)"");
d(printf (" '%s'\n", str));
fi->values = g_list_append (fi->values, g_strdup (str));
xmlFree (str);
} else if (n->type == XML_ELEMENT_NODE) {
g_warning ("Unknown node type '%s' encountered decoding a %s\n", n->name, type);
}
n = n->next;
}
return 0;
}
static void
entry_changed (GtkEntry *entry, FilterElement *fe)
{
FilterInput *fi = (FilterInput *) fe;
const char *new;
GList *l;
new = gtk_entry_get_text (entry);
d(printf("entry_changed '%s'\n", new));
/* NOTE: entry only supports a single value ... */
l = fi->values;
while (l) {
g_free (l->data);
l = l->next;
}
g_list_free (fi->values);
fi->values = g_list_append (NULL, g_strdup (new));
}
static GtkWidget *
get_widget (FilterElement *fe)
{
GtkWidget *entry;
FilterInput *fi = (FilterInput *)fe;
entry = gtk_entry_new ();
if (fi->values && fi->values->data)
gtk_entry_set_text (GTK_ENTRY (entry), (const char *) fi->values->data);
g_signal_connect (entry, "changed", G_CALLBACK (entry_changed), fe);
return entry;
}
static void
build_code (FilterElement *fe, GString *out, struct _FilterPart *ff)
{
;
}
static void
format_sexp (FilterElement *fe, GString *out)
{
FilterInput *fi = (FilterInput *) fe;
GList *l;
d(printf("format_sexp, first elem=%p\n", fi->values));
l = fi->values;
while (l) {
e_sexp_encode_string (out, l->data);
l = l->next;
}
}