/*
 * 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
 */
/* $Id: c2p.c,v 1.12 1997/10/31 16:16:56 binz Exp $ SMI: ALE */

/*
 * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*
 *  Convert 2 byte completion  code to
 *          2 byte combination code
 *  1) find the sequential No. of initial and middle sounds.
 *  2) decide the displacement of final sound from the starting point.
 *  3) combine each sounds into combination code.
 */

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

#define         SKIP    0xa1 + 0xff - 0xfe

#define         CI_CNT  19 - 1
#define         V_CNT   21 - 1

/* KS C 5601-1986 */
KCHAR c2p(comp2)
KCHAR comp2;
{

        KCHAR   comb2;
        short   Ci_val;         /* initial sound */
        short   V_val ;         /* middle  sound */
        short   Cf_val;         /* final   sound */
        short   mask  ;
        short   high = CI_CNT ;
        short   low  = 0      ;

        int     disp,cnt;

        long    Cfbit ;

/*
 * Find initial sound (Ci_val) and
 *      middle  sound (V_val )
 * which make the starting point for 'comp2'.
 */

        for (;;) {
                Ci_val = (low + high) / 2 ;
                if (low >= high)
                        break ;
                if (comp2 < cmp_srchtbl[Ci_val][0])
                        high = Ci_val - 1 ;
                else if (comp2 < cmp_srchtbl[Ci_val+1][0])
                        break ;
                     else low = Ci_val + 1 ;
        }

        V_val = 1;
        while(1) {
                if (comp2 < cmp_srchtbl[Ci_val][V_val]) {
                        while(cmp_srchtbl[Ci_val][--V_val] == 0)
                                ;
                        break;
                }else if (V_val == V_CNT)
                        break ;
                V_val++;
        }

        /* Find displacement (temporary final sound value) */

        disp  = comp2 - cmp_srchtbl[Ci_val][V_val] ;
        mask  = cmp_srchtbl[Ci_val][V_val] & BYTE_MASK  ;

        if ((mask + disp) > 0xfe)
                disp -= SKIP ;

        /* Find the value of final sound */

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

        /* make 2 byte combination code */

        comb2  = (unsigned int) (Ci_val + 0x0a) ;
        comb2  = (comb2 << 5) | (V_val + (V_val + 1)/3 + 2) ;
        comb2  = (comb2 << 5) | Cf_val ;

        return(comb2 | 0x8000) ;
}

/* KS C 5601-1992 */
KCHAR c2j(comp2)
KCHAR comp2;
{

        KCHAR   comb2;
        short   Ci_val;         /* initial sound */
        short   V_val ;         /* middle  sound */
        short   Cf_val;         /* final   sound */
        short   mask  ;
        short   high = CI_CNT ;
        short   low  = 0      ;

        int     disp,cnt;

        long    Cfbit ;

/*
 * Find initial sound (Ci_val) and
 *      middle  sound (V_val )
 * which make the starting point for 'comp2'.
 */

        for (;;) {
                Ci_val = (low + high) / 2 ;
                if (low >= high)
                        break ;
                if (comp2 < cmp_srchtbl[Ci_val][0])
                        high = Ci_val - 1 ;
                else if (comp2 < cmp_srchtbl[Ci_val+1][0])
                        break ;
                     else low = Ci_val + 1 ;
        }

        V_val = 1;
        while(1) {
                if (comp2 < cmp_srchtbl[Ci_val][V_val]) {
                        while(cmp_srchtbl[Ci_val][--V_val] == 0)
                                ;
                        break;
                }else if (V_val == V_CNT)
                        break ;
                V_val++;
        }

        /* Find displacement (temporary final sound value) */

        disp  = comp2 - cmp_srchtbl[Ci_val][V_val] ;
        mask  = cmp_srchtbl[Ci_val][V_val] & BYTE_MASK  ;

        if ((mask + disp) > 0xfe)
                disp -= SKIP ;

        /* Find the value of final sound */

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

        /* make 2 byte combination code */

        comb2 = (unsigned int) (Ci_val + 2);
        comb2 = (comb2 << 5) | (V_val + (V_val + 1) / 6 * 2 + 3);
        comb2 = (comb2 << 5) | (Cf_val + (Cf_val) / 18);


        return(comb2 | 0x8000) ;
}

#ifdef TESTPRINT
main()
{
        unsigned short comp2, comb2;
        int i,j;

        printf("\ncompletion code       combination code\n");
        for (i=0xb0;i<=0xc8;i++) {
                for (j=0xa1;j<=0xfe;j++) {
                        comp2 = i<<8|j;
                        comb2 = comptopack(comp2);
                        printf("    %4x                        %4x\n", comp2,comb2);
                }
        }
}
#endif