/*
* 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-1998 by Sun Microsystems, Inc.
* All rights reserved.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
/* LINTLIBRARY */
/*
* wacs.c
*
* XCurses Library
*
* Copyright 1990, 1995 by Mortice Kern Systems Inc. All rights reserved.
*
*/
#if M_RCSID
#ifndef lint
static char rcsID[] =
"$Header: /team/ps/sun_xcurses/archive/local_changes/xcurses/src/lib/"
"libxcurses/src/libc/xcurses/rcs/wacs.c 1.6 1998/05/04 21:16:22 "
"cbates 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, 0, WA_ALTCHARSET, L"x" };
const cchar_t __WACS_HLINE =
{ 1, 1, 0, WA_ALTCHARSET, L"q" };
const cchar_t __WACS_ULCORNER =
{ 1, 1, 0, WA_ALTCHARSET, L"l" };
const cchar_t __WACS_URCORNER =
{ 1, 1, 0, WA_ALTCHARSET, L"k" };
const cchar_t __WACS_LLCORNER =
{ 1, 1, 0, WA_ALTCHARSET, L"m" };
const cchar_t __WACS_LRCORNER =
{ 1, 1, 0, WA_ALTCHARSET, L"j" };
const cchar_t __WACS_RTEE =
{ 1, 1, 0, WA_ALTCHARSET, L"u" };
const cchar_t __WACS_LTEE =
{ 1, 1, 0, WA_ALTCHARSET, L"t" };
const cchar_t __WACS_BTEE =
{ 1, 1, 0, WA_ALTCHARSET, L"v" };
const cchar_t __WACS_TTEE =
{ 1, 1, 0, WA_ALTCHARSET, L"w" };
const cchar_t __WACS_PLUS =
{ 1, 1, 0, WA_ALTCHARSET, L"n" };
const cchar_t __WACS_S1 =
{ 1, 1, 0, WA_ALTCHARSET, L"o" };
const cchar_t __WACS_S9 =
{ 1, 1, 0, WA_ALTCHARSET, L"s" };
const cchar_t __WACS_DIAMOND =
{ 1, 1, 0, WA_ALTCHARSET, L"`" };
const cchar_t __WACS_CKBOARD =
{ 1, 1, 0, WA_ALTCHARSET, L"a" };
const cchar_t __WACS_DEGREE =
{ 1, 1, 0, WA_ALTCHARSET, L"f" };
const cchar_t __WACS_PLMINUS =
{ 1, 1, 0, WA_ALTCHARSET, L"g" };
const cchar_t __WACS_BULLET =
{ 1, 1, 0, WA_ALTCHARSET, L"~" };
const cchar_t __WACS_LARROW =
{ 1, 1, 0, WA_ALTCHARSET, L"," };
const cchar_t __WACS_RARROW =
{ 1, 1, 0, WA_ALTCHARSET, L"+" };
const cchar_t __WACS_DARROW =
{ 1, 1, 0, WA_ALTCHARSET, L"." };
const cchar_t __WACS_UARROW =
{ 1, 1, 0, WA_ALTCHARSET, L"-" };
const cchar_t __WACS_BOARD =
{ 1, 1, 0, WA_ALTCHARSET, L"h" };
const cchar_t __WACS_LANTERN =
{ 1, 1, 0, WA_ALTCHARSET, L"i" };
const cchar_t __WACS_BLOCK =
{ 1, 1, 0, WA_ALTCHARSET, L"0" };
/* The default characters are from the _primary_ character set. */
static const 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;
unsigned char *acsc;
chtype vacs;
vacs = acs & A_CHARTEXT;
/* Is it a single-byte character? */
if (UCHAR_MAX < vacs ||
__m_chtype_cc(acs, cc) == ERR)
return (-1);
if (!(acs & A_ALTCHARSET))
return (0);
/* Pick the acs mapping string to use. */
if (acs_chars == NULL) {
/* Use primary character set. */
acsc = (unsigned char *) 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] == vacs) {
(void) __m_chtype_cc((chtype)
((acs & A_ATTRIBUTES) | acsc[i+1]), cc);
break;
}
}
return (0);
}
/* Returns 1 if ALTCHARSET is to be cleared (override). 0 Otherwise. */
int
__m_wacs_cc(const cchar_t *acs, cchar_t *cc)
{
int i;
unsigned char *acsc, mb[MB_LEN_MAX];
int clearit = 0;
*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 == NULL) {
/* Use primary character set. */
acsc = (unsigned char *) acs_defaults;
clearit = 1;
} 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);
break;
}
}
return (clearit);
}