kiss-mfavila-large/ports/xterm/xterm-359/charsets.c

1682 lines
69 KiB
C
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/* $XTermId: charsets.c,v 1.107 2020/01/18 18:51:57 tom Exp $ */
/*
* Copyright 1998-2019,2020 by Thomas E. Dickey
*
* All Rights Reserved
*
* 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, 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 LISTED COPYRIGHT HOLDER(S) 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.
*
*/
#include <xterm.h>
#include <data.h>
#include <fontutils.h>
#include <X11/keysym.h>
#define BLANK ' '
#define UNDEF 0x2e2e /* rendered as a backwards "?" (alt: 0x2426) */
/*
* This module performs translation as needed to support the DEC VT220 national
* replacement character sets as well as supplementary character sets (aka
* code-pages) introduced in VT320, etc.
*
* We assume that xterm's font is based on the ISO 8859-1 (Latin 1) character
* set, which is almost the same as the DEC multinational character set. Glyph
* positions 0-31 have to be the DEC graphic characters, though.
*
* References:
* "VT220 Programmer Pocket Guide" EK-VT220-HR-002 (2nd ed., 1984), which
* contains character charts for the national character sets.
* "VT330/VT340 Programmer Reference Manual Volume 1: Text Programming"
* EK-VT3XX-TP-001 (1st ed, 1987), which contains a table (2-1)
* listing the glyphs which are mapped from the multinational
* character set to the national character set.
*
* The latter reference, though easier to read, has a few errors and omissions.
*
* According to
* Digital ANSI-Compliant Printing Protocol
* Level 2 Programming Reference Manual
* EKPPLV2PM. B01
*
* the supplementary character sets Greek, Hebrew, Latin-5 and Latin/Cyrillic
* are standardized by ISO:
* ISO Greek is 8859-7
* ISO Hebrew is 8859-8
* ISO Latin-5 is 8859-9
* ISO Latin/Cyrillic is 8859-5
*
* These are derived from the data at
* ftp://www.unicode.org/Public/MAPPINGS/ISO8859/
*
* Note: the "figure A-xx" comments refer to EKPPLV2PM.
*/
/*
* A "codepage" is treated different from the NRC mode: it is always enabled.
* Reuse the UNI() macros by temporarily setting its state.
*/
#if OPT_WIDE_CHARS
#define begin_CODEPAGE() \
if (!(xw->flags & NATIONAL)) { \
screen->utf8_nrc_mode++; \
}
#define end_CODEPAGE() \
if (!(xw->flags & NATIONAL)) { \
screen->utf8_nrc_mode--; \
}
#else
#define begin_CODEPAGE() /* nothing */
#define end_CODEPAGE() /* nothing */
#endif
/*
* xterm's original implementation of NRCS in 1998 was before Unicode became
* prevalent. Most of the necessary mappings could be done using definitions
* from X11/keysymdef.h
*/
#define map_NRCS_Dutch(code) \
switch (code) { \
MAP(0x23, XK_sterling); \
MAP(0x40, XK_threequarters); \
UNI(0x5b, 0x0133); /* ij ligature */ \
MAP(0x5c, XK_onehalf); \
MAP(0x5d, XK_bar); \
MAP(0x7b, XK_diaeresis); \
UNI(0x7c, 0x0192); /* florin */ \
MAP(0x7d, XK_onequarter); \
MAP(0x7e, XK_acute); \
}
#define map_NRCS_Finnish(code) \
switch (code) { \
MAP(0x5b, XK_Adiaeresis); \
MAP(0x5c, XK_Odiaeresis); \
MAP(0x5d, XK_Aring); \
MAP(0x5e, XK_Udiaeresis); \
MAP(0x60, XK_eacute); \
MAP(0x7b, XK_adiaeresis); \
MAP(0x7c, XK_odiaeresis); \
MAP(0x7d, XK_aring); \
MAP(0x7e, XK_udiaeresis); \
}
#define map_NRCS_French(code) \
switch (code) { \
MAP(0x23, XK_sterling); \
MAP(0x40, XK_agrave); \
MAP(0x5b, XK_degree); \
MAP(0x5c, XK_ccedilla); \
MAP(0x5d, XK_section); \
MAP(0x7b, XK_eacute); \
MAP(0x7c, XK_ugrave); \
MAP(0x7d, XK_egrave); \
MAP(0x7e, XK_diaeresis); \
}
#define map_NRCS_French_Canadian(code) \
switch (code) { \
MAP(0x40, XK_agrave); \
MAP(0x5b, XK_acircumflex); \
MAP(0x5c, XK_ccedilla); \
MAP(0x5d, XK_ecircumflex); \
MAP(0x5e, XK_icircumflex); \
MAP(0x60, XK_ocircumflex); \
MAP(0x7b, XK_eacute); \
MAP(0x7c, XK_ugrave); \
MAP(0x7d, XK_egrave); \
MAP(0x7e, XK_ucircumflex); \
}
#define map_NRCS_German(code) \
switch (code) { \
MAP(0x40, XK_section); \
MAP(0x5b, XK_Adiaeresis); \
MAP(0x5c, XK_Odiaeresis); \
MAP(0x5d, XK_Udiaeresis); \
MAP(0x7b, XK_adiaeresis); \
MAP(0x7c, XK_odiaeresis); \
MAP(0x7d, XK_udiaeresis); \
MAP(0x7e, XK_ssharp); \
}
#define map_NRCS_Italian(code) \
switch (code) { \
MAP(0x23, XK_sterling); \
MAP(0x40, XK_section); \
MAP(0x5b, XK_degree); \
MAP(0x5c, XK_ccedilla); \
MAP(0x5d, XK_eacute); \
MAP(0x60, XK_ugrave); \
MAP(0x7b, XK_agrave); \
MAP(0x7c, XK_ograve); \
MAP(0x7d, XK_egrave); \
MAP(0x7e, XK_igrave); \
}
#define map_NRCS_Norwegian_Danish(code) \
switch (code) { \
MAP(0x40, XK_Adiaeresis); \
MAP(0x5b, XK_AE); \
MAP(0x5c, XK_Ooblique); \
MAP(0x5d, XK_Aring); \
MAP(0x5e, XK_Udiaeresis); \
MAP(0x60, XK_adiaeresis); \
MAP(0x7b, XK_ae); \
MAP(0x7c, XK_oslash); \
MAP(0x7d, XK_aring); \
MAP(0x7e, XK_udiaeresis); \
}
#define map_NRCS_Portuguese(code) \
switch (code) { \
MAP(0x5b, XK_Atilde); \
MAP(0x5c, XK_Ccedilla); \
MAP(0x5d, XK_Otilde); \
MAP(0x7b, XK_atilde); \
MAP(0x7c, XK_ccedilla); \
MAP(0x7d, XK_otilde); \
}
#define map_NRCS_Spanish(code) \
switch (code) { \
MAP(0x23, XK_sterling); \
MAP(0x40, XK_section); \
MAP(0x5b, XK_exclamdown); \
MAP(0x5c, XK_Ntilde); \
MAP(0x5d, XK_questiondown); \
MAP(0x7b, XK_degree); \
MAP(0x7c, XK_ntilde); \
MAP(0x7d, XK_ccedilla); \
}
#define map_NRCS_Swedish(code) \
switch (code) { \
MAP(0x40, XK_Eacute); \
MAP(0x5b, XK_Adiaeresis); \
MAP(0x5c, XK_Odiaeresis); \
MAP(0x5d, XK_Aring); \
MAP(0x5e, XK_Udiaeresis); \
MAP(0x60, XK_eacute); \
MAP(0x7b, XK_adiaeresis); \
MAP(0x7c, XK_odiaeresis); \
MAP(0x7d, XK_aring); \
MAP(0x7e, XK_udiaeresis); \
}
#define map_NRCS_Swiss(code) \
switch (code) { \
MAP(0x23, XK_ugrave); \
MAP(0x40, XK_agrave); \
MAP(0x5b, XK_eacute); \
MAP(0x5c, XK_ccedilla); \
MAP(0x5d, XK_ecircumflex); \
MAP(0x5e, XK_icircumflex); \
MAP(0x5f, XK_egrave); \
MAP(0x60, XK_ocircumflex); \
MAP(0x7b, XK_adiaeresis); \
MAP(0x7c, XK_odiaeresis); \
MAP(0x7d, XK_udiaeresis); \
MAP(0x7e, XK_ucircumflex); \
}
/*
* Unlike NRCS, which splices a few characters onto ASCII, the supplementary
* character sets are complete, normally mapped to GR. Most of these mappings
* rely upon glyphs not found in ISO-8859-1. We can display most of those
* using Unicode, thereby supporting specialized applications that use SCS
* with luit, subject to the limitation that select/paste will give meaningless
* results in terms of the application which uses these mappings.
*
* Since the codepages introduced with VT320, etc, use 8-bit encodings, there
* is no plausible argument to be made that these mappings "use" UTF-8, even
* though there is a hidden step in the terminal emulator which relies upon
* UTF-8.
*/
#define map_DEC_Supp_Graphic(code,dft) \
begin_CODEPAGE(); \
switch (code) { \
XXX(0x24, UNDEF); \
XXX(0x26, UNDEF); \
MAP(0x28, 0xa4); \
XXX(0x2c, UNDEF); \
XXX(0x2d, UNDEF); \
XXX(0x2e, UNDEF); \
XXX(0x2f, UNDEF); \
XXX(0x34, UNDEF); \
XXX(0x38, UNDEF); \
XXX(0x3e, UNDEF); \
XXX(0x50, UNDEF); \
UNI(0x57, 0x0152); \
MAP(0x5d, 0x0178); \
XXX(0x5e, UNDEF); \
XXX(0x70, UNDEF); \
UNI(0x77, 0x0153); \
MAP(0x7d, 0xff); \
XXX(0x7e, UNDEF); \
XXX(0x7f, UNDEF); \
default: dft; break; \
} \
end_CODEPAGE()
#if OPT_WIDE_CHARS
/* derived from http://www.vt100.net/charsets/technical.html */
#define map_DEC_Technical(code) \
begin_CODEPAGE(); \
switch (code) { \
UNI(0x21, 0x23b7); /* RADICAL SYMBOL BOTTOM Centred left to right, so that it joins up with 02/02 */ \
UNI(0x22, 0x250c); /* BOX DRAWINGS LIGHT DOWN AND RIGHT */ \
UNI(0x23, 0x2500); /* BOX DRAWINGS LIGHT HORIZONTAL */ \
UNI(0x24, 0x2320); /* TOP HALF INTEGRAL with the proviso that the stem is vertical, to join with 02/06 */ \
UNI(0x25, 0x2321); /* BOTTOM HALF INTEGRAL with the proviso above. */ \
UNI(0x26, 0x2502); /* BOX DRAWINGS LIGHT VERTICAL */ \
UNI(0x27, 0x23a1); /* LEFT SQUARE BRACKET UPPER CORNER Joins vertically to 02/06, 02/08. Doesn't join to its right. */ \
UNI(0x28, 0x23a3); /* LEFT SQUARE BRACKET LOWER CORNER Joins vertically to 02/06, 02/07. Doesn't join to its right. */ \
UNI(0x29, 0x23a4); /* RIGHT SQUARE BRACKET UPPER CORNER Joins vertically to 026, 02a. Doesn't join to its left. */ \
UNI(0x2a, 0x23a6); /* RIGHT SQUARE BRACKET LOWER CORNER Joins vertically to 026, 029. Doesn't join to its left. */ \
UNI(0x2b, 0x23a7); /* LEFT CURLY BRACKET UPPER HOOK Joins vertically to 026, 02c, 02/15. Doesn't join to its right. */ \
UNI(0x2c, 0x23a9); /* LEFT CURLY BRACKET LOWER HOOK Joins vertically to 026, 02b, 02/15. Doesn't join to its right. */ \
UNI(0x2d, 0x23ab); /* RIGHT CURLY BRACKET UPPER HOOK Joins vertically to 026, 02e, 03/00. Doesn't join to its left. */ \
UNI(0x2e, 0x23ad); /* RIGHT CURLY BRACKET LOWER HOOK Joins vertically to 026, 02d, 03/00. Doesn't join to its left. */ \
UNI(0x2f, 0x23a8); /* LEFT CURLY BRACKET MIDDLE PIECE Joins vertically to 026, 02b, 02c. */ \
UNI(0x30, 0x23ac); /* RIGHT CURLY BRACKET MIDDLE PIECE Joins vertically to 02/06, 02d, 02e. */ \
XXX(0x31, UNDEF); /* Top Left Sigma. Joins to right with 02/03, 03/05. Joins diagonally below right with 03/03, 03/07. */ \
XXX(0x32, UNDEF); /* Bottom Left Sigma. Joins to right with 02/03, 03/06. Joins diagonally above right with 03/04, 03/07. */ \
XXX(0x33, UNDEF); /* Top Diagonal Sigma. Line for joining 03/01 to 03/04 or 03/07. */ \
XXX(0x34, UNDEF); /* Bottom Diagonal Sigma. Line for joining 03/02 to 03/03 or 03/07. */ \
XXX(0x35, UNDEF); /* Top Right Sigma. Joins to left with 02/03, 03/01. */ \
XXX(0x36, UNDEF); /* Bottom Right Sigma. Joins to left with 02/03, 03/02. */ \
XXX(0x37, UNDEF); /* Middle Sigma. Joins diagonally with 03/01, 03/02, 03/03, 03/04. */ \
XXX(0x38, UNDEF); /* undefined */ \
XXX(0x39, UNDEF); /* undefined */ \
XXX(0x3a, UNDEF); /* undefined */ \
XXX(0x3b, UNDEF); /* undefined */ \
UNI(0x3c, 0x2264); /* LESS-THAN OR EQUAL TO */ \
UNI(0x3d, 0x2260); /* NOT EQUAL TO */ \
UNI(0x3e, 0x2265); /* GREATER-THAN OR EQUAL TO */ \
UNI(0x3f, 0x222B); /* INTEGRAL */ \
UNI(0x40, 0x2234); /* THEREFORE */ \
UNI(0x41, 0x221d); /* PROPORTIONAL TO */ \
UNI(0x42, 0x221e); /* INFINITY */ \
UNI(0x43, 0x00f7); /* DIVISION SIGN */ \
UNI(0x44, 0x0394); /* GREEK CAPITAL DELTA */ \
UNI(0x45, 0x2207); /* NABLA */ \
UNI(0x46, 0x03a6); /* GREEK CAPITAL LETTER PHI */ \
UNI(0x47, 0x0393); /* GREEK CAPITAL LETTER GAMMA */ \
UNI(0x48, 0x223c); /* TILDE OPERATOR */ \
UNI(0x49, 0x2243); /* ASYMPTOTICALLY EQUAL TO */ \
UNI(0x4a, 0x0398); /* GREEK CAPITAL LETTER THETA */ \
UNI(0x4b, 0x00d7); /* MULTIPLICATION SIGN */ \
UNI(0x4c, 0x039b); /* GREEK CAPITAL LETTER LAMDA */ \
UNI(0x4d, 0x21d4); /* LEFT RIGHT DOUBLE ARROW */ \
UNI(0x4e, 0x21d2); /* RIGHTWARDS DOUBLE ARROW */ \
UNI(0x4f, 0x2261); /* IDENTICAL TO */ \
UNI(0x50, 0x03a0); /* GREEK CAPITAL LETTER PI */ \
UNI(0x51, 0x03a8); /* GREEK CAPITAL LETTER PSI */ \
UNI(0x52, UNDEF); /* undefined */ \
UNI(0x53, 0x03a3); /* GREEK CAPITAL LETTER SIGMA */ \
XXX(0x54, UNDEF); /* undefined */ \
XXX(0x55, UNDEF); /* undefined */ \
UNI(0x56, 0x221a); /* SQUARE ROOT */ \
UNI(0x57, 0x03a9); /* GREEK CAPITAL LETTER OMEGA */ \
UNI(0x58, 0x039e); /* GREEK CAPITAL LETTER XI */ \
UNI(0x59, 0x03a5); /* GREEK CAPITAL LETTER UPSILON */ \
UNI(0x5a, 0x2282); /* SUBSET OF */ \
UNI(0x5b, 0x2283); /* SUPERSET OF */ \
UNI(0x5c, 0x2229); /* INTERSECTION */ \
UNI(0x5d, 0x222a); /* UNION */ \
UNI(0x5e, 0x2227); /* LOGICAL AND */ \
UNI(0x5f, 0x2228); /* LOGICAL OR */ \
UNI(0x60, 0x00ac); /* NOT SIGN */ \
UNI(0x61, 0x03b1); /* GREEK SMALL LETTER ALPHA */ \
UNI(0x62, 0x03b2); /* GREEK SMALL LETTER BETA */ \
UNI(0x63, 0x03c7); /* GREEK SMALL LETTER CHI */ \
UNI(0x64, 0x03b4); /* GREEK SMALL LETTER DELTA */ \
UNI(0x65, 0x03b5); /* GREEK SMALL LETTER EPSILON */ \
UNI(0x66, 0x03c6); /* GREEK SMALL LETTER PHI */ \
UNI(0x67, 0x03b3); /* GREEK SMALL LETTER GAMMA */ \
UNI(0x68, 0x03b7); /* GREEK SMALL LETTER ETA */ \
UNI(0x69, 0x03b9); /* GREEK SMALL LETTER IOTA */ \
UNI(0x6a, 0x03b8); /* GREEK SMALL LETTER THETA */ \
UNI(0x6b, 0x03ba); /* GREEK SMALL LETTER KAPPA */ \
UNI(0x6c, 0x03bb); /* GREEK SMALL LETTER LAMDA */ \
XXX(0x6d, UNDEF); /* undefined */ \
UNI(0x6e, 0x03bd); /* GREEK SMALL LETTER NU */ \
UNI(0x6f, 0x2202); /* PARTIAL DIFFERENTIAL */ \
UNI(0x70, 0x03c0); /* GREEK SMALL LETTER PI */ \
UNI(0x71, 0x03c8); /* GREEK SMALL LETTER PSI */ \
UNI(0x72, 0x03c1); /* GREEK SMALL LETTER RHO */ \
UNI(0x73, 0x03c3); /* GREEK SMALL LETTER SIGMA */ \
UNI(0x74, 0x03c4); /* GREEK SMALL LETTER TAU */ \
XXX(0x75, UNDEF); /* undefined */ \
UNI(0x76, 0x0192); /* LATIN SMALL LETTER F WITH HOOK Probably chosen for its meaning of "function" */ \
UNI(0x77, 0x03c9); /* GREEK SMALL LETTER OMEGA */ \
UNI(0x78, 0x03bE); /* GREEK SMALL LETTER XI */ \
UNI(0x79, 0x03c5); /* GREEK SMALL LETTER UPSILON */ \
UNI(0x7a, 0x03b6); /* GREEK SMALL LETTER ZETA */ \
UNI(0x7b, 0x2190); /* LEFTWARDS ARROW */ \
UNI(0x7c, 0x2191); /* UPWARDS ARROW */ \
UNI(0x7d, 0x2192); /* RIGHTWARDS ARROW */ \
UNI(0x7e, 0x2193); /* DOWNWARDS ARROW */ \
} \
end_CODEPAGE()
/* ISO Latin/Cyrillic is 8859-5 */
#define map_ISO_Latin_Cyrillic(code) \
begin_CODEPAGE(); \
switch (code) { \
UNI(0x20, 0x00a0); /* NO-BREAK SPACE */ \
UNI(0x21, 0x0401); /* CYRILLIC CAPITAL LETTER IO */ \
UNI(0x22, 0x0402); /* CYRILLIC CAPITAL LETTER DJE */ \
UNI(0x23, 0x0403); /* CYRILLIC CAPITAL LETTER GJE */ \
UNI(0x24, 0x0404); /* CYRILLIC CAPITAL LETTER UKRAINIAN IE */ \
UNI(0x25, 0x0405); /* CYRILLIC CAPITAL LETTER DZE */ \
UNI(0x26, 0x0406); /* CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I */ \
UNI(0x27, 0x0407); /* CYRILLIC CAPITAL LETTER YI */ \
UNI(0x28, 0x0408); /* CYRILLIC CAPITAL LETTER JE */ \
UNI(0x29, 0x0409); /* CYRILLIC CAPITAL LETTER LJE */ \
UNI(0x2a, 0x040a); /* CYRILLIC CAPITAL LETTER NJE */ \
UNI(0x2b, 0x040b); /* CYRILLIC CAPITAL LETTER TSHE */ \
UNI(0x2c, 0x040c); /* CYRILLIC CAPITAL LETTER KJE */ \
UNI(0x2d, 0x00ad); /* SOFT HYPHEN */ \
UNI(0x2e, 0x040e); /* CYRILLIC CAPITAL LETTER SHORT U */ \
UNI(0x2f, 0x040f); /* CYRILLIC CAPITAL LETTER DZHE */ \
UNI(0x30, 0x0410); /* CYRILLIC CAPITAL LETTER A */ \
UNI(0x31, 0x0411); /* CYRILLIC CAPITAL LETTER BE */ \
UNI(0x32, 0x0412); /* CYRILLIC CAPITAL LETTER VE */ \
UNI(0x33, 0x0413); /* CYRILLIC CAPITAL LETTER GHE */ \
UNI(0x34, 0x0414); /* CYRILLIC CAPITAL LETTER DE */ \
UNI(0x35, 0x0415); /* CYRILLIC CAPITAL LETTER IE */ \
UNI(0x36, 0x0416); /* CYRILLIC CAPITAL LETTER ZHE */ \
UNI(0x37, 0x0417); /* CYRILLIC CAPITAL LETTER ZE */ \
UNI(0x38, 0x0418); /* CYRILLIC CAPITAL LETTER I */ \
UNI(0x39, 0x0419); /* CYRILLIC CAPITAL LETTER SHORT I */ \
UNI(0x3a, 0x041a); /* CYRILLIC CAPITAL LETTER KA */ \
UNI(0x3b, 0x041b); /* CYRILLIC CAPITAL LETTER EL */ \
UNI(0x3c, 0x041c); /* CYRILLIC CAPITAL LETTER EM */ \
UNI(0x3d, 0x041d); /* CYRILLIC CAPITAL LETTER EN */ \
UNI(0x3e, 0x041e); /* CYRILLIC CAPITAL LETTER O */ \
UNI(0x3f, 0x041f); /* CYRILLIC CAPITAL LETTER PE */ \
UNI(0x40, 0x0420); /* CYRILLIC CAPITAL LETTER ER */ \
UNI(0x41, 0x0421); /* CYRILLIC CAPITAL LETTER ES */ \
UNI(0x42, 0x0422); /* CYRILLIC CAPITAL LETTER TE */ \
UNI(0x43, 0x0423); /* CYRILLIC CAPITAL LETTER U */ \
UNI(0x44, 0x0424); /* CYRILLIC CAPITAL LETTER EF */ \
UNI(0x45, 0x0425); /* CYRILLIC CAPITAL LETTER HA */ \
UNI(0x46, 0x0426); /* CYRILLIC CAPITAL LETTER TSE */ \
UNI(0x47, 0x0427); /* CYRILLIC CAPITAL LETTER CHE */ \
UNI(0x48, 0x0428); /* CYRILLIC CAPITAL LETTER SHA */ \
UNI(0x49, 0x0429); /* CYRILLIC CAPITAL LETTER SHCHA */ \
UNI(0x4a, 0x042a); /* CYRILLIC CAPITAL LETTER HARD SIGN */ \
UNI(0x4b, 0x042b); /* CYRILLIC CAPITAL LETTER YERU */ \
UNI(0x4c, 0x042c); /* CYRILLIC CAPITAL LETTER SOFT SIGN */ \
UNI(0x4d, 0x042d); /* CYRILLIC CAPITAL LETTER E */ \
UNI(0x4e, 0x042e); /* CYRILLIC CAPITAL LETTER YU */ \
UNI(0x4f, 0x042f); /* CYRILLIC CAPITAL LETTER YA */ \
UNI(0x50, 0x0430); /* CYRILLIC SMALL LETTER A */ \
UNI(0x51, 0x0431); /* CYRILLIC SMALL LETTER BE */ \
UNI(0x52, 0x0432); /* CYRILLIC SMALL LETTER VE */ \
UNI(0x53, 0x0433); /* CYRILLIC SMALL LETTER GHE */ \
UNI(0x54, 0x0434); /* CYRILLIC SMALL LETTER DE */ \
UNI(0x55, 0x0435); /* CYRILLIC SMALL LETTER IE */ \
UNI(0x56, 0x0436); /* CYRILLIC SMALL LETTER ZHE */ \
UNI(0x57, 0x0437); /* CYRILLIC SMALL LETTER ZE */ \
UNI(0x58, 0x0438); /* CYRILLIC SMALL LETTER I */ \
UNI(0x59, 0x0439); /* CYRILLIC SMALL LETTER SHORT I */ \
UNI(0x5a, 0x043a); /* CYRILLIC SMALL LETTER KA */ \
UNI(0x5b, 0x043b); /* CYRILLIC SMALL LETTER EL */ \
UNI(0x5c, 0x043c); /* CYRILLIC SMALL LETTER EM */ \
UNI(0x5d, 0x043d); /* CYRILLIC SMALL LETTER EN */ \
UNI(0x5e, 0x043e); /* CYRILLIC SMALL LETTER O */ \
UNI(0x5f, 0x043f); /* CYRILLIC SMALL LETTER PE */ \
UNI(0x60, 0x0440); /* CYRILLIC SMALL LETTER ER */ \
UNI(0x61, 0x0441); /* CYRILLIC SMALL LETTER ES */ \
UNI(0x62, 0x0442); /* CYRILLIC SMALL LETTER TE */ \
UNI(0x63, 0x0443); /* CYRILLIC SMALL LETTER U */ \
UNI(0x64, 0x0444); /* CYRILLIC SMALL LETTER EF */ \
UNI(0x65, 0x0445); /* CYRILLIC SMALL LETTER HA */ \
UNI(0x66, 0x0446); /* CYRILLIC SMALL LETTER TSE */ \
UNI(0x67, 0x0447); /* CYRILLIC SMALL LETTER CHE */ \
UNI(0x68, 0x0448); /* CYRILLIC SMALL LETTER SHA */ \
UNI(0x69, 0x0449); /* CYRILLIC SMALL LETTER SHCHA */ \
UNI(0x6a, 0x044a); /* CYRILLIC SMALL LETTER HARD SIGN */ \
UNI(0x6b, 0x044b); /* CYRILLIC SMALL LETTER YERU */ \
UNI(0x6c, 0x044c); /* CYRILLIC SMALL LETTER SOFT SIGN */ \
UNI(0x6d, 0x044d); /* CYRILLIC SMALL LETTER E */ \
UNI(0x6e, 0x044e); /* CYRILLIC SMALL LETTER YU */ \
UNI(0x6f, 0x044f); /* CYRILLIC SMALL LETTER YA */ \
UNI(0x70, 0x2116); /* NUMERO SIGN */ \
UNI(0x71, 0x0451); /* CYRILLIC SMALL LETTER IO */ \
UNI(0x72, 0x0452); /* CYRILLIC SMALL LETTER DJE */ \
UNI(0x73, 0x0453); /* CYRILLIC SMALL LETTER GJE */ \
UNI(0x74, 0x0454); /* CYRILLIC SMALL LETTER UKRAINIAN IE */ \
UNI(0x75, 0x0455); /* CYRILLIC SMALL LETTER DZE */ \
UNI(0x76, 0x0456); /* CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I */ \
UNI(0x77, 0x0457); /* CYRILLIC SMALL LETTER YI */ \
UNI(0x78, 0x0458); /* CYRILLIC SMALL LETTER JE */ \
UNI(0x79, 0x0459); /* CYRILLIC SMALL LETTER LJE */ \
UNI(0x7a, 0x045a); /* CYRILLIC SMALL LETTER NJE */ \
UNI(0x7b, 0x045b); /* CYRILLIC SMALL LETTER TSHE */ \
UNI(0x7c, 0x045c); /* CYRILLIC SMALL LETTER KJE */ \
UNI(0x7d, 0x00a7); /* SECTION SIGN */ \
UNI(0x7e, 0x045e); /* CYRILLIC SMALL LETTER SHORT U */ \
UNI(0x7f, 0x045f); /* CYRILLIC SMALL LETTER DZHE */ \
} \
end_CODEPAGE()
/* ISO Greek is 8859-7 */
#define map_ISO_Greek_Supp(code) \
begin_CODEPAGE(); \
switch (code) { \
UNI(0x20, 0x00a0); /* NO-BREAK SPACE */ \
UNI(0x21, 0x2018); /* LEFT SINGLE QUOTATION MARK */ \
UNI(0x22, 0x2019); /* RIGHT SINGLE QUOTATION MARK */ \
UNI(0x23, 0x00a3); /* POUND SIGN */ \
UNI(0x24, 0x20ac); /* EURO SIGN */ \
UNI(0x25, 0x20af); /* DRACHMA SIGN */ \
UNI(0x26, 0x00a6); /* BROKEN BAR */ \
UNI(0x27, 0x00a7); /* SECTION SIGN */ \
UNI(0x28, 0x00a8); /* DIAERESIS */ \
UNI(0x29, 0x00a9); /* COPYRIGHT SIGN */ \
UNI(0x2a, 0x037a); /* GREEK YPOGEGRAMMENI */ \
UNI(0x2b, 0x00ab); /* LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ \
UNI(0x2c, 0x00ac); /* NOT SIGN */ \
UNI(0x2d, 0x00ad); /* SOFT HYPHEN */ \
XXX(0x2e, UNDEF); /* undefined */ \
UNI(0x2f, 0x2015); /* HORIZONTAL BAR */ \
UNI(0x30, 0x00b0); /* DEGREE SIGN */ \
UNI(0x31, 0x00b1); /* PLUS-MINUS SIGN */ \
UNI(0x32, 0x00b2); /* SUPERSCRIPT TWO */ \
UNI(0x33, 0x00b3); /* SUPERSCRIPT THREE */ \
UNI(0x34, 0x0384); /* GREEK TONOS */ \
UNI(0x35, 0x0385); /* GREEK DIALYTIKA TONOS */ \
UNI(0x36, 0x0386); /* GREEK CAPITAL LETTER ALPHA WITH TONOS */ \
UNI(0x37, 0x00b7); /* MIDDLE DOT */ \
UNI(0x38, 0x0388); /* GREEK CAPITAL LETTER EPSILON WITH TONOS */ \
UNI(0x39, 0x0389); /* GREEK CAPITAL LETTER ETA WITH TONOS */ \
UNI(0x3a, 0x038a); /* GREEK CAPITAL LETTER IOTA WITH TONOS */ \
UNI(0x3b, 0x00bb); /* RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ \
UNI(0x3c, 0x038c); /* GREEK CAPITAL LETTER OMICRON WITH TONOS */ \
UNI(0x3d, 0x00bd); /* VULGAR FRACTION ONE HALF */ \
UNI(0x3e, 0x038e); /* GREEK CAPITAL LETTER UPSILON WITH TONOS */ \
UNI(0x3f, 0x038f); /* GREEK CAPITAL LETTER OMEGA WITH TONOS */ \
UNI(0x40, 0x0390); /* GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS */ \
UNI(0x41, 0x0391); /* GREEK CAPITAL LETTER ALPHA */ \
UNI(0x42, 0x0392); /* GREEK CAPITAL LETTER BETA */ \
UNI(0x43, 0x0393); /* GREEK CAPITAL LETTER GAMMA */ \
UNI(0x44, 0x0394); /* GREEK CAPITAL LETTER DELTA */ \
UNI(0x45, 0x0395); /* GREEK CAPITAL LETTER EPSILON */ \
UNI(0x46, 0x0396); /* GREEK CAPITAL LETTER ZETA */ \
UNI(0x47, 0x0397); /* GREEK CAPITAL LETTER ETA */ \
UNI(0x48, 0x0398); /* GREEK CAPITAL LETTER THETA */ \
UNI(0x49, 0x0399); /* GREEK CAPITAL LETTER IOTA */ \
UNI(0x4a, 0x039a); /* GREEK CAPITAL LETTER KAPPA */ \
UNI(0x4b, 0x039b); /* GREEK CAPITAL LETTER LAMDA */ \
UNI(0x4c, 0x039c); /* GREEK CAPITAL LETTER MU */ \
UNI(0x4d, 0x039d); /* GREEK CAPITAL LETTER NU */ \
UNI(0x4e, 0x039e); /* GREEK CAPITAL LETTER XI */ \
UNI(0x4f, 0x039f); /* GREEK CAPITAL LETTER OMICRON */ \
UNI(0x50, 0x03a0); /* GREEK CAPITAL LETTER PI */ \
UNI(0x51, 0x03a1); /* GREEK CAPITAL LETTER RHO */ \
XXX(0x52, UNDEF); /* undefined */ \
UNI(0x53, 0x03a3); /* GREEK CAPITAL LETTER SIGMA */ \
UNI(0x54, 0x03a4); /* GREEK CAPITAL LETTER TAU */ \
UNI(0x55, 0x03a5); /* GREEK CAPITAL LETTER UPSILON */ \
UNI(0x56, 0x03a6); /* GREEK CAPITAL LETTER PHI */ \
UNI(0x57, 0x03a7); /* GREEK CAPITAL LETTER CHI */ \
UNI(0x58, 0x03a8); /* GREEK CAPITAL LETTER PSI */ \
UNI(0x59, 0x03a9); /* GREEK CAPITAL LETTER OMEGA */ \
UNI(0x5a, 0x03aa); /* GREEK CAPITAL LETTER IOTA WITH DIALYTIKA */ \
UNI(0x5b, 0x03ab); /* GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA */ \
UNI(0x5c, 0x03ac); /* GREEK SMALL LETTER ALPHA WITH TONOS */ \
UNI(0x5d, 0x03ad); /* GREEK SMALL LETTER EPSILON WITH TONOS */ \
UNI(0x5e, 0x03ae); /* GREEK SMALL LETTER ETA WITH TONOS */ \
UNI(0x5f, 0x03af); /* GREEK SMALL LETTER IOTA WITH TONOS */ \
UNI(0x60, 0x03b0); /* GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS */ \
UNI(0x61, 0x03b1); /* GREEK SMALL LETTER ALPHA */ \
UNI(0x62, 0x03b2); /* GREEK SMALL LETTER BETA */ \
UNI(0x63, 0x03b3); /* GREEK SMALL LETTER GAMMA */ \
UNI(0x64, 0x03b4); /* GREEK SMALL LETTER DELTA */ \
UNI(0x65, 0x03b5); /* GREEK SMALL LETTER EPSILON */ \
UNI(0x66, 0x03b6); /* GREEK SMALL LETTER ZETA */ \
UNI(0x67, 0x03b7); /* GREEK SMALL LETTER ETA */ \
UNI(0x68, 0x03b8); /* GREEK SMALL LETTER THETA */ \
UNI(0x69, 0x03b9); /* GREEK SMALL LETTER IOTA */ \
UNI(0x6a, 0x03ba); /* GREEK SMALL LETTER KAPPA */ \
UNI(0x6b, 0x03bb); /* GREEK SMALL LETTER LAMDA */ \
UNI(0x6c, 0x03bc); /* GREEK SMALL LETTER MU */ \
UNI(0x6d, 0x03bd); /* GREEK SMALL LETTER NU */ \
UNI(0x6e, 0x03be); /* GREEK SMALL LETTER XI */ \
UNI(0x6f, 0x03bf); /* GREEK SMALL LETTER OMICRON */ \
UNI(0x70, 0x03c0); /* GREEK SMALL LETTER PI */ \
UNI(0x71, 0x03c1); /* GREEK SMALL LETTER RHO */ \
UNI(0x72, 0x03c2); /* GREEK SMALL LETTER FINAL SIGMA */ \
UNI(0x73, 0x03c3); /* GREEK SMALL LETTER SIGMA */ \
UNI(0x74, 0x03c4); /* GREEK SMALL LETTER TAU */ \
UNI(0x75, 0x03c5); /* GREEK SMALL LETTER UPSILON */ \
UNI(0x76, 0x03c6); /* GREEK SMALL LETTER PHI */ \
UNI(0x77, 0x03c7); /* GREEK SMALL LETTER CHI */ \
UNI(0x78, 0x03c8); /* GREEK SMALL LETTER PSI */ \
UNI(0x79, 0x03c9); /* GREEK SMALL LETTER OMEGA */ \
UNI(0x7a, 0x03ca); /* GREEK SMALL LETTER IOTA WITH DIALYTIKA */ \
UNI(0x7b, 0x03cb); /* GREEK SMALL LETTER UPSILON WITH DIALYTIKA */ \
UNI(0x7c, 0x03cc); /* GREEK SMALL LETTER OMICRON WITH TONOS */ \
UNI(0x7d, 0x03cd); /* GREEK SMALL LETTER UPSILON WITH TONOS */ \
UNI(0x7e, 0x03ce); /* GREEK SMALL LETTER OMEGA WITH TONOS */ \
} \
end_CODEPAGE()
/* figure A-23 "ISO Latin-Hebrew Supplemental Character Set" */
#define map_ISO_Hebrew(code) \
begin_CODEPAGE(); \
switch (code) { \
UNI(0x20, 0x00a0); /* NO-BREAK SPACE */ \
XXX(0x21, UNDEF); /* undefined */ \
UNI(0x22, 0x00a2); /* CENT SIGN */ \
UNI(0x23, 0x00a3); /* POUND SIGN */ \
UNI(0x24, 0x00a4); /* CURRENCY SIGN */ \
UNI(0x25, 0x00a5); /* YEN SIGN */ \
UNI(0x26, 0x00a6); /* BROKEN BAR */ \
UNI(0x27, 0x00a7); /* SECTION SIGN */ \
UNI(0x28, 0x00a8); /* DIAERESIS */ \
UNI(0x29, 0x00a9); /* COPYRIGHT SIGN */ \
UNI(0x2a, 0x00d7); /* MULTIPLICATION SIGN */ \
UNI(0x2b, 0x00ab); /* LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ \
UNI(0x2c, 0x00ac); /* NOT SIGN */ \
UNI(0x2d, 0x00ad); /* SOFT HYPHEN */ \
UNI(0x2e, 0x00ae); /* REGISTERED SIGN */ \
UNI(0x2f, 0x00af); /* MACRON */ \
UNI(0x30, 0x00b0); /* DEGREE SIGN */ \
UNI(0x31, 0x00b1); /* PLUS-MINUS SIGN */ \
UNI(0x32, 0x00b2); /* SUPERSCRIPT TWO */ \
UNI(0x33, 0x00b3); /* SUPERSCRIPT THREE */ \
UNI(0x34, 0x00b4); /* ACUTE ACCENT */ \
UNI(0x35, 0x00b5); /* MICRO SIGN */ \
UNI(0x36, 0x00b6); /* PILCROW SIGN */ \
UNI(0x37, 0x00b7); /* MIDDLE DOT */ \
UNI(0x38, 0x00b8); /* CEDILLA */ \
UNI(0x39, 0x00b9); /* SUPERSCRIPT ONE */ \
UNI(0x3a, 0x00f7); /* DIVISION SIGN */ \
UNI(0x3b, 0x00bb); /* RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ \
UNI(0x3c, 0x00bc); /* VULGAR FRACTION ONE QUARTER */ \
UNI(0x3d, 0x00bd); /* VULGAR FRACTION ONE HALF */ \
UNI(0x3e, 0x00be); /* VULGAR FRACTION THREE QUARTERS */ \
XXX(0x3f, UNDEF); /* undefined */ \
XXX(0x40, UNDEF); /* undefined */ \
XXX(0x41, UNDEF); /* undefined */ \
XXX(0x42, UNDEF); /* undefined */ \
XXX(0x43, UNDEF); /* undefined */ \
XXX(0x44, UNDEF); /* undefined */ \
XXX(0x45, UNDEF); /* undefined */ \
XXX(0x46, UNDEF); /* undefined */ \
XXX(0x47, UNDEF); /* undefined */ \
XXX(0x48, UNDEF); /* undefined */ \
XXX(0x49, UNDEF); /* undefined */ \
XXX(0x4a, UNDEF); /* undefined */ \
XXX(0x4b, UNDEF); /* undefined */ \
XXX(0x4c, UNDEF); /* undefined */ \
XXX(0x4d, UNDEF); /* undefined */ \
XXX(0x4e, UNDEF); /* undefined */ \
XXX(0x4f, UNDEF); /* undefined */ \
XXX(0x50, UNDEF); /* undefined */ \
XXX(0x51, UNDEF); /* undefined */ \
XXX(0x52, UNDEF); /* undefined */ \
XXX(0x53, UNDEF); /* undefined */ \
XXX(0x54, UNDEF); /* undefined */ \
XXX(0x55, UNDEF); /* undefined */ \
XXX(0x56, UNDEF); /* undefined */ \
XXX(0x57, UNDEF); /* undefined */ \
XXX(0x58, UNDEF); /* undefined */ \
XXX(0x59, UNDEF); /* undefined */ \
XXX(0x5a, UNDEF); /* undefined */ \
XXX(0x5b, UNDEF); /* undefined */ \
XXX(0x5c, UNDEF); /* undefined */ \
XXX(0x5d, UNDEF); /* undefined */ \
XXX(0x5e, UNDEF); /* undefined */ \
UNI(0x5f, 0x2017); /* DOUBLE LOW LINE */ \
UNI(0x60, 0x05d0); /* HEBREW LETTER ALEF */ \
UNI(0x61, 0x05d1); /* HEBREW LETTER BET */ \
UNI(0x62, 0x05d2); /* HEBREW LETTER GIMEL */ \
UNI(0x63, 0x05d3); /* HEBREW LETTER DALET */ \
UNI(0x64, 0x05d4); /* HEBREW LETTER HE */ \
UNI(0x65, 0x05d5); /* HEBREW LETTER VAV */ \
UNI(0x66, 0x05d6); /* HEBREW LETTER ZAYIN */ \
UNI(0x67, 0x05d7); /* HEBREW LETTER HET */ \
UNI(0x68, 0x05d8); /* HEBREW LETTER TET */ \
UNI(0x69, 0x05d9); /* HEBREW LETTER YOD */ \
UNI(0x6a, 0x05da); /* HEBREW LETTER FINAL KAF */ \
UNI(0x6b, 0x05db); /* HEBREW LETTER KAF */ \
UNI(0x6c, 0x05dc); /* HEBREW LETTER LAMED */ \
UNI(0x6d, 0x05dd); /* HEBREW LETTER FINAL MEM */ \
UNI(0x6e, 0x05de); /* HEBREW LETTER MEM */ \
UNI(0x6f, 0x05df); /* HEBREW LETTER FINAL NUN */ \
UNI(0x70, 0x05e0); /* HEBREW LETTER NUN */ \
UNI(0x71, 0x05e1); /* HEBREW LETTER SAMEKH */ \
UNI(0x72, 0x05e2); /* HEBREW LETTER AYIN */ \
UNI(0x73, 0x05e3); /* HEBREW LETTER FINAL PE */ \
UNI(0x74, 0x05e4); /* HEBREW LETTER PE */ \
UNI(0x75, 0x05e5); /* HEBREW LETTER FINAL TSADI */ \
UNI(0x76, 0x05e6); /* HEBREW LETTER TSADI */ \
UNI(0x77, 0x05e7); /* HEBREW LETTER QOF */ \
UNI(0x78, 0x05e8); /* HEBREW LETTER RESH */ \
UNI(0x79, 0x05e9); /* HEBREW LETTER SHIN */ \
UNI(0x7a, 0x05ea); /* HEBREW LETTER TAV */ \
XXX(0x7b, UNDEF); /* undefined */ \
XXX(0x7c, UNDEF); /* undefined */ \
UNI(0x7d, 0x200e); /* LEFT-TO-RIGHT MARK */ \
UNI(0x7e, 0x200f); /* RIGHT-TO-LEFT MARK */ \
} \
end_CODEPAGE()
/* ISO Latin-5 is 8859-9 */
#define map_ISO_Latin_5(code) \
begin_CODEPAGE(); \
switch (code) { \
UNI(0x20, 0x00a0); /* NO-BREAK SPACE */ \
UNI(0x21, 0x00a1); /* INVERTED EXCLAMATION MARK */ \
UNI(0x22, 0x00a2); /* CENT SIGN */ \
UNI(0x23, 0x00a3); /* POUND SIGN */ \
UNI(0x24, 0x00a4); /* CURRENCY SIGN */ \
UNI(0x25, 0x00a5); /* YEN SIGN */ \
UNI(0x26, 0x00a6); /* BROKEN BAR */ \
UNI(0x27, 0x00a7); /* SECTION SIGN */ \
UNI(0x28, 0x00a8); /* DIAERESIS */ \
UNI(0x29, 0x00a9); /* COPYRIGHT SIGN */ \
UNI(0x2a, 0x00aa); /* FEMININE ORDINAL INDICATOR */ \
UNI(0x2b, 0x00ab); /* LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ \
UNI(0x2c, 0x00ac); /* NOT SIGN */ \
UNI(0x2d, 0x00ad); /* SOFT HYPHEN */ \
UNI(0x2e, 0x00ae); /* REGISTERED SIGN */ \
UNI(0x2f, 0x00af); /* MACRON */ \
UNI(0x30, 0x00b0); /* DEGREE SIGN */ \
UNI(0x31, 0x00b1); /* PLUS-MINUS SIGN */ \
UNI(0x32, 0x00b2); /* SUPERSCRIPT TWO */ \
UNI(0x33, 0x00b3); /* SUPERSCRIPT THREE */ \
UNI(0x34, 0x00b4); /* ACUTE ACCENT */ \
UNI(0x35, 0x00b5); /* MICRO SIGN */ \
UNI(0x36, 0x00b6); /* PILCROW SIGN */ \
UNI(0x37, 0x00b7); /* MIDDLE DOT */ \
UNI(0x38, 0x00b8); /* CEDILLA */ \
UNI(0x39, 0x00b9); /* SUPERSCRIPT ONE */ \
UNI(0x3a, 0x00ba); /* MASCULINE ORDINAL INDICATOR */ \
UNI(0x3b, 0x00bb); /* RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ \
UNI(0x3c, 0x00bc); /* VULGAR FRACTION ONE QUARTER */ \
UNI(0x3d, 0x00bd); /* VULGAR FRACTION ONE HALF */ \
UNI(0x3e, 0x00be); /* VULGAR FRACTION THREE QUARTERS */ \
UNI(0x3f, 0x00bf); /* INVERTED QUESTION MARK */ \
UNI(0x40, 0x00c0); /* LATIN CAPITAL LETTER A WITH GRAVE */ \
UNI(0x41, 0x00c1); /* LATIN CAPITAL LETTER A WITH ACUTE */ \
UNI(0x42, 0x00c2); /* LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ \
UNI(0x43, 0x00c3); /* LATIN CAPITAL LETTER A WITH TILDE */ \
UNI(0x44, 0x00c4); /* LATIN CAPITAL LETTER A WITH DIAERESIS */ \
UNI(0x45, 0x00c5); /* LATIN CAPITAL LETTER A WITH RING ABOVE */ \
UNI(0x46, 0x00c6); /* LATIN CAPITAL LETTER AE */ \
UNI(0x47, 0x00c7); /* LATIN CAPITAL LETTER C WITH CEDILLA */ \
UNI(0x48, 0x00c8); /* LATIN CAPITAL LETTER E WITH GRAVE */ \
UNI(0x49, 0x00c9); /* LATIN CAPITAL LETTER E WITH ACUTE */ \
UNI(0x4a, 0x00ca); /* LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ \
UNI(0x4b, 0x00cb); /* LATIN CAPITAL LETTER E WITH DIAERESIS */ \
UNI(0x4c, 0x00cc); /* LATIN CAPITAL LETTER I WITH GRAVE */ \
UNI(0x4d, 0x00cd); /* LATIN CAPITAL LETTER I WITH ACUTE */ \
UNI(0x4e, 0x00ce); /* LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ \
UNI(0x4f, 0x00cf); /* LATIN CAPITAL LETTER I WITH DIAERESIS */ \
UNI(0x50, 0x011e); /* LATIN CAPITAL LETTER G WITH BREVE */ \
UNI(0x51, 0x00d1); /* LATIN CAPITAL LETTER N WITH TILDE */ \
UNI(0x52, 0x00d2); /* LATIN CAPITAL LETTER O WITH GRAVE */ \
UNI(0x53, 0x00d3); /* LATIN CAPITAL LETTER O WITH ACUTE */ \
UNI(0x54, 0x00d4); /* LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ \
UNI(0x55, 0x00d5); /* LATIN CAPITAL LETTER O WITH TILDE */ \
UNI(0x56, 0x00d6); /* LATIN CAPITAL LETTER O WITH DIAERESIS */ \
UNI(0x57, 0x00d7); /* MULTIPLICATION SIGN */ \
UNI(0x58, 0x00d8); /* LATIN CAPITAL LETTER O WITH STROKE */ \
UNI(0x59, 0x00d9); /* LATIN CAPITAL LETTER U WITH GRAVE */ \
UNI(0x5a, 0x00da); /* LATIN CAPITAL LETTER U WITH ACUTE */ \
UNI(0x5b, 0x00db); /* LATIN CAPITAL LETTER U WITH CIRCUMFLEX */ \
UNI(0x5c, 0x00dc); /* LATIN CAPITAL LETTER U WITH DIAERESIS */ \
UNI(0x5d, 0x0130); /* LATIN CAPITAL LETTER I WITH DOT ABOVE */ \
UNI(0x5e, 0x015e); /* LATIN CAPITAL LETTER S WITH CEDILLA */ \
UNI(0x5f, 0x00df); /* LATIN SMALL LETTER SHARP S */ \
UNI(0x60, 0x00e0); /* LATIN SMALL LETTER A WITH GRAVE */ \
UNI(0x61, 0x00e1); /* LATIN SMALL LETTER A WITH ACUTE */ \
UNI(0x62, 0x00e2); /* LATIN SMALL LETTER A WITH CIRCUMFLEX */ \
UNI(0x63, 0x00e3); /* LATIN SMALL LETTER A WITH TILDE */ \
UNI(0x64, 0x00e4); /* LATIN SMALL LETTER A WITH DIAERESIS */ \
UNI(0x65, 0x00e5); /* LATIN SMALL LETTER A WITH RING ABOVE */ \
UNI(0x66, 0x00e6); /* LATIN SMALL LETTER AE */ \
UNI(0x67, 0x00e7); /* LATIN SMALL LETTER C WITH CEDILLA */ \
UNI(0x68, 0x00e8); /* LATIN SMALL LETTER E WITH GRAVE */ \
UNI(0x69, 0x00e9); /* LATIN SMALL LETTER E WITH ACUTE */ \
UNI(0x6a, 0x00ea); /* LATIN SMALL LETTER E WITH CIRCUMFLEX */ \
UNI(0x6b, 0x00eb); /* LATIN SMALL LETTER E WITH DIAERESIS */ \
UNI(0x6c, 0x00ec); /* LATIN SMALL LETTER I WITH GRAVE */ \
UNI(0x6d, 0x00ed); /* LATIN SMALL LETTER I WITH ACUTE */ \
UNI(0x6e, 0x00ee); /* LATIN SMALL LETTER I WITH CIRCUMFLEX */ \
UNI(0x6f, 0x00ef); /* LATIN SMALL LETTER I WITH DIAERESIS */ \
UNI(0x70, 0x011f); /* LATIN SMALL LETTER G WITH BREVE */ \
UNI(0x71, 0x00f1); /* LATIN SMALL LETTER N WITH TILDE */ \
UNI(0x72, 0x00f2); /* LATIN SMALL LETTER O WITH GRAVE */ \
UNI(0x73, 0x00f3); /* LATIN SMALL LETTER O WITH ACUTE */ \
UNI(0x74, 0x00f4); /* LATIN SMALL LETTER O WITH CIRCUMFLEX */ \
UNI(0x75, 0x00f5); /* LATIN SMALL LETTER O WITH TILDE */ \
UNI(0x76, 0x00f6); /* LATIN SMALL LETTER O WITH DIAERESIS */ \
UNI(0x77, 0x00f7); /* DIVISION SIGN */ \
UNI(0x78, 0x00f8); /* LATIN SMALL LETTER O WITH STROKE */ \
UNI(0x79, 0x00f9); /* LATIN SMALL LETTER U WITH GRAVE */ \
UNI(0x7a, 0x00fa); /* LATIN SMALL LETTER U WITH ACUTE */ \
UNI(0x7b, 0x00fb); /* LATIN SMALL LETTER U WITH CIRCUMFLEX */ \
UNI(0x7c, 0x00fc); /* LATIN SMALL LETTER U WITH DIAERESIS */ \
UNI(0x7d, 0x0131); /* LATIN SMALL LETTER DOTLESS I */ \
UNI(0x7e, 0x015f); /* LATIN SMALL LETTER S WITH CEDILLA */ \
UNI(0x7f, 0x00ff); /* LATIN SMALL LETTER Y WITH DIAERESIS */ \
} \
end_CODEPAGE()
/* DEC Cyrillic from screenshot */
#define map_DEC_Cyrillic(code) \
begin_CODEPAGE(); \
switch (code) { \
UNI(0x20, 0x00a0); /* NO-BREAK SPACE */ \
XXX(0x21, UNDEF); /* undefined */ \
XXX(0x22, UNDEF); /* undefined */ \
XXX(0x23, UNDEF); /* undefined */ \
XXX(0x24, UNDEF); /* undefined */ \
XXX(0x25, UNDEF); /* undefined */ \
XXX(0x26, UNDEF); /* undefined */ \
XXX(0x27, UNDEF); /* undefined */ \
XXX(0x28, UNDEF); /* undefined */ \
XXX(0x29, UNDEF); /* undefined */ \
XXX(0x2a, UNDEF); /* undefined */ \
XXX(0x2b, UNDEF); /* undefined */ \
XXX(0x2c, UNDEF); /* undefined */ \
XXX(0x2d, UNDEF); /* undefined */ \
XXX(0x2e, UNDEF); /* undefined */ \
XXX(0x2f, UNDEF); /* undefined */ \
XXX(0x30, UNDEF); /* undefined */ \
XXX(0x31, UNDEF); /* undefined */ \
XXX(0x32, UNDEF); /* undefined */ \
XXX(0x33, UNDEF); /* undefined */ \
XXX(0x34, UNDEF); /* undefined */ \
XXX(0x35, UNDEF); /* undefined */ \
XXX(0x36, UNDEF); /* undefined */ \
XXX(0x37, UNDEF); /* undefined */ \
XXX(0x38, UNDEF); /* undefined */ \
XXX(0x39, UNDEF); /* undefined */ \
XXX(0x3a, UNDEF); /* undefined */ \
XXX(0x3b, UNDEF); /* undefined */ \
XXX(0x3c, UNDEF); /* undefined */ \
XXX(0x3d, UNDEF); /* undefined */ \
XXX(0x3e, UNDEF); /* undefined */ \
XXX(0x3f, UNDEF); /* undefined */ \
\
UNI(0x40, 0x044e); /* CYRILLIC SMALL LETTER YU */ \
UNI(0x41, 0x0430); /* CYRILLIC SMALL LETTER A */ \
UNI(0x42, 0x0431); /* CYRILLIC SMALL LETTER BE */ \
UNI(0x43, 0x0446); /* CYRILLIC SMALL LETTER TSE */ \
UNI(0x44, 0x0434); /* CYRILLIC SMALL LETTER DE */ \
UNI(0x45, 0x0435); /* CYRILLIC SMALL LETTER IE */ \
UNI(0x46, 0x0444); /* CYRILLIC SMALL LETTER EF */ \
UNI(0x47, 0x0433); /* CYRILLIC SMALL LETTER GHE */ \
UNI(0x48, 0x0445); /* CYRILLIC SMALL LETTER HA */ \
UNI(0x49, 0x0438); /* CYRILLIC SMALL LETTER I */ \
UNI(0x4a, 0x0439); /* CYRILLIC SMALL LETTER SHORT I */ \
UNI(0x4b, 0x043a); /* CYRILLIC SMALL LETTER KA */ \
UNI(0x4c, 0x043b); /* CYRILLIC SMALL LETTER EL */ \
UNI(0x4d, 0x043c); /* CYRILLIC SMALL LETTER EM */ \
UNI(0x4e, 0x043d); /* CYRILLIC SMALL LETTER EN */ \
UNI(0x4f, 0x043e); /* CYRILLIC SMALL LETTER O */ \
UNI(0x50, 0x043f); /* CYRILLIC SMALL LETTER PE */ \
UNI(0x51, 0x044f); /* CYRILLIC SMALL LETTER YA */ \
UNI(0x52, 0x0440); /* CYRILLIC SMALL LETTER ER */ \
UNI(0x53, 0x0441); /* CYRILLIC SMALL LETTER ES */ \
UNI(0x54, 0x0442); /* CYRILLIC SMALL LETTER TE */ \
UNI(0x55, 0x0443); /* CYRILLIC SMALL LETTER U */ \
UNI(0x56, 0x0436); /* CYRILLIC SMALL LETTER ZHE */ \
UNI(0x57, 0x0432); /* CYRILLIC SMALL LETTER VE */ \
UNI(0x58, 0x044c); /* CYRILLIC SMALL LETTER SOFT SIGN */ \
UNI(0x59, 0x044b); /* CYRILLIC SMALL LETTER YERU */ \
UNI(0x5a, 0x0437); /* CYRILLIC SMALL LETTER ZE */ \
UNI(0x5b, 0x0448); /* CYRILLIC SMALL LETTER SHA */ \
UNI(0x5c, 0x044d); /* CYRILLIC SMALL LETTER E */ \
UNI(0x5d, 0x0449); /* CYRILLIC SMALL LETTER SHCHA */ \
UNI(0x5e, 0x0447); /* CYRILLIC SMALL LETTER CHE */ \
UNI(0x5f, 0x044a); /* CYRILLIC SMALL LETTER HARD SIGN */ \
\
UNI(0x60, 0x042e); /* CYRILLIC CAPITAL LETTER YU */ \
UNI(0x61, 0x0410); /* CYRILLIC CAPITAL LETTER A */ \
UNI(0x62, 0x0411); /* CYRILLIC CAPITAL LETTER BE */ \
UNI(0x63, 0x0426); /* CYRILLIC CAPITAL LETTER TSE */ \
UNI(0x64, 0x0414); /* CYRILLIC CAPITAL LETTER DE */ \
UNI(0x65, 0x0415); /* CYRILLIC CAPITAL LETTER IE */ \
UNI(0x66, 0x0424); /* CYRILLIC CAPITAL LETTER EF */ \
UNI(0x67, 0x0413); /* CYRILLIC CAPITAL LETTER GHE */ \
UNI(0x68, 0x0425); /* CYRILLIC CAPITAL LETTER HA */ \
UNI(0x69, 0x0418); /* CYRILLIC CAPITAL LETTER I */ \
UNI(0x6a, 0x0419); /* CYRILLIC CAPITAL LETTER SHORT I */ \
UNI(0x6b, 0x041a); /* CYRILLIC CAPITAL LETTER KA */ \
UNI(0x6c, 0x041b); /* CYRILLIC CAPITAL LETTER EL */ \
UNI(0x6d, 0x041c); /* CYRILLIC CAPITAL LETTER EM */ \
UNI(0x6e, 0x041d); /* CYRILLIC CAPITAL LETTER EN */ \
UNI(0x6f, 0x041e); /* CYRILLIC CAPITAL LETTER O */ \
UNI(0x70, 0x041f); /* CYRILLIC CAPITAL LETTER PE */ \
UNI(0x71, 0x042f); /* CYRILLIC CAPITAL LETTER YA */ \
UNI(0x72, 0x0420); /* CYRILLIC CAPITAL LETTER ER */ \
UNI(0x73, 0x0421); /* CYRILLIC CAPITAL LETTER ES */ \
UNI(0x74, 0x0422); /* CYRILLIC CAPITAL LETTER TE */ \
UNI(0x75, 0x0423); /* CYRILLIC CAPITAL LETTER U */ \
UNI(0x76, 0x0416); /* CYRILLIC CAPITAL LETTER ZHE */ \
UNI(0x77, 0x0412); /* CYRILLIC CAPITAL LETTER VE */ \
UNI(0x78, 0x042c); /* CYRILLIC CAPITAL LETTER SOFT SIGN */ \
UNI(0x79, 0x042b); /* CYRILLIC CAPITAL LETTER YERU */ \
UNI(0x7a, 0x0417); /* CYRILLIC CAPITAL LETTER ZE */ \
UNI(0x7b, 0x0428); /* CYRILLIC CAPITAL LETTER SHA */ \
UNI(0x7c, 0x042d); /* CYRILLIC CAPITAL LETTER E */ \
UNI(0x7d, 0x0429); /* CYRILLIC CAPITAL LETTER SHCHA */ \
UNI(0x7e, 0x0427); /* CYRILLIC CAPITAL LETTER CHE */ \
UNI(0x7f, 0x042a); /* CYRILLIC CAPITAL LETTER HARD SIGN */ \
\
} \
end_CODEPAGE()
/* figure A-24 "DEC Greek Supplemental Character Set" */
#define map_DEC_Greek_Supp(code) \
begin_CODEPAGE(); \
switch (code) { \
MAP(0x20, 0x00a0); /* NO-BREAK SPACE */ \
UNI(0x21, 0x00a1); /* LEFT SINGLE QUOTATION MARK */ \
UNI(0x22, 0x00a2); /* RIGHT SINGLE QUOTATION MARK */ \
UNI(0x23, 0x00a3); /* POUND SIGN */ \
XXX(0x24, UNDEF); /* EURO SIGN */ \
UNI(0x25, 0x00a5); /* YEN SIGN */ \
XXX(0x26, UNDEF); /* BROKEN BAR */ \
UNI(0x27, 0x00a7); /* SECTION SIGN */ \
UNI(0x28, 0x00a4); /* CURRENCY SIGN */ \
UNI(0x29, 0x00a9); /* COPYRIGHT SIGN */ \
UNI(0x2a, 0x00aa); /* FEMININE ORDINAL INDICATOR */ \
UNI(0x2b, 0x00ab); /* LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ \
XXX(0x2c, UNDEF); /* reserved */ \
XXX(0x2d, UNDEF); /* reserved */ \
XXX(0x2e, UNDEF); /* reserved */ \
XXX(0x2f, UNDEF); /* reserved */ \
UNI(0x30, 0x00b0); /* DEGREE SIGN */ \
UNI(0x31, 0x00b1); /* PLUS-MINUS SIGN */ \
UNI(0x32, 0x00b2); /* SUPERSCRIPT TWO */ \
UNI(0x33, 0x00b3); /* SUPERSCRIPT THREE */ \
XXX(0x34, UNDEF); /* reserved */ \
UNI(0x35, 0x00b5); /* MICRO SIGN */ \
UNI(0x36, 0x00b6); /* PILCROW SIGN */ \
UNI(0x37, 0x00b7); /* MIDDLE DOT */ \
XXX(0x38, UNDEF); /* reserved */ \
UNI(0x39, 0x00b9); /* SUPERSCRIPT ONE */ \
UNI(0x3a, 0x00ba); /* MASCULINE ORDINAL INDICATOR */ \
UNI(0x3b, 0x00bb); /* RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ \
UNI(0x3c, 0x00bc); /* VULGAR FRACTION ONE QUARTER */ \
UNI(0x3d, 0x00bd); /* VULGAR FRACTION ONE HALF */ \
XXX(0x3e, UNDEF); /* reserved */ \
UNI(0x3f, 0x00BF); /* INVERTED QUESTION MARK */ \
UNI(0x40, 0x03ca); /* GREEK SMALL LETTER IOTA WITH DIALYTIKA */ \
UNI(0x41, 0x0391); /* GREEK CAPITAL LETTER ALPHA */ \
UNI(0x42, 0x0392); /* GREEK CAPITAL LETTER BETA */ \
UNI(0x43, 0x0393); /* GREEK CAPITAL LETTER GAMMA */ \
UNI(0x44, 0x0394); /* GREEK CAPITAL LETTER DELTA */ \
UNI(0x45, 0x0395); /* GREEK CAPITAL LETTER EPSILON */ \
UNI(0x46, 0x0396); /* GREEK CAPITAL LETTER ZETA */ \
UNI(0x47, 0x0397); /* GREEK CAPITAL LETTER ETA */ \
UNI(0x48, 0x0398); /* GREEK CAPITAL LETTER THETA */ \
UNI(0x49, 0x0399); /* GREEK CAPITAL LETTER IOTA */ \
UNI(0x4a, 0x039a); /* GREEK CAPITAL LETTER KAPPA */ \
UNI(0x4b, 0x039b); /* GREEK CAPITAL LETTER LAMDA */ \
UNI(0x4c, 0x039c); /* GREEK CAPITAL LETTER MU */ \
UNI(0x4d, 0x039d); /* GREEK CAPITAL LETTER NU */ \
UNI(0x4e, 0x039e); /* GREEK CAPITAL LETTER XI */ \
UNI(0x4f, 0x039f); /* GREEK CAPITAL LETTER OMICRON */ \
XXX(0x50, UNDEF); /* reserved */ \
UNI(0x51, 0x03a0); /* GREEK CAPITAL LETTER PI */ \
UNI(0x52, 0x03a1); /* GREEK CAPITAL LETTER RHO */ \
UNI(0x53, 0x03a3); /* GREEK CAPITAL LETTER SIGMA */ \
UNI(0x54, 0x03a4); /* GREEK CAPITAL LETTER TAU */ \
UNI(0x55, 0x03a5); /* GREEK CAPITAL LETTER UPSILON */ \
UNI(0x56, 0x03a6); /* GREEK CAPITAL LETTER PHI */ \
UNI(0x57, 0x03a7); /* GREEK CAPITAL LETTER CHI */ \
UNI(0x58, 0x03a8); /* GREEK CAPITAL LETTER PSI */ \
UNI(0x59, 0x03a9); /* GREEK CAPITAL LETTER OMEGA */ \
UNI(0x5a, 0x03ac); /* GREEK SMALL LETTER ALPHA WITH TONOS */ \
UNI(0x5b, 0x03ad); /* GREEK SMALL LETTER EPSILON WITH TONOS */ \
UNI(0x5c, 0x03ae); /* GREEK SMALL LETTER ETA WITH TONOS */ \
UNI(0x5d, 0x03af); /* GREEK SMALL LETTER IOTA WITH TONOS */ \
XXX(0x5e, UNDEF); /* reserved */ \
UNI(0x5f, 0x03cc); /* GREEK SMALL LETTER OMICRON WITH TONOS */ \
UNI(0x60, 0x03cb); /* GREEK SMALL LETTER UPSILON WITH DIALYTIKA */ \
UNI(0x61, 0x03b1); /* GREEK SMALL LETTER ALPHA */ \
UNI(0x62, 0x03b2); /* GREEK SMALL LETTER BETA */ \
UNI(0x63, 0x03b3); /* GREEK SMALL LETTER GAMMA */ \
UNI(0x64, 0x03b4); /* GREEK SMALL LETTER DELTA */ \
UNI(0x65, 0x03b5); /* GREEK SMALL LETTER EPSILON */ \
UNI(0x66, 0x03b6); /* GREEK SMALL LETTER ZETA */ \
UNI(0x67, 0x03b7); /* GREEK SMALL LETTER ETA */ \
UNI(0x68, 0x03b8); /* GREEK SMALL LETTER THETA */ \
UNI(0x69, 0x03b9); /* GREEK SMALL LETTER IOTA */ \
UNI(0x6a, 0x03ba); /* GREEK SMALL LETTER KAPPA */ \
UNI(0x6b, 0x03bb); /* GREEK SMALL LETTER LAMDA */ \
UNI(0x6c, 0x03bc); /* GREEK SMALL LETTER MU */ \
UNI(0x6d, 0x03bd); /* GREEK SMALL LETTER NU */ \
UNI(0x6e, 0x03be); /* GREEK SMALL LETTER XI */ \
UNI(0x6f, 0x03bf); /* GREEK SMALL LETTER OMICRON */ \
XXX(0x70, UNDEF); /* reserved */ \
UNI(0x71, 0x03c0); /* GREEK SMALL LETTER PI */ \
UNI(0x72, 0x03c1); /* GREEK SMALL LETTER RHO */ \
UNI(0x73, 0x03c3); /* GREEK SMALL LETTER SIGMA */ \
UNI(0x74, 0x03c4); /* GREEK SMALL LETTER TAU */ \
UNI(0x75, 0x03c5); /* GREEK SMALL LETTER UPSILON */ \
UNI(0x76, 0x03c6); /* GREEK SMALL LETTER PHI */ \
UNI(0x77, 0x03c7); /* GREEK SMALL LETTER CHI */ \
UNI(0x78, 0x03c8); /* GREEK SMALL LETTER PSI */ \
UNI(0x79, 0x03c9); /* GREEK SMALL LETTER OMEGA */ \
UNI(0x7a, 0x03c2); /* GREEK SMALL LETTER FINAL SIGMA */ \
UNI(0x7b, 0x03cd); /* GREEK SMALL LETTER UPSILON WITH TONOS */ \
UNI(0x7c, 0x03ce); /* GREEK SMALL LETTER OMEGA WITH TONOS */ \
UNI(0x7d, 0x0384); /* GREEK TONOS */ \
XXX(0x7e, UNDEF); /* reserved */ \
} \
end_CODEPAGE()
/* figure A-22 "DEC Hebrew Supplemental Character Set" */
#define map_DEC_Hebrew_Supp(code) \
begin_CODEPAGE(); \
switch (code) { \
UNI(0x21, 0x00a1); /* INVERTED EXCLAMATION MARK */ \
UNI(0x22, 0x00a2); /* CENT SIGN */ \
UNI(0x23, 0x00a3); /* POUND SIGN */ \
XXX(0x24, UNDEF); /* CURRENCY SIGN */ \
UNI(0x25, 0x00a5); /* YEN SIGN */ \
XXX(0x26, UNDEF); /* BROKEN BAR */ \
UNI(0x27, 0x00a7); /* SECTION SIGN */ \
UNI(0x28, 0x00a8); /* DIAERESIS */ \
UNI(0x29, 0x00a9); /* COPYRIGHT SIGN */ \
UNI(0x2a, 0x00d7); /* MULTIPLICATION SIGN */ \
UNI(0x2b, 0x00ab); /* LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ \
XXX(0x2c, UNDEF); /* NOT SIGN */ \
XXX(0x2d, UNDEF); /* SOFT HYPHEN */ \
XXX(0x2e, UNDEF); /* REGISTERED SIGN */ \
XXX(0x2f, UNDEF); /* MACRON */ \
UNI(0x30, 0x00b0); /* DEGREE SIGN */ \
UNI(0x31, 0x00b1); /* PLUS-MINUS SIGN */ \
UNI(0x32, 0x00b2); /* SUPERSCRIPT TWO */ \
UNI(0x33, 0x00b3); /* SUPERSCRIPT THREE */ \
XXX(0x34, UNDEF); /* ACUTE ACCENT */ \
UNI(0x35, 0x00b5); /* MICRO SIGN */ \
UNI(0x36, 0x00b6); /* PILCROW SIGN */ \
UNI(0x37, 0x00b7); /* MIDDLE DOT */ \
XXX(0x38, UNDEF); /* CEDILLA */ \
UNI(0x39, 0x00b9); /* SUPERSCRIPT ONE */ \
UNI(0x3a, 0x00f7); /* DIVISION SIGN */ \
UNI(0x3b, 0x00bb); /* RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ \
UNI(0x3c, 0x00bc); /* VULGAR FRACTION ONE QUARTER */ \
UNI(0x3d, 0x00bd); /* VULGAR FRACTION ONE HALF */ \
XXX(0x3e, UNDEF); /* VULGAR FRACTION THREE QUARTERS */ \
UNI(0x3f, 0x00bf); /* INVERTED QUESTION MARK */ \
XXX(0x40, UNDEF); /* reserved */ \
XXX(0x41, UNDEF); /* reserved */ \
XXX(0x42, UNDEF); /* reserved */ \
XXX(0x43, UNDEF); /* reserved */ \
XXX(0x44, UNDEF); /* reserved */ \
XXX(0x45, UNDEF); /* reserved */ \
XXX(0x46, UNDEF); /* reserved */ \
XXX(0x47, UNDEF); /* reserved */ \
XXX(0x48, UNDEF); /* reserved */ \
XXX(0x49, UNDEF); /* reserved */ \
XXX(0x4a, UNDEF); /* reserved */ \
XXX(0x4b, UNDEF); /* reserved */ \
XXX(0x4c, UNDEF); /* reserved */ \
XXX(0x4d, UNDEF); /* reserved */ \
XXX(0x4e, UNDEF); /* reserved */ \
XXX(0x4f, UNDEF); /* reserved */ \
XXX(0x50, UNDEF); /* reserved */ \
XXX(0x51, UNDEF); /* reserved */ \
XXX(0x52, UNDEF); /* reserved */ \
XXX(0x53, UNDEF); /* reserved */ \
XXX(0x54, UNDEF); /* reserved */ \
XXX(0x55, UNDEF); /* reserved */ \
XXX(0x56, UNDEF); /* reserved */ \
XXX(0x57, UNDEF); /* reserved */ \
XXX(0x58, UNDEF); /* reserved */ \
XXX(0x59, UNDEF); /* reserved */ \
XXX(0x5a, UNDEF); /* reserved */ \
XXX(0x5b, UNDEF); /* reserved */ \
XXX(0x5c, UNDEF); /* reserved */ \
XXX(0x5d, UNDEF); /* reserved */ \
XXX(0x5e, UNDEF); /* reserved */ \
XXX(0x5f, UNDEF); /* reserved */ \
UNI(0x60, 0x05d0); /* HEBREW LETTER ALEF */ \
UNI(0x61, 0x05d1); /* HEBREW LETTER BET */ \
UNI(0x62, 0x05d2); /* HEBREW LETTER GIMEL */ \
UNI(0x63, 0x05d3); /* HEBREW LETTER DALET */ \
UNI(0x64, 0x05d4); /* HEBREW LETTER HE */ \
UNI(0x65, 0x05d5); /* HEBREW LETTER VAV */ \
UNI(0x66, 0x05d6); /* HEBREW LETTER ZAYIN */ \
UNI(0x67, 0x05d7); /* HEBREW LETTER HET */ \
UNI(0x68, 0x05d8); /* HEBREW LETTER TET */ \
UNI(0x69, 0x05d9); /* HEBREW LETTER YOD */ \
UNI(0x6a, 0x05da); /* HEBREW LETTER FINAL KAF */ \
UNI(0x6b, 0x05db); /* HEBREW LETTER KAF */ \
UNI(0x6c, 0x05dc); /* HEBREW LETTER LAMED */ \
UNI(0x6d, 0x05dd); /* HEBREW LETTER FINAL MEM */ \
UNI(0x6e, 0x05de); /* HEBREW LETTER MEM */ \
UNI(0x6f, 0x05df); /* HEBREW LETTER FINAL NUN */ \
UNI(0x70, 0x05e0); /* HEBREW LETTER NUN */ \
UNI(0x71, 0x05e1); /* HEBREW LETTER SAMEKH */ \
UNI(0x72, 0x05e2); /* HEBREW LETTER AYIN */ \
UNI(0x73, 0x05e3); /* HEBREW LETTER FINAL PE */ \
UNI(0x74, 0x05e4); /* HEBREW LETTER PE */ \
UNI(0x75, 0x05e5); /* HEBREW LETTER FINAL TSADI */ \
UNI(0x76, 0x05e6); /* HEBREW LETTER TSADI */ \
UNI(0x77, 0x05e7); /* HEBREW LETTER QOF */ \
UNI(0x78, 0x05e8); /* HEBREW LETTER RESH */ \
UNI(0x79, 0x05e9); /* HEBREW LETTER SHIN */ \
UNI(0x7a, 0x05ea); /* HEBREW LETTER TAV */ \
XXX(0x7b, UNDEF); /* reserved */ \
XXX(0x7c, UNDEF); /* reserved */ \
XXX(0x7d, UNDEF); /* reserved */ \
XXX(0x7e, UNDEF); /* reserved */ \
} \
end_CODEPAGE()
/* figure A-27 "DEC 8-Bit Turkish Supplemental Character Set" */
#define map_DEC_Turkish_Supp(code) \
begin_CODEPAGE(); \
switch (code) { \
UNI(0x21, 0x00A1); /* INVERTED EXCLAMATION MARK */ \
UNI(0x22, 0x00A2); /* CENT SIGN */ \
UNI(0x23, 0x00A3); /* POUND SIGN */ \
XXX(0x24, UNDEF); /* reserved */ \
UNI(0x25, 0x00A5); /* YEN SIGN */ \
XXX(0x26, UNDEF); /* reserved */ \
UNI(0x27, 0x00A7); /* SECTION SIGN */ \
UNI(0x28, 0x00A8); /* DIAERESIS */ \
UNI(0x29, 0x00A9); /* COPYRIGHT SIGN */ \
UNI(0x2A, 0x00AA); /* FEMININE ORDINAL INDICATOR */ \
UNI(0x2B, 0x00AB); /* LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */ \
XXX(0x2C, UNDEF); /* reserved */ \
XXX(0x2D, UNDEF); /* reserved */ \
UNI(0x2E, 0x0130); /* LATIN CAPITAL LETTER I WITH DOT ABOVE */ \
XXX(0x2F, UNDEF); /* reserved */ \
UNI(0x30, 0x00B0); /* DEGREE SIGN */ \
UNI(0x31, 0x00B1); /* PLUS-MINUS SIGN */ \
UNI(0x32, 0x00B2); /* SUPERSCRIPT TWO */ \
UNI(0x33, 0x00B3); /* SUPERSCRIPT THREE */ \
XXX(0x34, UNDEF); /* reserved */ \
UNI(0x35, 0x00B5); /* MICRO SIGN */ \
UNI(0x36, 0x00B6); /* PILCROW SIGN */ \
UNI(0x37, 0x00B7); /* MIDDLE DOT */ \
XXX(0x38, UNDEF); /* reserved */ \
UNI(0x39, 0x00B9); /* SUPERSCRIPT ONE */ \
UNI(0x3A, 0x00BA); /* MASCULINE ORDINAL INDICATOR */ \
UNI(0x3B, 0x00BB); /* RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */ \
UNI(0x3C, 0x00BC); /* VULGAR FRACTION ONE QUARTER */ \
UNI(0x3D, 0x00BD); /* VULGAR FRACTION ONE HALF */ \
UNI(0x3E, 0x0131); /* LATIN SMALL LETTER DOTLESS I */ \
UNI(0x3F, 0x00BF); /* INVERTED QUESTION MARK */ \
UNI(0x40, 0x00C0); /* LATIN CAPITAL LETTER A WITH GRAVE */ \
UNI(0x41, 0x00C1); /* LATIN CAPITAL LETTER A WITH ACUTE */ \
UNI(0x42, 0x00C2); /* LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ \
UNI(0x43, 0x00C3); /* LATIN CAPITAL LETTER A WITH TILDE */ \
UNI(0x44, 0x00C4); /* LATIN CAPITAL LETTER A WITH DIAERESIS */ \
UNI(0x45, 0x00C5); /* LATIN CAPITAL LETTER A WITH RING ABOVE */ \
UNI(0x46, 0x00C6); /* LATIN CAPITAL LETTER AE */ \
UNI(0x47, 0x00C7); /* LATIN CAPITAL LETTER C WITH CEDILLA */ \
UNI(0x48, 0x00C8); /* LATIN CAPITAL LETTER E WITH GRAVE */ \
UNI(0x49, 0x00C9); /* LATIN CAPITAL LETTER E WITH ACUTE */ \
UNI(0x4A, 0x00CA); /* LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ \
UNI(0x4B, 0x00CB); /* LATIN CAPITAL LETTER E WITH DIAERESIS */ \
UNI(0x4C, 0x00CC); /* LATIN CAPITAL LETTER I WITH GRAVE */ \
UNI(0x4D, 0x00CD); /* LATIN CAPITAL LETTER I WITH ACUTE */ \
UNI(0x4E, 0x00CE); /* LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ \
UNI(0x4F, 0x00CF); /* LATIN CAPITAL LETTER I WITH DIAERESIS */ \
UNI(0x50, 0x011E); /* LATIN CAPITAL LETTER G WITH BREVE */ \
UNI(0x51, 0x00D1); /* LATIN CAPITAL LETTER N WITH TILDE */ \
UNI(0x52, 0x00D2); /* LATIN CAPITAL LETTER O WITH GRAVE */ \
UNI(0x53, 0x00D3); /* LATIN CAPITAL LETTER O WITH ACUTE */ \
UNI(0x54, 0x00D4); /* LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ \
UNI(0x55, 0x00D5); /* LATIN CAPITAL LETTER O WITH TILDE */ \
UNI(0x56, 0x00D6); /* LATIN CAPITAL LETTER O WITH DIAERESIS */ \
UNI(0x57, 0x0152); /* LATIN CAPITAL LIGATURE OE */ \
UNI(0x58, 0x00D8); /* LATIN CAPITAL LETTER O WITH STROKE */ \
UNI(0x59, 0x00D9); /* LATIN CAPITAL LETTER U WITH GRAVE */ \
UNI(0x5A, 0x00DA); /* LATIN CAPITAL LETTER U WITH ACUTE */ \
UNI(0x5B, 0x00DB); /* LATIN CAPITAL LETTER U WITH CIRCUMFLEX */ \
UNI(0x5C, 0x00DC); /* LATIN CAPITAL LETTER U WITH DIAERESIS */ \
UNI(0x5D, 0x0178); /* LATIN CAPITAL LETTER Y WITH DIAERESIS */ \
UNI(0x5E, 0x015E); /* LATIN CAPITAL LETTER S WITH CEDILLA */ \
UNI(0x5F, 0x00DF); /* LATIN SMALL LETTER SHARP S */ \
UNI(0x60, 0x00E0); /* LATIN SMALL LETTER A WITH GRAVE */ \
UNI(0x61, 0x00E1); /* LATIN SMALL LETTER A WITH ACUTE */ \
UNI(0x62, 0x00E2); /* LATIN SMALL LETTER A WITH CIRCUMFLEX */ \
UNI(0x63, 0x00E3); /* LATIN SMALL LETTER A WITH TILDE */ \
UNI(0x64, 0x00E4); /* LATIN SMALL LETTER A WITH DIAERESIS */ \
UNI(0x65, 0x00E5); /* LATIN SMALL LETTER A WITH RING ABOVE */ \
UNI(0x66, 0x00E6); /* LATIN SMALL LETTER AE */ \
UNI(0x67, 0x00E7); /* LATIN SMALL LETTER C WITH CEDILLA */ \
UNI(0x68, 0x00E8); /* LATIN SMALL LETTER E WITH GRAVE */ \
UNI(0x69, 0x00E9); /* LATIN SMALL LETTER E WITH ACUTE */ \
UNI(0x6A, 0x00EA); /* LATIN SMALL LETTER E WITH CIRCUMFLEX */ \
UNI(0x6B, 0x00EB); /* LATIN SMALL LETTER E WITH DIAERESIS */ \
UNI(0x6C, 0x00EC); /* LATIN SMALL LETTER I WITH GRAVE */ \
UNI(0x6D, 0x00ED); /* LATIN SMALL LETTER I WITH ACUTE */ \
UNI(0x6E, 0x00EE); /* LATIN SMALL LETTER I WITH CIRCUMFLEX */ \
UNI(0x6F, 0x00EF); /* LATIN SMALL LETTER I WITH DIAERESIS */ \
UNI(0x70, 0x011F); /* LATIN SMALL LETTER G WITH BREVE */ \
UNI(0x71, 0x00F1); /* LATIN SMALL LETTER N WITH TILDE */ \
UNI(0x72, 0x00F2); /* LATIN SMALL LETTER O WITH GRAVE */ \
UNI(0x73, 0x00F3); /* LATIN SMALL LETTER O WITH ACUTE */ \
UNI(0x74, 0x00F4); /* LATIN SMALL LETTER O WITH CIRCUMFLEX */ \
UNI(0x75, 0x00F5); /* LATIN SMALL LETTER O WITH TILDE */ \
UNI(0x76, 0x00F6); /* LATIN SMALL LETTER O WITH DIAERESIS */ \
UNI(0x77, 0x0153); /* LATIN SMALL LIGATURE OE */ \
UNI(0x78, 0x00F8); /* LATIN SMALL LETTER O WITH STROKE */ \
UNI(0x79, 0x00F9); /* LATIN SMALL LETTER U WITH GRAVE */ \
UNI(0x7A, 0x00FA); /* LATIN SMALL LETTER U WITH ACUTE */ \
UNI(0x7B, 0x00FB); /* LATIN SMALL LETTER U WITH CIRCUMFLEX */ \
UNI(0x7C, 0x00FC); /* LATIN SMALL LETTER U WITH DIAERESIS */ \
UNI(0x7D, 0x00FF); /* LATIN SMALL LETTER Y WITH DIAERESIS */ \
UNI(0x7E, 0x015F); /* LATIN SMALL LETTER S WITH CEDILLA */ \
} \
end_CODEPAGE()
/*
* mentioned, but not documented in VT510 manual, etc., this uses
* the ELOT927 table from Kermit 95:
*/
#define map_NRCS_Greek(code) \
switch (code) { \
MAP(0x61, 0x0391); /* CAPITAL GREEK LETTER ALPHA */ \
MAP(0x62, 0x0392); /* CAPITAL GREEK LETTER BETA */ \
MAP(0x63, 0x0393); /* CAPITAL GREEK LETTER GAMMA */ \
MAP(0x64, 0x0394); /* CAPITAL GREEK LETTER DELTA */ \
MAP(0x65, 0x0395); /* CAPITAL GREEK LETTER EPSILON */ \
MAP(0x66, 0x0396); /* CAPITAL GREEK LETTER ZETA */ \
MAP(0x67, 0x0397); /* CAPITAL GREEK LETTER ETA */ \
MAP(0x68, 0x0398); /* CAPITAL GREEK LETTER THETA */ \
MAP(0x69, 0x0399); /* CAPITAL GREEK LETTER IOTA */ \
MAP(0x6a, 0x039a); /* CAPITAL GREEK LETTER KAPPA */ \
MAP(0x6b, 0x039b); /* CAPITAL GREEK LETTER LAMDA */ \
MAP(0x6c, 0x039c); /* CAPITAL GREEK LETTER MU */ \
MAP(0x6d, 0x039d); /* CAPITAL GREEK LETTER NU */ \
MAP(0x6e, 0x03a7); /* CAPITAL GREEK LETTER KSI (CHI) */ \
MAP(0x6f, 0x039f); /* CAPITAL GREEK LETTER OMICRON */ \
MAP(0x70, 0x03a0); /* CAPITAL GREEK LETTER PI */ \
MAP(0x71, 0x03a1); /* CAPITAL GREEK LETTER RHO */ \
MAP(0x72, 0x03a3); /* CAPITAL GREEK LETTER SIGMA */ \
MAP(0x73, 0x03a4); /* CAPITAL GREEK LETTER TAU */ \
MAP(0x74, 0x03a5); /* CAPITAL GREEK LETTER UPSILON */ \
MAP(0x75, 0x03a6); /* CAPITAL GREEK LETTER FI (PHI) */ \
MAP(0x76, 0x039e); /* CAPITAL GREEK LETTER XI */ \
MAP(0x77, 0x03a8); /* CAPITAL GREEK LETTER PSI */ \
MAP(0x78, 0x03a9); /* CAPITAL GREEK LETTER OMEGA */ \
XXX(0x79, BLANK); /* unused */ \
XXX(0x7a, BLANK); /* unused */ \
}
/* figure A-21 "DEC 7-Bit Hebrew Character Set" */
#define map_NRCS_Hebrew(code) \
switch (code) { \
UNI(0x60, 0x05d0); /* HEBREW LETTER ALEF */ \
UNI(0x61, 0x05d1); /* HEBREW LETTER BET */ \
UNI(0x62, 0x05d2); /* HEBREW LETTER GIMEL */ \
UNI(0x63, 0x05d3); /* HEBREW LETTER DALET */ \
UNI(0x64, 0x05d4); /* HEBREW LETTER HE */ \
UNI(0x65, 0x05d5); /* HEBREW LETTER VAV */ \
UNI(0x66, 0x05d6); /* HEBREW LETTER ZAYIN */ \
UNI(0x67, 0x05d7); /* HEBREW LETTER HET */ \
UNI(0x68, 0x05d8); /* HEBREW LETTER TET */ \
UNI(0x69, 0x05d9); /* HEBREW LETTER YOD */ \
UNI(0x6a, 0x05da); /* HEBREW LETTER FINAL KAF */ \
UNI(0x6b, 0x05db); /* HEBREW LETTER KAF */ \
UNI(0x6c, 0x05dc); /* HEBREW LETTER LAMED */ \
UNI(0x6d, 0x05dd); /* HEBREW LETTER FINAL MEM */ \
UNI(0x6e, 0x05de); /* HEBREW LETTER MEM */ \
UNI(0x6f, 0x05df); /* HEBREW LETTER FINAL NUN */ \
UNI(0x70, 0x05e0); /* HEBREW LETTER NUN */ \
UNI(0x71, 0x05e1); /* HEBREW LETTER SAMEKH */ \
UNI(0x72, 0x05e2); /* HEBREW LETTER AYIN */ \
UNI(0x73, 0x05e3); /* HEBREW LETTER FINAL PE */ \
UNI(0x74, 0x05e4); /* HEBREW LETTER PE */ \
UNI(0x75, 0x05e5); /* HEBREW LETTER FINAL TSADI */ \
UNI(0x76, 0x05e6); /* HEBREW LETTER TSADI */ \
UNI(0x77, 0x05e7); /* HEBREW LETTER QOF */ \
UNI(0x78, 0x05e8); /* HEBREW LETTER RESH */ \
UNI(0x79, 0x05e9); /* HEBREW LETTER SHIN */ \
UNI(0x7a, 0x05ea); /* HEBREW LETTER TAV */ \
}
/* figure A-26 "DEC 7-Bit Turkish Character Set" */
#define map_NRCS_Turkish(code) \
switch (code) { \
UNI(0x26, 0x011f); /* LATIN SMALL LETTER G WITH BREVE */ \
UNI(0x40, 0x0130); /* LATIN CAPITAL LETTER I WITH DOT ABOVE */ \
UNI(0x5b, 0x015e); /* LATIN CAPITAL LETTER S WITH CEDILLA */ \
UNI(0x5c, 0x00d6); /* LATIN CAPITAL LETTER O WITH DIAERESIS */ \
UNI(0x5d, 0x00c7); /* LATIN CAPITAL LETTER C WITH CEDILLA */ \
UNI(0x5e, 0x00dC); /* LATIN CAPITAL LETTER U WITH DIAERESIS */ \
UNI(0x60, 0x011e); /* LATIN CAPITAL LETTER G WITH BREVE */ \
UNI(0x7b, 0x015f); /* LATIN SMALL LETTER S WITH CEDILLA */ \
UNI(0x7c, 0x00f6); /* LATIN SMALL LETTER O WITH DIAERESIS */ \
UNI(0x7d, 0x00e7); /* LATIN SMALL LETTER C WITH CEDILLA */ \
UNI(0x7e, 0x00fc); /* LATIN SMALL LETTER U WITH DIAERESIS */ \
}
#else
#define map_DEC_Cyrillic(code) /* nothing */
#define map_DEC_Greek_Supp(code) /* nothing */
#define map_DEC_Hebrew_Supp(code) /* nothing */
#define map_DEC_Technical(code) /* nothing */
#define map_DEC_Turkish_Supp(code) /* nothing */
#define map_ISO_Greek_Supp(code) /* nothing */
#define map_ISO_Hebrew(code) /* nothing */
#define map_ISO_Latin_5(code) /* nothing */
#define map_ISO_Latin_Cyrillic(code) /* nothing */
#define map_NRCS_Greek(code) /* nothing */
#define map_NRCS_Hebrew(code) /* nothing */
#define map_NRCS_Turkish(code) /* nothing */
#endif /* OPT_WIDE_CHARS */
/*
* Translate an input keysym to the corresponding NRC keysym.
*/
unsigned
xtermCharSetIn(XtermWidget xw, unsigned code, DECNRCM_codes charset)
{
TScreen *screen = TScreenOf(xw);
#define MAP(to, from) case from: code = to; break
#if OPT_WIDE_CHARS
#define UNI(to, from) case from: if (screen->utf8_nrc_mode) code = to; break
#else
#define UNI(to, from) case from: break
#endif
#define XXX(to, from) /* no defined mapping to 0..255 */
TRACE(("CHARSET-IN GL=%s(G%d) GR=%s(G%d) SS%d\n\t%s\n",
visibleScsCode(screen->gsets[screen->curgl]), screen->curgl,
visibleScsCode(screen->gsets[screen->curgr]), screen->curgr,
screen->curss,
visibleUChar(code)));
(void) screen;
switch (charset) {
case nrc_British: /* United Kingdom set (or Latin 1) */
if (code == XK_sterling)
code = 0x23;
code &= 0x7f;
break;
case nrc_DEC_Alt_Chars:
case nrc_DEC_Alt_Graphics:
case nrc_ASCII:
break;
case nrc_DEC_Spec_Graphic:
break;
case nrc_DEC_Supp:
map_DEC_Supp_Graphic(code, code &= 0x7f);
break;
case nrc_DEC_Supp_Graphic:
map_DEC_Supp_Graphic(code, code |= 0x80);
break;
case nrc_DEC_Technical:
map_DEC_Technical(code);
break;
case nrc_Dutch:
map_NRCS_Dutch(code);
break;
case nrc_Finnish:
case nrc_Finnish2:
map_NRCS_Finnish(code);
break;
case nrc_French:
case nrc_French2:
map_NRCS_French(code);
break;
case nrc_French_Canadian:
map_NRCS_French_Canadian(code);
break;
case nrc_German:
map_NRCS_German(code);
break;
case nrc_Greek:
map_NRCS_Greek(code); /* FIXME - ELOT? */
break;
case nrc_DEC_Greek_Supp:
map_DEC_Greek_Supp(code);
break;
case nrc_ISO_Greek_Supp:
map_ISO_Greek_Supp(code);
break;
case nrc_DEC_Hebrew_Supp:
map_DEC_Hebrew_Supp(code);
break;
case nrc_Hebrew:
map_NRCS_Hebrew(code);
break;
case nrc_ISO_Hebrew_Supp:
map_ISO_Hebrew(code);
break;
case nrc_Italian:
map_NRCS_Italian(code);
break;
case nrc_ISO_Latin_5_Supp:
map_ISO_Latin_5(code);
break;
case nrc_ISO_Latin_Cyrillic:
map_ISO_Latin_Cyrillic(code);
break;
case nrc_Norwegian_Danish:
case nrc_Norwegian_Danish2:
case nrc_Norwegian_Danish3:
map_NRCS_Norwegian_Danish(code);
break;
case nrc_Portugese:
map_NRCS_Portuguese(code);
break;
case nrc_SCS_NRCS: /* vt5xx - probably Serbo/Croatian */
/* FIXME */
break;
case nrc_Spanish:
map_NRCS_Spanish(code);
break;
case nrc_Swedish2:
case nrc_Swedish:
map_NRCS_Swedish(code);
break;
case nrc_Swiss:
map_NRCS_Swiss(code);
break;
case nrc_Turkish:
map_NRCS_Turkish(code);
break;
case nrc_DEC_Turkish_Supp:
map_DEC_Turkish_Supp(code);
break;
case nrc_Cyrillic:
map_DEC_Cyrillic(code);
break;
case nrc_British_Latin_1:
case nrc_Russian:
case nrc_French_Canadian2:
case nrc_Unknown:
default: /* any character sets we don't recognize */
break;
}
code &= 0x7f; /* NRC in any case is 7-bit */
TRACE(("->\t%s\n",
visibleUChar(code)));
return code;
#undef MAP
#undef UNI
#undef XXX
}
/*
* Translate a string to the display form. This assumes the font has the
* DEC graphic characters in cells 0-31, and otherwise is ISO-8859-1.
*/
int
xtermCharSetOut(XtermWidget xw, IChar *buf, IChar *ptr, DECNRCM_codes leftset)
{
IChar *s;
TScreen *screen = TScreenOf(xw);
int count = 0;
DECNRCM_codes rightset = screen->gsets[(int) (screen->curgr)];
#define MAP(from, to) case from: chr = to; break
#if OPT_WIDE_CHARS
#define UNI(from, to) case from: if (screen->utf8_nrc_mode) chr = to; break
#define XXX(from, to) UNI(from, to)
#else
#define UNI(old, new) chr = old; break
#define XXX(from, to) /* nothing */
#endif
TRACE(("CHARSET-OUT GL=%s(G%d) GR=%s(G%d) SS%d\n\t%s\n",
visibleScsCode(leftset), screen->curgl,
visibleScsCode(rightset), screen->curgr,
screen->curss,
visibleIChars(buf, (unsigned) (ptr - buf))));
for (s = buf; s < ptr; ++s) {
int eight = CharOf(E2A(*s));
int seven = eight & 0x7f;
DECNRCM_codes cs = (eight >= 128) ? rightset : leftset;
int chr = eight;
count++;
#if OPT_WIDE_CHARS
/*
* This is only partly right - prevent inadvertent remapping of
* the replacement character and other non-8bit codes into bogus
* 8bit codes.
*/
if (screen->utf8_mode || screen->utf8_nrc_mode) {
if (*s > 255)
continue;
}
#endif
if (*s < 32)
continue;
switch (cs) {
case nrc_British_Latin_1:
/* FALLTHRU */
case nrc_British: /* United Kingdom set (or Latin 1) */
if ((xw->flags & NATIONAL)
|| (screen->vtXX_level <= 1)) {
if ((xw->flags & NATIONAL)) {
chr = seven;
}
if (chr == 0x23) {
chr = XTERM_POUND;
#if OPT_WIDE_CHARS
if (screen->utf8_nrc_mode) {
chr = 0xa3;
}
#endif
}
} else {
chr = (seven | 0x80);
}
break;
case nrc_DEC_Alt_Chars:
case nrc_DEC_Alt_Graphics:
case nrc_ASCII:
break;
case nrc_DEC_Spec_Graphic:
if (seven > 0x5f && seven <= 0x7e) {
#if OPT_WIDE_CHARS
if (screen->utf8_mode || screen->utf8_nrc_mode)
chr = (int) dec2ucs(screen, (unsigned) (seven - 0x5f));
else
#endif
chr = seven - 0x5f;
} else if (chr == 0x5f) {
chr = 0;
} else {
chr = seven;
}
break;
case nrc_DEC_Supp:
map_DEC_Supp_Graphic(chr = seven, chr |= 0x80);
break;
case nrc_DEC_Supp_Graphic:
map_DEC_Supp_Graphic(chr = seven, chr |= 0x80);
break;
case nrc_DEC_Technical:
map_DEC_Technical(chr = seven);
break;
case nrc_Dutch:
map_NRCS_Dutch(chr = seven);
break;
case nrc_Finnish:
case nrc_Finnish2:
map_NRCS_Finnish(chr = seven);
break;
case nrc_French:
case nrc_French2:
map_NRCS_French(chr = seven);
break;
case nrc_French_Canadian:
case nrc_French_Canadian2:
map_NRCS_French_Canadian(chr = seven);
break;
case nrc_German:
map_NRCS_German(chr = seven);
break;
case nrc_Greek:
map_NRCS_Greek(chr = seven); /* FIXME - ELOT? */
break;
case nrc_DEC_Greek_Supp:
map_DEC_Greek_Supp(chr = seven);
break;
case nrc_ISO_Greek_Supp:
map_ISO_Greek_Supp(chr = seven);
break;
case nrc_DEC_Hebrew_Supp:
map_DEC_Hebrew_Supp(chr = seven);
break;
case nrc_Hebrew:
map_NRCS_Hebrew(chr = seven);
break;
case nrc_ISO_Hebrew_Supp:
map_ISO_Hebrew(chr = seven);
break;
case nrc_Italian:
map_NRCS_Italian(chr = seven);
break;
case nrc_ISO_Latin_5_Supp:
map_ISO_Latin_5(chr = seven);
break;
case nrc_ISO_Latin_Cyrillic:
map_ISO_Latin_Cyrillic(chr = seven);
break;
case nrc_Norwegian_Danish:
case nrc_Norwegian_Danish2:
case nrc_Norwegian_Danish3:
map_NRCS_Norwegian_Danish(chr = seven);
break;
case nrc_Portugese:
map_NRCS_Portuguese(chr = seven);
break;
case nrc_SCS_NRCS: /* vt5xx - probably Serbo/Croatian */
/* FIXME */
break;
case nrc_Spanish:
map_NRCS_Spanish(chr = seven);
break;
case nrc_Swedish2:
case nrc_Swedish:
map_NRCS_Swedish(chr = seven);
break;
case nrc_Swiss:
map_NRCS_Swiss(chr = seven);
break;
case nrc_Turkish:
map_NRCS_Turkish(chr = seven);
break;
case nrc_DEC_Turkish_Supp:
map_DEC_Turkish_Supp(chr = seven);
break;
case nrc_Cyrillic:
map_DEC_Cyrillic(chr = seven);
break;
case nrc_Russian:
case nrc_Unknown:
default: /* any character sets we don't recognize */
count--;
break;
}
/*
* The state machine already treated DEL as a nonprinting and
* nonspacing character. If we have DEL now, simply render
* it as a blank.
*/
if (chr == ANSI_DEL)
chr = ' ';
*s = (IChar) A2E(chr);
}
TRACE(("%d\t%s\n",
count,
visibleIChars(buf, (unsigned) (ptr - buf))));
return count;
#undef MAP
#undef UNI
#undef XXX
}