path: root/camel/camel-simple-data-wrapper.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/* camel-simple-data-wrapper.c : simple implementation of a data wrapper */
/* store the data in a glib byte array                                   */

/*
 *
 * Authors: Bertrand Guiheneuf <bertrand@helixcode.com>
 *      Michael Zucchi <notzed@helixcode.com>
 *
 * Copyright 1999, 2000 Helix Code, Inc. (http://www.helixcode.com)
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
 * USA
 */
#include <config.h>

#include "camel-simple-data-wrapper.h"
#include "camel-simple-data-wrapper-stream.h"
#include <camel/camel-stream-mem.h>
#include "camel-mime-utils.h"
#include <camel/camel-mime-filter.h>
#include <camel/camel-mime-filter-basic.h>
#include <camel/camel-mime-filter-charset.h>
#include <camel/camel-stream-filter.h>
#include <camel/camel-seekable-substream.h>

#include <string.h>

#define d(x)

static CamelDataWrapperClass *parent_class = NULL;

/* Returns the class for a CamelDataWrapper */
#define CSDW_CLASS(so) CAMEL_SIMPLE_DATA_WRAPPER_CLASS (GTK_OBJECT (so)->klass)

static void            construct_from_stream     (CamelDataWrapper *data_wrapper,
                             CamelStream *stream);
static void            write_to_stream           (CamelDataWrapper *data_wrapper,
                             CamelStream *stream);
static void            finalize                  (GtkObject *object);
static CamelStream *   get_output_stream         (CamelDataWrapper *data_wrapper);
static void construct_from_parser(CamelDataWrapper *dw, CamelMimeParser *mp);



static void
camel_simple_data_wrapper_class_init (CamelSimpleDataWrapperClass *camel_simple_data_wrapper_class)
{
    CamelDataWrapperClass *camel_data_wrapper_class =
        CAMEL_DATA_WRAPPER_CLASS (camel_simple_data_wrapper_class);
    GtkObjectClass *gtk_object_class =
        GTK_OBJECT_CLASS (camel_data_wrapper_class);

    parent_class = gtk_type_class (camel_data_wrapper_get_type ());


    /* virtual method overload */
    camel_data_wrapper_class->write_to_stream = write_to_stream;
    camel_data_wrapper_class->construct_from_stream = construct_from_stream;
    camel_data_wrapper_class->get_output_stream = get_output_stream;

    camel_data_wrapper_class->construct_from_parser = construct_from_parser;

    gtk_object_class->finalize = finalize;
}


static void
camel_simple_data_wrapper_init (CamelSimpleDataWrapper *wrapper)
{
    wrapper->byte_array = NULL;
    wrapper->has_byte_array_stream = FALSE;
}


GtkType
camel_simple_data_wrapper_get_type (void)
{
    static GtkType camel_simple_data_wrapper_type = 0;

    if (!camel_simple_data_wrapper_type) {
        GtkTypeInfo camel_simple_data_wrapper_info =
        {
            "CamelSimpleDataWrapper",
            sizeof (CamelSimpleDataWrapper),
            sizeof (CamelSimpleDataWrapperClass),
            (GtkClassInitFunc) camel_simple_data_wrapper_class_init,
            (GtkObjectInitFunc) camel_simple_data_wrapper_init,
                /* reserved_1 */ NULL,
                /* reserved_2 */ NULL,
            (GtkClassInitFunc) NULL,
        };

        camel_simple_data_wrapper_type =
            gtk_type_unique (camel_data_wrapper_get_type (),
                     &camel_simple_data_wrapper_info);
    }

    return camel_simple_data_wrapper_type;
}


static void
finalize (GtkObject *object)
{
    CamelSimpleDataWrapper *simple_data_wrapper =
        CAMEL_SIMPLE_DATA_WRAPPER (object);

    if (simple_data_wrapper->byte_array)
        g_byte_array_free (simple_data_wrapper->byte_array, TRUE);

    GTK_OBJECT_CLASS (parent_class)->finalize (object);
}


/**
 * camel_simple_data_wrapper_new:
 *
 * Return value: a new CamelSimpleDataWrapper object
 **/
CamelSimpleDataWrapper *
camel_simple_data_wrapper_new (void)
{
    return (CamelSimpleDataWrapper *)
        gtk_type_new (CAMEL_SIMPLE_DATA_WRAPPER_TYPE);
}


