mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-01-31 11:37:35 +00:00
326 lines
13 KiB
C
326 lines
13 KiB
C
/****************************************************************************
|
|
* Copyright 2018-2019,2020 Thomas E. Dickey *
|
|
* Copyright 1998-2014,2017 Free Software Foundation, Inc. *
|
|
* *
|
|
* Permission is hereby granted, free of charge, to any person obtaining a *
|
|
* copy of this software and associated documentation files (the *
|
|
* "Software"), to deal in the Software without restriction, including *
|
|
* without limitation the rights to use, copy, modify, merge, publish, *
|
|
* distribute, distribute with modifications, sublicense, and/or sell *
|
|
* copies of the Software, and to permit persons to whom the Software is *
|
|
* furnished to do so, subject to the following conditions: *
|
|
* *
|
|
* The above copyright notice and this permission notice shall be included *
|
|
* in all copies or substantial portions of the Software. *
|
|
* *
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
|
|
* OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
|
|
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
|
|
* IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
|
|
* DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
|
|
* OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
|
|
* THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
|
|
* *
|
|
* Except as contained in this notice, the name(s) of the above copyright *
|
|
* holders shall not be used in advertising or otherwise to promote the *
|
|
* sale, use or other dealings in this Software without prior written *
|
|
* authorization. *
|
|
****************************************************************************/
|
|
|
|
/****************************************************************************
|
|
* Author: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995 *
|
|
* and: Eric S. Raymond <esr@snark.thyrsus.com> *
|
|
* and: Thomas E. Dickey 1996-on *
|
|
* and: Juergen Pfeifer 2008 *
|
|
****************************************************************************/
|
|
|
|
#include "curses.priv.h"
|
|
|
|
#ifndef CUR
|
|
#define CUR SP_TERMTYPE
|
|
#endif
|
|
|
|
MODULE_ID("$Id: lib_acs.c,v 1.50 2020/02/02 23:34:34 tom Exp $")
|
|
|
|
#if BROKEN_LINKER || USE_REENTRANT
|
|
#define MyBuffer _nc_prescreen.real_acs_map
|
|
NCURSES_EXPORT(chtype *)
|
|
NCURSES_PUBLIC_VAR(acs_map) (void)
|
|
{
|
|
if (MyBuffer == 0)
|
|
MyBuffer = typeCalloc(chtype, ACS_LEN);
|
|
return MyBuffer;
|
|
}
|
|
#undef MyBuffer
|
|
#else
|
|
NCURSES_EXPORT_VAR (chtype) acs_map[ACS_LEN] =
|
|
{
|
|
0
|
|
};
|
|
#endif
|
|
|
|
#ifdef USE_TERM_DRIVER
|
|
NCURSES_EXPORT(chtype)
|
|
NCURSES_SP_NAME(_nc_acs_char) (NCURSES_SP_DCLx int c)
|
|
{
|
|
chtype *map;
|
|
if (c < 0 || c >= ACS_LEN)
|
|
return (chtype) 0;
|
|
map = (SP_PARM != 0) ? SP_PARM->_acs_map :
|
|
#if BROKEN_LINKER || USE_REENTRANT
|
|
_nc_prescreen.real_acs_map
|
|
#else
|
|
acs_map
|
|
#endif
|
|
;
|
|
return map[c];
|
|
}
|
|
#endif /* USE_TERM_DRIVER */
|
|
|
|
NCURSES_EXPORT(void)
|
|
NCURSES_SP_NAME(_nc_init_acs) (NCURSES_SP_DCL0)
|
|
{
|
|
chtype *fake_map = acs_map;
|
|
chtype *real_map = SP_PARM != 0 ? SP_PARM->_acs_map : fake_map;
|
|
int j;
|
|
|
|
T(("initializing ACS map"));
|
|
|
|
/*
|
|
* If we're using this from curses (rather than terminfo), we are storing
|
|
* the mapping information in the SCREEN struct so we can decide how to
|
|
* render it.
|
|
*/
|
|
if (real_map != fake_map) {
|
|
for (j = 1; j < ACS_LEN; ++j) {
|
|
real_map[j] = 0;
|
|
fake_map[j] = A_ALTCHARSET | (chtype) j;
|
|
if (SP_PARM)
|
|
SP_PARM->_screen_acs_map[j] = FALSE;
|
|
}
|
|
} else {
|
|
for (j = 1; j < ACS_LEN; ++j) {
|
|
real_map[j] = 0;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Initializations for a UNIX-like multi-terminal environment. Use
|
|
* ASCII chars and count on the terminfo description to do better.
|
|
*/
|
|
real_map['l'] = '+'; /* should be upper left corner */
|
|
real_map['m'] = '+'; /* should be lower left corner */
|
|
real_map['k'] = '+'; /* should be upper right corner */
|
|
real_map['j'] = '+'; /* should be lower right corner */
|
|
real_map['u'] = '+'; /* should be tee pointing left */
|
|
real_map['t'] = '+'; /* should be tee pointing right */
|
|
real_map['v'] = '+'; /* should be tee pointing up */
|
|
real_map['w'] = '+'; /* should be tee pointing down */
|
|
real_map['q'] = '-'; /* should be horizontal line */
|
|
real_map['x'] = '|'; /* should be vertical line */
|
|
real_map['n'] = '+'; /* should be large plus or crossover */
|
|
real_map['o'] = '~'; /* should be scan line 1 */
|
|
real_map['s'] = '_'; /* should be scan line 9 */
|
|
real_map['`'] = '+'; /* should be diamond */
|
|
real_map['a'] = ':'; /* should be checker board (stipple) */
|
|
real_map['f'] = '\''; /* should be degree symbol */
|
|
real_map['g'] = '#'; /* should be plus/minus */
|
|
real_map['~'] = 'o'; /* should be bullet */
|
|
real_map[','] = '<'; /* should be arrow pointing left */
|
|
real_map['+'] = '>'; /* should be arrow pointing right */
|
|
real_map['.'] = 'v'; /* should be arrow pointing down */
|
|
real_map['-'] = '^'; /* should be arrow pointing up */
|
|
real_map['h'] = '#'; /* should be board of squares */
|
|
real_map['i'] = '#'; /* should be lantern symbol */
|
|
real_map['0'] = '#'; /* should be solid square block */
|
|
/* these defaults were invented for ncurses */
|
|
real_map['p'] = '-'; /* should be scan line 3 */
|
|
real_map['r'] = '-'; /* should be scan line 7 */
|
|
real_map['y'] = '<'; /* should be less-than-or-equal-to */
|
|
real_map['z'] = '>'; /* should be greater-than-or-equal-to */
|
|
real_map['{'] = '*'; /* should be greek pi */
|
|
real_map['|'] = '!'; /* should be not-equal */
|
|
real_map['}'] = 'f'; /* should be pound-sterling symbol */
|
|
/* thick-line-drawing */
|
|
real_map['L'] = '+'; /* upper left corner */
|
|
real_map['M'] = '+'; /* lower left corner */
|
|
real_map['K'] = '+'; /* upper right corner */
|
|
real_map['J'] = '+'; /* lower right corner */
|
|
real_map['T'] = '+'; /* tee pointing left */
|
|
real_map['U'] = '+'; /* tee pointing right */
|
|
real_map['V'] = '+'; /* tee pointing up */
|
|
real_map['W'] = '+'; /* tee pointing down */
|
|
real_map['Q'] = '-'; /* horizontal line */
|
|
real_map['X'] = '|'; /* vertical line */
|
|
real_map['N'] = '+'; /* large plus or crossover */
|
|
/* double-line-drawing */
|
|
real_map['C'] = '+'; /* upper left corner */
|
|
real_map['D'] = '+'; /* lower left corner */
|
|
real_map['B'] = '+'; /* upper right corner */
|
|
real_map['A'] = '+'; /* lower right corner */
|
|
real_map['G'] = '+'; /* tee pointing left */
|
|
real_map['F'] = '+'; /* tee pointing right */
|
|
real_map['H'] = '+'; /* tee pointing up */
|
|
real_map['I'] = '+'; /* tee pointing down */
|
|
real_map['R'] = '-'; /* horizontal line */
|
|
real_map['Y'] = '|'; /* vertical line */
|
|
real_map['E'] = '+'; /* large plus or crossover */
|
|
|
|
#ifdef USE_TERM_DRIVER
|
|
CallDriver_2(SP_PARM, td_initacs, real_map, fake_map);
|
|
#else
|
|
if (ena_acs != NULL) {
|
|
NCURSES_PUTP2("ena_acs", ena_acs);
|
|
}
|
|
#if NCURSES_EXT_FUNCS && defined(enter_pc_charset_mode) && defined(exit_pc_charset_mode)
|
|
/*
|
|
* Linux console "supports" the "PC ROM" character set by the coincidence
|
|
* that smpch/rmpch and smacs/rmacs have the same values. ncurses has
|
|
* no codepage support (see SCO Merge for an example). Outside of the
|
|
* values defined in acsc, there are no definitions for the "PC ROM"
|
|
* character set (assumed by some applications to be codepage 437), but we
|
|
* allow those applications to use those codepoints.
|
|
*
|
|
* test/blue.c uses this feature.
|
|
*/
|
|
#define PCH_KLUDGE(a,b) (a != 0 && b != 0 && !strcmp(a,b))
|
|
if (PCH_KLUDGE(enter_pc_charset_mode, enter_alt_charset_mode) &&
|
|
PCH_KLUDGE(exit_pc_charset_mode, exit_alt_charset_mode)) {
|
|
size_t i;
|
|
for (i = 1; i < ACS_LEN; ++i) {
|
|
if (real_map[i] == 0) {
|
|
real_map[i] = (chtype) i;
|
|
if (real_map != fake_map) {
|
|
if (SP != 0)
|
|
SP->_screen_acs_map[i] = TRUE;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
#endif
|
|
|
|
if (acs_chars != NULL) {
|
|
size_t i = 0;
|
|
size_t length = strlen(acs_chars);
|
|
|
|
while (i + 1 < length) {
|
|
if (acs_chars[i] != 0 && UChar(acs_chars[i]) < ACS_LEN) {
|
|
real_map[UChar(acs_chars[i])] = UChar(acs_chars[i + 1]) | A_ALTCHARSET;
|
|
T(("#%d real_map[%s] = %s",
|
|
(int) i,
|
|
_tracechar(UChar(acs_chars[i])),
|
|
_tracechtype(real_map[UChar(acs_chars[i])])));
|
|
if (SP != 0) {
|
|
SP->_screen_acs_map[UChar(acs_chars[i])] = TRUE;
|
|
}
|
|
}
|
|
i += 2;
|
|
}
|
|
}
|
|
#ifdef TRACE
|
|
/* Show the equivalent mapping, noting if it does not match the
|
|
* given attribute, whether by re-ordering or duplication.
|
|
*/
|
|
if (USE_TRACEF(TRACE_CALLS)) {
|
|
size_t n, m;
|
|
char show[ACS_LEN * 2 + 1];
|
|
for (n = 1, m = 0; n < ACS_LEN; n++) {
|
|
if (real_map[n] != 0) {
|
|
show[m++] = (char) n;
|
|
show[m++] = (char) ChCharOf(real_map[n]);
|
|
}
|
|
}
|
|
show[m] = 0;
|
|
if (acs_chars == NULL || strcmp(acs_chars, show))
|
|
_tracef("%s acs_chars %s",
|
|
(acs_chars == NULL) ? "NULL" : "READ",
|
|
_nc_visbuf(acs_chars));
|
|
_tracef("%s acs_chars %s",
|
|
(acs_chars == NULL)
|
|
? "NULL"
|
|
: (strcmp(acs_chars, show)
|
|
? "DIFF"
|
|
: "SAME"),
|
|
_nc_visbuf(show));
|
|
_nc_unlock_global(tracef);
|
|
}
|
|
#endif /* TRACE */
|
|
#endif
|
|
}
|
|
|
|
#if NCURSES_SP_FUNCS
|
|
NCURSES_EXPORT(void)
|
|
_nc_init_acs(void)
|
|
{
|
|
NCURSES_SP_NAME(_nc_init_acs) (CURRENT_SCREEN);
|
|
}
|
|
#endif
|
|
|
|
#if !NCURSES_WCWIDTH_GRAPHICS
|
|
NCURSES_EXPORT(int)
|
|
_nc_wacs_width(unsigned ch)
|
|
{
|
|
int result;
|
|
switch (ch) {
|
|
case 0x00a3: /* FALLTHRU - ncurses pound-sterling symbol */
|
|
case 0x00b0: /* FALLTHRU - VT100 degree symbol */
|
|
case 0x00b1: /* FALLTHRU - VT100 plus/minus */
|
|
case 0x00b7: /* FALLTHRU - VT100 bullet */
|
|
case 0x03c0: /* FALLTHRU - ncurses greek pi */
|
|
case 0x2190: /* FALLTHRU - Teletype arrow pointing left */
|
|
case 0x2191: /* FALLTHRU - Teletype arrow pointing up */
|
|
case 0x2192: /* FALLTHRU - Teletype arrow pointing right */
|
|
case 0x2193: /* FALLTHRU - Teletype arrow pointing down */
|
|
case 0x2260: /* FALLTHRU - ncurses not-equal */
|
|
case 0x2264: /* FALLTHRU - ncurses less-than-or-equal-to */
|
|
case 0x2265: /* FALLTHRU - ncurses greater-than-or-equal-to */
|
|
case 0x23ba: /* FALLTHRU - VT100 scan line 1 */
|
|
case 0x23bb: /* FALLTHRU - ncurses scan line 3 */
|
|
case 0x23bc: /* FALLTHRU - ncurses scan line 7 */
|
|
case 0x23bd: /* FALLTHRU - VT100 scan line 9 */
|
|
case 0x2500: /* FALLTHRU - VT100 horizontal line */
|
|
case 0x2501: /* FALLTHRU - thick horizontal line */
|
|
case 0x2502: /* FALLTHRU - VT100 vertical line */
|
|
case 0x2503: /* FALLTHRU - thick vertical line */
|
|
case 0x250c: /* FALLTHRU - VT100 upper left corner */
|
|
case 0x250f: /* FALLTHRU - thick upper left corner */
|
|
case 0x2510: /* FALLTHRU - VT100 upper right corner */
|
|
case 0x2513: /* FALLTHRU - thick upper right corner */
|
|
case 0x2514: /* FALLTHRU - VT100 lower left corner */
|
|
case 0x2517: /* FALLTHRU - thick lower left corner */
|
|
case 0x2518: /* FALLTHRU - VT100 lower right corner */
|
|
case 0x251b: /* FALLTHRU - thick lower right corner */
|
|
case 0x251c: /* FALLTHRU - VT100 tee pointing left */
|
|
case 0x2523: /* FALLTHRU - thick tee pointing left */
|
|
case 0x2524: /* FALLTHRU - VT100 tee pointing right */
|
|
case 0x252b: /* FALLTHRU - thick tee pointing right */
|
|
case 0x252c: /* FALLTHRU - VT100 tee pointing down */
|
|
case 0x2533: /* FALLTHRU - thick tee pointing down */
|
|
case 0x2534: /* FALLTHRU - VT100 tee pointing up */
|
|
case 0x253b: /* FALLTHRU - thick tee pointing up */
|
|
case 0x253c: /* FALLTHRU - VT100 large plus or crossover */
|
|
case 0x254b: /* FALLTHRU - thick large plus or crossover */
|
|
case 0x2550: /* FALLTHRU - double horizontal line */
|
|
case 0x2551: /* FALLTHRU - double vertical line */
|
|
case 0x2554: /* FALLTHRU - double upper left corner */
|
|
case 0x2557: /* FALLTHRU - double upper right corner */
|
|
case 0x255a: /* FALLTHRU - double lower left corner */
|
|
case 0x255d: /* FALLTHRU - double lower right corner */
|
|
case 0x2560: /* FALLTHRU - double tee pointing right */
|
|
case 0x2563: /* FALLTHRU - double tee pointing left */
|
|
case 0x2566: /* FALLTHRU - double tee pointing down */
|
|
case 0x2569: /* FALLTHRU - double tee pointing up */
|
|
case 0x256c: /* FALLTHRU - double large plus or crossover */
|
|
case 0x2592: /* FALLTHRU - VT100 checker board (stipple) */
|
|
case 0x25ae: /* FALLTHRU - Teletype solid square block */
|
|
case 0x25c6: /* FALLTHRU - VT100 diamond */
|
|
case 0x2603: /* FALLTHRU - Teletype lantern symbol */
|
|
result = 1;
|
|
break;
|
|
default:
|
|
result = wcwidth(ch);
|
|
break;
|
|
}
|
|
return result;
|
|
}
|
|
#endif /* !NCURSES_WCWIDTH_GRAPHICS */
|