libcurses/screen/mbtranslate.c

	mbtranslate.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 (c) 1988 AT&T */
/*    All Rights Reserved   */


/*
 *      Copyright (c) 1997, by Sun Microsystems, Inc.
 *      All rights reserved.
 */

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

#include    <stdlib.h>
#include    <sys/types.h>
#include    "curses_inc.h"


/*
 *  Translate process code to byte-equivalent
 *  Return the length of the byte-equivalent string
 */

/*
 *  use _curs_wctomb() instead of _code2byte(code, bytes)
 */


/*
 *  Translate a set of byte to a single process code
 */

/*
 *  use _curs_mbtowc() instead of wchar_t _byte2code(bytes)
 */


/*
 *  Translate a string of wchar_t to a byte string.
 *  code: the input code string
 *  byte: if not NULL, space to store the output string
 *  n: maximum number of codes to be translated.
 */
char
*_strcode2byte(wchar_t *code, char *byte, int n)
{
    char        *bufp;
    wchar_t     *endcode;
    static char *buf;
    static int  bufsize;

    /* compute the length of the code string */
    if (n < 0)
        for (n = 0; code[n] != 0; ++n)
            ;

    /* get space to store the translated string */
    if (!byte && (n*CSMAX+1) > bufsize) {
        if (buf)
            free(buf);
        bufsize = n * CSMAX + 1;
        if ((buf = malloc(bufsize * sizeof (char))) == NULL)
            bufsize = 0;
        }

    /* no space to do it */
    if (!byte && !buf)
        return (NULL);

    /* start the translation */
    bufp = byte ? byte : buf;
    endcode = code+n;
    while (code < endcode && *code) {
        bufp += _curs_wctomb(bufp, *code & TRIM);
        ++code;
    }
    *bufp = '\0';

    return (byte ? byte : buf);
}


/*
 *  Translate a byte-string to a wchar_t string.
 */
wchar_t
*_strbyte2code(char *byte, wchar_t *code, int n)
{
    char        *endbyte;
    wchar_t     *bufp;
    static wchar_t  *buf;
    static int  bufsize;

    if (n < 0)
        for (n = 0; byte[n] != '\0'; ++n)
            ;

    if (!code && (n + 1) > bufsize) {
        if (buf)
            free((char *)buf);
        bufsize = n + 1;
        if ((buf = (wchar_t *)malloc(bufsize * sizeof (wchar_t))) ==
            NULL)
            bufsize = 0;
    }

    if (!code && !buf)
        return (NULL);

    bufp = code ? code : buf;
    endbyte = byte + n;

    while (byte < endbyte && *byte) {
        int     type, width;
        wchar_t     wchar;

        type = TYPE(*byte & 0377);
        width = cswidth[type];
        if (type == 1 || type == 2)
            width++;

        if (byte + width <= endbyte) {
            (void) _curs_mbtowc(&wchar, byte, width);
            *bufp++ = wchar;
        }

        byte += width;
    }
    *bufp = 0;

    return (code ? code : buf);
}