static void
write_to_stream (CamelDataWrapper *data_wrapper, CamelStream *stream)
{
    CamelSimpleDataWrapper *simple_data_wrapper =
        CAMEL_SIMPLE_DATA_WRAPPER (data_wrapper);
    GByteArray *array;

    array = simple_data_wrapper->byte_array;
    if ( array && array->len)
        camel_stream_write (stream, (gchar *)array->data, array->len);
    else
        parent_class->write_to_stream (data_wrapper, stream);
}


#define CMSDW_TMP_BUF_SIZE 100
static void
construct_from_stream (CamelDataWrapper *data_wrapper, CamelStream *stream)
{
    CamelSimpleDataWrapper *simple_data_wrapper =
        CAMEL_SIMPLE_DATA_WRAPPER (data_wrapper);
    gint nb_bytes_read;
    static gchar *tmp_buf;
    GByteArray *array;

    if (!tmp_buf)
        tmp_buf = g_new (gchar, CMSDW_TMP_BUF_SIZE);

    array = simple_data_wrapper->byte_array;
    if (array)
        g_byte_array_free (array, FALSE);

    array = g_byte_array_new ();
    simple_data_wrapper->byte_array = array;
    nb_bytes_read = camel_stream_read (stream, tmp_buf, CMSDW_TMP_BUF_SIZE);
    while (nb_bytes_read > 0) {
        if (nb_bytes_read > 0)
            g_byte_array_append (array, tmp_buf, nb_bytes_read);
        nb_bytes_read = camel_stream_read (stream, tmp_buf,
                           CMSDW_TMP_BUF_SIZE);
    };
}




/**
 * camel_simple_data_wrapper_set_text: set some text as data wrapper content
 * @simple_data_wrapper: SimpleDataWrapper object
 * @text: the text to use
 *
 * Utility routine used to set up the content of a SimpleDataWrapper object
 * to be a character string.
 **/
void
camel_simple_data_wrapper_set_text (CamelSimpleDataWrapper *simple_data_wrapper, const gchar *text)
{
    GByteArray *array;

    array = simple_data_wrapper->byte_array;
    if (array)
        g_byte_array_free (array, FALSE);

    array = g_byte_array_new ();
    simple_data_wrapper->byte_array = array;

    g_byte_array_append (array, text, strlen (text));
}


static CamelStream *
get_output_stream (CamelDataWrapper *data_wrapper)
{
    CamelSimpleDataWrapper *simple_data_wrapper;
    CamelStream *output_stream = NULL;

    simple_data_wrapper = CAMEL_SIMPLE_DATA_WRAPPER (data_wrapper);

    if (simple_data_wrapper->byte_array &&
        !(simple_data_wrapper->has_byte_array_stream)) {
        output_stream = camel_simple_data_wrapper_stream_new (simple_data_wrapper);
        camel_data_wrapper_set_output_stream (data_wrapper, output_stream);
    }

    return parent_class->get_output_stream (data_wrapper);
}

