/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
/* 
 * Copyright (C) 2005  Novell, Inc.
 *
 * Authors: Michael Zucchi <notzed@novell.com>
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of version 2 of the GNU General Public
 * License as published by the Free Software Foundation.
 *
 * 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.
 */

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

#include <errno.h>
#include <string.h>
#include <bonobo/bonobo-i18n.h>
#include <bonobo/bonobo-exception.h>
#include "evolution-mail-messagestream.h"
#include <camel/camel-stream-mem.h>

#include "e-corba-utils.h"

#define PARENT_TYPE bonobo_object_get_type ()

static BonoboObjectClass *parent_class = NULL;

/* GObject methods */

static void
impl_dispose (GObject *object)
{
	(* G_OBJECT_CLASS (parent_class)->dispose) (object);
}

static void
impl_finalize (GObject *object)
{
	EvolutionMailMessageStream *emms = (EvolutionMailMessageStream *)object;

	printf("EvolutionMailMessageStream: finalise\n");

	if (emms->source)
		camel_object_unref(emms->source);
	g_free(emms->buffer);

	(* G_OBJECT_CLASS (parent_class)->finalize) (object);
}

/* Evolution.Mail.MessageStream */

static Evolution_Mail_Buffer *
impl_next(PortableServer_Servant _servant, const CORBA_long limit, CORBA_Environment * ev)
{
	EvolutionMailMessageStream *emf = (EvolutionMailMessageStream *)bonobo_object_from_servant(_servant);
	Evolution_Mail_Buffer *buf;
	ssize_t len;

	buf = Evolution_Mail_Buffer__alloc();
	buf->_maximum = limit;
	buf->_buffer = Evolution_Mail_Buffer_allocbuf(buf->_maximum);

	if (emf->source) {
		len = camel_stream_read(emf->source, buf->_buffer, buf->_maximum);
		if (len == -1) {
			Evolution_Mail_MailException *x;

			x = Evolution_Mail_MailException__alloc();
			x->id = Evolution_Mail_SYSTEM_ERROR;
			x->desc = CORBA_string_dup(g_strerror(errno));
			CORBA_exception_set(ev, CORBA_USER_EXCEPTION, ex_Evolution_Mail_MailException, x);
			CORBA_free(buf);
			buf = CORBA_OBJECT_NIL;
		} else {
			buf->_length = len;
		}
	} else {
		len = MIN(limit, (emf->len - emf->pos));
		memcpy(buf->_buffer, emf->buffer + emf->pos, len);
		emf->pos += len;
		buf->_length = len;
	}

	return buf;
}

static void
impl_mi_dispose(PortableServer_Servant _servant, CORBA_Environment *ev)
{
	EvolutionMailMessageStream *emmi = (EvolutionMailMessageStream *)bonobo_object_from_servant(_servant);

	bonobo_object_set_immortal((BonoboObject *)emmi, FALSE);
	bonobo_object_unref((BonoboObject *)emmi);
}

/* Initialization */

static void
evolution_mail_messagestream_class_init (EvolutionMailMessageStreamClass *klass)
{
	POA_Evolution_Mail_MessageStream__epv *epv = &klass->epv;
	GObjectClass *object_class = G_OBJECT_CLASS (klass);

	parent_class = g_type_class_peek_parent (klass);

	epv->next = impl_next;
	epv->dispose = impl_mi_dispose;

	object_class->dispose = impl_dispose;
	object_class->finalize = impl_finalize;
}

static void
evolution_mail_messagestream_init(EvolutionMailMessageStream *emi, EvolutionMailMessageStreamClass *klass)
{
	bonobo_object_set_immortal((BonoboObject *)emi, TRUE);
}

BONOBO_TYPE_FUNC_FULL (EvolutionMailMessageStream, Evolution_Mail_MessageStream, PARENT_TYPE, evolution_mail_messagestream)

EvolutionMailMessageStream *
evolution_mail_messagestream_new(CamelStream *source)
{
	/* FIXME: use right poa, thread per object? */
	EvolutionMailMessageStream *emf = g_object_new(evolution_mail_messagestream_get_type(), NULL);

	emf->source = source;
	camel_object_ref(source);

	return emf;
}

EvolutionMailMessageStream *
evolution_mail_messagestream_new_buffer(const char *buffer, size_t len)
{
	/* FIXME: use right poa, thread per object? */
	EvolutionMailMessageStream *emf = g_object_new(evolution_mail_messagestream_get_type(), NULL);

	emf->buffer = g_malloc(len);
	memcpy(emf->buffer, buffer, len);
	emf->len = len;
	emf->pos = 0;

	return emf;
}