/*
 * 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 2006 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*
 * $Id: pack_to_comp.c,v 1.15 1997/10/31 16:17:04 binz Exp $ SMI
 */

/* Based on Korean Standard Code    87-3 */

/*
 * convert 2 byte combination code into
 * 	   2 byte completion code
 */

#include 	<stdio.h>
#include	"kdefs.h"
#include	"ktable.h"

#define		SKIP	0xa1 + 0xff - 0xfe

#ifdef	__STDC__
	KCHAR packtocomp(KCHAR comb2)
#else
	KCHAR packtocomp(comb2)
	KCHAR comb2;
#endif
{
	KCHAR	comp2 ;
	short 	Ci_val;    /* initial sound */
	short	V_val ;    /* middle  sound */
	short	Cf_val;    /* final   sound */
	short	mask ;

	int	disp, k;

	long	Cfbit ;

#if defined(i386) || defined(__ppc)
	comb2 = ((comb2 & 0xff00) >> 8) | ((comb2 & 0x00ff) << 8);
#endif

	/* Find index value of	initial sound	*/
	/*			middle  sound	*/
	/*			final   sound	*/
	/*	from combination code for table	*/

	Ci_val = INITIAL_SOUND((unsigned int)comb2) - 0x0a;
	V_val  = MIDDLE_SOUND((unsigned int)comb2) - (MIDDLE_SOUND((unsigned int)comb2)/4 + 2);
	Cf_val = FINAL_SOUND(comb2);

	/*
	 * Special case code check
	 */
	if ( V_val < 0 )	/* just initial sound */
#if defined(i386) || defined(__ppc)
	{
		comp2 = 0xa4a0 + Y19_32[INITIAL_SOUND((unsigned int)comb2)
			- 0x09];
		return(((comp2 & 0x00ff) << 8)|((comp2 & 0xff00) >> 8));
	}
#else
		return(0xa4a0 + Y19_32[INITIAL_SOUND((unsigned int)comb2)
			- 0x09]);
#endif

	if (Ci_val < 0 )	/* just middle  sound */
        {
		if (Cf_val <= 1)
#if defined(i386) || defined(__ppc)
		{
			comp2 = 0xa4bf + MIDDLE_SOUND((unsigned int)comb2)
				- MIDDLE_SOUND((unsigned int)comb2)/4 - 2;
			return(((comp2 & 0x00ff) << 8)|((comp2 & 0xff00) >> 8));
		}
#else
			return(0xa4bf + MIDDLE_SOUND((unsigned int)comb2)
				- MIDDLE_SOUND((unsigned int)comb2)/4 - 2);
#endif
		return(K_ILLEGAL);
	}

	/*
	 * Existence check
	 */

	Cfbit = cmp_bitmap[Ci_val][V_val] ;
	for (disp = 0, k = 0; k < Cf_val; k++)
		{
			if (Cfbit & BIT_MASK)
				disp++ ;
			Cfbit >>= 1    ;
		}

	if (!(Cfbit & BIT_MASK))	/* check Ci-val'th bit */
		return(K_ILLEGAL) ;		/* non-existence       */

	/* Find 2 byte completion code	*/

	comp2 = cmp_srchtbl[Ci_val][V_val] + disp ;
	mask  = cmp_srchtbl[Ci_val][V_val] & 0xff ;

	if ((mask + disp) > 0xfe)
		comp2 += SKIP ;
#if defined(i386) || defined(__ppc)
	return(((comp2 & 0x00ff) << 8)|((comp2 & 0xff00) >> 8));
#else
	return(comp2);
#endif
}

#ifdef TESTP
main()	/* This main portion is just for test */
{
	unsigned int comb2, comp2;
	for(;;) {
	scanf("%x",&comb2);
	comp2 = packtocomp(comb2);
	printf("/n completion code = 0x%x\n", comp2);
	}
}
#endif