gen/common/euc.multibyte.c

	euc.multibyte.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/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 usr/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 1989 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#pragma ident   "%Z%%M% %I% %E% SMI"

#if !defined(lint) && defined(SCCSIDS)
static  char *sccsid = "%Z%%M%  %I% %E% SMI";
#endif

#include <sys/types.h>
#include "codeset.h"
#include "mbextern.h"
#include "euc.h"
#include <limits.h>

#define EUCMASK 0x8080      /* All id bits */
#define MASK0   0x0000      /* Code Set 0 */
#define MASK1   0x8080      /* Code Set 1 */
#define MASK2   0x0080      /* Code Set 2 */
#define MASK3   0x8000      /* Code Set 3 */

#define EUCWID1 eucinfo->_eucw1
#define EUCWID2 eucinfo->_eucw2
#define EUCWID3 eucinfo->_eucw3

int _mbtowc_euc(wchar, s, n)
wchar_t *wchar;
char *s;
size_t n;
{
    register int length;
    register wchar_t intcode;
    register c;
    char *olds = (char *)s;
    wchar_t mask;
        eucwidth_t * eucinfo = (eucwidth_t *)_code_set_info.code_info;

    if(n <= 0)
        return(-1);
    if(s == (char *)0)
        return 0;
    c = (unsigned char)*s++;
    if(c < 0200) {
        if(wchar)
            *wchar = c;
        return(c ? 1 : 0);
    }
    intcode = 0;
    if (c == SS2) {
        if(!(length = EUCWID2)) {
            if(wchar)
                *wchar = c;
            return(1);
        }
        mask = MASK2;
    } else if(c == SS3) {
        if(!(length = EUCWID3)) {
            if(wchar)
                *wchar = c;
            return(1);
        }
        mask = MASK3;
    } else {
        if(iscntrl(c)) {
            if(wchar)
                *wchar = c;
            return(1);
        }
        length = EUCWID1 - 1;
        mask = MASK1;
        intcode = c & 0177;
    }
    if(length + 1 > n)
        return(-1);
    while(length--) {
        if((c = (unsigned char)*s++) < 0200 || iscntrl(c))
            return(-1);
        intcode = (intcode << 8) | (c & 0177);
    }
    if(wchar)
        *wchar = intcode | mask;
    return((char *)s - olds);
}


size_t
_mbstowcs_euc(pwcs, s, n)
     wchar_t    *pwcs;
     char   *s;
     size_t n;
{
    register int        i, j;

    j=0;
    while(*s) {
        if(j>=n)
            break;
        i=_mbtowc_euc(pwcs+j, s, MB_LEN_MAX);
        if(i==-1)
            return -1;
        s+=i;
        ++j;
    }
    if(j<n)
        pwcs[j]=0;
    return j;
}


size_t
_wcstombs_euc(s, pwcs, n)
     char   *s;
     wchar_t    *pwcs;
     size_t n;
{
    register wchar_t    wc;
    register int        i;
    register int        r=n; /* Rest of bytes. */
    register char       *t;
    char            mbbuf[MB_LEN_MAX+1];

    while(wc=(*pwcs++)) {
        i=_wctomb_euc(mbbuf, wc);

        if (i>r)
            break;
        if (i==-1) return -1;

        r-=i;
        for (t=mbbuf;i>0;--i){
            /* Copy each byte. */
            *(s++)=*(t++);
        }
    }
    if (r>0)
        /* Has enough room for NUL. */
        *s=0;
    return n-r;
}

int _wctomb_euc(s, wchar)
char *s;
wchar_t wchar;
{
        eucwidth_t * eucinfo = (eucwidth_t *)_code_set_info.code_info;
    char *olds = s;
    register int size, index;
    unsigned char d;
    if(!s)
        return(0);
    if( wchar <= 0177 || wchar <= 0377 && iscntrl(wchar)) {
        *s++ = wchar;
        return(wchar ? 1 : 0);
    }
    switch(wchar & EUCMASK) {

        case MASK1:
            size = EUCWID1;
            break;

        case MASK2:
            *s++ = SS2;
            size = EUCWID2;
            break;

        case MASK3:
            *s++ = SS3;
            size = EUCWID3;
            break;

        default:
            return(-1);
    }
    index = size;
    while(index--) {
        d = wchar | 0200;
        wchar >>= 8;
        if(iscntrl(d))
            return(-1);
        s[index] = d;
    }
return(s + size - olds);
}