/*
 * 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) 1995, by Sun Microsystems, Inc.
 * All rights reserved.
 */

/*
 * wacs.c
 *
 * XCurses Library
 *
 * Copyright 1990, 1995 by Mortice Kern Systems Inc.  All rights reserved.
 *
 */

#if M_RCSID
#ifndef lint
static char rcsID[] = "$Header: /rd/src/libc/xcurses/rcs/wacs.c 1.8 1995/10/02 19:48:06 ant Exp $";
#endif
#endif

#include <private.h>
#include <limits.h>

/*
 * Mapping defined in Xcurses Section 6.2.12 (p260).
 */
const cchar_t __WACS_VLINE =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("x") };
const cchar_t __WACS_HLINE =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("q") };
const cchar_t __WACS_ULCORNER =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("l") };
const cchar_t __WACS_URCORNER =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("k") };
const cchar_t __WACS_LLCORNER =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("m") };
const cchar_t __WACS_LRCORNER =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("j") };
const cchar_t __WACS_RTEE =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("u") };
const cchar_t __WACS_LTEE =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("t") };
const cchar_t __WACS_BTEE =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("v") };
const cchar_t __WACS_TTEE =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("w") };
const cchar_t __WACS_PLUS =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("n") };
const cchar_t __WACS_S1 =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("o") };
const cchar_t __WACS_S9 =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("s") };
const cchar_t __WACS_DIAMOND =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("`") };
const cchar_t __WACS_CKBOARD =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("a") };
const cchar_t __WACS_DEGREE =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("f") };
const cchar_t __WACS_PLMINUS =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("g") };
const cchar_t __WACS_BULLET =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("~") };
const cchar_t __WACS_LARROW =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L(",") };
const cchar_t __WACS_RARROW =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("+") };
const cchar_t __WACS_DARROW =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L(".") };
const cchar_t __WACS_UARROW =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("-") };
const cchar_t __WACS_BOARD =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("h") };
const cchar_t __WACS_LANTERN =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("i") };
const cchar_t __WACS_BLOCK =
        { 1, 1, WA_ALTCHARSET, 0, M_MB_L("0") };

#ifdef NOT_NOW
const cchar_t *WACS_VLINE = (const cchar_t *) &__WACS_VLINE;
const cchar_t *WACS_HLINE = (const cchar_t *) &__WACS_HLINE;
const cchar_t *WACS_ULCORNER = (const cchar_t *) &__WACS_ULCORNER;
const cchar_t *WACS_URCORNER = (const cchar_t *) &__WACS_URCORNER;
const cchar_t *WACS_LLCORNER = (const cchar_t *) &__WACS_LLCORNER;
const cchar_t *WACS_LRCORNER = (const cchar_t *) &__WACS_LRCORNER;
const cchar_t *WACS_RTEE = (const cchar_t *) &__WACS_RTEE;
const cchar_t *WACS_LTEE = (const cchar_t *) &__WACS_LTEE;
const cchar_t *WACS_BTEE = (const cchar_t *) &__WACS_BTEE;
const cchar_t *WACS_TTEE = (const cchar_t *) &__WACS_TTEE;
const cchar_t *WACS_PLUS = (const cchar_t *) &__WACS_PLUS;
const cchar_t *WACS_S1 = (const cchar_t *) &__WACS_S1;
const cchar_t *WACS_S9 = (const cchar_t *) &__WACS_S9;
const cchar_t *WACS_DIAMOND = (const cchar_t *) &__WACS_DIAMOND;
const cchar_t *WACS_CKBOARD = (const cchar_t *) &__WACS_CKBOARD;
const cchar_t *WACS_DEGREE = (const cchar_t *) &__WACS_DEGREE;
const cchar_t *WACS_PLMINUS = (const cchar_t *) &__WACS_PLMINUS;
const cchar_t *WACS_BULLET = (const cchar_t *) &__WACS_BULLET;
const cchar_t *WACS_LARROW = (const cchar_t *) &__WACS_LARROW;
const cchar_t *WACS_RARROW = (const cchar_t *) &__WACS_RARROW;
const cchar_t *WACS_DARROW = (const cchar_t *) &__WACS_DARROW;
const cchar_t *WACS_UARROW = (const cchar_t *) &__WACS_UARROW;
const cchar_t *WACS_BOARD = (const cchar_t *) &__WACS_BOARD;
const cchar_t *WACS_LANTERN = (const cchar_t *) &__WACS_LANTERN;
const cchar_t *WACS_BLOCK = (const cchar_t *) &__WACS_BLOCK;
#endif

/* The default characters are from the _primary_ character set. */
static unsigned char acs_defaults[] =
        "x|q-l+k+m+j+u+t+v+w+n+o-s_`+a:f\'g#~o,<+>.v-^h#i#0#";

int
__m_acs_cc(chtype acs, cchar_t *cc)
{
        int i, ch;
        unsigned char *acsc;

        /* Is it a single-byte character? */
        if (UCHAR_MAX < (A_CHARTEXT & acs) || __m_chtype_cc(acs, cc) == ERR)
                return -1;

        if (!(acs & A_ALTCHARSET))
                return 0;

        /* Pick the acs mapping string to use. */
        if (acs_chars == (char *) 0) {
                /* Use primary character set. */
                acsc = acs_defaults;
                acs &= ~A_ALTCHARSET;
        } else {
                acsc = (unsigned char *) acs_chars;
        }

        /* Assume that acsc is even in length. */
        for (i = 0; acsc[i] != '\0'; i += 2) {
                if (acsc[i] == (acs & A_CHARTEXT)) {
                        (void) __m_chtype_cc(
                                (chtype) ((acs & A_ATTRIBUTES) | acsc[i+1]), cc
                        );
                        break;
                }
        }

        return 0;
}

int
__m_wacs_cc(const cchar_t *acs, cchar_t *cc)
{
        int i;
        unsigned char *acsc, mb[MB_LEN_MAX];

        *cc = *acs;
        cc->_f = 1;

        /* Is it a single-byte character? */
        if (!(acs->_at & WA_ALTCHARSET)
        || acs->_n != 1 || wctomb((char *) mb, acs->_wc[0]) != 1)
                /* No, just return the original character. */
                return 0;

        /* Pick the acs mapping string to use. */
        if (acs_chars == (char *) 0) {
                /* Use primary character set. */
                acsc = acs_defaults;
                cc->_at &= ~A_ALTCHARSET;
        } else {
                acsc = (unsigned char *) acs_chars;
        }

        /* Assume that acsc is even in length. */
        for (i = 0; acsc[i] != '\0'; i += 2) {
                if (acsc[i] == *mb) {
                        (void) mbtowc(cc->_wc, (char *) &acsc[i+1], 1);
                        cc->_at |= A_ALTCHARSET;
                        break;
                }
        }

        return 0;
}