/* simple data wrapper */
static void
construct_from_parser(CamelDataWrapper *dw, CamelMimeParser *mp)
{
    GByteArray *buffer;
    char *buf;
    int len;
    off_t start, end;
    CamelMimeFilter *fdec = NULL, *fch = NULL;
    struct _header_content_type *ct;
    int decid=-1, chrid=-1, cache=FALSE;
    CamelStream *source;
    char *encoding;

    d(printf("constructing simple-data-wrapper\n"));

        /* Ok, try and be smart.  If we're storing a small message (typical) convert it,
           and store it in memory as we parse it ... if not, throw away the conversion
           and scan till the end ... */

        /* if we can't seek, dont have a stream/etc, then we must cache it */
    source = camel_mime_parser_stream(mp);
    gtk_object_ref((GtkObject *)source);
    if (source == NULL
        || !CAMEL_IS_SEEKABLE_STREAM(source))
        cache = TRUE;

    /* first, work out conversion, if any, required, we dont care about what we dont know about */
    encoding = header_content_encoding_decode(camel_mime_parser_header(mp, "content-transfer-encoding", NULL));
    if (encoding) {
        if (!strcasecmp(encoding, "base64")) {
            d(printf("Adding base64 decoder ...\n"));
            fdec = (CamelMimeFilter *)camel_mime_filter_basic_new_type(CAMEL_MIME_FILTER_BASIC_BASE64_DEC);
            decid = camel_mime_parser_filter_add(mp, fdec);
        } else if (!strcasecmp(encoding, "quoted-printable")) {
            d(printf("Adding quoted-printable decoder ...\n"));
            fdec = (CamelMimeFilter *)camel_mime_filter_basic_new_type(CAMEL_MIME_FILTER_BASIC_QP_DEC);
            decid = camel_mime_parser_filter_add(mp, fdec);
        }
        g_free(encoding);
    }

    /* if we're doing text, then see if we have to convert it to UTF8 as well */
    ct = camel_mime_parser_content_type(mp);
    if (header_content_type_is(ct, "text", "*")) {
        const char *charset = header_content_type_param(ct, "charset");
        if (charset!=NULL
            && !(strcasecmp(charset, "us-ascii")==0
             || strcasecmp(charset, "utf-8")==0)) {
            d(printf("Adding conversion filter from %s to utf-8\n", charset));
            fch = (CamelMimeFilter *)camel_mime_filter_charset_new_convert(charset, "utf-8");
            if (fch) {
                chrid = camel_mime_parser_filter_add(mp, (CamelMimeFilter *)fch);
            } else {
                g_warning("Cannot convert '%s' to 'utf-8', message display may be corrupt", charset);
            }
        }

    }

    buffer = g_byte_array_new();

        /* write to a memory buffer or something??? */
    start = camel_mime_parser_tell(mp);
    while ( camel_mime_parser_step(mp, &buf, &len) != HSCAN_BODY_END ) {
        if (buffer) {
            if (buffer->len > 20480 && !cache) {
                /* is this a 'big' message?  Yes?  We dont want to convert it all then.*/
                camel_mime_parser_filter_remove(mp, decid);
                camel_mime_parser_filter_remove(mp, chrid);
                decid = -1;
                chrid = -1;
                g_byte_array_free(buffer, TRUE);
                buffer = NULL;
            } else {
                g_byte_array_append(buffer, buf, len);
            }
        }
    }

    if (buffer) {
        CamelStream *mem;
        d(printf("Small message part, kept in memory!\n"));
        mem = camel_stream_mem_new_with_byte_array(buffer, CAMEL_STREAM_MEM_READ);
        camel_data_wrapper_set_output_stream (dw, mem);
    } else {
        CamelSeekableSubstream *sub;
        CamelStreamFilter *filter;

        d(printf("Big message part, left on disk ...\n"));

        end = camel_mime_parser_tell(mp);
        sub = (CamelSeekableSubstream *)camel_seekable_substream_new_with_seekable_stream_and_bounds ((CamelSeekableStream *)source, start, end);
        if (fdec || fch) {
            filter = camel_stream_filter_new_with_stream((CamelStream *)sub);
            if (fdec) {
                camel_mime_filter_reset(fdec);
                camel_stream_filter_add(filter, fdec);
            }
            if (fch) {
                camel_mime_filter_reset(fdec);
                camel_stream_filter_add(filter, fch);
            }
            camel_data_wrapper_set_output_stream (dw, (CamelStream *)filter);
        } else {
            camel_data_wrapper_set_output_stream (dw, (CamelStream *)sub);
        }
    }

    camel_mime_parser_filter_remove(mp, decid);
    camel_mime_parser_filter_remove(mp, chrid);

    if (fdec)
        gtk_object_unref((GtkObject *)fdec);
    if (fch)
        gtk_object_unref((GtkObject *)fch);
    gtk_object_unref((GtkObject *)source);

    /* FIXME: lookup in headers for content-type/encoding */
#if 0
    /* trivial, mem-based ... */
    buffer = g_byte_array_new();
    start = camel_mime_parser_tell(mp);
    while ( camel_mime_parser_step(mp, &buf, &len) != HSCAN_BODY_END ) {
        g_byte_array_append(buffer, buf, len);
    }
    end = camel_mime_parser_tell(mp);
    mem = camel_stream_mem_new_with_byte_array(buffer, CAMEL_STREAM_MEM_READ);
    camel_data_wrapper_set_output_stream (dw, mem);
#endif
}