/* $Id$ */
/*
 ** Copyright 1998 - 1999 Double Precision, Inc.  See COPYING for
 ** distribution information.
 */

#include	"php.h"
#include "php_mailparse.h"

#define DEBUG_RFC2045_DECODE	0


static int op_func(int c, void *dat)
{
	struct rfc2045 * p = (struct rfc2045*)dat;

	
	rfc2045_add_workbufch(p, c);

	/* drain buffer */
	if (p->workbuflen >= 4096)	{
#if DEBUG_RFC2045_DECODE
		zend_printf("op_func buffer is %d; lets drain it\n", p->workbuflen);
#endif
		(*p->udecode_func)(p->workbuf, p->workbuflen, p->misc_decode_ptr);
		p->workbuflen = 0;
	}
	
	return c;
}

void rfc2045_cdecode_start(struct rfc2045 *p,
			rfc2045_decode_user_func_t u,
			void *miscptr)
{
	enum mbfl_no_encoding from = mbfl_no_encoding_8bit;
	TSRMLS_FETCH();

	if (p->content_transfer_encoding)
	{
		from = mbfl_name2no_encoding(p->content_transfer_encoding);
		if (from == mbfl_no_encoding_invalid)	{
			zend_error(E_WARNING, "%s(): I don't know how to decode %s transfer encoding!",
					get_active_function_name(TSRMLS_C),
					p->content_transfer_encoding);
			from = mbfl_no_encoding_8bit;
		}
	}
	
	p->misc_decode_ptr=miscptr;
	p->udecode_func=u;
	p->workbuflen=0;

	if (from == mbfl_no_encoding_8bit || from == mbfl_no_encoding_7bit)
		p->decode_filter = NULL;
	else
		p->decode_filter = mbfl_convert_filter_new(
			from, mbfl_no_encoding_8bit,
			op_func,
			NULL,
			p
			);
}

int rfc2045_cdecode_end(struct rfc2045 *p)
{
	if (p->decode_filter)
	{
		mbfl_convert_filter_flush(p->decode_filter);
		mbfl_convert_filter_delete(p->decode_filter);
		p->decode_filter = NULL;
		if (p->workbuflen > 0)	{
#if DEBUG_RFC2045_DECODE
			zend_printf("cdecode end: there are %d bytes remaining; drain it\n",
						p->workbuflen);
#endif
			(*p->udecode_func)(p->workbuf, p->workbuflen, p->misc_decode_ptr);
		}
	}
	return 0;
}

int rfc2045_cdecode(struct rfc2045 *p, const char *s, size_t l)
{
	if (s && l)
	{
		int i;

		if (p->decode_filter)
		{
#if DEBUG_RFC2045_DECODE
			zend_printf("cdecode: with filter %d bytes\n", l);
#endif
			for (i=0; i<l; i++)
			{
				if (mbfl_convert_filter_feed(s[i], p->decode_filter) < 0)	{
#if DEBUG_RFC2045_DECODE
					int j;

					zend_printf("returning -1 on %d byte == %d (%c)! context is\n",
							i, (unsigned char)s[i], s[i]);

					for (j = i - 10; j < i + 10; j++)	{
						zend_printf("  byte %d  was %d  '%c'\n",
								j, (unsigned char)s[j], s[j]
								);
					}
#else
					TSRMLS_FETCH();
					zend_error(E_WARNING, "%s() - filter conversion failed. Input message is probably incorrectly encoded\n",
						get_active_function_name(TSRMLS_C)
							);
#endif	
					return -1;
				}
			}
		}
		else	{
#if DEBUG_RFC2045_DECODE
			zend_printf("cdecode: no filter %d bytes\n", l);
#endif
			return ((*p->udecode_func)(s,l,p->misc_decode_ptr));
		}

	}
	return (0);
}