xref: /xsrc/external/mit/xterm/dist/charsets.c

/* $XTermId: charsets.c,v 1.113 2020/12/25 15:15:37 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
 *  EK–PPLV2–PM. 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 EK–PPLV2–PM.
 */

/*
 * 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-2 is 8859-2 */
#define map_ISO_Latin_2(code) \
	begin_CODEPAGE(); \
	switch (code) { \
	    UNI(0x20, 0x00a0);	/* NO-BREAK SPACE */ \
	    UNI(0x21, 0x0104);	/* LATIN CAPITAL LETTER A WITH OGONEK */ \
	    UNI(0x22, 0x02d8);	/* BREVE */ \
	    UNI(0x23, 0x0141);	/* LATIN CAPITAL LETTER L WITH STROKE */ \
	    UNI(0x24, 0x00a4);	/* CURRENCY SIGN */ \
	    UNI(0x25, 0x013d);	/* LATIN CAPITAL LETTER L WITH CARON */ \
	    UNI(0x26, 0x015a);	/* LATIN CAPITAL LETTER S WITH ACUTE */ \
	    UNI(0x27, 0x00a7);	/* SECTION SIGN */ \
	    UNI(0x28, 0x00a8);	/* DIAERESIS */ \
	    UNI(0x29, 0x0160);	/* LATIN CAPITAL LETTER S WITH CARON */ \
	    UNI(0x2a, 0x015e);	/* LATIN CAPITAL LETTER S WITH CEDILLA */ \
	    UNI(0x2b, 0x0164);	/* LATIN CAPITAL LETTER T WITH CARON */ \
	    UNI(0x2c, 0x0179);	/* LATIN CAPITAL LETTER Z WITH ACUTE */ \
	    UNI(0x2d, 0x00ad);	/* SOFT HYPHEN */ \
	    UNI(0x2e, 0x017d);	/* LATIN CAPITAL LETTER Z WITH CARON */ \
	    UNI(0x2f, 0x017b);	/* LATIN CAPITAL LETTER Z WITH DOT ABOVE */ \
	    UNI(0x30, 0x00b0);	/* DEGREE SIGN */ \
	    UNI(0x31, 0x0105);	/* LATIN SMALL LETTER A WITH OGONEK */ \
	    UNI(0x32, 0x02db);	/* OGONEK */ \
	    UNI(0x33, 0x0142);	/* LATIN SMALL LETTER L WITH STROKE */ \
	    UNI(0x34, 0x00b4);	/* ACUTE ACCENT */ \
	    UNI(0x35, 0x013e);	/* LATIN SMALL LETTER L WITH CARON */ \
	    UNI(0x36, 0x015b);	/* LATIN SMALL LETTER S WITH ACUTE */ \
	    UNI(0x37, 0x02c7);	/* CARON */ \
	    UNI(0x38, 0x00b8);	/* CEDILLA */ \
	    UNI(0x39, 0x0161);	/* LATIN SMALL LETTER S WITH CARON */ \
	    UNI(0x3a, 0x015f);	/* LATIN SMALL LETTER S WITH CEDILLA */ \
	    UNI(0x3b, 0x0165);	/* LATIN SMALL LETTER T WITH CARON */ \
	    UNI(0x3c, 0x017a);	/* LATIN SMALL LETTER Z WITH ACUTE */ \
	    UNI(0x3d, 0x02dd);	/* DOUBLE ACUTE ACCENT */ \
	    UNI(0x3e, 0x017e);	/* LATIN SMALL LETTER Z WITH CARON */ \
	    UNI(0x3f, 0x017c);	/* LATIN SMALL LETTER Z WITH DOT ABOVE */ \
	    UNI(0x40, 0x0154);	/* LATIN CAPITAL LETTER R WITH ACUTE */ \
	    UNI(0x41, 0x00c1);	/* LATIN CAPITAL LETTER A WITH ACUTE */ \
	    UNI(0x42, 0x00c2);	/* LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ \
	    UNI(0x43, 0x0102);	/* LATIN CAPITAL LETTER A WITH BREVE */ \
	    UNI(0x44, 0x00c4);	/* LATIN CAPITAL LETTER A WITH DIAERESIS */ \
	    UNI(0x45, 0x0139);	/* LATIN CAPITAL LETTER L WITH ACUTE */ \
	    UNI(0x46, 0x0106);	/* LATIN CAPITAL LETTER C WITH ACUTE */ \
	    UNI(0x47, 0x00c7);	/* LATIN CAPITAL LETTER C WITH CEDILLA */ \
	    UNI(0x48, 0x010c);	/* LATIN CAPITAL LETTER C WITH CARON */ \
	    UNI(0x49, 0x00c9);	/* LATIN CAPITAL LETTER E WITH ACUTE */ \
	    UNI(0x4a, 0x0118);	/* LATIN CAPITAL LETTER E WITH OGONEK */ \
	    UNI(0x4b, 0x00cb);	/* LATIN CAPITAL LETTER E WITH DIAERESIS */ \
	    UNI(0x4c, 0x011a);	/* LATIN CAPITAL LETTER E WITH CARON */ \
	    UNI(0x4d, 0x00cd);	/* LATIN CAPITAL LETTER I WITH ACUTE */ \
	    UNI(0x4e, 0x00ce);	/* LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ \
	    UNI(0x4f, 0x010e);	/* LATIN CAPITAL LETTER D WITH CARON */ \
	    UNI(0x50, 0x0110);	/* LATIN CAPITAL LETTER D WITH STROKE */ \
	    UNI(0x51, 0x0143);	/* LATIN CAPITAL LETTER N WITH ACUTE */ \
	    UNI(0x52, 0x0147);	/* LATIN CAPITAL LETTER N WITH CARON */ \
	    UNI(0x53, 0x00d3);	/* LATIN CAPITAL LETTER O WITH ACUTE */ \
	    UNI(0x54, 0x00d4);	/* LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ \
	    UNI(0x55, 0x0150);	/* LATIN CAPITAL LETTER O WITH DOUBLE ACUTE */ \
	    UNI(0x56, 0x00d6);	/* LATIN CAPITAL LETTER O WITH DIAERESIS */ \
	    UNI(0x57, 0x00d7);	/* MULTIPLICATION SIGN */ \
	    UNI(0x58, 0x0158);	/* LATIN CAPITAL LETTER R WITH CARON */ \
	    UNI(0x59, 0x016e);	/* LATIN CAPITAL LETTER U WITH RING ABOVE */ \
	    UNI(0x5a, 0x00da);	/* LATIN CAPITAL LETTER U WITH ACUTE */ \
	    UNI(0x5b, 0x0170);	/* LATIN CAPITAL LETTER U WITH DOUBLE ACUTE */ \
	    UNI(0x5c, 0x00dc);	/* LATIN CAPITAL LETTER U WITH DIAERESIS */ \
	    UNI(0x5d, 0x00dd);	/* LATIN CAPITAL LETTER Y WITH ACUTE */ \
	    UNI(0x5e, 0x0162);	/* LATIN CAPITAL LETTER T WITH CEDILLA */ \
	    UNI(0x5f, 0x00df);	/* LATIN SMALL LETTER SHARP S */ \
	    UNI(0x60, 0x0155);	/* LATIN SMALL LETTER R WITH ACUTE */ \
	    UNI(0x61, 0x00e1);	/* LATIN SMALL LETTER A WITH ACUTE */ \
	    UNI(0x62, 0x00e2);	/* LATIN SMALL LETTER A WITH CIRCUMFLEX */ \
	    UNI(0x63, 0x0103);	/* LATIN SMALL LETTER A WITH BREVE */ \
	    UNI(0x64, 0x00e4);	/* LATIN SMALL LETTER A WITH DIAERESIS */ \
	    UNI(0x65, 0x013a);	/* LATIN SMALL LETTER L WITH ACUTE */ \
	    UNI(0x66, 0x0107);	/* LATIN SMALL LETTER C WITH ACUTE */ \
	    UNI(0x67, 0x00e7);	/* LATIN SMALL LETTER C WITH CEDILLA */ \
	    UNI(0x68, 0x010d);	/* LATIN SMALL LETTER C WITH CARON */ \
	    UNI(0x69, 0x00e9);	/* LATIN SMALL LETTER E WITH ACUTE */ \
	    UNI(0x6a, 0x0119);	/* LATIN SMALL LETTER E WITH OGONEK */ \
	    UNI(0x6b, 0x00eb);	/* LATIN SMALL LETTER E WITH DIAERESIS */ \
	    UNI(0x6c, 0x011b);	/* LATIN SMALL LETTER E WITH CARON */ \
	    UNI(0x6d, 0x00ed);	/* LATIN SMALL LETTER I WITH ACUTE */ \
	    UNI(0x6e, 0x00ee);	/* LATIN SMALL LETTER I WITH CIRCUMFLEX */ \
	    UNI(0x6f, 0x010f);	/* LATIN SMALL LETTER D WITH CARON */ \
	    UNI(0x70, 0x0111);	/* LATIN SMALL LETTER D WITH STROKE */ \
	    UNI(0x71, 0x0144);	/* LATIN SMALL LETTER N WITH ACUTE */ \
	    UNI(0x72, 0x0148);	/* LATIN SMALL LETTER N WITH CARON */ \
	    UNI(0x73, 0x00f3);	/* LATIN SMALL LETTER O WITH ACUTE */ \
	    UNI(0x74, 0x00f4);	/* LATIN SMALL LETTER O WITH CIRCUMFLEX */ \
	    UNI(0x75, 0x0151);	/* LATIN SMALL LETTER O WITH DOUBLE ACUTE */ \
	    UNI(0x76, 0x00f6);	/* LATIN SMALL LETTER O WITH DIAERESIS */ \
	    UNI(0x77, 0x00f7);	/* DIVISION SIGN */ \
	    UNI(0x78, 0x0159);	/* LATIN SMALL LETTER R WITH CARON */ \
	    UNI(0x79, 0x016f);	/* LATIN SMALL LETTER U WITH RING ABOVE */ \
	    UNI(0x7a, 0x00fa);	/* LATIN SMALL LETTER U WITH ACUTE */ \
	    UNI(0x7b, 0x0171);	/* LATIN SMALL LETTER U WITH DOUBLE ACUTE */ \
	    UNI(0x7c, 0x00fc);	/* LATIN SMALL LETTER U WITH DIAERESIS */ \
	    UNI(0x7d, 0x00fd);	/* LATIN SMALL LETTER Y WITH ACUTE */ \
	    UNI(0x7e, 0x0163);	/* LATIN SMALL LETTER T WITH CEDILLA */ \
	    UNI(0x7f, 0x02d9);	/* DOT ABOVE */ \
	} \
	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 */ \
	    XXX(0x7f, UNDEF); \
	    \
	} \
	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_2(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_2_Supp:
	map_ISO_Latin_2(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_DEC_Cyrillic:
	map_DEC_Cyrillic(code);
	break;

    case nrc_ISO_Latin_1_Supp:
    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_ISO_Latin_1_Supp:
	    /* FALLTHRU */
	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_2_Supp:
	    map_ISO_Latin_2(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_DEC_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, remove it.
	 */
	if (chr == ANSI_DEL) {
	    IChar *s1;
	    --ptr;
	    for (s1 = s; s1 < ptr; ++s1) {
		s1[0] = s1[1];
	    }
	} else {
	    *s = (IChar) A2E(chr);
	}
    }
    TRACE(("%d\t%s\n",
	   count,
	   visibleIChars(buf, (unsigned) (ptr - buf))));
    return count;
#undef MAP
#undef UNI
#undef XXX
}