/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright (c) 1994 by Sun Microsystems, Inc.
 */


#include <stdlib.h>
#include <errno.h>
#include "ktable.h"
#include "johap92_utf.h"


/****  _ I C V _ O P E N  ****/

void* _icv_open()
{
	int*	cd = (int*)malloc(sizeof(int));

	if (cd == (int*)NULL)
	{
		errno = ENOMEM;
		return((void*)-1);
	}

	*cd = MAGIC_NUMBER;

	return((void*)cd);
}  /* end of void* _icv_open(). */


/****  _ I C V _ C L O S E  ****/

void _icv_close(int* cd)
{
	if (!cd)
		errno = EBADF;
	else
		free((void*)cd);
}  /* end of void _icv_close(int*). */


/****  _ I C V _ I C O N V  ****/

size_t _icv_iconv(int* cd, char** inbuf, size_t* inbufleft,
			char** outbuf, size_t* outbufleft)
{
	size_t		ret_val = 0;
	unsigned char*	ib;
	unsigned char*	ob;
	unsigned char*	ibtail;
	unsigned char*	obtail;

	if (!cd || (*cd) != MAGIC_NUMBER)
	{
		errno = EBADF;
		return((size_t)-1);
	}

	if (!inbuf || !(*inbuf))
		return((size_t)0);

	ib = (unsigned char*)*inbuf;
	ob = (unsigned char*)*outbuf;
	ibtail = ib + *inbufleft;
	obtail = ob + *outbufleft;

	while (ib < ibtail)
	{
		if (*ib & 0x80)
		{
			unsigned short	wcode;
			unsigned long	ci, v, cf;
			char		result;
			extern char	_johap92_to_utf8(unsigned long*,
						unsigned long*,
						unsigned long*,
						unsigned short);

			if ((ibtail - ib) < 2)
			{
				errno = EINVAL;
				ret_val = (size_t)-1;
				break;
			}

			if ((result = _johap92_to_utf8(&ci, &v, &cf,
					((unsigned short)*ib << 8) |
					((unsigned short)*(ib + 1) & 0xFF)))
			    == HANGUL)
			{
				if ((obtail - ob) < (cf ? 9 : 6))
				{
					errno = E2BIG;
					ret_val = (size_t)-1;
					break;
				}
				*ob++ = (char)((ci >> 16) & 0xFF);
				*ob++ = (char)((ci >> 8) & 0xFF);
				*ob++ = (char)(ci & 0xFF);
				*ob++ = (char)((v >> 16) & 0xFF);
				*ob++ = (char)((v >> 8) & 0xFF);
				*ob++ = (char)(v & 0xFF);
				if (cf)
				{
					*ob++ = (char)((cf >> 16) & 0xFF);
					*ob++ = (char)((cf >> 8) & 0xFF);
					*ob++ = (char)(cf & 0xFF);
				}
			}
			else if (result == HANJA_OR_SYMBOL)
			{
				if ((obtail - ob) < 3)
				{
					errno = E2BIG;
					ret_val = (size_t)-1;
					break;
				}
				*ob++ = (char)((ci >> 16) & 0xFF);
				*ob++ = (char)((ci >> 8) & 0xFF);
				*ob++ = (char)(ci & 0xFF);
			}
			else  /* FAILED - this means input char isn't belong to
			       *	  input codeset. */
			{
				errno = EILSEQ;
				ret_val = (size_t)-1;
				break;
			}
			ib += 2;

		}
		else  /* CS0 */
		{
			if (ob >= obtail)
			{
				errno = E2BIG;
				ret_val = (size_t)-1;
				break;
			}
			*ob++ = *ib++;
		}
	}

	*inbuf = (char*)ib;
	*inbufleft = ibtail - ib;
	*outbuf = (char*)ob;
	*outbufleft = obtail - ob;

	return(ret_val);
}  /* end of size_t _icv_iconv(int*, char**, size_t*, char**, size_t*). */