Context Navigation

source: trunk/third/kermit/ckuxla.c @ 10780

Visit:

Revision 10780, 178.1 KB checked in by brlewis, 27 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r10779, which included commits to RCS files with non-trunk default branches.

Line
1	#include "ckcsym.h"
2
3	#include "ckcdeb.h" /* Includes... */
4	#include "ckcker.h"
5	#include "ckucmd.h"
6	#include "ckcxla.h"
7	#ifdef OS2 /* includes the definition of CKOUNI */
8	#include "ckouni.h"
9	#endif /* OS2 */
10
11	#ifndef NOCSETS
12	char *xlav = "Character Set Translation 6.0.024, 4 Jul 96";
13
14	/* C K U X L A */
15
16	/* C-Kermit tables and functions supporting character set translation. */
17	/*
18	Author: Frank da Cruz (fdc@columbia.edu, FDCCU@CUVMA.BITNET),
19	Columbia University Academic Information Systems, New York City.
20
21	Copyright (C) 1985, 1996, Trustees of Columbia University in the City of New
22	York. The C-Kermit software may not be, in whole or in part, licensed or
23	sold for profit as a software product itself, nor may it be included in or
24	distributed with commercial products or otherwise distributed by commercial
25	concerns to their clients or customers without written permission of the
26	Office of Kermit Development and Distribution, Columbia University. This
27	copyright notice must not be removed, altered, or obscured.
28	*/
29
30	/*
31	CAVEAT PROGRAMMATOR: The mechanism used herein turns out to be somewhat
32	inflexible and maybe a little dangerous. It is designed for Kermit's
33	character-at-a-time processing during protocol operations. Elaborate
34	kludges are used for translating one character into two (like stuffing an
35	extra character into the input stream), or two into one, or two into two.
36
37	The whole translation business might be redesigned to be string-oriented
38	rather than character oriented, so (a) we can have more flexible
39	translations, and (b) we don't have to be concerned about which input stream
40	we are using. The current mechanism is also quite inappropriate
41	for multibyte character sets and for flexible user-defined translations.
42
43	For the future: perhaps it would be better to represent characters
44	internally using a universal character set like UNICODE (ISO 10646 BMP),
45	the ultimate "transfer character set" (or not)...
46	*/
47
48	/* Character set translation data and functions */
49
50	extern int zincnt; /* File i/o macros and variables */
51	extern char *zinptr;
52	extern int zoutcnt;
53	extern char *zoutptr;
54
55	#ifdef _UCC /* For OS-9 */
56	#define CONST const
57	#else
58	#define CONST
59	#endif /* _UCC */
60
61	int tslevel = TS_L0; /* Transfer syntax level (0,1,2) */
62	int tcharset = TC_TRANSP; /* Transfer syntax character set */
63	#ifdef CKOUNI
64	int tcsr = TX_8859_1; /* Remote terminal character set */
65	#else /* CKOUNI */
66	int tcsr = FC_USASCII;
67	#endif /* CKOUNI */
68	int language = L_USASCII; /* Language */
69
70	/*
71	Default local file and terminal character set.
72	Normally ASCII, but for some systems we know otherwise.
73	*/
74	#ifdef datageneral /* Data General AOS/VS */
75	int fcharset = FC_DGMCS; /* uses the DG International set */
76	int tcsl = FC_DGMCS;
77	#else
78	#ifdef NEXT /* The NeXT workstation */
79	int fcharset = FC_NEXT; /* uses its own 8-bit set */
80	int tcsl = FC_NEXT;
81	#else
82	#ifdef MAC /* The Macintosh */
83	int fcharset = FC_APPQD; /* uses an extended version of */
84	int tcsl = FC_APPQD; /* Apple Quickdraw */
85	#else
86	#ifdef AUX
87	int fcharset = FC_APPQD; /* Ditto for Apple A/UX */
88	int tcsl = FC_APPQD;
89	#else
90	#ifdef AMIGA /* The Commodore Amiga */
91	int fcharset = FC_1LATIN; /* uses Latin-1 */
92	int tcsl = FC_1LATIN;
93	#else /* All others */
94	#ifdef CKOUNI /* OS/2 Unicode */
95	int fcharset = FC_1LATIN;
96	int tcsl = TX_8859_1;
97	#else /* All others */
98	int fcharset = FC_USASCII; /* use ASCII by default */
99	int tcsl = FC_USASCII;
100	#endif /* CKOUNI */
101	#endif /* AMIGA */
102	#endif /* AUX */
103	#endif /* MAC */
104	#endif /* NEXT */
105	#endif /* datageneral */
106
107	/* Bureaucracy section */
108
109	_PROTOTYP( CHAR xnel1, (CHAR c) ); /* NeXT to Latin-1 */
110	_PROTOTYP( CHAR xl143, (CHAR c) ); /* Latin-1 to IBM CP437 */
111	_PROTOTYP( CHAR xl1as, (CHAR c) ); /* Latin-1 to US ASCII */
112	_PROTOTYP( CHAR zl1as, (CHAR c) ); /* Latin-1 to US ASCII */
113
114	#ifdef CYRILLIC
115	_PROTOTYP( CHAR xassk, (CHAR c) ); /* ASCII to Short KOI */
116	_PROTOTYP( CHAR xskcy, (CHAR c) ); /* Short KOI to Latin/Cyrillic */
117	#endif /* CYRILLIC */
118
119	#ifdef LATIN2
120	_PROTOTYP( CHAR xnel2, (CHAR c) ); /* NeXT to Latin-2 */
121	_PROTOTYP( CHAR xl243, (CHAR c) ); /* Latin-2 to IBM CP437 */
122	_PROTOTYP( CHAR xl2as, (CHAR c) ); /* Latin-2 to US ASCII */
123	_PROTOTYP( CHAR zl2as, (CHAR c) ); /* Latin-2 to US ASCII */
124	_PROTOTYP( CHAR xl2r8, (CHAR c) ); /* Latin-2 to HP */
125	#endif /* LATIN2 */
126
127	/* Transfer character-set info */
128
129	struct csinfo tcsinfo[] = {
130	/* Name size code designator alphabet keyword */
131	"TRANSPARENT", 256,TC_TRANSP, "", AL_UNK, "transparent", /* 0 */
132	"ASCII", 128,TC_USASCII,"", AL_ROMAN,"ascii", /* 1 */
133	"LATIN1, ISO 8859-1",256,TC_1LATIN, "I6/100",AL_ROMAN,"latin1-iso", /* 2 */
134	#ifdef LATIN2
135	"LATIN2, ISO 8859-2",256,TC_2LATIN, "I6/101",AL_ROMAN,"latin2-iso", /* 3 */
136	#endif /* LATIN2 */
137	#ifdef CYRILLIC
138	"CYRILLIC, ISO 8859-5",256,TC_CYRILL,"I6/144",AL_CYRIL,"cyrillic-iso",/* 4 */
139	#endif /* CYRILLIC */
140	#ifdef KANJI
141	"KANJI (EUC)", 16384,TC_JEUC, "I14/87/13", AL_JAPAN, "japanese-euc", /* 5 */
142	#endif /* KANJI */
143	#ifdef HEBREW
144	"HEBREW, ISO 8859-8",256,TC_HEBREW,"I6/138",AL_HEBREW,"hebrew-iso" /* 6 */
145	#endif /* HEBREW */
146	};
147	int ntcsets = (sizeof(tcsinfo) / sizeof(struct csinfo));
148
149	struct keytab tcstab[] = { /* Keyword table for */
150	"ascii", TC_USASCII, 0, /* SET TRANSFER CHARACTER-SET */
151	#ifdef CYRILLIC
152	"cyrillic-iso", TC_CYRILL, 0,
153	#endif /* CYRILLIC */
154	#ifdef HEBREW
155	"hebrew-iso", TC_HEBREW, 0,
156	#endif /* HEBREW */
157	#ifdef KANJI
158	"japanese-euc", TC_JEUC, 0,
159	#endif /* KANJI */
160	#ifdef LATIN2
161	/*
162	If Latin-2 is defined, let the following be invisible, non-unique
163	abbreviations for LATIN1.
164	*/
165	"l", TC_1LATIN, CM_ABR\|CM_INV,
166	"la", TC_1LATIN, CM_ABR\|CM_INV,
167	"lat", TC_1LATIN, CM_ABR\|CM_INV,
168	"lati", TC_1LATIN, CM_ABR\|CM_INV,
169	"latin", TC_1LATIN, CM_ABR\|CM_INV,
170	#endif /* LATIN2 */
171	"latin1-iso", TC_1LATIN, 0,
172	#ifdef LATIN2
173	"latin2-iso", TC_2LATIN, 0,
174	#endif /* LATIN2 */
175	"transparent", TC_TRANSP, 0
176	};
177	int ntcs = (sizeof(tcstab) / sizeof(struct keytab));
178
179	/* File character set information structure, indexed by character set code, */
180	/* as defined in ckuxla.h. This table must be in order of file character */
181	/* set number! */
182
183	struct csinfo fcsinfo[] = { /* File character set information... */
184	/* Descriptive Name Size Designator */
185	"US ASCII", 128, FC_USASCII, NULL, AL_ROMAN, "ascii",
186	"British/UK ISO-646", 128, FC_UKASCII, NULL, AL_ROMAN, "british",
187	"Dutch ISO-646", 128, FC_DUASCII, NULL, AL_ROMAN, "dutch",
188	"Finnish ISO-646", 128, FC_FIASCII, NULL, AL_ROMAN, "finnish",
189	"French ISO-646", 128, FC_FRASCII, NULL, AL_ROMAN, "french",
190	"Canadian-French NRC", 128, FC_FCASCII, NULL, AL_ROMAN, "canadian-french",
191	"German ISO-646", 128, FC_GEASCII, NULL, AL_ROMAN, "german",
192	"Hungarian ISO-646", 128, FC_HUASCII, NULL, AL_ROMAN, "hungarian",
193	"Italian ISO-646", 128, FC_ITASCII, NULL, AL_ROMAN, "italian",
194	"Norwegian/Danish ISO-646",128,FC_NOASCII,NULL,AL_ROMAN,"norwegian/danish",
195	"Portuguese ISO-646", 128, FC_POASCII, NULL, AL_ROMAN,"portuguese",
196	"Spanish ISO-646", 128, FC_SPASCII, NULL, AL_ROMAN, "spanish",
197	"Swedish ISO-646", 128, FC_SWASCII, NULL, AL_ROMAN, "swedish",
198	"Swiss NRC", 128, FC_CHASCII, NULL, AL_ROMAN, "swiss",
199	"ISO 8859-1 Latin-1", 256, FC_1LATIN, NULL, AL_ROMAN,"latin1-iso",
200	#ifdef LATIN2
201	"ISO 8859-2 Latin-2", 256, FC_2LATIN, NULL, AL_ROMAN,"latin2-iso",
202	#endif /* LATIN2 */
203	"DEC Multinational", 256, FC_DECMCS, NULL,AL_ROMAN,"dec-multinational",
204	"NeXT Multinational", 256, FC_NEXT, NULL,AL_ROMAN,"next-multinational",
205	"IBM Code Page 437", 256, FC_CP437, NULL, AL_ROMAN,"cp437",
206	"IBM Code Page 850", 256, FC_CP850, NULL, AL_ROMAN,"cp850",
207	#ifdef LATIN2
208	"IBM Code Page 852", 256, FC_CP852, NULL, AL_ROMAN,"cp852",
209	#endif /* LATIN2 */
210	"Apple Macintosh Latin", 256, FC_APPQD, NULL, AL_ROMAN,"macintosh-latin",
211	"Data General International",256,FC_DGMCS,NULL,AL_ROMAN,"dg-international",
212	"Hewlett Packard Roman8", 256, FC_HPR8, NULL, AL_ROMAN, "hp-roman8"
213	#ifdef CYRILLIC
214	, "ISO 8859-5 Latin/Cyrillic", 256, FC_CYRILL, NULL, AL_CYRIL,"cyrillic-iso",
215	"CP866 Cyrillic", 256, FC_CP866, NULL, AL_CYRIL,"cp866",
216	"Short KOI", 128, FC_KOI7, NULL, AL_CYRIL,"short-koi",
217	"Old KOI-8 Cyrillic", 256, FC_KOI8, NULL, AL_CYRIL,"koi8-cyrillic"
218	#endif /* CYRILLIC */
219	#ifdef KANJI
220	, "Japanese JIS7", 256, FC_JIS7, NULL, AL_JAPAN, "jis7-kanji",
221	"Japanese Shift JIS", 16384, FC_SHJIS, NULL, AL_JAPAN, "shift-jis-kanji",
222	"Japanese EUC", 16384, FC_JEUC, NULL, AL_JAPAN, "japanese-euc",
223	"Japanese DEC Kanji", 16384, FC_JDEC, NULL, AL_JAPAN, "dec-kanji"
224	#endif /* KANJI */
225	#ifdef HEBREW
226	, "Hebrew-7 DEC", 128, FC_HE7, NULL, AL_HEBREW, "hebrew-7",
227	"ISO 8859-8 Latin/Hebrew",256, FC_HEBREW, NULL, AL_HEBREW, "hebrew-iso",
228	"CP862 Hebrew", 256, FC_CP862, NULL, AL_HEBREW, "cp862-hebrew"
229	#endif /* HEBREW */
230	};
231
232	/* Local file character sets */
233	/* Includes 7-bit National Replacement Character Sets of ISO 646 */
234	/* Plus ISO Latin-1, DEC Multinational Character Set (MCS), NeXT char set */
235
236	struct keytab fcstab[] = { /* Keyword table for 'set file character-set' */
237
238	/*
239	IMPORTANT: This table is replicated below as ttcstab (terminal character
240	set table). The only differences are the addition of TRANSPARENT
241	and the removal of the Kanji sets, which are not supported yet.
242	If you make changes to this table, also change ttcstab.
243	*/
244
245	/* Keyword Value Flags */
246	"apple-quickdraw", FC_APPQD, CM_INV, /* Apple Quickdraw */
247	"ascii", FC_USASCII, 0, /* ASCII */
248	"british", FC_UKASCII, 0, /* British NRC */
249	"canadian-french", FC_FCASCII, 0, /* French Canadian NRC */
250	"cp437", FC_CP437, 0, /* PC CP437 */
251	"cp850", FC_CP850, 0, /* PC CP850 */
252	#ifdef LATIN2
253	"cp852", FC_CP852, 0, /* PC CP852 */
254	#endif /* LATIN2 */
255	#ifdef HEBREW
256	"cp862-hebrew", FC_CP862, 0, /* PC CP862 */
257	#endif /* HEBREW */
258	#ifdef CYRILLIC
259	"cp866-cyrillic", FC_CP866, 0, /* CP866 Cyrillic */
260	"cyrillic-iso", FC_CYRILL, 0, /* ISO Latin/Cyrillic Alphabet */
261	#endif /* CYRILLIC */
262	"danish", FC_NOASCII, 0, /* Norwegian and Danish NRC */
263	#ifdef KANJI
264	"dec-kanji", FC_JDEC, 0, /* Japanese DEC Kanji */
265	#endif /* KANJI */
266	"dec-multinational", FC_DECMCS, 0, /* DEC multinational character set */
267	"dg-international", FC_DGMCS, 0, /* Data General multinational */
268	"dutch", FC_DUASCII, 0, /* Dutch NRC */
269	"finnish", FC_FIASCII, 0, /* Finnish NRC */
270	"french", FC_FRASCII, 0, /* French NRC */
271	"fr-canadian", FC_FCASCII, CM_INV, /* French Canadian NRC */
272	"german", FC_GEASCII, 0, /* German NRC */
273	#ifdef HEBREW
274	"he", FC_HEBREW, CM_ABR\|CM_INV,
275	"heb", FC_HEBREW, CM_ABR\|CM_INV,
276	"hebr", FC_HEBREW, CM_ABR\|CM_INV,
277	"hebre", FC_HEBREW, CM_ABR\|CM_INV,
278	"hebrew", FC_HEBREW, CM_ABR\|CM_INV,
279	"hebrew-7", FC_HE7, 0, /* DEC 7-Bit Hebrew */
280	"hebrew-iso", FC_HEBREW, 0, /* ISO Latin/Hebrew */
281	#endif /* HEBREW */
282	"hp-roman8", FC_HPR8, 0, /* Hewlett Packard Roman8 */
283	"hungarian", FC_HUASCII, 0, /* Hungarian NRC */
284	"italian", FC_ITASCII, 0, /* Italian NRC */
285	#ifdef KANJI
286	"japanese-euc", FC_JEUC, 0, /* Japanese EUC */
287	"jis7-kanji", FC_JIS7, 0, /* Japanese JIS7 7bit code */
288	#endif /* KANJI */
289	#ifdef CYRILLIC
290	"koi8-cyrillic", FC_KOI8, 0, /* Old KOI-8 Cyrillic */
291	#endif /* CYRILLIC */
292	#ifdef LATIN2
293	"l", FC_1LATIN, CM_ABR\|CM_INV,
294	"la", FC_1LATIN, CM_ABR\|CM_INV,
295	"lat", FC_1LATIN, CM_ABR\|CM_INV,
296	"lati", FC_1LATIN, CM_ABR\|CM_INV,
297	"latin", FC_1LATIN, CM_ABR\|CM_INV,
298	#endif /* LATIN2 */
299	"latin1-iso", FC_1LATIN, 0, /* ISO Latin Alphabet 1 */
300	#ifdef LATIN2
301	"latin2-iso", FC_2LATIN, 0, /* ISO Latin Alphabet 2 */
302	#endif /* LATIN2 */
303	"macintosh-latin", FC_APPQD, 0, /* "Extended Mac Latin" */
304	"next-multinational", FC_NEXT, 0, /* NeXT workstation */
305	"norwegian", FC_NOASCII, 0, /* Norwegian and Danish NRC */
306	"portuguese", FC_POASCII, 0, /* Portuguese NRC */
307	#ifdef KANJI
308	"shift-jis-kanji", FC_SHJIS, 0, /* Japanese Kanji Shift-JIS */
309	#endif /* KANJI */
310	#ifdef CYRILLIC
311	"short-koi", FC_KOI7, 0, /* Short KOI Cyrillic */
312	#endif /* CYRILLIC */
313	"spanish", FC_SPASCII, 0, /* Spanish NRC */
314	"swedish", FC_SWASCII, 0, /* Swedish NRC */
315	"swiss", FC_CHASCII, 0 /* Swiss NRC */
316	};
317	int nfilc = (sizeof(fcstab) / sizeof(struct keytab)); /* size of this table */
318
319
320	struct keytab ttcstab[] = { /* Keyword table for SET TERMINAL CHARACTER-SET */
321	/*
322	IMPORTANT: This table is a replica of fcstab, immediately above, with the
323	addition of TRANSPARENT. If you make changes to this table, make the
324	corresponding changes to fcstab.
325	*/
326	/* Keyword Value Flags */
327	"apple-quickdraw", FC_APPQD, CM_INV, /* Apple Quickdraw */
328	"ascii", FC_USASCII, 0, /* ASCII */
329	"british", FC_UKASCII, 0, /* British NRC */
330	"canadian-french", FC_FCASCII, 0, /* French Canadian NRC */
331	"cp437", FC_CP437, 0, /* IBM CP437 */
332	"cp850", FC_CP850, 0, /* IBM CP850 */
333	#ifdef LATIN2
334	"cp852", FC_CP852, 0, /* IBM CP852 */
335	#endif /* LATIN2 */
336	#ifdef HEBREW
337	"cp862-hebrew", FC_CP862, 0, /* PC CP862 */
338	#endif /* HEBREW */
339	#ifdef CYRILLIC
340	"cp866-cyrillic", FC_CP866, 0, /* CP866 Cyrillic */
341	"cyrillic-iso", FC_CYRILL, 0, /* ISO Latin/Cyrillic Alphabet */
342	#endif /* CYRILLIC */
343	"danish", FC_NOASCII, 0, /* Norwegian and Danish NRC */
344	#ifdef COMMENT
345	#ifdef KANJI
346	"dec-kanji", FC_JDEC, 0, /* Japanese DEC Kanji */
347	#endif /* KANJI */
348	#endif /* COMMENT */
349	"dec-multinational", FC_DECMCS, 0, /* DEC multinational character set */
350	"dg-international", FC_DGMCS, 0, /* Data General multinational */
351	"dutch", FC_DUASCII, 0, /* Dutch NRC */
352	"finnish", FC_FIASCII, 0, /* Finnish NRC */
353	"french", FC_FRASCII, 0, /* French NRC */
354	"fr-canadian", FC_FCASCII, CM_INV, /* French Canadian NRC */
355	"german", FC_GEASCII, 0, /* German NRC */
356	#ifdef HEBREW
357	"he", FC_HEBREW, CM_ABR\|CM_INV,
358	"heb", FC_HEBREW, CM_ABR\|CM_INV,
359	"hebr", FC_HEBREW, CM_ABR\|CM_INV,
360	"hebre", FC_HEBREW, CM_ABR\|CM_INV,
361	"hebrew", FC_HEBREW, CM_ABR\|CM_INV,
362	"hebrew-7", FC_HE7, 0, /* DEC 7-Bit Hebrew */
363	"hebrew-iso", FC_HEBREW, 0, /* ISO Latin/Hebrew */
364	#endif /* HEBREW */
365	"hp-roman8", FC_HPR8, 0, /* Hewlett Packard Roman8 */
366	"hungarian", FC_HUASCII, 0, /* Hungarian NRC */
367	"italian", FC_ITASCII, 0, /* Italian NRC */
368	#ifdef COMMENT
369	/* Kanji terminal character sets not implemented yet */
370	#ifdef KANJI
371	"japanese-euc", FC_JEUC, 0, /* Japanese EUC */
372	"jis7-kanji", FC_JIS7, 0, /* Japanese JIS7 7bit code */
373	#endif /* KANJI */
374	#endif /* COMMENT */
375	#ifdef CYRILLIC
376	"koi8-cyrillic", FC_KOI8, 0, /* Old KOI-8 Cyrillic */
377	#endif /* CYRILLIC */
378	#ifdef LATIN2
379	"l", FC_1LATIN, CM_ABR\|CM_INV,
380	"la", FC_1LATIN, CM_ABR\|CM_INV,
381	"lat", FC_1LATIN, CM_ABR\|CM_INV,
382	"lati", FC_1LATIN, CM_ABR\|CM_INV,
383	"latin", FC_1LATIN, CM_ABR\|CM_INV,
384	#endif /* LATIN2 */
385	"latin1-iso", FC_1LATIN, 0, /* ISO Latin Alphabet 1 */
386	#ifdef LATIN2
387	"latin2-iso", FC_2LATIN, 0, /* ISO Latin Alphabet 2 */
388	#endif /* LATIN2 */
389	"macintosh-latin", FC_APPQD, 0, /* "Extended Mac Latin */
390	"next-multinational", FC_NEXT, 0, /* NeXT workstation */
391	"norwegian", FC_NOASCII, 0, /* Norwegian and Danish NRC */
392	"portuguese", FC_POASCII, 0, /* Portuguese NRC */
393	#ifdef COMMENT
394	/* Kanji terminal character sets not implemented yet. */
395	#ifdef KANJI
396	"shift-jis-kanji", FC_SHJIS, 0, /* Japanese Kanji Shift-JIS */
397	#endif /* KANJI */
398	#endif /* COMMENT */
399	#ifdef CYRILLIC
400	"short-koi", FC_KOI7, 0, /* Short KOI Cyrillic */
401	#endif /* CYRILLIC */
402	"spanish", FC_SPASCII, 0, /* Spanish NRC */
403	"swedish", FC_SWASCII, 0, /* Swedish NRC */
404	"swiss", FC_CHASCII, 0, /* Swiss NRC */
405	"transparent", FC_TRANSP, 0 /* Transparent */
406	};
407	int ntermc = (sizeof(ttcstab) / sizeof(struct keytab)); /* size of table */
408
409	/*
410	Languages:
411
412	This table allows C-Kermit to have a SET LANGUAGE command to apply special
413	language-specific rules when translating from a character set that contains
414	national characters into plain ASCII, like German umlaut-a becomes ae.
415
416	Originally, I thought it would be a good idea to let SET LANGUAGE also select
417	an appropriate FILE CHARACTER-SET and TRANSFER CHARACTER-SET automatically,
418	and these are included in the langinfo structure. Later I realized that this
419	was a bad idea. Users are confused by unexpected side effects. If this
420	functionality is desired, it's better to define a macro to do it.
421	*/
422
423	struct langinfo langs[] = {
424	/* Language code File Charset Xfer Charset Name */
425	L_USASCII, FC_USASCII, TC_USASCII, "ASCII (American English)",
426	L_DANISH, FC_NOASCII, TC_1LATIN, "Danish",
427	L_DUTCH, FC_DUASCII, TC_1LATIN, "Dutch",
428	L_FINNISH, FC_FIASCII, TC_1LATIN, "Finnish",
429	L_FRENCH, FC_FRASCII, TC_1LATIN, "French",
430	L_GERMAN, FC_GEASCII, TC_1LATIN, "German",
431	#ifdef HEBREW
432	L_HEBREW, FC_HEBREW, TC_HEBREW, "Hebrew",
433	#endif /* HEBREW */
434	L_HUNGARIAN, FC_HUASCII, TC_2LATIN, "Hungarian",
435	L_ICELANDIC, FC_USASCII, TC_1LATIN, "Icelandic",
436	L_ITALIAN, FC_ITASCII, TC_1LATIN, "Italian",
437	#ifdef KANJI
438	L_JAPANESE, FC_JEUC, TC_JEUC, "Japanese",
439	#endif /* KANJI */
440	L_NORWEGIAN, FC_NOASCII, TC_1LATIN, "Norwegian",
441	L_PORTUGUESE, FC_POASCII, TC_1LATIN, "Portuguese",
442	#ifdef CYRILLIC
443	L_RUSSIAN, FC_CP866, TC_CYRILL, "Russian",
444	#endif /* CYRILLIC */
445	L_SPANISH, FC_SPASCII, TC_1LATIN, "Spanish",
446	L_SWEDISH, FC_SWASCII, TC_1LATIN, "Swedish",
447	L_SWISS, FC_CHASCII, TC_1LATIN, "Swiss"
448	};
449	int nlangs = (sizeof(langs) / sizeof(struct langinfo));
450
451	/*
452	Keyword table for the SET LANGUAGE command.
453	Only a few of these (German, Scandinavian, etc) actually do anything.
454	The language is used to invoke special translation rules when converting
455	from an 8-bit character set to ASCII; for example, German u-diaeresis
456	becomes "ue", Dutch y-diaeresis becomes "ij". Languages without associated
457	rules are invisible (CM_INV).
458	*/
459	struct keytab lngtab[] = {
460	"ascii", L_USASCII, CM_INV,
461	"danish", L_DANISH, 0,
462	"dutch", L_DUTCH, 0,
463	"english", L_USASCII, CM_INV,
464	"finnish", L_FINNISH, 0,
465	"french", L_FRENCH, 0,
466	"german", L_GERMAN, 0,
467	#ifdef HEBREW
468	"hebrew", L_HEBREW, CM_INV,
469	#endif /* HEBREW */
470	"hungarian", L_HUNGARIAN, CM_INV,
471	"icelandic", L_ICELANDIC, 0,
472	"italian", L_ITALIAN, CM_INV,
473	#ifdef KANJI
474	"japanese", L_JAPANESE, CM_INV,
475	#endif /* KANJI */
476	"norwegian", L_NORWEGIAN, 0,
477	"none", L_USASCII, 0,
478	"portuguese", L_PORTUGUESE, CM_INV,
479	#ifdef CYRILLIC
480	"russian", L_RUSSIAN, 0,
481	#endif /* CYRILLIC */
482	"spanish", L_SPANISH, CM_INV,
483	"swedish", L_SWEDISH, 0
484	#ifdef CYRILLIC
485	, "ukrainian", L_RUSSIAN, 0
486	#endif /* CYRILLIC */
487	};
488	int nlng = (sizeof(lngtab) / sizeof(struct keytab)); /* how many languages */
489
490
491	/* Translation tables ... */
492
493	/*
494	For each pair of (transfer,file) character sets, we need two translation
495	functions, one for sending, one for receiving.
496	*/
497
498	/*
499	Here is the first table, Latin-1 to ASCII, fully annotated...
500	This one is absolutely NOT invertible, since we're going from an 8-bit
501	set to a 7-bit set. Accented letters are mapped to unaccented
502	equivalents, C1 control characters are all translated to "?", etc.
503	*/
504	CONST CHAR
505	yl1as[] = { /* ISO 8859-1 Latin Alphabet 1 to US ASCII */
506	/* Source character Description => Translation */
507	/* Dec row/col Set */
508	0, /* 000 00/00 C0 NUL Ctrl-@ => (self) */
509	1, /* 001 00/01 C0 SOH Ctrl-A => (self) */
510	2, /* 002 00/02 C0 STX Ctrl-B => (self) */
511	3, /* 003 00/03 C0 ETX Ctrl-C => (self) */
512	4, /* 004 00/04 C0 EOT Ctrl-D => (self) */
513	5, /* 005 00/05 C0 ENQ Ctrl-E => (self) */
514	6, /* 006 00/06 C0 ACK Ctrl-F => (self) */
515	7, /* 007 00/07 C0 BEL Ctrl-G => (self) */
516	8, /* 008 00/08 C0 BS Ctrl-H => (self) */
517	9, /* 009 00/09 C0 HT Ctrl-I => (self) */
518	10, /* 010 00/10 C0 LF Ctrl-J => (self) */
519	11, /* 011 00/11 C0 VT Ctrl-K => (self) */
520	12, /* 012 00/12 C0 FF Ctrl-L => (self) */
521	13, /* 013 00/13 C0 CR Ctrl-M => (self) */
522	14, /* 014 00/14 C0 SO Ctrl-N => (self) */
523	15, /* 015 00/15 C0 SI Ctrl-O => (self) */
524	16, /* 016 01/00 C0 DLE Ctrl-P => (self) */
525	17, /* 017 01/01 C0 DC1 Ctrl-Q => (self) */
526	18, /* 018 01/02 C0 DC2 Ctrl-R => (self) */
527	19, /* 019 01/03 C0 DC3 Ctrl-S => (self) */
528	20, /* 020 01/04 C0 DC4 Ctrl-T => (self) */
529	21, /* 021 01/05 C0 NAK Ctrl-U => (self) */
530	22, /* 022 01/06 C0 SYN Ctrl-V => (self) */
531	23, /* 023 01/07 C0 ETB Ctrl-W => (self) */
532	24, /* 024 01/08 C0 CAN Ctrl-X => (self) */
533	25, /* 025 01/09 C0 EM Ctrl-Y => (self) */
534	26, /* 026 01/10 C0 SUB Ctrl-Z => (self) */
535	27, /* 027 01/11 C0 ESC Ctrl-[ => (self) */
536	28, /* 028 01/12 C0 FS Ctrl-\ => (self) */
537	29, /* 029 01/13 C0 GS Ctrl-] => (self) */
538	30, /* 030 01/14 C0 RS Ctrl-^ => (self) */
539	31, /* 031 01/15 C0 US Ctrl-_ => (self) */
540	32, /* 032 02/00 SP Space => (self) */
541	33, /* 033 02/01 G0 ! Exclamation mark => (self) */
542	34, /* 034 02/02 G0 " Doublequote => (self) */
543	35, /* 035 02/03 G0 # Number sign => (self) */
544	36, /* 036 02/04 G0 $ Dollar sign => (self) */
545	37, /* 037 02/05 G0 % Percent sign => (self) */
546	38, /* 038 02/06 G0 & Ampersand => (self) */
547	39, /* 039 02/07 G0 ' Apostrophe => (self) */
548	40, /* 040 02/08 G0 ( Left parenthesis => (self) */
549	41, /* 041 02/09 G0 ) Right parenthesis => (self) */
550	42, /* 042 02/10 G0 * Asterisk => (self) */
551	43, /* 043 02/11 G0 + Plus sign => (self) */
552	44, /* 044 02/12 G0 , Comma => (self) */
553	45, /* 045 02/13 G0 - Hyphen, minus sign => (self) */
554	46, /* 046 02/14 G0 . Period, full stop => (self) */
555	47, /* 047 02/15 G0 / Slash, solidus => (self) */
556	48, /* 048 03/00 G0 0 Digit 0 => (self) */
557	49, /* 049 03/01 G0 1 Digit 1 => (self) */
558	50, /* 050 03/02 G0 2 Digit 2 => (self) */
559	51, /* 051 03/03 G0 3 Digit 3 => (self) */
560	52, /* 052 03/04 G0 4 Digit 4 => (self) */
561	53, /* 053 03/05 G0 5 Digit 5 => (self) */
562	54, /* 054 03/06 G0 6 Digit 6 => (self) */
563	55, /* 055 03/07 G0 7 Digit 7 => (self) */
564	56, /* 056 03/08 G0 8 Digit 8 => (self) */
565	57, /* 057 03/09 G0 9 Digit 9 => (self) */
566	58, /* 058 03/10 G0 : Colon => (self) */
567	59, /* 059 03/11 G0 ; Semicolon => (self) */
568	60, /* 060 03/12 G0 < Less-than sign => (self) */
569	61, /* 061 03/13 G0 = Equals sign => (self) */
570	62, /* 062 03/14 G0 > Greater-than sign => (self) */
571	63, /* 063 03/15 G0 ? Question mark => (self) */
572	64, /* 064 04/00 G0 @ Commercial at sign => (self) */
573	65, /* 065 04/01 G0 A Letter A => (self) */
574	66, /* 066 04/02 G0 B Letter B => (self) */
575	67, /* 067 04/03 G0 C Letter C => (self) */
576	68, /* 068 04/04 G0 D Letter D => (self) */
577	69, /* 069 04/05 G0 E Letter E => (self) */
578	70, /* 070 04/06 G0 F Letter F => (self) */
579	71, /* 071 04/07 G0 G Letter G => (self) */
580	72, /* 072 04/08 G0 H Letter H => (self) */
581	73, /* 073 04/09 G0 I Letter I => (self) */
582	74, /* 074 04/10 G0 J Letter J => (self) */
583	75, /* 075 04/11 G0 K Letter K => (self) */
584	76, /* 076 04/12 G0 L Letter L => (self) */
585	77, /* 077 04/13 G0 M Letter M => (self) */
586	78, /* 078 04/14 G0 N Letter N => (self) */
587	79, /* 079 04/15 G0 O Letter O => (self) */
588	80, /* 080 05/00 G0 P Letter P => (self) */
589	81, /* 081 05/01 G0 Q Letter Q => (self) */
590	82, /* 082 05/02 G0 R Letter R => (self) */
591	83, /* 083 05/03 G0 S Letter S => (self) */
592	84, /* 084 05/04 G0 T Letter T => (self) */
593	85, /* 085 05/05 G0 U Letter U => (self) */
594	86, /* 086 05/06 G0 V Letter V => (self) */
595	87, /* 087 05/07 G0 W Letter W => (self) */
596	88, /* 088 05/08 G0 X Letter X => (self) */
597	89, /* 089 05/09 G0 Y Letter Y => (self) */
598	90, /* 090 05/10 G0 Z Letter Z => (self) */
599	91, /* 091 05/11 G0 [ Left square bracket => (self) */
600	92, /* 092 05/12 G0 \ Reverse slash => (self) */
601	93, /* 093 05/13 G0 ] Right square bracket => (self) */
602	94, /* 094 05/14 G0 ^ Circumflex accent => (self) */
603	95, /* 095 05/15 G0 _ Underline, low line => (self) */
604	96, /* 096 06/00 G0 ` Grave accent => (self) */
605	97, /* 097 06/01 G0 a Letter a => (self) */
606	98, /* 098 06/02 G0 b Letter b => (self) */
607	99, /* 099 06/03 G0 c Letter c => (self) */
608	100, /* 100 06/04 G0 d Letter d => (self) */
609	101, /* 101 06/05 G0 e Letter e => (self) */
610	102, /* 102 06/06 G0 f Letter f => (self) */
611	103, /* 103 06/07 G0 g Letter g => (self) */
612	104, /* 104 06/08 G0 h Letter h => (self) */
613	105, /* 105 06/09 G0 i Letter i => (self) */
614	106, /* 106 06/10 G0 j Letter j => (self) */
615	107, /* 107 06/11 G0 k Letter k => (self) */
616	108, /* 108 06/12 G0 l Letter l => (self) */
617	109, /* 109 06/13 G0 m Letter m => (self) */
618	110, /* 110 06/14 G0 n Letter n => (self) */
619	111, /* 111 06/15 G0 o Letter o => (self) */
620	112, /* 112 07/00 G0 p Letter p => (self) */
621	113, /* 113 07/01 G0 q Letter q => (self) */
622	114, /* 114 07/02 G0 r Letter r => (self) */
623	115, /* 115 07/03 G0 s Letter s => (self) */
624	116, /* 116 07/04 G0 t Letter t => (self) */
625	117, /* 117 07/05 G0 u Letter u => (self) */
626	118, /* 118 07/06 G0 v Letter v => (self) */
627	119, /* 119 07/07 G0 w Letter w => (self) */
628	120, /* 120 07/08 G0 x Letter x => (self) */
629	121, /* 121 07/09 G0 y Letter y => (self) */
630	122, /* 122 07/10 G0 z Letter z => (self) */
631	123, /* 123 07/11 G0 { Left curly bracket => (self) */
632	124, /* 124 07/12 G0 \| Vertical bar => (self) */
633	125, /* 125 07/13 G0 } Right curly bracket => (self) */
634	126, /* 126 07/14 G0 ~ Tilde => (self) */
635	127, /* 127 07/15 DEL Delete, Rubout => (self) */
636	UNK, /* 128 08/00 C1 => UNK */
637	UNK, /* 129 08/01 C1 => UNK */
638	UNK, /* 130 08/02 C1 => UNK */
639	UNK, /* 131 08/03 C1 => UNK */
640	UNK, /* 132 08/04 C1 IND => UNK */
641	UNK, /* 133 08/05 C1 NEL => UNK */
642	UNK, /* 134 08/06 C1 SSA => UNK */
643	UNK, /* 135 08/07 C1 ESA => UNK */
644	UNK, /* 136 08/08 C1 HTS => UNK */
645	UNK, /* 137 08/09 C1 => UNK */
646	UNK, /* 138 08/10 C1 => UNK */
647	UNK, /* 139 08/11 C1 => UNK */
648	UNK, /* 140 08/12 C1 => UNK */
649	UNK, /* 141 08/13 C1 RI => UNK */
650	UNK, /* 142 08/14 C1 SS2 => UNK */
651	UNK, /* 143 08/15 C1 SS3 => UNK */
652	UNK, /* 144 09/00 C1 DCS => UNK */
653	UNK, /* 145 09/01 C1 => UNK */
654	UNK, /* 146 09/02 C1 => UNK */
655	UNK, /* 147 09/03 C1 STS => UNK */
656	UNK, /* 148 09/04 C1 => UNK */
657	UNK, /* 149 09/05 C1 => UNK */
658	UNK, /* 150 09/06 C1 SPA => UNK */
659	UNK, /* 151 09/07 C1 EPA => UNK */
660	UNK, /* 152 09/08 C1 => UNK */
661	UNK, /* 153 09/09 C1 => UNK */
662	UNK, /* 154 09/10 C1 => UNK */
663	UNK, /* 155 09/11 C1 CSI => UNK */
664	UNK, /* 156 09/12 C1 ST => UNK */
665	UNK, /* 157 09/13 C1 OSC => UNK */
666	UNK, /* 158 09/14 C1 PM => UNK */
667	UNK, /* 159 09/15 C1 APC => UNK */
668	32, /* 160 10/00 G1 No-break space => SP */
669	33, /* 161 10/01 G1 Inverted exclamation => ! */
670	99, /* 162 10/02 G1 Cent sign => c */
671	35, /* 163 10/03 G1 Pound sign => # */
672	36, /* 164 10/04 G1 Currency sign => $ */
673	89, /* 165 10/05 G1 Yen sign => Y */
674	124, /* 166 10/06 G1 Broken bar => \| */
675	80, /* 167 10/07 G1 Paragraph sign => P */
676	34, /* 168 10/08 G1 Diaeresis => " */
677	67, /* 169 10/09 G1 Copyright sign => C */
678	97, /* 170 10/10 G1 Feminine ordinal => a */
679	34, /* 171 10/11 G1 Left angle quotation => " */
680	126, /* 172 10/12 G1 Not sign => ~ */
681	45, /* 173 10/13 G1 Soft hyphen => - */
682	82, /* 174 10/14 G1 Registered trade mark => R */
683	95, /* 175 10/15 G1 Macron => _ */
684	111, /* 176 11/00 G1 Degree sign, ring above => o */
685	UNK, /* 177 11/01 G1 Plus-minus sign => UNK */
686	50, /* 178 11/02 G1 Superscript two => 2 */
687	51, /* 179 11/03 G1 Superscript three => 3 */
688	39, /* 180 11/04 G1 Acute accent => ' */
689	117, /* 181 11/05 G1 Micro sign => u */
690	45, /* 182 11/06 G1 Pilcrow sign => - */
691	45, /* 183 11/07 G1 Middle dot => - */
692	44, /* 184 11/08 G1 Cedilla => , */
693	49, /* 185 11/09 G1 Superscript one => 1 */
694	111, /* 186 11/10 G1 Masculine ordinal => o */
695	34, /* 187 11/11 G1 Right angle quotation => " */
696	UNK, /* 188 11/12 G1 One quarter => UNK */
697	UNK, /* 189 11/13 G1 One half => UNK */
698	UNK, /* 190 11/14 G1 Three quarters => UNK */
699	63, /* 191 11/15 G1 Inverted question mark => ? */
700	65, /* 192 12/00 G1 A grave => A */
701	65, /* 193 12/01 G1 A acute => A */
702	65, /* 194 12/02 G1 A circumflex => A */
703	65, /* 195 12/03 G1 A tilde => A */
704	65, /* 196 12/04 G1 A diaeresis => A */
705	65, /* 197 12/05 G1 A ring above => A */
706	65, /* 198 12/06 G1 A with E => A */
707	67, /* 199 12/07 G1 C Cedilla => C */
708	69, /* 200 12/08 G1 E grave => E */
709	69, /* 201 12/09 G1 E acute => E */
710	69, /* 202 12/10 G1 E circumflex => E */
711	69, /* 203 12/11 G1 E diaeresis => E */
712	73, /* 204 12/12 G1 I grave => I */
713	73, /* 205 12/13 G1 I acute => I */
714	73, /* 206 12/14 G1 I circumflex => I */
715	73, /* 207 12/15 G1 I diaeresis => I */
716	68, /* 208 13/00 G1 Icelandic Eth => D */
717	78, /* 209 13/01 G1 N tilde => N */
718	79, /* 210 13/02 G1 O grave => O */
719	79, /* 211 13/03 G1 O acute => O */
720	79, /* 212 13/04 G1 O circumflex => O */
721	79, /* 213 13/05 G1 O tilde => O */
722	79, /* 214 13/06 G1 O diaeresis => O */
723	120, /* 215 13/07 G1 Multiplication sign => x */
724	79, /* 216 13/08 G1 O oblique stroke => O */
725	85, /* 217 13/09 G1 U grave => U */
726	85, /* 218 13/10 G1 U acute => U */
727	85, /* 219 13/11 G1 U circumflex => U */
728	85, /* 220 13/12 G1 U diaeresis => U */
729	89, /* 221 13/13 G1 Y acute => Y */
730	84, /* 222 13/14 G1 Icelandic Thorn => T */
731	115, /* 223 13/15 G1 German sharp s => s */
732	97, /* 224 14/00 G1 a grave => a */
733	97, /* 225 14/01 G1 a acute => a */
734	97, /* 226 14/02 G1 a circumflex => a */
735	97, /* 227 14/03 G1 a tilde => a */
736	97, /* 228 14/04 G1 a diaeresis => a */
737	97, /* 229 14/05 G1 a ring above => a */
738	97, /* 230 14/06 G1 a with e => a */
739	99, /* 231 14/07 G1 c cedilla => c */
740	101, /* 232 14/08 G1 e grave => e */
741	101, /* 233 14/09 G1 e acute => e */
742	101, /* 234 14/10 G1 e circumflex => e */
743	101, /* 235 14/11 G1 e diaeresis => e */
744	105, /* 236 14/12 G1 i grave => i */
745	105, /* 237 14/13 G1 i acute => i */
746	105, /* 238 14/14 G1 i circumflex => i */
747	105, /* 239 14/15 G1 i diaeresis => i */
748	100, /* 240 15/00 G1 Icelandic eth => d */
749	110, /* 241 15/01 G1 n tilde => n */
750	111, /* 242 15/02 G1 o grave => o */
751	111, /* 243 15/03 G1 o acute => o */
752	111, /* 244 15/04 G1 o circumflex => o */
753	111, /* 245 15/05 G1 o tilde => o */
754	111, /* 246 15/06 G1 o diaeresis => o */
755	47, /* 247 15/07 G1 Division sign => / */
756	111, /* 248 15/08 G1 o oblique stroke => o */
757	117, /* 249 15/09 G1 u grave => u */
758	117, /* 250 15/10 G1 u acute => u */
759	117, /* 251 15/11 G1 u circumflex => u */
760	117, /* 252 15/12 G1 u diaeresis => u */
761	121, /* 253 15/13 G1 y acute => y */
762	116, /* 254 15/14 G1 Icelandic thorn => t */
763	121 /* 255 15/15 G1 y diaeresis => y */
764	};
765
766
767	/* Translation tables for ISO Latin Alphabet 1 to local file character sets */
768
769	/*
770	Most of the remaining tables are not annotated like the one above, because
771	the size of the resulting source file would be ridiculous. Each row in the
772	following tables corresponds to a column of ISO 8859-1.
773	*/
774
775	CONST CHAR
776	yl185[] = { /* ISO 8859-1 Latin Alphabet 1 (Latin-1) to IBM Code Page 850 */
777	/*
778	This is based on IBM's official invertible translation. Reference: IBM
779	Character Data Representation Architecture (CDRA), Level 1, Registry,
780	SC09-1291-00 (1990), p.152. (Note: Latin-1 is IBM Code Page 00819.) Note:
781	IBM's bizarre rearrangement of C0 controls and DEL has been undone in this
782	table.
783	*/
784	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
785	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
786	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
787	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
788	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
789	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
790	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
791	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
792	186, 205, 201, 187, 200, 188, 204, 185, 203, 202, 206, 223, 220, 219, 254, 242,
793	179, 196, 218, 191, 192, 217, 195, 180, 194, 193, 197, 176, 177, 178, 213, 159,
794	255, 173, 189, 156, 207, 190, 221, 245, 249, 184, 166, 174, 170, 240, 169, 238,
795	248, 241, 253, 252, 239, 230, 244, 250, 247, 251, 167, 175, 172, 171, 243, 168,
796	183, 181, 182, 199, 142, 143, 146, 128, 212, 144, 210, 211, 222, 214, 215, 216,
797	209, 165, 227, 224, 226, 229, 153, 158, 157, 235, 233, 234, 154, 237, 232, 225,
798	133, 160, 131, 198, 132, 134, 145, 135, 138, 130, 136, 137, 141, 161, 140, 139,
799	208, 164, 149, 162, 147, 228, 148, 246, 155, 151, 163, 150, 129, 236, 231, 152
800	};
801
802	CONST CHAR
803	y85l1[] = { /* IBM Code Page 850 to Latin-1 */
804	/*
805	This is from IBM CDRA page 153. It is the inverse of yl185[].
806	As of edit 183, this table is no longer pure CDRA. The translations
807	involving C0 controls and DEL have been removed.
808	*/
809	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
810	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
811	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
812	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
813	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
814	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
815	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
816	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
817	199, 252, 233, 226, 228, 224, 229, 231, 234, 235, 232, 239, 238, 236, 196, 197,
818	201, 230, 198, 244, 246, 242, 251, 249, 255, 214, 220, 248, 163, 216, 215, 159,
819	225, 237, 243, 250, 241, 209, 170, 186, 191, 174, 172, 189, 188, 161, 171, 187,
820	155, 156, 157, 144, 151, 193, 194, 192, 169, 135, 128, 131, 133, 162, 165, 147,
821	148, 153, 152, 150, 145, 154, 227, 195, 132, 130, 137, 136, 134, 129, 138, 164,
822	240, 208, 202, 203, 200, 158, 205, 206, 207, 149, 146, 141, 140, 166, 204, 139,
823	211, 223, 212, 210, 245, 213, 181, 254, 222, 218, 219, 217, 253, 221, 175, 180,
824	173, 177, 143, 190, 182, 167, 247, 184, 176, 168, 183, 185, 179, 178, 142, 160
825	};
826
827	#ifdef COMMENT
828	CONST CHAR
829	yl1r8[] = { /* Latin-1 to Hewlett Packard Roman8 */
830	/* This is HP's official translation, straight from iconv */
831	/* It is NOT invertible. */
832	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
833	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
834	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
835	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
836	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
837	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
838	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
839	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
840	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
841	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
842	160, 184, 191, 187, 186, 188, 124, 189, 171, 99, 249, 251, 126, 45, 82, 176,
843	179, 254, 50, 51, 168, 243, 244, 242, 44, 49, 250, 253, 247, 248, 245, 185,
844	161, 224, 162, 225, 216, 208, 211, 180, 163, 220, 164, 165, 230, 229, 166, 167,
845	227, 182, 232, 231, 223, 233, 218, 120, 210, 173, 237, 174, 219, 177, 240, 222,
846	200, 196, 192, 226, 204, 212, 215, 181, 201, 197, 193, 205, 217, 213, 209, 221,
847	228, 183, 202, 198, 194, 234, 206, 47, 214, 203, 199, 195, 207, 178, 241, 239
848	};
849	CONST CHAR
850	yr8l1[] = { /* Hewlett Packard Roman8 to Latin-1 */
851	/* This is HP's official translation, straight from iconv */
852	/* It is NOT invertible. */
853	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
854	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
855	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
856	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
857	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
858	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
859	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
860	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
861	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
862	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
863	160, 192, 194, 200, 202, 203, 206, 207, 180, 96, 94, 168, 126, 217, 219, 163,
864	175, 221, 253, 176, 199, 231, 209, 241, 161, 191, 164, 163, 165, 167, 102, 162,
865	226, 234, 244, 251, 225, 233, 243, 250, 224, 232, 242, 249, 228, 235, 246, 252,
866	197, 238, 216, 198, 229, 237, 248, 230, 196, 236, 214, 220, 201, 239, 223, 212,
867	193, 195, 227, 208, 240, 205, 204, 211, 210, 213, 245, 83, 115, 218, 89, 255,
868	222, 254, 183, 181, 182, 190, 45, 188, 189, 170, 186, 171, 42, 187, 177, 160
869	};
870	#else /* !COMMENT */
871	/* This is an invertible mapping, approved by HP in January 1994. */
872	CONST CHAR
873	yl1r8[] = { /* ISO Latin-1 to HP Roman8, Invertible */
874	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
875	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
876	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
877	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
878	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
879	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
880	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
881	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
882	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
883	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
884	160, 184, 191, 187, 186, 188, 169, 189, 171, 170, 249, 251, 172, 175, 190, 176,
885	179, 254, 235, 236, 168, 243, 244, 242, 238, 246, 250, 253, 247, 248, 245, 185,
886	161, 224, 162, 225, 216, 208, 211, 180, 163, 220, 164, 165, 230, 229, 166, 167,
887	227, 182, 232, 231, 223, 233, 218, 252, 210, 173, 237, 174, 219, 177, 240, 222,
888	200, 196, 192, 226, 204, 212, 215, 181, 201, 197, 193, 205, 217, 213, 209, 221,
889	228, 183, 202, 198, 194, 234, 206, 255, 214, 203, 199, 195, 207, 178, 241, 239
890	};
891
892	CONST CHAR
893	yr8l1[] = { /* HP Roman8 to ISO Latin-1, Invertible */
894	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
895	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
896	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
897	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
898	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
899	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
900	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
901	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
902	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
903	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
904	160, 192, 194, 200, 202, 203, 206, 207, 180, 166, 169, 168, 172, 217, 219, 173,
905	175, 221, 253, 176, 199, 231, 209, 241, 161, 191, 164, 163, 165, 167, 174, 162,
906	226, 234, 244, 251, 225, 233, 243, 250, 224, 232, 242, 249, 228, 235, 246, 252,
907	197, 238, 216, 198, 229, 237, 248, 230, 196, 236, 214, 220, 201, 239, 223, 212,
908	193, 195, 227, 208, 240, 205, 204, 211, 210, 213, 245, 178, 179, 218, 184, 255,
909	222, 254, 183, 181, 182, 190, 185, 188, 189, 170, 186, 171, 215, 187, 177, 247
910	};
911	#endif /* COMMENT */
912
913	CONST CHAR
914	yl143[] = { /* Latin-1 to IBM Code Page 437 */
915	/*
916	Although the IBM CDRA does not include an official translation between CP437
917	and ISO Latin Alphabet 1, it does include an official, invertible
918	translation between CP437 and CP850 (page 196), and another from CP850 to
919	Latin-1 (CP819) (page 153). This translation was obtained with a two-step
920	process based on those tables.
921	As of edit 183, the translation is modified to leave C0 controls alone.
922	*/
923	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
924	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
925	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
926	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
927	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
928	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
929	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
930	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
931	186, 205, 201, 187, 200, 188, 204, 185, 203, 202, 206, 223, 220, 219, 254, 242,
932	179, 196, 218, 191, 192, 217, 195, 180, 194, 193, 197, 176, 177, 178, 213, 159,
933	255, 173, 155, 156, 207, 157, 221, 245, 249, 184, 166, 174, 170, 240, 169, 238,
934	248, 241, 253, 252, 239, 230, 244, 250, 247, 251, 167, 175, 172, 171, 243, 168,
935	183, 181, 182, 199, 142, 143, 146, 128, 212, 144, 210, 211, 222, 214, 215, 216,
936	209, 165, 227, 224, 226, 229, 153, 158, 190, 235, 233, 234, 154, 237, 232, 225,
937	133, 160, 131, 198, 132, 134, 145, 135, 138, 130, 136, 137, 141, 161, 140, 139,
938	208, 164, 149, 162, 147, 228, 148, 246, 189, 151, 163, 150, 129, 236, 231, 152
939	};
940
941	CONST CHAR
942	y43l1[] = { /* IBM Code Page 437 to Latin-1 */
943	/*
944	This table is the inverse of yl143[].
945	*/
946	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
947	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
948	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
949	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
950	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
951	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
952	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
953	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
954	199, 252, 233, 226, 228, 224, 229, 231, 234, 235, 232, 239, 238, 236, 196, 197,
955	201, 230, 198, 244, 246, 242, 251, 249, 255, 214, 220, 162, 163, 165, 215, 159,
956	225, 237, 243, 250, 241, 209, 170, 186, 191, 174, 172, 189, 188, 161, 171, 187,
957	155, 156, 157, 144, 151, 193, 194, 192, 169, 135, 128, 131, 133, 248, 216, 147,
958	148, 153, 152, 150, 145, 154, 227, 195, 132, 130, 137, 136, 134, 129, 138, 164,
959	240, 208, 202, 203, 200, 158, 205, 206, 207, 149, 146, 141, 140, 166, 204, 139,
960	211, 223, 212, 210, 245, 213, 181, 254, 222, 218, 219, 217, 253, 221, 175, 180,
961	173, 177, 143, 190, 182, 167, 247, 184, 176, 168, 183, 185, 179, 178, 142, 160
962	};
963
964	CONST CHAR
965	yl1aq[] = { /* Latin-1 to Extended Mac Latin (based on Apple QuickDraw) */
966	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
967	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
968	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
969	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
970	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
971	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
972	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
973	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
974	182, 183, 184, 185, 189, 196, 197, 198, 206, 207, 210, 211, 217, 218, 195, 212,
975	209, 215, 213, 226, 227, 228, 240, 245, 246, 247, 249, 250, 251, 253, 254, 255,
976	202, 193, 162, 163, 219, 180, 201, 164, 172, 169, 187, 199, 194, 208, 168, 248,
977	161, 177, 170, 173, 171, 181, 166, 225, 252, 176, 188, 200, 178, 179, 186, 192,
978	203, 231, 229, 204, 128, 129, 174, 130, 233, 131, 230, 232, 237, 234, 235, 236,
979	220, 132, 241, 238, 239, 205, 133, 165, 175, 244, 242, 243, 134, 160, 222, 167,
980	136, 135, 137, 139, 138, 140, 190, 141, 143, 142, 144, 145, 147, 146, 148, 149,
981	221, 150, 152, 151, 153, 155, 154, 214, 191, 157, 156, 158, 159, 224, 223, 216
982	};
983
984	CONST CHAR
985	yl1du[] = { /* Latin-1 to Dutch ISO 646 */
986	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
987	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
988	32, 33, 34, UNK, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
989	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
990	UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
991	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, 94, 95,
992	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
993	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, 39, 127,
994	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
995	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
996	32, 33, UNK, 35, 124, UNK, UNK, 93, 123, 67, UNK, 34, UNK, 45, 82, UNK,
997	91, UNK, UNK, UNK, 126, 117, UNK, UNK, 44, UNK, UNK, 34, 125, 92, 64, 63,
998	65, 65, 65, 65, 91, 65, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
999	UNK, 78, 79, 79, 79, 79, 79, 120, 79, 85, 85, 85, 85, 89, UNK, 115,
1000	97, 97, 97, 97, 97, 97, 97, 99, 101, 101, 101, 101, 105, 105, 105, 105,
1001	UNK, 110, 111, 111, 111, 111, 111, 47, 111, 117, 117, 117, 117, 121, UNK, 91
1002	};
1003
1004	CONST CHAR
1005	yl1fi[] = { /* Latin-1 to Finnish ISO 646 */
1006	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1007	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1008	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1009	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1010	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1011	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, UNK, 95,
1012	UNK, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1013	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
1014	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1015	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1016	32, 33, UNK, UNK, UNK, UNK, UNK, UNK, 34, 67, UNK, 34, UNK, 45, 82, UNK,
1017	UNK, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
1018	65, 65, 65, 65, 91, 93, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
1019	UNK, 78, 79, 79, 79, 79, 92, 120, 79, 85, 85, 85, 94, 89, UNK, 115,
1020	97, 97, 97, 97, 123, 125, 97, 99, 101, 96, 101, 101, 105, 105, 105, 105,
1021	UNK, 110, 111, 111, 111, 111, 124, 47, 111, 117, 117, 117, 126, 121, UNK, 121
1022	};
1023
1024	CONST CHAR
1025	yl1fr[] = { /* Latin-1 to French ISO 646 */
1026	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1027	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1028	32, 33, 34, UNK, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1029	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1030	UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1031	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, 94, 95,
1032	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1033	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
1034	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1035	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1036	32, 33, UNK, 35, UNK, UNK, UNK, 93, 34, 67, UNK, 34, UNK, 45, 82, UNK,
1037	91, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
1038	65, 65, 65, 65, 65, 65, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
1039	UNK, 78, 79, 79, 79, 79, 79, 120, 79, 85, 85, 85, 85, 89, UNK, 115,
1040	64, 97, 97, 97, 97, 97, 97, 92, 125, 123, 101, 101, 105, 105, 105, 105,
1041	UNK, 110, 111, 111, 111, 111, 111, 47, 111, 124, 117, 117, 117, 121, UNK, 121
1042	};
1043
1044	CONST CHAR
1045	yl1fc[] = { /* Latin-1 to French-Canadian ISO 646 */
1046	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1047	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1048	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1049	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1050	UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1051	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, UNK, 95,
1052	UNK, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1053	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
1054	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1055	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1056	32, 33, UNK, UNK, UNK, UNK, UNK, UNK, 34, 67, UNK, 34, UNK, 45, 82, UNK,
1057	UNK, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
1058	65, 65, 65, 65, 65, 65, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
1059	UNK, 78, 79, 79, 79, 79, 79, 120, 79, 85, 85, 85, 85, 89, UNK, 115,
1060	64, 97, 91, 97, 97, 97, 97, 92, 125, 123, 93, 101, 105, 105, 94, 105,
1061	UNK, 110, 111, 111, 96, 111, 111, 47, 111, 124, 117, 126, 117, 121, UNK, 121
1062	};
1063
1064	CONST CHAR
1065	yl1ge[] = { /* Latin-1 to German ISO 646 */
1066	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1067	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1068	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1069	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1070	UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1071	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, 94, 95,
1072	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1073	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
1074	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1075	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1076	32, 33, UNK, UNK, UNK, UNK, UNK, 64, 34, 67, UNK, 34, UNK, 45, 82, UNK,
1077	UNK, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
1078	65, 65, 65, 65, 91, 65, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
1079	UNK, 78, 79, 79, 79, 79, 92, 120, 79, 85, 85, 85, 93, 89, UNK, 126,
1080	97, 97, 97, 97, 123, 97, 97, 99, 101, 101, 101, 101, 105, 105, 105, 105,
1081	UNK, 110, 111, 111, 111, 111, 124, 47, 111, 117, 117, 117, 125, 121, UNK, 121
1082	};
1083
1084	CONST CHAR
1085	yl1hu[] = { /* Latin-1 to Hungarian ISO-646 */
1086	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1087	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1088	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1089	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1090	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1091	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1092	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1093	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1094	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1095	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1096	32, 33, UNK, UNK, 36, UNK, UNK, UNK, 34, 67, UNK, 34, UNK, 45, 82, UNK,
1097	UNK, 64, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
1098	65, 65, 65, 65, 65, 65, 65, 67, 69, 91, 69, 69, 73, 73, 73, 73,
1099	UNK, 78, 79, 79, 79, 79, 92, 120, 79, 85, 85, 85, 93, 89, UNK, 115,
1100	97, 96, 97, 97, 97, 97, 97, 99, 101, 123, 101, 101, 105, 105, 105, 105,
1101	UNK, 110, 111, 111, 111, 111, 124, 47, 111, 117, 117, 117, 125, 121, UNK, 121
1102	};
1103
1104	CONST CHAR
1105	yl1it[] = { /* Latin-1 to Italian ISO 646 */
1106	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1107	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1108	32, 33, 34, UNK, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1109	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1110	UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1111	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, 94, 95,
1112	UNK, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1113	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
1114	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1115	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1116	32, 33, UNK, 35, UNK, UNK, UNK, 64, 34, 67, UNK, 34, UNK, 45, 82, UNK,
1117	91, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
1118	65, 65, 65, 65, 65, 65, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
1119	UNK, 78, 79, 79, 79, 79, 79, 120, 79, 85, 85, 85, 85, 89, UNK, 115,
1120	123, 97, 97, 97, 97, 97, 97, 92, 125, 93, 101, 101, 126, 105, 105, 105,
1121	UNK, 110, 124, 111, 111, 111, 111, 47, 111, 96, 117, 117, 117, 121, UNK, 121
1122	};
1123
1124	CONST CHAR
1125	yl1ne[] = { /* Latin-1 to NeXT */
1126	/* NEED TO MAKE THIS ONE INVERTIBLE, LIKE CP850 */
1127	/*
1128	Which means finding all the graphic characters in the NeXT set that have
1129	no equivalent in Latin-1 and assigning them to the UNK positions (mostly
1130	Latin-1 C1 controls). Then make the ynel1[] table be the inverse of this
1131	one. But first we should try to get an official Latin-1/NeXT translation
1132	table from NeXT, Inc.
1133	*/
1134	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1135	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1136	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1137	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1138	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1139	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1140	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1141	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1142	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1143	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1144	32, 161, 162, 163, 168, 165, 181, 167, 200, 160, 227, 171, 190, UNK, 176, 197,
1145	202, 209, 201, 204, 194, 157, 182, 183, 203, 192, 235, 187, 210, 211, 212, 191,
1146	129, 130, 131, 132, 133, 134, 225, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1147	144, 145, 146, 147, 148, 149, 150, 158, 233, 151, 152, 153, 154, 155, 156, 251,
1148	213, 214, 215, 216, 217, 218, 241, 219, 220, 221, 222, 223, 224, 226, 228, 229,
1149	230, 231, 236, 237, 238, 239, 240, 159, 249, 242, 243, 244, 246, 247, 252, 253
1150	};
1151
1152	CONST CHAR
1153	yl1no[] = { /* Latin-1 to Norwegian/Danish ISO 646 */
1154	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1155	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1156	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1157	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1158	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1159	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, 94, 95,
1160	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1161	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, 126, 127,
1162	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1163	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1164	32, 33, UNK, UNK, UNK, UNK, UNK, UNK, 34, 67, UNK, 34, UNK, 45, 82, UNK,
1165	UNK, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
1166	65, 65, 65, 65, 65, 93, 91, 67, 69, 69, 69, 69, 73, 73, 73, 73,
1167	UNK, 78, 79, 79, 79, 79, 79, 120, 92, 85, 85, 85, 85, 89, UNK, 115,
1168	97, 97, 97, 97, 97, 125, 123, 99, 101, 101, 101, 101, 105, 105, 105, 105,
1169	UNK, 110, 111, 111, 111, 111, 111, 47, 124, 117, 117, 117, 117, 121, UNK, 121
1170	};
1171
1172	CONST CHAR
1173	yl1po[] = { /* Latin-1 to Portuguese ISO 646 */
1174	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1175	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1176	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1177	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1178	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1179	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, 94, 95,
1180	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1181	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, 126, 127,
1182	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1183	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1184	32, 33, UNK, UNK, UNK, UNK, UNK, UNK, 34, 67, UNK, 34, UNK, 45, 82, UNK,
1185	UNK, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
1186	65, 65, 65, 91, 65, 65, 65, 92, 69, 69, 69, 69, 73, 73, 73, 73,
1187	UNK, 78, 79, 79, 79, 93, 79, 120, 79, 85, 85, 85, 85, 89, UNK, 115,
1188	97, 97, 97, 123, 97, 97, 97, 124, 101, 101, 101, 101, 105, 105, 105, 105,
1189	UNK, 110, 111, 111, 111, 125, 111, 47, 111, 117, 117, 117, 117, 121, UNK, 121
1190	};
1191
1192	CONST CHAR
1193	yl1sp[] = { /* Latin-1 to Spanish ISO 646 */
1194	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1195	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1196	32, 33, 34, UNK, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1197	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1198	UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1199	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, 94, 95,
1200	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1201	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 96, UNK, UNK, 126, 127,
1202	126, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1203	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1204	32, 91, UNK, 35, UNK, UNK, UNK, 64, 34, 67, UNK, 34, UNK, 45, 82, UNK,
1205	123, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 93,
1206	65, 65, 65, 65, 65, 65, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
1207	UNK, 92, 79, 79, 79, 79, 79, 120, 79, 85, 85, 85, 85, 89, UNK, 115,
1208	124, 97, 97, 97, 97, 97, 97, 125, 101, 101, 101, 101, 105, 105, 105, 105,
1209	UNK, 124, 111, 111, 111, 111, 111, 47, 111, 117, 117, 117, 117, 121, UNK, 121
1210	};
1211
1212	CONST CHAR
1213	yl1sw[] = { /* Latin-1 to Swedish ISO 646 */
1214	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1215	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1216	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1217	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1218	UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1219	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, UNK, 95,
1220	UNK, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1221	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
1222	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1223	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1224	32, 33, UNK, UNK, UNK, UNK, UNK, UNK, 34, 67, UNK, 34, UNK, 45, 82, UNK,
1225	UNK, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
1226	65, 65, 65, 65, 91, 93, 65, 67, 69, 64, 69, 69, 73, 73, 73, 73,
1227	UNK, 78, 79, 79, 79, 79, 92, 120, 79, 85, 85, 85, 94, 89, UNK, 115,
1228	97, 97, 97, 97, 123, 125, 97, 99, 101, 96, 101, 101, 105, 105, 105, 105,
1229	UNK, 110, 111, 111, 111, 111, 124, 47, 111, 117, 117, 117, 126, 121, UNK, 121
1230	};
1231
1232	CONST CHAR
1233	yl1ch[] = { /* Latin-1 to Swiss ISO 646 */
1234	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1235	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1236	32, 33, 34, UNK, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1237	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1238	UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1239	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, UNK, UNK, UNK, UNK, UNK,
1240	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1241	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, 127,
1242	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1243	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1244	32, 33, UNK, UNK, UNK, UNK, UNK, UNK, 34, 67, UNK, 34, UNK, 45, 82, UNK,
1245	UNK, UNK, UNK, UNK, 39, 117, UNK, UNK, 44, UNK, UNK, 34, UNK, UNK, UNK, 63,
1246	65, 65, 65, 65, 65, 65, 65, 67, 69, 69, 69, 69, 73, 73, 73, 73,
1247	UNK, 78, 79, 79, 79, 79, 79, 120, 79, 85, 85, 85, 85, 89, UNK, 115,
1248	64, 97, 97, 97, 123, 97, 97, 92, 95, 91, 93, 101, 105, 105, 94, 105,
1249	UNK, 110, 111, 111, 96, 111, 124, 47, 111, 35, 117, 126, 125, 121, UNK, 121
1250	};
1251
1252	CONST CHAR
1253	yl1dm[] = { /* Latin-1 to DEC Multinational Character Set */
1254	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1255	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1256	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1257	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1258	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1259	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1260	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1261	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1262	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1263	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1264	32, 161, 162, 163, 168, 165, 124, 167, 34, 169, 170, 171, 126, UNK, 82, UNK,
1265	176, 177, 178, 179, 39, 181, 182, 183, 44, 185, 186, 187, 188, 189, UNK, 191,
1266	192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
1267	UNK, 209, 210, 211, 212, 213, 214, 120, 216, 217, 218, 219, 220, 221, UNK, 223,
1268	224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
1269	UNK, 241, 242, 243, 244, 245, 246, 47, 248, 249, 250, 251, 252, UNK, UNK, 253
1270	};
1271
1272	CONST CHAR
1273	yl1dg[] = { /* Latin-1 to Data General International Character Set */
1274	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1275	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1276	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1277	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1278	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1279	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1280	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1281	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1282	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1283	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1284	160, 171, 167, 168, 166, 181, 191, 187, 189, 173, 169, 177, 161, 255, 174, 175,
1285	188, 182, 164, 165, 190, 163, 178, 185, 186, 179, 170, 176, 223, 162, 220, 172,
1286	193, 192, 194, 196, 195, 197, 198, 199, 201, 200, 202, 203, 205, 204, 206, 207,
1287	184, 208, 210, 209, 211, 213, 212, 215, 214, 217, 216, 218, 219, 221, 222, 252,
1288	225, 224, 226, 228, 227, 229, 230, 231, 233, 232, 234, 235, 237, 236, 238, 239,
1289	183, 240, 242, 241, 243, 245, 244, 247, 246, 249, 248, 250, 251, 180, 254, 253
1290	};
1291
1292
1293	/* Local file character sets to ISO Latin Alphabet 1 */
1294
1295	#ifdef NOTUSED
1296	CONST CHAR
1297	yasl1[] = { /* ASCII to Latin-1 */
1298	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1299	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1300	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1301	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1302	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1303	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1304	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1305	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127
1306	};
1307	#endif /* NOTUSED */
1308
1309	CONST CHAR
1310	yaql1[] = { /* Extended Mac Latin (based on Apple Quickdraw) to Latin-1 */
1311	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1312	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1313	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1314	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1315	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1316	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1317	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1318	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1319	196, 197, 199, 201, 209, 214, 220, 225, 224, 226, 228, 227, 229, 231, 233, 232,
1320	234, 235, 237, 236, 238, 239, 241, 243, 242, 244, 246, 245, 250, 249, 251, 252,
1321	221, 176, 162, 163, 167, 215, 182, 223, 174, 169, 178, 180, 168, 179, 198, 216,
1322	185, 177, 188, 189, 165, 181, 128, 129, 130, 131, 190, 170, 186, 132, 230, 248,
1323	191, 161, 172, 142, 133, 134, 135, 171, 187, 166, 160, 192, 195, 213, 136, 137,
1324	173, 144, 138, 139, 143, 146, 247, 145, 255, 140, 141, 164, 208, 240, 222, 254,
1325	253, 183, 147, 148, 149, 194, 202, 193, 203, 200, 205, 206, 207, 204, 211, 212,
1326	150, 210, 218, 219, 217, 151, 152, 153, 175, 154, 155, 156, 184, 157, 158, 159
1327	};
1328
1329	CONST CHAR
1330	ydul1[] = { /* Dutch ISO 646 to Latin-1 */
1331	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1332	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1333	32, 33, 34, 163, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1334	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1335	190, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1336	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 255, 189, 124, 94, 95,
1337	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1338	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 168, 164, 188, 39, 127
1339	};
1340
1341	CONST CHAR
1342	yfil1[] = { /* Finnish ISO 646 to Latin-1 */
1343	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1344	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1345	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1346	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1347	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1348	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 196, 214, 197, 220, 95,
1349	233, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1350	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 228, 246, 229, 252, 127
1351	};
1352
1353	CONST CHAR
1354	yfrl1[] = { /* French ISO 646 to Latin-1 */
1355	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1356	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1357	32, 33, 34, 163, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1358	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1359	224, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1360	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 176, 231, 167, 94, 95,
1361	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1362	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 233, 249, 232, 168, 127
1363	};
1364
1365	CONST CHAR
1366	yfcl1[] = { /* French-Canadian ISO 646 to Latin-1 */
1367	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1368	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1369	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1370	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1371	224, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1372	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 226, 231, 234, 238, 95,
1373	244, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1374	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 233, 249, 232, 251, 127
1375	};
1376
1377	CONST CHAR
1378	ygel1[] = { /* German ISO 646 to Latin-1 */
1379	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1380	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1381	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1382	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1383	167, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1384	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 196, 214, 220, 94, 95,
1385	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1386	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 228, 246, 252, 223, 127
1387	};
1388
1389	CONST CHAR
1390	yitl1[] = { /* Italian ISO 646 to Latin-1 */
1391	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1392	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1393	32, 33, 34, 163, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1394	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1395	167, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1396	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 176, 231, 233, 94, 95,
1397	249, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1398	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 224, 242, 232, 236, 127
1399	};
1400
1401	CONST CHAR
1402	ynel1[] = { /* NeXT to Latin-1 */
1403	/* NEED TO MAKE THIS ONE INVERTIBLE */
1404	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1405	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1406	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1407	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1408	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1409	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1410	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1411	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1412	160, 192, 193, 194, 195, 196, 197, 199, 200, 201, 202, 203, 204, 205, 206, 207,
1413	208, 209, 210, 211, 212, 213, 214, 217, 218, 219, 220, 221, 222, 181, 215, 247,
1414	169, 161, 162, 163, UNK, 165, UNK, 167, 164, UNK, UNK, 171, UNK, UNK, UNK, UNK,
1415	174, UNK, UNK, UNK, 183, 166, 182, UNK, UNK, UNK, UNK, 187, UNK, UNK, 172, 191,
1416	185, 96, 180, 94, 126, 175, UNK, UNK, 168, 178, 176, 184, 179, UNK, UNK, UNK,
1417	UNK, 177, 188, 189, 190, 224, 225, 226, 227, 228, 229, 231, 232, 233, 234, 235,
1418	236, 198, 237, 170, 238, 239, 240, 241, UNK, 216, UNK, 186, 242, 243, 244, 245,
1419	246, 230, 249, 250, 251, UNK, 252, 253, UNK, 248, UNK, 223, 254, 255, UNK, UNK
1420	};
1421
1422	CONST CHAR
1423	ynol1[] = { /* Norwegian/Danish ISO 646 to Latin-1 */
1424	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1425	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1426	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1427	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1428	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1429	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 198, 216, 197, 94, 95,
1430	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1431	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 230, 248, 229, 126, 127
1432	};
1433
1434	CONST CHAR
1435	ypol1[] = { /* Portuguese ISO 646 to Latin-1 */
1436	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1437	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1438	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1439	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1440	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1441	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 195, 199, 213, 94, 95,
1442	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1443	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 227, 231, 245, 126, 127
1444	};
1445
1446	CONST CHAR
1447	yspl1[] = { /* Spanish ISO 646 to Latin-1 */
1448	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1449	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1450	32, 33, 34, 163, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1451	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1452	167, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1453	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 161, 209, 191, 94, 95,
1454	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1455	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 176, 241, 231, 126, 127
1456	};
1457
1458	CONST CHAR
1459	yswl1[] = { /* Swedish ISO 646 to Latin-1 */
1460	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1461	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1462	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1463	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1464	201, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1465	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 196, 214, 197, 220, 95,
1466	233, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1467	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 228, 246, 229, 252, 127
1468	};
1469
1470	CONST CHAR
1471	ychl1[] = { /* Swiss ISO 646 to Latin-1 */
1472	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1473	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1474	32, 33, 34, 249, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1475	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1476	224, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1477	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 233, 231, 234, 238, 232,
1478	244, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1479	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 228, 246, 252, 251, 127
1480	};
1481
1482	CONST CHAR
1483	yhul1[] = { /* Hungarian ISO 646 to Latin-1 */
1484	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1485	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1486	32, 33, 34, 35, 164, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1487	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1488	193, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1489	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 201, 214, 220, 94, 95,
1490	225, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1491	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 233, 246, 252, 34, 127
1492	};
1493
1494	CONST CHAR
1495	ydml1[] = { /* DEC Multinational Character Set to Latin-1 */
1496	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1497	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1498	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1499	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1500	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1501	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1502	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1503	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1504	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1505	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1506	160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175,
1507	176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191,
1508	192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
1509	208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
1510	224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
1511	240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255
1512	};
1513
1514	CONST CHAR
1515	ydgl1[] = { /* Data General International to Latin-1 */
1516	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1517	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1518	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1519	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1520	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1521	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1522	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1523	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1524	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1525	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1526	160, 172, 189, 181, 178, 179, 164, 162, 163, 170, 186, 161, 191, 169, 174, 175,
1527	187, 171, 182, 185, 253, 165, 177, 240, 208, 183, 184, 167, 176, 168, 180, 166,
1528	193, 192, 194, 196, 195, 197, 198, 199, 201, 200, 202, 203, 205, 204, 206, 207,
1529	209, 211, 210, 212, 214, 213, 216, 215, 218, 217, 219, 220, 190, 221, 222, 188,
1530	225, 224, 226, 228, 227, 229, 230, 231, 233, 232, 234, 235, 237, 236, 238, 239,
1531	241, 243, 242, 244, 246, 245, 248, 247, 250, 249, 251, 252, 223, 255, 254, 173
1532	};
1533
1534
1535	/* Translation tables for Cyrillic character sets */
1536
1537	#ifdef CYRILLIC
1538	CONST CHAR
1539	ylcac[] = { /* Latin/Cyrillic to CP866 */
1540	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1541	16, 17, 18, 19, 208, 209, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1542	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1543	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1544	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1545	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1546	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1547	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1548	196, 179, 192, 217, 191, 218, 195, 193, 180, 194, 197, 176, 177, 178, 211, 216,
1549	205, 186, 200, 188, 187, 201, 204, 202, 185, 203, 206, 223, 220, 219, 254, UNK,
1550	255, 240, 132, 131, 242, 83, 73, 244, 74, 139, 141, 151, 138, 45, 246, 135,
1551	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1552	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1553	160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175,
1554	224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
1555	252, 241, 164, 163, 243, 115, 105, 245, 106, 171, 173, 231, 170, 21, 247, 167
1556	};
1557
1558	CONST CHAR
1559	ylck8[] = { /* Latin/Cyrillic to Old KOI-8 Cyrillic */
1560	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1561	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1562	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1563	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1564	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1565	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1566	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1567	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1568	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1569	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1570	UNK, 229, UNK, UNK, UNK, 83, 73, 73, 74, UNK, UNK, UNK, 235, UNK, 245, UNK,
1571	225, 226, 247, 231, 228, 229, 246, 250, 233, 234, 235, 236, 237, 238, 239, 240,
1572	242, 243, 244, 245, 230, 232, 227, 254, 251, 253, 255, 249, 248, 252, 224, 241,
1573	193, 194, 215, 199, 196, 197, 214, 218, 201, 202, 203, 204, 205, 206, 207, 208,
1574	210, 211, 212, 213, 198, 200, 195, 222, 219, 221, 223, 217, 216, 220, 192, 209,
1575	UNK, 197, UNK, UNK, UNK, 115, 105, 105, 106, UNK, UNK, UNK, 203, UNK, 213, UNK
1576	};
1577
1578	CONST CHAR
1579	yaclc[] = { /* CP866 to Latin/Cyrillic */
1580	/* NEED TO MAKE THIS ONE INVERTIBLE */
1581	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1582	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1583	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1584	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1585	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1586	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1587	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1588	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1589	176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191,
1590	192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
1591	208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
1592	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1593	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1594	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1595	224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
1596	161, 241, 164, 244, 167, 247, 174, 254, UNK, UNK, UNK, UNK, 240, UNK, UNK, UNK
1597	};
1598
1599	CONST CHAR
1600	yk8lc[] = { /* Old KOI-8 Cyrillic to Latin/Cyrillic */
1601	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1602	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1603	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1604	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1605	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1606	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1607	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1608	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1609	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1610	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1611	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1612	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1613	238, 208, 209, 230, 212, 213, 228, 211, 229, 216, 217, 218, 219, 220, 221, 222,
1614	223, 239, 224, 225, 226, 227, 214, 210, 236, 235, 215, 232, 237, 233, 231, 234,
1615	206, 176, 177, 198, 180, 181, 196, 179, 197, 184, 185, 186, 187, 188, 189, 190,
1616	191, 207, 192, 193, 194, 195, 182, 178, 204, 203, 183, 200, 205, 201, 199, 127
1617	};
1618
1619	CONST CHAR
1620	ylcsk[] = { /* Latin/Cyrillic to Short KOI */
1621	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1622	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1623	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1624	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1625	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1626	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1627	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1628	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 127,
1629	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1630	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1631	32, 101, UNK, UNK, UNK, 83, 73, 73, 74, UNK, UNK, UNK, 107, 45, 117, UNK,
1632	97, 98, 119, 103, 100, 101, 118, 122, 105, 106, 107, 108, 109, 110, 111, 112,
1633	114, 115, 116, 117, 102, 104, 99, 126, 123, 125, 39, 121, 120, 124, 96, 113,
1634	97, 98, 119, 103, 100, 101, 118, 122, 105, 106, 107, 108, 109, 110, 111, 112,
1635	114, 115, 116, 117, 102, 104, 99, 126, 123, 125, 39, 121, 120, 124, 96, 113,
1636	UNK, 101, UNK, UNK, UNK, 83, 73, 73, 74, UNK, UNK, UNK, 107, UNK, 117, UNK
1637	};
1638
1639	CONST CHAR yskcy[] = { /* Short KOI to Latin/Cyrillic */
1640	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1641	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1642	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1643	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1644	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1645	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1646	206, 176, 177, 198, 180, 181, 196, 179, 197, 184, 185, 186, 187, 188, 189, 190,
1647	191, 207, 192, 193, 194, 195, 182, 178, 204, 203, 183, 200, 205, 201, 199, 127
1648	};
1649	#endif /* CYRILLIC */
1650
1651	#ifdef LATIN2
1652
1653	/* Latin-2 tables */
1654
1655	CONST CHAR
1656	yl252[] = { /* Latin-2 to Code Page 852 */
1657	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1658	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1659	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1660	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1661	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1662	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1663	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1664	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1665	174, 175, 176, 177, 178, 179, 180, 185, 186, 187, 188, 191, 192, 193, 194, 195,
1666	196, 197, 200, 201, 202, 203, 204, 205, 206, 217, 218, 219, 220, 223, 240, 254,
1667	255, 164, 244, 157, 207, 149, 151, 245, 249, 230, 184, 155, 141, 170, 166, 189,
1668	248, 165, 242, 136, 239, 150, 152, 243, 247, 231, 173, 156, 171, 241, 167, 190,
1669	232, 181, 182, 198, 142, 145, 143, 128, 172, 144, 168, 211, 183, 214, 215, 210,
1670	209, 227, 213, 224, 226, 138, 153, 158, 252, 222, 233, 235, 154, 237, 221, 225,
1671	234, 160, 131, 199, 132, 146, 134, 135, 159, 130, 169, 137, 216, 161, 140, 212,
1672	208, 228, 229, 162, 147, 139, 148, 246, 253, 133, 163, 251, 129, 236, 238, 250
1673	};
1674
1675	CONST CHAR
1676	y52l2[] = { /* Code Page 852 to Latin-2 */
1677	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1678	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1679	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1680	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1681	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1682	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1683	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1684	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1685	199, 252, 233, 226, 228, 249, 230, 231, 179, 235, 213, 245, 238, 172, 196, 198,
1686	201, 197, 229, 244, 246, 165, 181, 166, 182, 214, 220, 171, 187, 163, 215, 232,
1687	225, 237, 243, 250, 161, 177, 174, 190, 202, 234, 173, 188, 200, 186, 128, 129,
1688	130, 131, 132, 133, 134, 193, 194, 204, 170, 135, 136, 137, 138, 175, 191, 139,
1689	140, 141, 142, 143, 144, 145, 195, 227, 146, 147, 148, 149, 150, 151, 152, 164,
1690	240, 208, 207, 203, 239, 210, 205, 206, 236, 153, 154, 155, 156, 222, 217, 157,
1691	211, 223, 212, 209, 241, 242, 169, 185, 192, 218, 224, 219, 253, 221, 254, 180,
1692	158, 189, 178, 183, 162, 167, 247, 184, 176, 168, 255, 251, 216, 248, 159, 160
1693	};
1694
1695	CONST CHAR
1696	yl2l1[] = { /* Latin-2 to Latin-1 */
1697	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1698	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1699	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1700	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1701	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1702	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1703	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1704	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1705	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1706	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1707	160, 'A', UNK, 'L', 164, 'L', 'S', 167, 168, 'S', 'S', 'T', 'Z', 173, 'Z', 'Z',
1708	176, 'a', UNK, 'l', 180, 'l', 's', UNK, 184, 's', 's', 't', 'z', UNK, 'z', 'z',
1709	'R', 193, 194, 'A', 196, 'L', 'C', 199, 'C', 201, 'E', 203, 'E', 205, 'I', 'D',
1710	208, 'N', 'N', 211, 212, 'O', 214, 215, 'R', 'U', 218, 'U', 220, 221, 'T', 's',
1711	'r', 225, 226, 'a', 228, 'l', 'c', 231, 'c', 233, 'e', 235, 'e', 237, 'i', 'd',
1712	240, 'n', 'n', 243, 244, 'o', 246, 247, 'r', 'u', 250, 'u', 252, 253, 't', '.'
1713	};
1714
1715	CONST CHAR
1716	yl1l2[] = { /* Latin-1 to Latin-2 */
1717	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1718	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1719	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1720	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1721	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1722	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1723	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1724	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1725	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1726	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
1727	160, 'A', UNK, 'L', 164, UNK, UNK, 167, 168, 'C', 'a', '<', '>', 173, 'R', UNK,
1728	176, UNK, UNK, UNK, 180, UNK, UNK, UNK, 184, UNK, 'o', '>', UNK, UNK, UNK, UNK,
1729	'A', 193, 194, 'A', 196, 'A', 'A', 199, 'E', 201, 'E', 203, 'I', 205, 'I', 'I',
1730	208, 'N', 'O', 211, 212, 'O', 214, 215, 'O', 'U', 218, 'U', 220, 221, UNK, 223,
1731	'a', 225, 226, 'a', 228, 'a', 'a', 231, 'e', 233, 'e', 235, 'i', 237, 'i', 'i',
1732	240, 'n', 'o', 243, 244, 'o', 246, 247, 'o', 'u', 250, 'u', 252, 253, UNK, 'y'
1733	};
1734
1735	CONST CHAR
1736	yl2as[] = { /* Latin-2 to ASCII */
1737	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1738	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1739	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1740	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1741	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1742	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1743	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1744	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1745	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1746	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1747	32, 'A', UNK, 'L', UNK, 'L', 'S', UNK, 34, 'S', 'S', 'T', 'Z', '-', 'Z', 'Z',
1748	UNK, 'a', UNK, 'l', 39, 'l', 's', UNK, 44, 's', 's', 't', 'z', UNK, 'z', 'z',
1749	'R', 'A', 'A', 'A', 'A', 'L', 'C', 'C', 'C', 'E', 'E', 'E', 'E', 'I', 'I', 'D',
1750	'D', 'N', 'N', 'O', 'O', 'O', 'O', 'x', 'R', 'U', 'U', 'U', 'U', 'Y', 'T', 's',
1751	'r', 'a', 'a', 'a', 'a', 'l', 'c', 'c', 'c', 'e', 'e', 'e', 'e', 'i', 'i', 'd',
1752	'd', 'n', 'n', 'o', 'o', 'o', 'o', '/', 'r', 'u', 'u', 'u', 'u', 'y', 't', '.'
1753	};
1754	#endif /* LATIN2 */
1755
1756	#ifdef HEBREW
1757	/*
1758	8-bit Tables providing invertible translation between Latin/Hebrew and CP862.
1759	*/
1760	CONST CHAR
1761	y62lh[] = { /* PC Code Page 862 to ISO 8859-8 Latin/Hebrew */
1762	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1763	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1764	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1765	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1766	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1767	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1768	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1769	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1770	224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
1771	240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 162, 163, 165, 128, 129,
1772	130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 172, 189, 188, 140, 171, 187,
1773	141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156,
1774	157, 158, 159, 161, 164, 166, 167, 168, 169, 170, 173, 174, 175, 223, 179, 180,
1775	182, 184, 185, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202,
1776	203, 204, 205, 206, 207, 208, 181, 209, 210, 211, 212, 213, 214, 215, 216, 217,
1777	218, 177, 219, 220, 221, 222, 186, 251, 176, 183, 252, 253, 254, 178, 255, 160
1778	};
1779
1780	CONST CHAR
1781	ylh62[] = { /* ISO 8859-8 Latin/Hebrew to PC Code Page 862 */
1782	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1783	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1784	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1785	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1786	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1787	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1788	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1789	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
1790	158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 173, 176, 177, 178,
1791	179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194,
1792	255, 195, 155, 156, 196, 157, 197, 198, 199, 200, 201, 174, 170, 202, 203, 204,
1793	248, 241, 253, 206, 207, 230, 208, 249, 209, 210, 246, 175, 172, 171, 211, 212,
1794	213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228,
1795	229, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 242, 243, 244, 245, 205,
1796	128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
1797	144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 247, 250, 251, 252, 254
1798	};
1799	/*
1800	7-bit table providing readable translation from DEC Hebrew-7 to CP862.
1801	*/
1802	CONST CHAR
1803	yh762[] = {
1804	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1805	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1806	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1807	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1808	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1809	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1810	UNK, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1811	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 123, 124, 125, 126, 127
1812	};
1813	/*
1814	8-bit table providing readable translation from CP862 to Hebrew-7.
1815	*/
1816	CONST CHAR
1817	y62h7[] = { /* PC Code Page 862 to Hebrew-7 */
1818	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1819	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1820	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1821	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1822	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1823	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1824	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1825	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 123, 124, 125, 126, 127,
1826	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1827	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, UNK,
1828	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1829	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1830	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1831	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1832	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1833	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK
1834	};
1835	/*
1836	7-bit table providing readable translation from Hebrew-7 to ISO Latin/Hebrew.
1837	*/
1838	CONST CHAR
1839	yh7lh[] = {
1840	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1841	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1842	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1843	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1844	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1845	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1846	208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
1847	224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 123, 124, 125, 126, 127
1848	};
1849	/*
1850	8-bit table providing readable translation from ISO Latin/Hebrew to Hebrew-7.
1851	*/
1852	CONST CHAR
1853	ylhh7[] = { /* Latin/Hebrew to Hebrew-7 */
1854	0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
1855	16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
1856	32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
1857	48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
1858	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1859	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
1860	64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
1861	80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 123, 124, 125, 126, 127,
1862	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1863	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1864	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1865	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1866	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1867	UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
1868	96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
1869	112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, UNK, UNK, UNK, UNK, UNK
1870	};
1871	#endif /* HEBREW */
1872
1873	/* Translation functions ... */
1874
1875	CONST CHAR /* The identity translation function. */
1876	#ifdef CK_ANSIC
1877	ident(CHAR c) /* (no longer used) */
1878	#else
1879	ident(c) CHAR c;
1880	#endif /* CK_ANSIC */
1881	{ /* ident */
1882	return(c); /* Instead, enter NULL in the */
1883	} /* table of functions to avoid */
1884	/* needless function calls. */
1885	CHAR
1886	#ifdef CK_ANSIC
1887	xl1as(CHAR c)
1888	#else
1889	xl1as(c) CHAR c;
1890	#endif /* CK_ANSIC */
1891	{ /* xl1as / / Latin-1 to US ASCII... */
1892	switch(langs[language].id) {
1893
1894	case L_DUTCH:
1895	if (c == 255) { /* Dutch umlaut-y */
1896	zmstuff('j'); /* becomes ij */
1897	return('i');
1898	} else return(yl1as[c]); /* all others by the book */
1899
1900	case L_GERMAN:
1901	switch (c) { /* German, special rules. */
1902	case 196: /* umlaut-A -> Ae */
1903	zmstuff('e');
1904	return('A');
1905	case 214: /* umlaut-O -> Oe */
1906	zmstuff('e');
1907	return('O');
1908	case 220: /* umlaut-U -> Ue */
1909	zmstuff('e');
1910	return('U');
1911	case 228: /* umlaut-a -> ae */
1912	zmstuff('e');
1913	return('a');
1914	case 246: /* umlaut-o -> oe */
1915	zmstuff('e');
1916	return('o');
1917	case 252: /* umlaut-u -> ue */
1918	zmstuff('e');
1919	return('u');
1920	case 223: /* ess-zet -> ss */
1921	zmstuff('s');
1922	return('s');
1923	default: return(yl1as[c]); /* all others by the book */
1924	}
1925	case L_DANISH:
1926	case L_FINNISH:
1927	case L_NORWEGIAN:
1928	case L_SWEDISH:
1929	switch (c) { /* Scandanavian languages. */
1930	case 196: /* umlaut-A -> Ae */
1931	case 198: /* AE ligature also -> Ae */
1932	zmstuff('e');
1933	return('A');
1934	case 214: /* umlaut-O -> Oe */
1935	case 216: /* O-slash -> Oe */
1936	zmstuff('e');
1937	return('O');
1938	case 220: /* umlaut-U -> Ue */
1939	/* return('Y'); replaced by "Ue" by popular demand. */
1940	/* Y for Umlaut-U is only used in German names. */
1941	zmstuff('e');
1942	return('U');
1943	case 228: /* umlaut-a -> ae */
1944	case 230: /* ditto for ae ligature */
1945	zmstuff('e');
1946	return('a');
1947	case 246: /* umlaut-o -> oe */
1948	case 248: /* o-slash -> oe */
1949	zmstuff('e');
1950	return('o');
1951	case 252: /* umlaut-u -> ue */
1952	/* return('y'); replaced by "ue" by popular demand. */
1953	zmstuff('e');
1954	return('u');
1955	case 197: /* A-ring -> Aa */
1956	zmstuff('a');
1957	return('A');
1958	case 229: /* a-ring -> aa */
1959	zmstuff('a');
1960	return('a');
1961	default: return(yl1as[c]); /* All others by the book */
1962	}
1963	case L_ICELANDIC: /* Icelandic. */
1964	switch (c) {
1965	case 198: /* uppercase AE -> AE */
1966	zmstuff('e');
1967	return('A');
1968	case 208: /* uppercase Eth -> D */
1969	return('D');
1970	case 214: /* uppercase O-diaeresis -> Oe */
1971	zmstuff('e');
1972	return('O');
1973	case 222: /* uppercase Thorn -> Th */
1974	zmstuff('h');
1975	return('T');
1976	case 230: /* lowercase ae -> ae */
1977	zmstuff('e');
1978	return('a');
1979	case 240: /* lowercase Eth -> d */
1980	return('d');
1981	case 246: /* lowercase O-diaeresis -> oe */
1982	zmstuff('e');
1983	return('o');
1984	case 254: /* lowercase Thorn -> th */
1985	zmstuff('h');
1986	return('t');
1987	default: return(yl1as[c]); /* All others by the book */
1988	}
1989	default:
1990	return(yl1as[c]); /* None of the above, by the table. */
1991	}
1992	}
1993
1994	CHAR /* Latin-1 to German */
1995	#ifdef CK_ANSIC
1996	xl1ge(CHAR c)
1997	#else
1998	xl1ge(c) CHAR c;
1999	#endif /* CK_ANSIC */
2000	{ /* xl1ge */
2001	return(yl1ge[c]);
2002	}
2003
2004	CHAR /* German to Latin-1 */
2005	#ifdef CK_ANSIC
2006	xgel1(CHAR c)
2007	#else
2008	xgel1(c) CHAR c;
2009	#endif /* CK_ANSIC */
2010	{ /* xgel1 */
2011	return(ygel1[c]);
2012	}
2013
2014	CHAR
2015	#ifdef CK_ANSIC
2016	xgeas(CHAR c)
2017	#else
2018	xgeas(c) CHAR c;
2019	#endif /* CK_ANSIC */
2020	{ /* xgeas / / German ISO 646 to ASCII */
2021	switch (c) {
2022	case 91: /* umlaut-A -> Ae */
2023	zmstuff('e');
2024	return('A');
2025	case 92: /* umlaut-O -> Oe */
2026	zmstuff('e');
2027	return('O');
2028	case 93: /* umlaut-U -> Ue */
2029	zmstuff('e');
2030	return('U');
2031	case 123: /* umlaut-a -> ae */
2032	zmstuff('e');
2033	return('a');
2034	case 124: /* umlaut-o -> oe */
2035	zmstuff('e');
2036	return('o');
2037	case 125: /* umlaut-u -> ue */
2038	zmstuff('e');
2039	return('u');
2040	case 126: /* ess-zet -> ss */
2041	zmstuff('s');
2042	return('s');
2043	default: return(c); /* all others stay the same */
2044	}
2045	}
2046
2047	CHAR
2048	#ifdef CK_ANSIC
2049	xduas(CHAR c)
2050	#else
2051	xduas(c) CHAR c;
2052	#endif /* CK_ANSIC */
2053	{ /* xduas / / Dutch ISO 646 to US ASCII */
2054	switch (c) {
2055	case 64: return(UNK); /* 3/4 */
2056	case 91: /* y-diaeresis */
2057	zmstuff('j');
2058	return('i');
2059	case 92: return(UNK); /* 1/2 */
2060	case 93: return(124); /* vertical bar */
2061	case 123: return(34); /* diaeresis */
2062	case 124: return(UNK); /* Florin */
2063	case 125: return(UNK); /* 1/4 */
2064	case 126: return(39); /* Apostrophe */
2065	default: return(c);
2066	}
2067	}
2068
2069	CHAR
2070	#ifdef CK_ANSIC
2071	xfias(CHAR c)
2072	#else
2073	xfias(c) CHAR c;
2074	#endif /* CK_ANSIC */
2075	{ /* xfias / / Finnish ISO 646 to US ASCII */
2076	switch (c) {
2077	case 91: /* A-diaeresis */
2078	zmstuff('e');
2079	return('A');
2080	case 92: /* O-diaeresis */
2081	zmstuff('e');
2082	return('O');
2083	case 93: /* A-ring */
2084	zmstuff('a');
2085	return('A');
2086	case 94: /* U-diaeresis */
2087	/* return('Y'); */
2088	zmstuff('e');
2089	return('U');
2090	case 96: /* e-acute */
2091	return('e');
2092	case 123: /* a-diaeresis */
2093	zmstuff('e');
2094	return('a');
2095	case 124: /* o-diaeresis */
2096	zmstuff('e');
2097	return('o');
2098	case 125: /* a-ring */
2099	zmstuff('a');
2100	return('a');
2101	case 126: /* u-diaeresis */
2102	/* return('y'); */
2103	zmstuff('e');
2104	return('U');
2105	default:
2106	return(c);
2107	}
2108	}
2109
2110	CHAR
2111	#ifdef CK_ANSIC
2112	xfras(CHAR c)
2113	#else
2114	xfras(c) CHAR c;
2115	#endif /* CK_ANSIC */
2116	{ /* xfras / / French ISO 646 to US ASCII */
2117	switch (c) {
2118	case 64: return(97); /* a grave */
2119	case 91: return(UNK); /* degree sign */
2120	case 92: return(99); /* c cedilla */
2121	case 93: return(UNK); /* paragraph sign */
2122	case 123: return(101); /* e acute */
2123	case 124: return(117); /* u grave */
2124	case 125: return(101); /* e grave */
2125	case 126: return(34); /* diaeresis */
2126	default: return(c);
2127	}
2128	}
2129
2130	CHAR
2131	#ifdef CK_ANSIC
2132	xfcas(CHAR c)
2133	#else
2134	xfcas(c) CHAR c;
2135	#endif /* CK_ANSIC */
2136	{ /* xfcas / / French Canadian ISO 646 to ASCII */
2137	switch (c) {
2138	case 64: return('a'); /* a grave */
2139	case 91: return('a'); /* a circumflex */
2140	case 92: return('c'); /* c cedilla */
2141	case 93: return('e'); /* e circumflex */
2142	case 94: return('i'); /* i circumflex */
2143	case 96: return('o'); /* o circumflex */
2144	case 123: return('e'); /* e acute */
2145	case 124: return('u'); /* u grave */
2146	case 125: return('e'); /* e grave */
2147	case 126: return('u'); /* u circumflex */
2148	default: return(c);
2149	}
2150	}
2151
2152	CHAR
2153	#ifdef CK_ANSIC
2154	xitas(CHAR c)
2155	#else
2156	xitas(c) CHAR c;
2157	#endif /* CK_ANSIC */
2158	{ /* xitas / / Italian ISO 646 to ASCII */
2159	switch (c) {
2160	case 91: return(UNK); /* degree */
2161	case 92: return('c'); /* c cedilla */
2162	case 93: return('e'); /* e acute */
2163	case 96: return('u'); /* u grave */
2164	case 123: return('a'); /* a grave */
2165	case 124: return('o'); /* o grave */
2166	case 125: return('e'); /* e grave */
2167	case 126: return('i'); /* i grave */
2168	default: return(c);
2169	}
2170	}
2171
2172	CHAR
2173	#ifdef CK_ANSIC
2174	xneas(CHAR c)
2175	#else
2176	xneas(c) CHAR c;
2177	#endif /* CK_ANSIC */
2178	{ /* xneas / / NeXT to ASCII */
2179	if (langs[language].id == L_FRENCH) { /* If SET LANGUAGE FRENCH */
2180	if (c == 234) { /* handle OE digraph. */
2181	zmstuff('E');
2182	return('O');
2183	} else if (c == 250) { /* Also lowercase oe. */
2184	zmstuff('e');
2185	return('o');
2186	}
2187	}
2188	c = xnel1(c); /* Convert to Latin-1 */
2189	return(yl1as[c]); /* Convert Latin-1 to ASCII */
2190	}
2191
2192	CHAR
2193	#ifdef CK_ANSIC
2194	xnoas(CHAR c)
2195	#else
2196	xnoas(c) CHAR c;
2197	#endif /* CK_ANSIC */
2198	{ /* xnoas / / Norge/Danish ISO 646 to ASCII */
2199	switch (c) {
2200	case 91:
2201	zmstuff('E'); /* AE digraph */
2202	return('A');
2203	case 92: return('O'); /* O slash */
2204	case 93: /* A ring */
2205	zmstuff('a');
2206	return('A');
2207	case 123: /* ae digraph */
2208	zmstuff('e');
2209	return('a');
2210	case 124: return('o'); /* o slash */
2211	case 125: /* a ring */
2212	zmstuff('a');
2213	return('a');
2214	default: return(c);
2215	}
2216	}
2217
2218	CHAR
2219	#ifdef CK_ANSIC
2220	xpoas(CHAR c)
2221	#else
2222	xpoas(c) CHAR c;
2223	#endif /* CK_ANSIC */
2224	{ /* xpoas / / Portuguese ISO 646 to ASCII */
2225	switch (c) {
2226	case 91: return('A'); /* A tilde */
2227	case 92: return('C'); /* C cedilla */
2228	case 93: return('O'); /* O tilde */
2229	case 123: return('a'); /* a tilde */
2230	case 124: return('c'); /* c cedilla */
2231	case 125: return('o'); /* o tilde */
2232	default: return(c);
2233	}
2234	}
2235
2236	CHAR
2237	#ifdef CK_ANSIC
2238	xspas(CHAR c)
2239	#else
2240	xspas(c) CHAR c;
2241	#endif /* CK_ANSIC */
2242	{ /* xspas / / Spanish ISO 646 to ASCII */
2243	switch (c) {
2244	case 91: return(33); /* Inverted exclamation */
2245	case 92: return('N'); /* N tilde */
2246	case 93: return(63); /* Inverted question mark */
2247	case 123: return(UNK); /* degree */
2248	case 124: return('n'); /* n tilde */
2249	case 125: return('c'); /* c cedilla */
2250	default: return(c);
2251	}
2252	}
2253
2254	CHAR
2255	#ifdef CK_ANSIC
2256	xswas(CHAR c)
2257	#else
2258	xswas(c) CHAR c;
2259	#endif /* CK_ANSIC */
2260	{ /* xswas / / Swedish ISO 646 to ASCII */
2261	switch (c) {
2262	case 64: return('E'); /* E acute */
2263	case 91: /* A diaeresis */
2264	zmstuff('e');
2265	return('A');
2266	case 92: /* O diaeresis */
2267	zmstuff('e');
2268	return('O');
2269	case 93: /* A ring */
2270	zmstuff('a');
2271	return('A');
2272	case 94: /* U diaeresis */
2273	/* return('Y'); */
2274	zmstuff('e');
2275	return('U');
2276	case 96: return('e'); /* e acute */
2277	case 123: /* a diaeresis */
2278	zmstuff('e');
2279	return('a');
2280	case 124: /* o diaeresis */
2281	zmstuff('e');
2282	return('o');
2283	case 125: /* a ring */
2284	zmstuff('a');
2285	return('a');
2286	case 126: /* u diaeresis */
2287	/* return('y'); */
2288	zmstuff('e');
2289	return('u');
2290	default: return(c);
2291	}
2292	}
2293
2294	CHAR
2295	#ifdef CK_ANSIC
2296	xchas(CHAR c)
2297	#else
2298	xchas(c) CHAR c;
2299	#endif /* CK_ANSIC */
2300	{ /* xchas / / Swiss ISO 646 to ASCII */
2301	switch (c) {
2302	case 35: return('u'); /* u grave */
2303	case 64: return('a'); /* a grave */
2304	case 91: return('e'); /* e acute */
2305	case 92: return('c'); /* c cedilla */
2306	case 93: return('e'); /* e circumflex */
2307	case 94: return('i'); /* i circumflex */
2308	case 95: return('e'); /* e grave */
2309	case 96: return('o'); /* o circumflex */
2310	case 123: /* a diaeresis */
2311	zmstuff('e');
2312	return('a');
2313	case 124: /* o diaeresis */
2314	zmstuff('e');
2315	return('o');
2316	case 125: /* u diaeresis */
2317	zmstuff('e');
2318	return('u');
2319	case 126: return('u'); /* u circumflex */
2320	default: return(c);
2321	}
2322	}
2323
2324	CHAR
2325	#ifdef CK_ANSIC
2326	xhuas(CHAR c)
2327	#else
2328	xhuas(c) CHAR c;
2329	#endif /* CK_ANSIC */
2330	{ /* xhuas / / Hungarian ISO 646 to ASCII */
2331	switch (c) {
2332	case 64: return('A'); /* A acute */
2333	case 91: return('E'); /* E acute */
2334	case 92: return('O'); /* O diaeresis */
2335	case 93: return('U'); /* U diaeresis */
2336	case 96: return('a'); /* a acute */
2337	case 123: return('e'); /* e acute */
2338	case 124: return('o'); /* o acute */
2339	case 125: return('u'); /* u acute */
2340	case 126: return(34); /* double acute accent */
2341	default: return(c);
2342	}
2343	}
2344
2345	CHAR
2346	#ifdef CK_ANSIC
2347	xdmas(CHAR c)
2348	#else
2349	xdmas(c) CHAR c;
2350	#endif /* CK_ANSIC */
2351	{ /* xdmas / / DEC MCS to ASCII */
2352	if (langs[language].id == L_FRENCH) { /* If SET LANGUAGE FRENCH */
2353	if (c == 215) { /* handle OE digraph. */
2354	zmstuff('E');
2355	return('O');
2356	} else if (c == 247) { /* Also lowercase oe. */
2357	zmstuff('e');
2358	return('o');
2359	}
2360	}
2361	return(yl1as[c]); /* Otherwise treat like Latin-1 */
2362	}
2363
2364	CHAR
2365	#ifdef CK_ANSIC
2366	xdgas(CHAR c)
2367	#else
2368	xdgas(c) CHAR c;
2369	#endif /* CK_ANSIC */
2370	{ /* xdgas / / Data General to ASCII */
2371	switch(c) {
2372	case 180: return('f'); /* Florin */
2373	case 183: return('<'); /* Less-equal */
2374	case 184: return('>'); /* Greater-equal */
2375	case 186: return(96); /* Grave accent */
2376	case 191: return('^'); /* Uparrow */
2377	case 215:
2378	if (langs[language].id == L_FRENCH) { /* OE digraph */
2379	zmstuff('E');
2380	return('O');
2381	} else return('O');
2382	case 247:
2383	if (langs[language].id == L_FRENCH) { /* oe digraph */
2384	zmstuff('e');
2385	return('o');
2386	} else return('o');
2387	case 175: case 179: case 220: case 222:
2388	case 223: case 254: case 255:
2389	return(UNK);
2390	default: /* The rest, convert to Latin-1 */
2391	return(yl1as[ydgl1[c]]); /* and from there to ASCII */
2392	}
2393	}
2394
2395	CHAR
2396	#ifdef CK_ANSIC
2397	xr8as(CHAR c)
2398	#else
2399	xr8as(c) CHAR c;
2400	#endif /* CK_ANSIC */
2401	{ /* xr8as / / Hewlett Packard Roman8 to ASCII */
2402	switch(c) {
2403	case 175: return('L'); /* Lira */
2404	case 190: return('f'); /* Florin */
2405	case 235: return('S'); /* S caron */
2406	case 236: return('s'); /* s caron */
2407	case 246: return('-'); /* Horizontal bar */
2408	case 252: return(''); / Solid box */
2409	default: /* The rest, convert to Latin-1 */
2410	return(yl1as[yr8l1[c]]); /* and from there to ASCII */
2411	}
2412	}
2413
2414	CHAR
2415	#ifdef CK_ANSIC
2416	xukl1(CHAR c)
2417	#else
2418	xukl1(c) CHAR c;
2419	#endif /* CK_ANSIC */
2420	{ /* xukl1 / / UK ASCII to Latin-1 */
2421	if (c == 35)
2422	return(163);
2423	else return(c);
2424	}
2425
2426	CHAR
2427	#ifdef CK_ANSIC
2428	xl1uk(CHAR c)
2429	#else
2430	xl1uk(c) CHAR c;
2431	#endif /* CK_ANSIC */
2432	{ /* xl1uk / / Latin-1 to UK ASCII */
2433	if (c == 163)
2434	return(35);
2435	else return(yl1as[c]);
2436	}
2437
2438	CHAR /* Latin-1 to French ISO 646 */
2439	#ifdef CK_ANSIC
2440	xl1fr(CHAR c)
2441	#else
2442	xl1fr(c) CHAR c;
2443	#endif /* CK_ANSIC */
2444	{ /* xl1fr */
2445	return(yl1fr[c]);
2446	}
2447
2448
2449	CHAR /* French ASCII to Latin-1 */
2450	#ifdef CK_ANSIC
2451	xfrl1(CHAR c)
2452	#else
2453	xfrl1(c) CHAR c;
2454	#endif /* CK_ANSIC */
2455	{ /* xfrl1 */
2456	return(yfrl1[c]);
2457	}
2458
2459	CHAR /* Latin-1 to Dutch ASCII */
2460	#ifdef CK_ANSIC
2461	xl1du(CHAR c)
2462	#else
2463	xl1du(c) CHAR c;
2464	#endif /* CK_ANSIC */
2465	{ /* xl1du */
2466	return(yl1du[c]);
2467	}
2468
2469	CHAR
2470	#ifdef CK_ANSIC
2471	xdul1(CHAR c)
2472	#else
2473	xdul1(c) CHAR c;
2474	#endif /* CK_ANSIC */
2475	{ /* xdul1 / / Dutch ISO 646 to Latin-1 */
2476	return(ydul1[c]);
2477	}
2478
2479	CHAR
2480	#ifdef CK_ANSIC
2481	xfil1(CHAR c)
2482	#else
2483	xfil1(c) CHAR c;
2484	#endif /* CK_ANSIC */
2485	{ /* xfil1 / / Finnish ISO 646 to Latin-1 */
2486	return(yfil1[c]);
2487	}
2488
2489	CHAR
2490	#ifdef CK_ANSIC
2491	xl1fi(CHAR c)
2492	#else
2493	xl1fi(c) CHAR c;
2494	#endif /* CK_ANSIC */
2495	{ /* xl1fi / / Latin-1 to Finnish ISO 646 */
2496	return(yl1fi[c]);
2497	}
2498
2499	CHAR
2500	#ifdef CK_ANSIC
2501	xfcl1(CHAR c)
2502	#else
2503	xfcl1(c) CHAR c;
2504	#endif /* CK_ANSIC */
2505	{ /* xfcl1 / / French Canadian ISO646 to Latin-1 */
2506	return(yfcl1[c]);
2507	}
2508
2509	CHAR
2510	#ifdef CK_ANSIC
2511	xl1fc(CHAR c)
2512	#else
2513	xl1fc(c) CHAR c;
2514	#endif /* CK_ANSIC */
2515	{ /* xl1fc / / Latin-1 to French Canadian ISO646 */
2516	return(yl1fc[c]);
2517	}
2518
2519	CHAR
2520	#ifdef CK_ANSIC
2521	xitl1(CHAR c)
2522	#else
2523	xitl1(c) CHAR c;
2524	#endif /* CK_ANSIC */
2525	{ /* xitl1 / / Italian ISO 646 to Latin-1 */
2526	return(yitl1[c]);
2527	}
2528
2529	CHAR
2530	#ifdef CK_ANSIC
2531	xl1it(CHAR c)
2532	#else
2533	xl1it(c) CHAR c;
2534	#endif /* CK_ANSIC */
2535	{ /* xl1it / / Latin-1 to Italian ISO 646 */
2536	return(yl1it[c]);
2537	}
2538
2539	CHAR
2540	#ifdef CK_ANSIC
2541	xnel1(CHAR c)
2542	#else
2543	xnel1(c) CHAR c;
2544	#endif /* CK_ANSIC */
2545	{ /* xnel1 / / NeXT to Latin-1 */
2546	if (langs[language].id == L_FRENCH) { /* If SET LANGUAGE FRENCH */
2547	if (c == 234) { /* handle OE digraph. */
2548	zmstuff('E');
2549	return('O');
2550	} else if (c == 250) { /* Also lowercase oe. */
2551	zmstuff('e');
2552	return('o');
2553	}
2554	}
2555	return(ynel1[c]);
2556	}
2557
2558	CHAR
2559	#ifdef CK_ANSIC
2560	xl1ne(CHAR c)
2561	#else
2562	xl1ne(c) CHAR c;
2563	#endif /* CK_ANSIC */
2564	{ /* xl1ne / / Latin-1 to NeXT */
2565	return(yl1ne[c]);
2566	}
2567
2568	CHAR
2569	#ifdef CK_ANSIC
2570	xnol1(CHAR c)
2571	#else
2572	xnol1(c) CHAR c;
2573	#endif /* CK_ANSIC */
2574	{ /* xnol1 / / Norwegian and Danish ISO 646 to Latin-1 */
2575	return(ynol1[c]);
2576	}
2577
2578	CHAR
2579	#ifdef CK_ANSIC
2580	xl1no(CHAR c)
2581	#else
2582	xl1no(c) CHAR c;
2583	#endif /* CK_ANSIC */
2584	{ /* xl1no / / Latin-1 to Norwegian and Danish ISO 646 */
2585	return(yl1no[c]);
2586	}
2587
2588	CHAR
2589	#ifdef CK_ANSIC
2590	xpol1(CHAR c)
2591	#else
2592	xpol1(c) CHAR c;
2593	#endif /* CK_ANSIC */
2594	{ /* xpol1 / / Portuguese ISO 646 to Latin-1 */
2595	return(ypol1[c]);
2596	}
2597
2598	CHAR
2599	#ifdef CK_ANSIC
2600	xl1po(CHAR c)
2601	#else
2602	xl1po(c) CHAR c;
2603	#endif /* CK_ANSIC */
2604	{ /* xl1po / / Latin-1 to Portuguese ISO 646 */
2605	return(yl1po[c]);
2606	}
2607
2608	CHAR
2609	#ifdef CK_ANSIC
2610	xspl1(CHAR c)
2611	#else
2612	xspl1(c) CHAR c;
2613	#endif /* CK_ANSIC */
2614	{ /* xspl1 / / Spanish ISO 646 to Latin-1 */
2615	return(yspl1[c]);
2616	}
2617
2618	CHAR
2619	#ifdef CK_ANSIC
2620	xl1sp(CHAR c)
2621	#else
2622	xl1sp(c) CHAR c;
2623	#endif /* CK_ANSIC */
2624	{ /* xl1sp / / Latin-1 to Spanish ISO 646 */
2625	return(yl1sp[c]);
2626	}
2627
2628	CHAR
2629	#ifdef CK_ANSIC
2630	xswl1(CHAR c)
2631	#else
2632	xswl1(c) CHAR c;
2633	#endif /* CK_ANSIC */
2634	{ /* xswl1 / / Swedish ISO 646 to Latin-1 */
2635	return(yswl1[c]);
2636	}
2637
2638	CHAR
2639	#ifdef CK_ANSIC
2640	xl1sw(CHAR c)
2641	#else
2642	xl1sw(c) CHAR c;
2643	#endif /* CK_ANSIC */
2644	{ /* xl1sw / / Latin-1 to Swedish ISO 646 */
2645	return(yl1sw[c]);
2646	}
2647
2648	CHAR
2649	#ifdef CK_ANSIC
2650	xchl1(CHAR c)
2651	#else
2652	xchl1(c) CHAR c;
2653	#endif /* CK_ANSIC */
2654	{ /* xchl1 / / Swiss ISO 646 to Latin-1 */
2655	return(ychl1[c]);
2656	}
2657
2658	CHAR
2659	#ifdef CK_ANSIC
2660	xl1ch(CHAR c)
2661	#else
2662	xl1ch(c) CHAR c;
2663	#endif /* CK_ANSIC */
2664	{ /* xl1ch / / Latin-1 to Swiss ISO 646 */
2665	return(yl1ch[c]);
2666	}
2667
2668	CHAR
2669	#ifdef CK_ANSIC
2670	xhul1(CHAR c)
2671	#else
2672	xhul1(c) CHAR c;
2673	#endif /* CK_ANSIC */
2674	{ /* xhul1 / / Hungarian ISO 646 to Latin-1 */
2675	return(yhul1[c]);
2676	}
2677
2678	CHAR
2679	#ifdef CK_ANSIC
2680	xl1hu(CHAR c)
2681	#else
2682	xl1hu(c) CHAR c;
2683	#endif /* CK_ANSIC */
2684	{ /* xl1hu / / Latin-1 to Hungarian ISO 646 */
2685	return(yl1hu[c]);
2686	}
2687
2688	CHAR
2689	#ifdef CK_ANSIC
2690	xl1dm(CHAR c)
2691	#else
2692	xl1dm(c) CHAR c;
2693	#endif /* CK_ANSIC */
2694	{ /* xl1dm / / Latin-1 to DEC Multinational Character Set (MCS) */
2695	return(yl1dm[c]);
2696	}
2697
2698	CHAR
2699	#ifdef CK_ANSIC
2700	xl1dg(CHAR c)
2701	#else
2702	xl1dg(c) CHAR c;
2703	#endif /* CK_ANSIC */
2704	{ /* xl1dg / / Latin-1 to DG International Character Set (MCS) */
2705	return(yl1dg[c]);
2706	}
2707
2708	CHAR
2709	#ifdef CK_ANSIC
2710	xdml1(CHAR c)
2711	#else
2712	xdml1(c) CHAR c;
2713	#endif /* CK_ANSIC */
2714	{ /* xdml1 / / DEC Multinational Character Set (MCS) to Latin-1 */
2715	if (langs[language].id == L_FRENCH) { /* If SET LANGUAGE FRENCH */
2716	if (c == 215) { /* handle OE digraph. */
2717	zmstuff('E');
2718	return('O');
2719	} else if (c == 247) { /* Also lowercase oe. */
2720	zmstuff('e');
2721	return('o');
2722	}
2723	}
2724	return(ydml1[c]);
2725	}
2726
2727	CHAR
2728	#ifdef CK_ANSIC
2729	xdgl1(CHAR c)
2730	#else
2731	xdgl1(c) CHAR c;
2732	#endif /* CK_ANSIC */
2733	{ /* xdgl1 / / DG International Character Set (MCS) to Latin-1 */
2734	if (langs[language].id == L_FRENCH) { /* If SET LANGUAGE FRENCH */
2735	if (c == 215) { /* handle OE digraph. */
2736	zmstuff('E');
2737	return('O');
2738	} else if (c == 247) { /* Also lowercase oe. */
2739	zmstuff('e');
2740	return('o');
2741	}
2742	}
2743	return(ydgl1[c]);
2744	}
2745
2746	CHAR
2747	#ifdef CK_ANSIC
2748	xr8l1(CHAR c)
2749	#else
2750	xr8l1(c) CHAR c;
2751	#endif /* CK_ANSIC */
2752	{ /* xr8l1 / / Hewlett Packard Roman8 to Latin-1 */
2753	return(yr8l1[c]);
2754	}
2755
2756	CHAR
2757	#ifdef CK_ANSIC
2758	xl1r8(CHAR c)
2759	#else
2760	xl1r8(c) CHAR c;
2761	#endif /* CK_ANSIC */
2762	{ /* xl1r8 / / Latin-1 to Hewlett Packard Roman8 Character Set */
2763	return(yl1r8[c]);
2764	}
2765
2766
2767	/* Translation functions for receiving files and translating them into ASCII */
2768
2769	CHAR
2770	#ifdef CK_ANSIC
2771	zl1as(CHAR c)
2772	#else
2773	zl1as(c) CHAR c;
2774	#endif /* CK_ANSIC */
2775	{ /* zl1as */
2776	switch(langs[language].id) {
2777
2778	case L_DUTCH:
2779	if (c == 255) { /* Dutch umlaut-y */
2780	zdstuff('j'); /* becomes ij */
2781	return('i');
2782	} else return(yl1as[c]); /* all others by the book */
2783
2784	case L_GERMAN:
2785	switch (c) { /* German, special rules. */
2786	case 196: /* umlaut-A -> Ae */
2787	zdstuff('e');
2788	return('A');
2789	case 214: /* umlaut-O -> Oe */
2790	zdstuff('e');
2791	return('O');
2792	case 220: /* umlaut-U -> Ue */
2793	zdstuff('e');
2794	return('U');
2795	case 228: /* umlaut-a -> ae */
2796	zdstuff('e');
2797	return('a');
2798	case 246: /* umlaut-o -> oe */
2799	zdstuff('e');
2800	return('o');
2801	case 252: /* umlaut-u -> ue */
2802	zdstuff('e');
2803	return('u');
2804	case 223: /* ess-zet -> ss */
2805	zdstuff('s');
2806	return('s');
2807	default: return(yl1as[c]); /* all others by the book */
2808	}
2809	case L_DANISH:
2810	case L_FINNISH:
2811	case L_NORWEGIAN:
2812	case L_SWEDISH:
2813	switch (c) { /* Scandanavian languages. */
2814	case 196: /* umlaut-A -> Ae */
2815	zdstuff('e');
2816	return('A');
2817	case 214: /* umlaut-O -> Oe */
2818	case 216: /* O-slash -> Oe */
2819	zdstuff('e');
2820	return('O');
2821	case 220: /* umlaut-U -> Y */
2822	/* return('Y'); */
2823	zdstuff('e');
2824	return('U');
2825	case 228: /* umlaut-a -> ae */
2826	zdstuff('e');
2827	return('a');
2828	case 246: /* umlaut-o -> oe */
2829	case 248: /* o-slash -> oe */
2830	zdstuff('e');
2831	return('o');
2832	case 252: /* umlaut-u -> y */
2833	/* return('y'); */
2834	zdstuff('e');
2835	return('u');
2836	case 197: /* A-ring -> Aa */
2837	zdstuff('a');
2838	return('A');
2839	case 229: /* a-ring -> aa */
2840	zdstuff('a');
2841	return('a');
2842	default: return(yl1as[c]); /* All others by the book */
2843	}
2844	default:
2845	return(yl1as[c]); /* Not German, by the table. */
2846	}
2847	}
2848
2849	CHAR /* IBM CP437 to Latin-1 */
2850	#ifdef CK_ANSIC
2851	x43l1(CHAR c)
2852	#else
2853	x43l1(c) CHAR c;
2854	#endif /* CK_ANSIC */
2855	{ /* x43l1 */
2856	return(y43l1[c]);
2857	}
2858
2859	CHAR /* IBM CP850 to Latin-1 */
2860	#ifdef CK_ANSIC
2861	x85l1(CHAR c)
2862	#else
2863	x85l1(c) CHAR c;
2864	#endif /* CK_ANSIC */
2865	{ /* x85l1 */
2866	return(y85l1[c]);
2867	}
2868
2869	CHAR /* Latin-1 to IBM CP437 */
2870	#ifdef CK_ANSIC
2871	xl143(CHAR c)
2872	#else
2873	xl143(c) CHAR c;
2874	#endif /* CK_ANSIC */
2875	{ /* xl143 */
2876	return(yl143[c]);
2877	}
2878
2879	CHAR /* Latin-1 to CP850 */
2880	#ifdef CK_ANSIC
2881	xl185(CHAR c)
2882	#else
2883	xl185(c) CHAR c;
2884	#endif /* CK_ANSIC */
2885	{ /* xl185 */
2886	return(yl185[c]);
2887	}
2888
2889	CHAR
2890	#ifdef CK_ANSIC
2891	x43as(CHAR c)
2892	#else
2893	x43as(c) CHAR c;
2894	#endif /* CK_ANSIC */
2895	{ /* x43as / / CP437 to ASCII */
2896	c = y43l1[c]; /* Translate to Latin-1 */
2897	return(xl143(c)); /* and from Latin-1 to ASCII. */
2898	}
2899
2900	CHAR
2901	#ifdef CK_ANSIC
2902	x85as(CHAR c)
2903	#else
2904	x85as(c) CHAR c;
2905	#endif /* CK_ANSIC */
2906	{ /* x85as / / CP850 to ASCII */
2907	c = y85l1[c]; /* Translate to Latin-1 */
2908	return(xl1as(c)); /* and from Latin-1 to ASCII. */
2909	}
2910
2911	CHAR /* Macintosh Latin to Latin-1 */
2912	#ifdef CK_ANSIC
2913	xaql1(CHAR c)
2914	#else
2915	xaql1(c) CHAR c;
2916	#endif /* CK_ANSIC */
2917	{ /* xaql1 */
2918	if (langs[language].id == L_FRENCH) { /* If SET LANGUAGE FRENCH */
2919	if (c == 206) { /* handle OE digraph. */
2920	zmstuff('E');
2921	return('O');
2922	} else if (c == 207) { /* Also lowercase oe. */
2923	zmstuff('e');
2924	return('o');
2925	}
2926	}
2927	return(yaql1[c]);
2928	}
2929
2930	CHAR /* Macintosh Latin to ASCII */
2931	#ifdef CK_ANSIC
2932	xaqas(CHAR c)
2933	#else
2934	xaqas(c) CHAR c;
2935	#endif /* CK_ANSIC */
2936	{ /* xaqas */
2937	if (langs[language].id == L_FRENCH) { /* If SET LANGUAGE FRENCH */
2938	if (c == 206) { /* handle OE digraph. */
2939	zmstuff('E');
2940	return('O');
2941	} else if (c == 207) { /* Also lowercase oe. */
2942	zmstuff('e');
2943	return('o');
2944	}
2945	}
2946	c = yaql1[c]; /* Translate to Latin-1 */
2947	return(xl1as(c)); /* then to ASCII. */
2948	}
2949
2950	CHAR /* Latin-1 to Macintosh Latin */
2951	#ifdef CK_ANSIC
2952	xl1aq(CHAR c)
2953	#else
2954	xl1aq(c) CHAR c;
2955	#endif /* CK_ANSIC */
2956	{ /* xl1aq */
2957	return(yl1aq[c]);
2958	}
2959
2960	#ifdef LATIN2
2961
2962	/* Translation functions for Latin Alphabet 2 */
2963
2964	CHAR /* Latin-2 to Latin-1 */
2965	#ifdef CK_ANSIC
2966	xl2l1(CHAR c)
2967	#else
2968	xl2l1(c) CHAR c;
2969	#endif /* CK_ANSIC */
2970	{ /* xll2l1 */
2971	return(yl2l1[c]);
2972	}
2973
2974	CHAR /* Latin-1 to Latin-2 */
2975	#ifdef CK_ANSIC
2976	xl1l2(CHAR c)
2977	#else
2978	xl1l2(c) CHAR c;
2979	#endif /* CK_ANSIC */
2980	{ /* xll1l2 */
2981	return(yl1l2[c]);
2982	}
2983
2984	CHAR /* Latin-2 to ASCII */
2985	#ifdef CK_ANSIC
2986	xl2as(CHAR c)
2987	#else
2988	xl2as(c) CHAR c;
2989	#endif /* CK_ANSIC */
2990	{ /* xll2as */
2991	return(yl2as[c]);
2992	}
2993
2994	CHAR /* Latin-2 to CP852 */
2995	#ifdef CK_ANSIC
2996	xl252(CHAR c)
2997	#else
2998	xl252(c) CHAR c;
2999	#endif /* CK_ANSIC */
3000	{ /* xll252 */
3001	return(yl252[c]);
3002	}
3003
3004	CHAR /* CP852 to Latin-2 */
3005	#ifdef CK_ANSIC
3006	x52l2(CHAR c)
3007	#else
3008	x52l2(c) CHAR c;
3009	#endif /* CK_ANSIC */
3010	{ /* x52l2 */
3011	return(y52l2[c]);
3012	}
3013
3014	CHAR /* CP852 to ASCII */
3015	#ifdef CK_ANSIC
3016	x52as(CHAR c)
3017	#else
3018	x52as(c) CHAR c;
3019	#endif /* CK_ANSIC */
3020	{ /* xl52as */
3021	return(yl2as[y52l2[c]]); /* CP852 -> Latin-2 -> ASCII */
3022	}
3023
3024	CHAR /* CP852 to Latin-1 */
3025	#ifdef CK_ANSIC
3026	x52l1(CHAR c)
3027	#else
3028	x52l1(c) CHAR c;
3029	#endif /* CK_ANSIC */
3030	{ /* xl52l1 */
3031	return(yl2l1[y52l2[c]]); /* CP852 -> Latin-2 -> Latin-1 */
3032	}
3033
3034	CHAR /* Latin-1 to CP852 */
3035	#ifdef CK_ANSIC
3036	xl152(CHAR c)
3037	#else
3038	xl152(c) CHAR c;
3039	#endif /* CK_ANSIC */
3040	{ /* xll152 */
3041	return(yl252[yl1l2[c]]); /* Latin-1 -> Latin-2 -> CP852 */
3042	}
3043
3044	CHAR /* Latin-2 to NeXT */
3045	#ifdef CK_ANSIC
3046	xl2ne(CHAR c)
3047	#else
3048	xl2ne(c) CHAR c;
3049	#endif /* CK_ANSIC */
3050	{ /* xll2ne */
3051	switch(c) {
3052	case 162: return(198); /* Breve */
3053	case 163: return(232); /* L with stroke */
3054	case 178: return(206); /* Ogonek */
3055	case 179: return(248); /* l with stroke */
3056	case 183: return(207); /* Caron */
3057	case 189: return(205); /* Double acute */
3058	case 208: return(144); /* D stroke = Eth */
3059	case 240: return(230); /* d stroke = eth */
3060	case 255: return(199); /* Dot above */
3061	default: return(yl1ne[yl2l1[c]]);
3062	}
3063	}
3064
3065	CHAR /* Latin-2 to CP437 */
3066	#ifdef CK_ANSIC
3067	xl243(CHAR c)
3068	#else
3069	xl243(c) CHAR c;
3070	#endif /* CK_ANSIC */
3071	{ /* xll243 */
3072	return(yl1l2[y43l1[c]]);
3073	}
3074
3075	CHAR /* Latin-2 to CP850 */
3076	#ifdef CK_ANSIC
3077	xl285(CHAR c)
3078	#else
3079	xl285(c) CHAR c;
3080	#endif /* CK_ANSIC */
3081	{ /* xll285 */
3082	return(yl1l2[y85l1[c]]);
3083	}
3084
3085	CHAR /* Latin-2 to Apple */
3086	#ifdef CK_ANSIC
3087	xl2aq(CHAR c)
3088	#else
3089	xl2aq(c) CHAR c;
3090	#endif /* CK_ANSIC */
3091	{ /* xl2aq */
3092	return(yl1aq[yl2l1[c]]); /* Could do more... */
3093	}
3094
3095	CHAR /* Latin-2 to DGI */
3096	#ifdef CK_ANSIC
3097	xl2dg(CHAR c)
3098	#else
3099	xl2dg(c) CHAR c;
3100	#endif /* CK_ANSIC */
3101	{ /* xll2dg */
3102	return(ydgl1[yl1l2[c]]);
3103	}
3104
3105	CHAR /* Latin-2 to Short KOI */
3106	#ifdef CK_ANSIC
3107	xl2sk(CHAR c)
3108	#else
3109	xl2sk(c) CHAR c;
3110	#endif /* CK_ANSIC */
3111	{ /* xll2sk */
3112	return(islower(c) ? toupper(c) : c);
3113	}
3114
3115	CHAR /* NeXT to Latin-2 */
3116	#ifdef CK_ANSIC
3117	xnel2(CHAR c)
3118	#else
3119	xnel2(c) CHAR c;
3120	#endif /* CK_ANSIC */
3121	{ /* xnel2 */
3122	switch (c) {
3123	case 144: return(208); /* D stroke = Eth */
3124	case 198: return(162); /* Breve */
3125	case 199: return(255); /* Dot above */
3126	case 205: return(189); /* Double acute */
3127	case 206: return(178); /* Ogonek */
3128	case 207: return(183); /* Caron */
3129	case 230: return(240); /* d stroke = eth */
3130	case 232: return(163); /* L with stroke */
3131	case 248: return(179); /* l with stroke */
3132	default: return(yl1l2[ynel1[c]]); /* Others, go thru Latin-1 */
3133	}
3134	}
3135
3136	CHAR /* CP437 to Latin-2 */
3137	#ifdef CK_ANSIC
3138	x43l2(CHAR c)
3139	#else
3140	x43l2(c) CHAR c;
3141	#endif /* CK_ANSIC */
3142	{ /* xl43l2 */
3143	return(yl1l2[y43l1[c]]);
3144	}
3145
3146	CHAR /* CP850 to Latin-2 */
3147	#ifdef CK_ANSIC
3148	x85l2(CHAR c)
3149	#else
3150	x85l2(c) CHAR c;
3151	#endif /* CK_ANSIC */
3152	{ /* xl85l2 */
3153	return(yl1l2[y85l1[c]]);
3154	}
3155
3156	CHAR /* Apple to Latin-2 */
3157	#ifdef CK_ANSIC
3158	xaql2(CHAR c)
3159	#else
3160	xaql2(c) CHAR c;
3161	#endif /* CK_ANSIC */
3162	{ /* xlaql2 */
3163	switch (c) {
3164	case 249: return(162); /* Breve accent */
3165	case 250: return(255); /* Dot accent */
3166	case 253: return(189); /* Double acute */
3167	default: return(yl1l2[yaql1[c]]);
3168	}
3169	}
3170
3171	CHAR /* DGI to Latin-2 */
3172	#ifdef CK_ANSIC
3173	xdgl2(CHAR c)
3174	#else
3175	xdgl2(c) CHAR c;
3176	#endif /* CK_ANSIC */
3177	{ /* xldgl2 */
3178	return(yl1l2[ydgl1[c]]); /* (for now) */
3179	}
3180
3181	CHAR /* Short KOI to Latin-2 */
3182	#ifdef CK_ANSIC
3183	xskl2(CHAR c)
3184	#else
3185	xskl2(c) CHAR c;
3186	#endif /* CK_ANSIC */
3187	{ /* xlskl2 */
3188	return(islower(c) ? toupper(c) : c);
3189	}
3190
3191	CHAR /* Latin-2 to German */
3192	#ifdef CK_ANSIC
3193	xl2ge(CHAR c)
3194	#else
3195	xl2ge(c) CHAR c;
3196	#endif /* CK_ANSIC */
3197	{ /* xll2ge */
3198	switch(c) {
3199	case 167: return(64); /* Paragraph sign */
3200	case 196: return(91); /* A-diaeresis */
3201	case 214: return(92); /* O-diaeresis */
3202	case 220: return(93); /* U-diaeresis */
3203	case 223: return(126); /* double-s */
3204	case 228: return(123); /* a-diaeresis */
3205	case 246: return(124); /* o-diaeresis */
3206	case 252: return(125); /* u-diaeresis */
3207	default: return(yl2as[c]); /* Others */
3208	}
3209	}
3210
3211	CHAR /* German to Latin-2 */
3212	#ifdef CK_ANSIC
3213	xgel2(CHAR c)
3214	#else
3215	xgel2(c) CHAR c;
3216	#endif /* CK_ANSIC */
3217	{ /* xlgel2 */
3218	switch(c) {
3219	case 64: return(167); /* Paragraph sign */
3220	case 91: return(196); /* A-diaeresis */
3221	case 92: return(214); /* O-diaeresis */
3222	case 93: return(220); /* U-diaeresis */
3223	case 123: return(228); /* a-diaeresis */
3224	case 126: return(223); /* double-s */
3225	case 124: return(246); /* o-diaeresis */
3226	case 125: return(252); /* u-diaeresis */
3227	default: return(c); /* Others */
3228	}
3229	}
3230
3231	CHAR /* Latin-2 to Hungarian */
3232	#ifdef CK_ANSIC
3233	xl2hu(CHAR c)
3234	#else
3235	xl2hu(c) CHAR c;
3236	#endif /* CK_ANSIC */
3237	{ /* xll2hu */
3238	switch(c) {
3239	case 164: return(36); /* Currency symbol */
3240	case 189: return(126); /* Double acute accent */
3241	case 193: return(64); /* A-acute */
3242	case 201: return(91); /* E-acute */
3243	case 214: return(92); /* O-diaeresis */
3244	case 220: return(93); /* U-diaeresis */
3245	case 225: return(96); /* a-acute */
3246	case 233: return(123); /* e-acute */
3247	case 246: return(124); /* o-diaeresis */
3248	case 252: return(125); /* u-diaeresis */
3249	default: return(yl2as[c]); /* Others */
3250	}
3251	}
3252
3253	CHAR /* Hungarian to Latin-2 */
3254	#ifdef CK_ANSIC
3255	xhul2(CHAR c)
3256	#else
3257	xhul2(c) CHAR c;
3258	#endif /* CK_ANSIC */
3259	{ /* xlhul2 */
3260	switch(c) {
3261	case 36: return(164); /* Currency symbol */
3262	case 64: return(193); /* A-acute */
3263	case 91: return(201); /* E-acute */
3264	case 92: return(214); /* O-diaeresis */
3265	case 93: return(220); /* U-diaeresis */
3266	case 96: return(225); /* a-acute */
3267	case 123: return(233); /* e-acute */
3268	case 124: return(246); /* o-diaeresis */
3269	case 125: return(252); /* u-diaeresis */
3270	case 126: return(189); /* Double acute accent */
3271	default: return(c); /* Others */
3272	}
3273	}
3274
3275	CHAR
3276	#ifdef CK_ANSIC
3277	xr8l2(CHAR c)
3278	#else
3279	xr8l2(c) CHAR c;
3280	#endif /* CK_ANSIC */
3281	{ /* xr8l2 / / Hewlett Packard Roman8 to Latin-2 */
3282	switch (c) {
3283	case 235: return(169); /* S caron */
3284	case 236: return(185); /* s caron */
3285	default: return(yl1l2[yr8l1[c]]);
3286	}
3287	}
3288
3289	CHAR
3290	#ifdef CK_ANSIC
3291	xl2r8(CHAR c)
3292	#else
3293	xl2r8(c) CHAR c;
3294	#endif /* CK_ANSIC */
3295	{ /* xl2r8 / / Latin-2 to Hewlett Packard Roman8 Character Set */
3296	switch (c) {
3297	case 169: return(235); /* S caron */
3298	case 185: return(236); /* s caron */
3299	default: return(yr8l1[yl1l2[c]]);
3300	}
3301	}
3302
3303	#else /* NOLATIN2 */
3304
3305	#define xl2l1 NULL
3306	#define xl1l2 NULL
3307	#define xl2as NULL
3308	#define xl252 NULL
3309	#define x52l2 NULL
3310	#define x52as NULL
3311	#define x52l1 NULL
3312	#define xl152 NULL
3313	#define xl2ne NULL
3314	#define xl243 NULL
3315	#define xl285 NULL
3316	#define xl2aq NULL
3317	#define xl2dg NULL
3318	#define xl2sk NULL
3319	#define xnel2 NULL
3320	#define x43l2 NULL
3321	#define x85l2 NULL
3322	#define xaql2 NULL
3323	#define xdgl2 NULL
3324	#define xskl2 NULL
3325	#define xl2ge NULL
3326	#define xgel2 NULL
3327	#define xl2hu NULL
3328	#define xhul2 NULL
3329	#define xl2r8 NULL
3330	#define xr8l2 NULL
3331	#endif /* LATIN2 */
3332
3333	#ifdef CYRILLIC
3334	/* Translation functions for Cyrillic character sets */
3335
3336	CHAR /* Latin/Cyrillic to */
3337	#ifdef CK_ANSIC
3338	xlcac(CHAR c)
3339	#else
3340	xlcac(c) CHAR c;
3341	#endif /* CK_ANSIC */
3342	{ /* xlcac / / Microsoft Code Page 866 */
3343	return(ylcac[c]);
3344	}
3345
3346	CHAR /* Latin/Cyrillic to Old KOI-8 */
3347	#ifdef CK_ANSIC
3348	xlck8(CHAR c)
3349	#else
3350	xlck8(c) CHAR c;
3351	#endif /* CK_ANSIC */
3352	{ /* xlck8 */
3353	return(ylck8[c]);
3354	}
3355
3356	CHAR
3357	#ifdef CK_ANSIC
3358	xlcsk(CHAR c)
3359	#else
3360	xlcsk(c) CHAR c;
3361	#endif /* CK_ANSIC */
3362	{ /* xlcsk / / Latin/Cyrillic to Short KOI */
3363	return(ylcsk[c]);
3364	}
3365
3366	CHAR
3367	#ifdef CK_ANSIC
3368	xlcas(CHAR c)
3369	#else
3370	xlcas(c) CHAR c;
3371	#endif /* CK_ANSIC */
3372	{ /* xlcas / / Latin/Cyrillic to ASCII */
3373	if (langs[language].id == L_RUSSIAN)
3374	return(ylcsk[c]);
3375	else
3376	return((c > 127) ? '?' : c);
3377	}
3378
3379	CHAR /* CP866 */
3380	#ifdef CK_ANSIC
3381	xaclc(CHAR c)
3382	#else
3383	xaclc(c) CHAR c;
3384	#endif /* CK_ANSIC */
3385	{ /* xaclc / / to Latin/Cyrillic */
3386	return(yaclc[c]);
3387	}
3388
3389	CHAR /* Old KOI-8 to Latin/Cyrillic */
3390	#ifdef CK_ANSIC
3391	xk8lc(CHAR c)
3392	#else
3393	xk8lc(c) CHAR c;
3394	#endif /* CK_ANSIC */
3395	{ /* xk8lc */
3396	return(yk8lc[c]);
3397	}
3398
3399	CHAR
3400	#ifdef CK_ANSIC
3401	xskcy(CHAR c)
3402	#else
3403	xskcy(c) CHAR c;
3404	#endif /* CK_ANSIC */
3405	{ /* xskcy / / Short KOI to Latin/Cyrillic */
3406	return(yskcy[c & 0x7f]);
3407	}
3408
3409	CHAR
3410	#ifdef CK_ANSIC
3411	xascy(CHAR c)
3412	#else
3413	xascy(c) CHAR c;
3414	#endif /* CK_ANSIC */
3415	{ /* xascy / / ASCII to Latin/Cyrillic */
3416	if (langs[language].id == L_RUSSIAN) { /* If LANGUAGE == RUSSIAN */
3417	return(yskcy[c & 0x7f]); /* treat ASCII as Short KOI */
3418	} else return((c > 127) ? '?' : c);
3419	}
3420
3421	CHAR
3422	#ifdef CK_ANSIC
3423	xacas(CHAR c)
3424	#else
3425	xacas(c) CHAR c;
3426	#endif /* CK_ANSIC */
3427	{ /* xacas / / CP866 to ASCII */
3428	if (langs[language].id == L_RUSSIAN) {
3429	c = yaclc[c]; /* First to Latin/Cyrillic */
3430	return(ylcsk[c]); /* Then to Short KOI */
3431	} else return((c > 127) ? '?' : c);
3432	}
3433
3434	CHAR
3435	#ifdef CK_ANSIC
3436	xskas(CHAR c)
3437	#else
3438	xskas(c) CHAR c;
3439	#endif /* CK_ANSIC */
3440	{ /* xskas / / Short KOI to ASCII */
3441	return((c > 95) ? '?' : c);
3442	}
3443
3444	CHAR
3445	#ifdef CK_ANSIC
3446	xk8as(CHAR c)
3447	#else
3448	xk8as(c) CHAR c;
3449	#endif /* CK_ANSIC */
3450	{ /* xk8as / / Old KOI-8 Cyrillic to ASCII */
3451	if (langs[language].id == L_RUSSIAN) {
3452	c = yk8lc[c]; /* First to Latin/Cyrillic */
3453	return(ylcsk[c]); /* Then to Short KOI */
3454	} else return((c > 127) ? '?' : c);
3455	}
3456
3457	CHAR
3458	#ifdef CK_ANSIC
3459	xassk(CHAR c)
3460	#else
3461	xassk(c) CHAR c;
3462	#endif /* CK_ANSIC */
3463	{ /* xassk / / ASCII to Short KOI */
3464	c &= 0x77; /* Force it to be ASCII */
3465	return((c > 95) ? (c - 32) : c); /* Fold columns 6-7 to 4-5 */
3466	}
3467
3468	CHAR
3469	#ifdef CK_ANSIC
3470	xl1sk(CHAR c)
3471	#else
3472	xl1sk(c) CHAR c;
3473	#endif /* CK_ANSIC */
3474	{ /* xl1sk / / Latin-1 to Short KOI */
3475	c = zl1as(c); /* Convert to ASCII */
3476	return(c = xassk(c)); /* Convert ASCII to Short KOI */
3477	}
3478
3479	CHAR
3480	#ifdef CK_ANSIC
3481	xaslc(CHAR c)
3482	#else
3483	xaslc(c) CHAR c;
3484	#endif /* CK_ANSIC */
3485	{ /* xaslc / / ASCII to Latin/Cyrillic */
3486	if (langs[language].id == L_RUSSIAN)
3487	return(yskcy[c & 0x7f]);
3488	else return(c & 0x7f);
3489	}
3490
3491	CHAR
3492	#ifdef CK_ANSIC
3493	xasac(CHAR c)
3494	#else
3495	xasac(c) CHAR c;
3496	#endif /* CK_ANSIC */
3497	{ /* xasac / / ASCII to CP866 */
3498	if (langs[language].id == L_RUSSIAN) { /* Use Short KOI */
3499	c = xskcy(c); /* Translate to Latin/Cyrillic */
3500	return(ylcac[c]); /* Then to CP866 */
3501	} else return(c & 0x7f);
3502	}
3503
3504	CHAR
3505	#ifdef CK_ANSIC
3506	xask8(CHAR c)
3507	#else
3508	xask8(c) CHAR c;
3509	#endif /* CK_ANSIC */
3510	{ /* xask8 / / ASCII to KOI-8 */
3511	if (langs[language].id == L_RUSSIAN) { /* Use Short KOI */
3512	c = xskcy(c); /* Translate to Latin/Cyrillic */
3513	return(ylck8[c]); /* Then to KOI-8 */
3514	} else return(c & 0x7f);
3515	}
3516	#else /* No Cyrillic */
3517	#define xacas NULL
3518	#define xaclc NULL
3519	#define xasac NULL
3520	#define xascy NULL
3521	#define xask8 NULL
3522	#define xaslc NULL
3523	#define xassk NULL
3524	#define xk8as NULL
3525	#define xk8lc NULL
3526	#define xl1sk NULL
3527	#define xlcac NULL
3528	#define xlcas NULL
3529	#define xlck8 NULL
3530	#define xlch7 NULL
3531	#define xlcsk NULL
3532	#define xskas NULL
3533	#define xskcy NULL
3534	#endif /* CYRILLIC */
3535
3536	/* Translation functions for Hebrew character sets */
3537
3538	#ifdef HEBREW
3539
3540	CHAR
3541	#ifdef CK_ANSIC
3542	xash7(CHAR c)
3543	#else
3544	xash7(c) CHAR c;
3545	#endif /* CK_ANSIC */
3546	{ /* xash7 / / ASCII to Hebrew-7 */
3547	if (c == 96) return('?');
3548	if (c > 96 && c < 123) return(c - 32);
3549	else return(c);
3550	}
3551
3552	CHAR
3553	#ifdef CK_ANSIC
3554	xl1h7(CHAR c)
3555	#else
3556	xl1h7(c) CHAR c;
3557	#endif /* CK_ANSIC */
3558	{ /* xl1h7 / / Latin-1 to Hebrew-7 */
3559	return(xash7(xl1as(c)));
3560	}
3561
3562	CHAR
3563	#ifdef CK_ANSIC
3564	xl1lh(CHAR c)
3565	#else
3566	xl1lh(c) CHAR c;
3567	#endif /* CK_ANSIC */
3568	{ /* xl1lh / / Latin-1 to Latin/Hebrew */
3569	switch(c) {
3570	case 170: return('a'); /* Feminine ordinal */
3571	case 186: return('o'); /* Masculine ordinal */
3572	case 215: return(170); /* Times */
3573	case 247: return(186); /* Divide */
3574	default: return( (c > 190) ? xl1as(c) : c );
3575	}
3576	}
3577
3578	CHAR
3579	#ifdef CK_ANSIC
3580	xl2h7(CHAR c)
3581	#else
3582	xl2h7(c) CHAR c;
3583	#endif /* CK_ANSIC */
3584	{ /* xl2h7 / / Latin-2 to Hebrew-7 */
3585	return(xash7(xl2as(c)));
3586	}
3587
3588	#ifndef NOCYRIL
3589	CHAR
3590	#ifdef CK_ANSIC
3591	xlch7(CHAR c)
3592	#else
3593	xlch7(c) CHAR c;
3594	#endif /* CK_ANSIC */
3595	{ /* xlch7 / / Latin/Cyrillic to Hebrew-7 */
3596	return(xash7(xlcas(c)));
3597	}
3598	#endif /* NOCYRIL */
3599
3600	CHAR
3601	#ifdef CK_ANSIC
3602	xlhas(CHAR c)
3603	#else
3604	xlhas(c) CHAR c;
3605	#endif /* CK_ANSIC */
3606	{ /* xlhas / / Latin/Hebrew to ASCII */
3607	return( (c > 127) ? '?' : c );
3608	}
3609
3610	CHAR
3611	#ifdef CK_ANSIC
3612	xlhl1(CHAR c)
3613	#else
3614	xlhl1(c) CHAR c;
3615	#endif /* CK_ANSIC */
3616	{ /* xlhl1 / / Latin/Hebrew to Latin-1 */
3617	switch (c) {
3618	case 170: return(215);
3619	case 186: return(247);
3620	default: return( (c > 190) ? '?' : c );
3621	}
3622	}
3623
3624	CHAR
3625	#ifdef CK_ANSIC
3626	xlh62(CHAR c)
3627	#else
3628	xlh62(c) CHAR c;
3629	#endif /* CK_ANSIC */
3630	{ /* xlh62 / / Latin/Hebrew to CP862 */
3631	return(ylh62[c]);
3632	}
3633
3634	CHAR
3635	#ifdef CK_ANSIC
3636	xl162(CHAR c)
3637	#else
3638	xl162(c) CHAR c;
3639	#endif /* CK_ANSIC */
3640	{ /* xl162 / / Latin-1 to CP862 */
3641	return(xlh62(xl1lh(c))); /* Via Latin/Hebrew */
3642	}
3643
3644	CHAR
3645	#ifdef CK_ANSIC
3646	xlhh7(CHAR c)
3647	#else
3648	xlhh7(c) CHAR c;
3649	#endif /* CK_ANSIC */
3650	{ /* xlhh7 / / Latin/Hebrew to Hebrew-7 */
3651	return(ylhh7[c]);
3652	}
3653
3654	CHAR
3655	#ifdef CK_ANSIC
3656	xh7as(CHAR c)
3657	#else
3658	xh7as(c) CHAR c;
3659	#endif /* CK_ANSIC */
3660	{ /* xh7as / / Hebrew-7 to ASCII */
3661	return( (c > 95 && c < 123) ? '?' : c );
3662	}
3663
3664	CHAR
3665	#ifdef CK_ANSIC
3666	x62lh(CHAR c)
3667	#else
3668	x62lh(c) CHAR c;
3669	#endif /* CK_ANSIC */
3670	{ /* x62lh / / CP862 to Latin/Hebrew */
3671	return(y62lh[c]);
3672	}
3673
3674	CHAR
3675	#ifdef CK_ANSIC
3676	x62as(CHAR c)
3677	#else
3678	x62as(c) CHAR c;
3679	#endif /* CK_ANSIC */
3680	{ /* x62as / / CP862 to ASCII */
3681	return( xlhas(x62lh(c)) );
3682	}
3683
3684	CHAR
3685	#ifdef CK_ANSIC
3686	x62l1(CHAR c)
3687	#else
3688	x62l1(c) CHAR c;
3689	#endif /* CK_ANSIC */
3690	{ /* x62l1 / / CP862 to Latin-1 */
3691	return( xlhl1(x62lh(c)) );
3692	}
3693
3694	CHAR
3695	#ifdef CK_ANSIC
3696	xh7lh(CHAR c)
3697	#else
3698	xh7lh(c) CHAR c;
3699	#endif /* CK_ANSIC */
3700	{ /* xh7lh / / Hebrew-7 to Latin/Hebrew */
3701	return(yh7lh[c]);
3702	}
3703
3704	#else /* No Hebrew */
3705
3706	#define xash7 NULL
3707	#define xl1h7 NULL
3708	#define xl2h7 NULL
3709	#define xlch7 NULL
3710	#define xl1lh NULL
3711	#define xlhas NULL
3712	#define xlhl1 NULL
3713	#define xl162 NULL
3714	#define xlhh7 NULL
3715	#define xlh62 NULL
3716	#define xh7as NULL
3717	#define x62as NULL
3718	#define x62l1 NULL
3719	#define xh7lh NULL
3720	#define x62lh NULL
3721
3722	#endif /* HEBREW */
3723
3724	/* Translation functions for Japanese Kanji character sets */
3725
3726	#ifdef KANJI
3727	/*
3728	Translate Kanji Transfer Character Set (EUC) to local file character set,
3729	contributed by Dr. Hirofumi Fujii, Japan High Energy Research Laboratory
3730	(KEK), Tokyo, Japan.
3731
3732	a is a byte to be translated, which may be a single-byte character,
3733	the Katakana prefix, the first byte of a two-byte Kanji character, or the
3734	second byte of 2-byte Kanji character.
3735
3736	fn is the output function.
3737
3738	Returns 0 on success, -1 on failure.
3739	*/
3740
3741	_PROTOTYP(static int jpnxas, (int, int[]) );
3742	_PROTOTYP(static int jpnxkt, (int, int[]) );
3743	_PROTOTYP(static int jpnxkn, (int[], int[]) );
3744
3745	static int jpncnt; /* byte count for Japanese */
3746	static int jpnlst; /* last status (for JIS7) */
3747
3748	static int
3749	jpnxas(a, obuf) int a; int obuf[]; { /* Translate ASCII to local file code */
3750	int r;
3751
3752	r = 0;
3753	if (fcharset == FC_JIS7) {
3754	switch (jpnlst) {
3755	case 1:
3756	obuf[0] = 0x0f;
3757	obuf[1] = a;
3758	r = 2;
3759	break;
3760	case 2:
3761	obuf[0] = 0x1b;
3762	obuf[1] = 0x28;
3763	obuf[2] = 0x4a;
3764	obuf[3] = a;
3765	r = 4;
3766	break;
3767	default:
3768	obuf[0] = a;
3769	r = 1;
3770	break;
3771	}
3772	} else {
3773	obuf[0] = a;
3774	r = 1;
3775	}
3776	return(r);
3777	}
3778
3779	static int
3780	jpnxkt(a, obuf) int a; int obuf[]; {
3781	/* Translate JIS X 201 Katakana to local code */
3782
3783	int r;
3784
3785	r = 0;
3786	if (fcharset == FC_JIS7) {
3787	switch (jpnlst) {
3788	case 2: /* from Kanji */
3789	obuf[r++] = 0x1b;
3790	obuf[r++] = 0x28;
3791	obuf[r++] = 0x4a;
3792	case 0: /* from Roman */
3793	obuf[r++] = 0x0e;
3794	default:
3795	obuf[r++] = (a & 0x7f);
3796	break;
3797	}
3798	} else {
3799	if (fcharset == FC_JEUC)
3800	obuf[r++] = 0x8e;
3801	obuf[r++] = (a \| 0x80);
3802	}
3803	return(r);
3804	}
3805
3806	static int
3807	jpnxkn(ibuf, obuf) int ibuf[], obuf[]; {
3808	/* Translate JIS X 0208 Kanji to local code */
3809	int c1, c2;
3810	int r;
3811
3812	c1 = ibuf[0] & 0x7f;
3813	c2 = ibuf[1] & 0x7f;
3814
3815	if (fcharset == FC_SHJIS) {
3816	if (c1 & 1)
3817	c2 += 0x1f;
3818	else
3819	c2 += 0x7d;
3820
3821	if (c2 >= 0x7f) c2++;
3822
3823	c1 = ((c1 - 0x21) >> 1) + 0x81;
3824	if (c1 > 0x9f) c1 += 0x40;
3825
3826	obuf[0] = c1;
3827	obuf[1] = c2;
3828	r = 2;
3829	} else if (fcharset == FC_JIS7) {
3830	r = 0;
3831	switch (jpnlst) {
3832	case 1:
3833	obuf[r++] = 0x0f; /* From Katakana */
3834	case 0:
3835	obuf[r++] = 0x1b;
3836	obuf[r++] = 0x24;
3837	obuf[r++] = 0x42;
3838	default:
3839	obuf[r++] = c1;
3840	obuf[r++] = c2;
3841	break;
3842	}
3843	} else {
3844	obuf[0] = (c1 \| 0x80);
3845	obuf[1] = (c2 \| 0x80);
3846	r = 2;
3847	}
3848	return(r);
3849	}
3850
3851	int
3852	xkanjf() {
3853	/* Initialize parameters for xkanji */
3854	/* This function should be called when F/X-packet is received */
3855	jpncnt = jpnlst = 0;
3856	return(0);
3857	}
3858
3859	int
3860	#ifdef CK_ANSIC
3861	xkanjz( int (*fn)(char) )
3862	#else
3863	xkanjz( fn ) int (*fn)();
3864	#endif /* CK_ANSIC */
3865	{ /* xkanjz */
3866	/*
3867	Terminate xkanji
3868	This function must be called when Z-packet is received
3869	(before closing the file).
3870	*/
3871	static int obuf[6];
3872	int r, i, c;
3873
3874	if (fcharset == FC_JIS7) {
3875	c = 'A'; /* Dummy Roman character */
3876	r = jpnxas(c, obuf) - 1; /* -1 removes Dummy character */
3877	if (r > 0) {
3878	for (i = 0; i < r; i++)
3879	if ( ((*fn)((char) obuf[i])) < 0 )
3880	return( -1 );
3881	}
3882	}
3883	return( 0 );
3884	}
3885
3886	int
3887	#ifdef CK_ANSIC
3888	xkanji(int a, int (*fn)(char))
3889	#else
3890	xkanji(a, fn) int a; int (*fn)();
3891	#endif /* CK_ANSIC */
3892	{ /* xkanji */
3893	static int xbuf[2];
3894	static int obuf[8];
3895
3896	int i, r;
3897	int c7;
3898	int state=0;
3899
3900	r = 0;
3901	if (jpncnt == 0) {
3902	/* 1st byte */
3903	if ( (a & 0x80) == 0 ) {
3904	/* 8th bit is 0, i.e., single-byte code */
3905	r = jpnxas(a, obuf);
3906	state = 0;
3907	} else {
3908	/* 8th bit is 1, check the range */
3909	c7 = a & 0x7f;
3910	if ( ((c7 > 0x20) && (c7 < 0x7f)) \|\| (c7 == 0x0e) ) {
3911	/* double byte code */
3912	xbuf[jpncnt++] = a;
3913	} else {
3914	/* single byte code */
3915	r = jpnxas(a, obuf);
3916	state = 0;
3917	}
3918	}
3919	} else {
3920	/* not the 1st byte */
3921	xbuf[jpncnt++] = a;
3922	if (xbuf[0] == 0x8e) {
3923	r = jpnxkt( xbuf[1], obuf );
3924	state = 1;
3925	} else {
3926	r = jpnxkn(xbuf, obuf);
3927	state = 2;
3928	}
3929	}
3930	if (r > 0) {
3931	for (i = 0; i < r; i++ )
3932	if ( ((*fn)((char) obuf[i])) < 0 )
3933	return( -1 );
3934	jpnlst = state;
3935	jpncnt = 0;
3936	}
3937	return( 0 );
3938	}
3939
3940	/*
3941	Function for translating from Japanese file character set
3942	to Japanese EUC transfer character set.
3943	Returns a pointer to a string containing 0, 1, or 2 bytes.
3944	*/
3945
3946	/* zkanji */
3947	static int jpnstz; /* status for JIS-7 */
3948	static int jpnpnd; /* number of pending bytes */
3949	static int jpnpnt; /* pending buffer index */
3950	static int jpnpbf[8]; /* pending buffer */
3951
3952	int
3953	zkanjf() { /* Initialize */
3954	jpnstz = jpnpnd = jpnpnt = 0;
3955	return(0);
3956	}
3957
3958	int
3959	zkanjz() {
3960	return( 0 );
3961	}
3962
3963	int
3964	#ifdef CK_ANSIC
3965	zkanji( int (*fn)(void) )
3966	#else
3967	zkanji( fn ) int (*fn)();
3968	#endif /* CK_ANSIC */
3969	{ /* zkanji */
3970	/* Read Japanese local code and translate to Japanese EUC */
3971	int a;
3972	int sc[3];
3973
3974	/* No pending characters */
3975	if (fcharset == FC_SHJIS) { /* Translating from Shift-JIS */
3976	if (jpnpnd) {
3977	jpnpnd--;
3978	return( jpnpbf[jpnpnt++] );
3979	}
3980
3981	a = (*fn)();
3982	jpnpnd = jpnpnt = 0;
3983	if (((a >= 0x81) && (a <= 0x9f)) \|\|
3984	((a >= 0xe0) && (a <= 0xfc))) { /* 2-byte Kanji code */
3985	sc[0] = a;
3986	if ((sc[1] = (fn)()) < 0) / Get second byte */
3987	return( sc[1] );
3988	if (sc[0] <= 0x9f)
3989	sc[0] -= 0x71;
3990	else
3991	sc[0] -= 0xb1;
3992	sc[0] = sc[0] * 2 + 1;
3993	if (sc[1] > 0x7f)
3994	sc[1]--;
3995	if (sc[1] >= 0x9e) {
3996	sc[1] -= 0x7d;
3997	sc[0]++;
3998	} else {
3999	sc[1] -= 0x1f;
4000	}
4001	a = (sc[0] \| 0x80);
4002	jpnpbf[0] = (sc[1] \| 0x80);
4003	jpnpnd = 1;
4004	jpnpnt = 0;
4005	} else if ((a >= 0xa1) && (a <= 0xdf)) { /* Katakana */
4006	jpnpbf[0] = a;
4007	jpnpnd = 1;
4008	jpnpnt = 0;
4009	a = 0x8e;
4010	}
4011	return(a);
4012	} else if (fcharset == FC_JIS7 ) { /* 7-bit JIS X 0208 */
4013	if (jpnpnd) {
4014	a = jpnpbf[jpnpnt++];
4015	jpnpnd--;
4016	return(a);
4017	}
4018	jpnpnt = 0;
4019	if ((a = (*fn)()) < 0)
4020	return(a);
4021	while (jpnpnd == 0) {
4022	if ((a > 0x20) && (a < 0x7f)) {
4023	switch (jpnstz) {
4024	case 1:
4025	jpnpbf[jpnpnd++] = 0x80; /* Katakana */
4026	jpnpbf[jpnpnd++] = (a \| 0x80);
4027	break;
4028	case 2:
4029	jpnpbf[jpnpnd++] = (a \| 0x80); /* Kanji */
4030	if ((a = (*fn)()) < 0)
4031	return(a);
4032	jpnpbf[jpnpnd++] = (a \| 0x80);
4033	break;
4034	default:
4035	jpnpbf[jpnpnd++] = a; /* Single byte */
4036	break;
4037	}
4038	} else if (a == 0x0e) {
4039	jpnstz = 1;
4040	if ((a = (*fn)()) < 0)
4041	return(a);
4042	} else if (a == 0x0f) {
4043	jpnstz = 0;
4044	if ((a = (*fn)()) < 0)
4045	return(a);
4046	} else if (a == 0x1b) {
4047	jpnpbf[jpnpnd++] = a; /* Escape */
4048	if ((a = (*fn)()) < 0)
4049	return(a);
4050	jpnpbf[jpnpnd++] = a;
4051	if (a == '$') {
4052	if ((a = (*fn)()) < 0)
4053	return(a);
4054	jpnpbf[jpnpnd++] = a;
4055	if ((a == '@') \|\| (a == 'B')) {
4056	jpnstz = 2;
4057	jpnpnt = jpnpnd = 0;
4058	if ((a = (*fn)()) < 0)
4059	return(a);
4060	}
4061	} else if (a == '(') {
4062	if ((a = (*fn)()) < 0)
4063	return( a );
4064	jpnpbf[jpnpnd++] = a;
4065	if ((a == 'B') \|\| (a == 'J')) {
4066	jpnstz = 0;
4067	jpnpnt = jpnpnd = 0;
4068	if ((a = (*fn)()) < 0)
4069	return(a);
4070	}
4071	} else if (a == 0x1b) {
4072	jpnpnt = jpnpnd = 0;
4073	if ((a = (*fn)()) < 0)
4074	return(a);
4075	}
4076	} else {
4077	jpnpbf[jpnpnd++] = a;
4078	}
4079	}
4080	jpnpnt = 0;
4081	a = jpnpbf[jpnpnt++];
4082	jpnpnd--;
4083	return(a);
4084	} else {
4085	a = (*fn)();
4086	return(a);
4087	}
4088	}
4089	#endif /* KANJI */
4090
4091	/* TABLES OF TRANSLATION FUNCTIONS */
4092
4093	/*
4094	First, the table of translation functions for RECEIVING files. That is,
4095	from the TRANSFER character set to the FILE character set, an array of
4096	pointers to functions. The first index is the TRANSFER CHARACTER-SET
4097	number, the second index is the FILE CHARACTER-SET number.
4098
4099	These arrays must be fully populated, even if (as is the case with Kanji
4100	character sets), all the entries are NULL. Otherwise, subscript
4101	calculations will be wrong and we'll use the wrong functions.
4102	*/
4103
4104	#ifdef CK_ANSIC
4105	CHAR (*xlr[MAXTCSETS+1][MAXFCSETS+1])(CHAR) =
4106	#else
4107	CHAR (*xlr[MAXTCSETS+1][MAXFCSETS+1])() =
4108	#endif /* CK_ANSIC */
4109	{
4110	NULL, /* 0,0 transparent to us ascii */
4111	NULL, /* 0,1 transparent to uk ascii */
4112	NULL, /* 0,2 transparent to dutch nrc */
4113	NULL, /* 0,3 transparent to finnish nrc */
4114	NULL, /* 0,4 transparent to french nrc */
4115	NULL, /* 0,5 transparent to fr-canadian nrc */
4116	NULL, /* 0,6 transparent to german nrc */
4117	NULL, /* 0,7 transparent to hungarian nrc */
4118	NULL, /* 0,8 transparent to italian nrc */
4119	NULL, /* 0,9 transparent to norge/danish nrc */
4120	NULL, /* 0,10 transparent to portuguese nrc */
4121	NULL, /* 0,11 transparent to spanish nrc */
4122	NULL, /* 0,12 transparent to swedish nrc */
4123	NULL, /* 0,13 transparent to swiss nrc */
4124	NULL, /* 0,14 transparent to latin-1 */
4125	NULL, /* 0,15 transparent to latin-2 */
4126	NULL, /* 0,16 transparent to DEC MCS */
4127	NULL, /* 0,17 transparent to NeXT */
4128	NULL, /* 0,18 transparent to CP437 */
4129	NULL, /* 0,19 transparent to CP850 */
4130	NULL, /* 0,20 transparent to CP852 */
4131	NULL, /* 0,21 transparent to Macintosh Latin */
4132	NULL, /* 0,22 transparent to DGI */
4133	NULL, /* 0,23 transparent to HP */
4134	NULL, /* 0,24 transparent to Latin/Cyrillic */
4135	NULL, /* 0,25 transparent to CP866 */
4136	NULL, /* 0,26 transparent to Short KOI-7 */
4137	NULL, /* 0,27 transparent to Old KOI-8 Cyrillic */
4138	NULL, /* 0,28 transparent to JIS-7 */
4139	NULL, /* 0,29 transparent to Shift-JIS */
4140	NULL, /* 0,30 transparent to J-EUC */
4141	NULL, /* 0,31 transparent to DEC Kanji */
4142	NULL, /* 0,32 transparent to Hebrew-7 */
4143	NULL, /* 0,33 transparent to Latin/Hebrew */
4144	NULL, /* 0,34 transparent to CP862 Hebrew */
4145	NULL, /* 1,0 ascii to us ascii */
4146	NULL, /* 1,1 ascii to uk ascii */
4147	NULL, /* 1,2 ascii to dutch nrc */
4148	NULL, /* 1,3 ascii to finnish nrc */
4149	NULL, /* 1,4 ascii to french nrc */
4150	NULL, /* 1,5 ascii to fr-canadian nrc */
4151	NULL, /* 1,6 ascii to german nrc */
4152	NULL, /* 1,7 ascii to hungarian nrc */
4153	NULL, /* 1,8 ascii to italian nrc */
4154	NULL, /* 1,9 ascii to norge/danish nrc */
4155	NULL, /* 1,10 ascii to portuguese nrc */
4156	NULL, /* 1,11 ascii to spanish nrc */
4157	NULL, /* 1,12 ascii to swedish nrc */
4158	NULL, /* 1,13 ascii to swiss nrc */
4159	NULL, /* 1,14 ascii to latin-1 */
4160	NULL, /* 1,15 ascii to latin-2 */
4161	NULL, /* 1,16 ascii to DEC MCS */
4162	NULL, /* 1,17 ascii to NeXT */
4163	NULL, /* 1,18 ascii to CP437 */
4164	NULL, /* 1,19 ascii to CP850 */
4165	NULL, /* 1,20 ascii to CP852 */
4166	NULL, /* 1,21 ascii to Macintosh Latin */
4167	NULL, /* 1,22 ascii to DGI */
4168	NULL, /* 1,23 ascii to HP */
4169	xaslc, /* 1,24 ascii to Latin/Cyrillic */
4170	xasac, /* 1,25 ascii to CP866 */
4171	xassk, /* 1,26 ascii to Short KOI */
4172	xask8, /* 1,27 ascii to Old KOI-8 Cyrillic */
4173	NULL, /* 1,28 ascii to JIS-7 */
4174	NULL, /* 1,29 ascii to Shift-JIS */
4175	NULL, /* 1,30 ascii to J-EUC */
4176	NULL, /* 1,31 ascii to DEC Kanji */
4177	xash7, /* 1,32 ascii to Hebrew-7 */
4178	NULL, /* 1,33 ascii to Latin/Hebrew */
4179	NULL, /* 1,34 ascii to CP862 Hebrew */
4180	zl1as, /* 2,0 latin-1 to us ascii */
4181	xl1uk, /* 2,1 latin-1 to uk ascii */
4182	xl1du, /* 2,2 latin-1 to dutch nrc */
4183	xl1fi, /* 2,3 latin-1 to finnish nrc */
4184	xl1fr, /* 2,4 latin-1 to french nrc */
4185	xl1fc, /* 2,5 latin-1 to fr-canadian nrc */
4186	xl1ge, /* 2,6 latin-1 to german nrc */
4187	xl1it, /* 2,7 latin-1 to italian nrc */
4188	xl1hu, /* 2,8 latin-1 to hungarian nrc */
4189	xl1no, /* 2,9 latin-1 to norge/danish nrc */
4190	xl1po, /* 2,10 latin-1 to portuguese nrc */
4191	xl1sp, /* 2,11 latin-1 to spanish nrc */
4192	xl1sw, /* 2,12 latin-1 to swedish nrc */
4193	xl1ch, /* 2,13 latin-1 to swiss nrc */
4194	NULL, /* 2,14 latin-1 to latin-1 */
4195	xl1l2, /* 2,15 latin-1 to latin-2 */
4196	xl1dm, /* 2,16 latin-1 to DEC MCS */
4197	xl1ne, /* 2,17 latin-1 to NeXT */
4198	xl143, /* 2,18 latin-1 to CP437 */
4199	xl185, /* 2,19 latin-1 to CP850 */
4200	xl152, /* 2,20 latin-1 to CP852 */
4201	xl1aq, /* 2,21 latin-1 to Macintosh Latin */
4202	xl1dg, /* 2,22 latin-1 to DGI */
4203	xl1r8, /* 2,23 latin-1 to HP Roman8 */
4204	zl1as, /* 2,24 latin-1 to Latin/Cyrillic */
4205	zl1as, /* 2,25 latin-1 to CP866 */
4206	xl1sk, /* 2,26 latin-1 to Short KOI */
4207	zl1as, /* 2,27 latin-1 to Old KOI-8 Cyrillic */
4208	NULL, /* 2,28 latin-1 to JIS-7 */
4209	NULL, /* 2,29 latin-1 to Shift-JIS */
4210	NULL, /* 2,30 latin-1 to J-EUC */
4211	NULL, /* 2,31 latin-1 to DEC Kanji */
4212	xl1h7, /* 2,32 latin-1 to Hebrew-7 */
4213	xl1lh, /* 2,33 latin-1 to Latin/Hebrew */
4214	xl162, /* 2,34 latin-1 to CP862 Hebrew */
4215	xl2as, /* 3,0 latin-2 to us ascii */
4216	xl2as, /* 3,1 latin-2 to uk ascii */
4217	xl2as, /* 3,2 latin-2 to dutch nrc */
4218	xl2as, /* 3,3 latin-2 to finnish nrc */
4219	xl2as, /* 3,4 latin-2 to french nrc */
4220	xl2as, /* 3,5 latin-2 to fr-canadian nrc */
4221	xl2as, /* 3,6 latin-2 to german nrc */
4222	xl2as, /* 3,7 latin-2 to italian nrc */
4223	xl2as, /* 3,8 latin-2 to hungarian nrc */
4224	xl2as, /* 3,9 latin-2 to norge/danish nrc */
4225	xl2as, /* 3,10 latin-2 to portuguese nrc */
4226	xl2as, /* 3,11 latin-2 to spanish nrc */
4227	xl2as, /* 3,12 latin-2 to swedish nrc */
4228	xl2as, /* 3,13 latin-2 to swiss nrc */
4229	xl2l1, /* 3,14 latin-2 to latin-1 */
4230	NULL, /* 3,15 latin-2 to latin-2 */
4231	xl2l1, /* 3,16 latin-2 to DEC MCS */
4232	xl2ne, /* 3,17 latin-2 to NeXT */
4233	xl243, /* 3,18 latin-2 to CP437 */
4234	xl285, /* 3,19 latin-2 to CP850 */
4235	xl252, /* 3,20 latin-2 to CP852 */
4236	xl2aq, /* 3,21 latin-2 to Macintosh Latin */
4237	xl2dg, /* 3,22 latin-2 to DGI */
4238	xl2r8, /* 3,23 latin-2 to HP */
4239	xl2as, /* 3,24 latin-2 to Latin/Cyrillic */
4240	xl2as, /* 3,25 latin-2 to CP866 */
4241	xl2sk, /* 3,26 latin-2 to Short KOI */
4242	xl2as, /* 3,27 latin-2 to Old KOI-8 Cyrillic */
4243	NULL, /* 3,28 latin-2 to JIS-7 */
4244	NULL, /* 3,29 latin-2 to Shift-JIS */
4245	NULL, /* 3,30 latin-2 to J-EUC */
4246	NULL, /* 3,31 latin-2 to DEC Kanji */
4247	xl2h7, /* 3,32 latin-2 to Hebrew-7 */
4248	xl2as, /* 3,33 latin-2 to Latin/Hebrew */
4249	xl2as, /* 3,34 latin-2 to CP862 Hebrew */
4250	xlcas, /* 4,0 latin/cyrillic to us ascii */
4251	xlcas, /* 4,1 latin/cyrillic to uk ascii */
4252	xlcas, /* 4,2 latin/cyrillic to dutch nrc */
4253	xlcas, /* 4,3 latin/cyrillic to finnish ascii */
4254	xlcas, /* 4,4 latin/cyrillic to french nrc */
4255	xlcas, /* 4,5 latin/cyrillic to fr-canadian nrc */
4256	xlcas, /* 4,6 latin/cyrillic to german nrc */
4257	xlcas, /* 4,7 latin/cyrillic to italian nrc */
4258	xlcas, /* 4,8 latin/cyrillic to hungarian nrc */
4259	xlcas, /* 4,9 latin/cyrillic to norge/danish nrc */
4260	xlcas, /* 4,10 latin/cyrillic to portuguese nrc */
4261	xlcas, /* 4,11 latin/cyrillic to spanish nrc */
4262	xlcas, /* 4,12 latin/cyrillic to swedish nrc */
4263	xlcas, /* 4,13 latin/cyrillic to swiss nrc */
4264	xlcas, /* 4,14 latin/cyrillic to latin-1 */
4265	xlcas, /* 4,15 latin/cyrillic to latin-2 */
4266	xlcas, /* 4,16 latin/cyrillic to DEC MCS */
4267	xlcas, /* 4,17 latin/cyrillic to NeXT */
4268	xlcas, /* 4,18 latin/cyrillic to CP437 */
4269	xlcas, /* 4,19 latin/cyrillic to CP850 */
4270	xlcas, /* 4,20 latin/cyrillic to CP852 */
4271	xlcas, /* 4,21 latin/cyrillic to Macintosh Latin */
4272	xlcas, /* 4,22 latin/cyrillic to DGI */
4273	xlcas, /* 4,23 latin/cyrillic to HP */
4274	NULL, /* 4,24 latin/cyrillic to Latin/Cyrillic */
4275	xlcac, /* 4,25 latin/cyrillic to CP866 */
4276	xlcsk, /* 4,26 latin/cyrillic to Short KOI */
4277	xlck8, /* 4,27 latin/cyrillic to Old KOI-8 Cyrillic */
4278	NULL, /* 4,28 latin/cyril to JIS-7 */
4279	NULL, /* 4,29 latin/cyril to Shift-JIS */
4280	NULL, /* 4,30 latin/cyril to J-EUC */
4281	NULL, /* 4,31 latin/cyril to DEC Kanji */
4282	xlch7, /* 4,32 latin/cyril to Hebrew-7 */
4283	xlcas, /* 4,33 latin/cyril to Latin/Hebrew */
4284	xlcas, /* 4,34 latin/cyril to CP862 Hebrew */
4285
4286	/* Kanji to others ... */
4287
4288	NULL, /* 5,00 */
4289	NULL, /* 5,01 */
4290	NULL, /* 5,02 */
4291	NULL, /* 5,03 */
4292	NULL, /* 5,04 */
4293	NULL, /* 5,05 */
4294	NULL, /* 5,06 */
4295	NULL, /* 5,07 */
4296	NULL, /* 5,08 */
4297	NULL, /* 5,09 */
4298	NULL, /* 5,10 */
4299	NULL, /* 5,11 */
4300	NULL, /* 5,12 */
4301	NULL, /* 5,13 */
4302	NULL, /* 5,14 */
4303	NULL, /* 5,15 */
4304	NULL, /* 5,16 */
4305	NULL, /* 5,17 */
4306	NULL, /* 5,18 */
4307	NULL, /* 5,19 */
4308	NULL, /* 5,20 */
4309	NULL, /* 5,21 */
4310	NULL, /* 5,22 */
4311	NULL, /* 5,23 */
4312	NULL, /* 5,24 */
4313	NULL, /* 5,25 */
4314	NULL, /* 5,26 */
4315	NULL, /* 5,27 */
4316	NULL, /* 5,28 */
4317	NULL, /* 5,29 */
4318	NULL, /* 5,30 */
4319	NULL, /* 5,31 */
4320	NULL, /* 5,32 */
4321	NULL, /* 5,33 */
4322	NULL, /* 5,34 */
4323	/* Latin/Hebrew to others */
4324	xlhas, /* 6,0 latin/hebrew to us ascii */
4325	xlhas, /* 6,1 latin/hebrew to uk ascii */
4326	xlhas, /* 6,2 latin/hebrew to dutch nrc */
4327	xlhas, /* 6,3 latin/hebrew to finnish ascii */
4328	xlhas, /* 6,4 latin/hebrew to french nrc */
4329	xlhas, /* 6,5 latin/hebrew to fr-canadian nrc */
4330	xlhas, /* 6,6 latin/hebrew to german nrc */
4331	xlhas, /* 6,7 latin/hebrew to italian nrc */
4332	xlhas, /* 6,8 latin/hebrew to hungarian nrc */
4333	xlhas, /* 6,9 latin/hebrew to norge/danish nrc */
4334	xlhas, /* 6,10 latin/hebrew to portuguese nrc */
4335	xlhas, /* 6,11 latin/hebrew to spanish nrc */
4336	xlhas, /* 6,12 latin/hebrew to swedish nrc */
4337	xlhas, /* 6,13 latin/hebrew to swiss nrc */
4338	xlhl1, /* 6,14 latin/hebrew to latin-1 */
4339	xlhas, /* 6,15 latin/hebrew to latin-2 */
4340	xlhl1, /* 6,16 latin/hebrew to DEC MCS */
4341	xlhas, /* 6,17 latin/hebrew to NeXT */
4342	xlhas, /* 6,18 latin/hebrew to CP437 */
4343	xlhas, /* 6,19 latin/hebrew to CP850 */
4344	xlhas, /* 6,20 latin/hebrew to CP852 */
4345	xlhas, /* 6,21 latin/hebrew to Macintosh Latin */
4346	xlhas, /* 6,22 latin/hebrew to DGI */
4347	xlhas, /* 6,23 latin/hebrew to HP */
4348	xlhas, /* 6,24 latin/hebrew to Latin/Cyrillic */
4349	xlhas, /* 6,25 latin/hebrew to CP866 */
4350	NULL, /* 6,26 latin/hebrew to Short KOI */
4351	xlhas, /* 6,27 latin/hebrew to Old KOI-8 Cyrillic */
4352	NULL, /* 6,28 latin/hebrew to JIS-7 */
4353	NULL, /* 6,29 latin/hebrew to Shift-JIS */
4354	NULL, /* 6,30 latin/hebrew to J-EUC */
4355	NULL, /* 6,31 latin/hebrew to DEC Kanji */
4356	xlhh7, /* 6,32 latin/hebrew to Hebrew-7 */
4357	NULL, /* 6,33 latin/hebrew to Latin/Hebrew */
4358	xlh62 /* 6,34 latin/hebrew to CP862 Hebrew */
4359	};
4360
4361	/*
4362	Translation function table for sending files.
4363	Array of pointers to functions for translating from the local file
4364	character set to the transfer syntax character set. Indexed in the same
4365	way as the xlr array above.
4366	*/
4367	#ifdef CK_ANSIC
4368	CHAR (*xls[MAXTCSETS+1][MAXFCSETS+1])(CHAR) =
4369	#else
4370	CHAR (*xls[MAXTCSETS+1][MAXFCSETS+1])() =
4371	#endif /* CK_ANSIC */
4372	{
4373	NULL, /* 0,0 us ascii to transparent */
4374	NULL, /* 0,1 uk ascii to transparent */
4375	NULL, /* 0,2 dutch nrc to transparent */
4376	NULL, /* 0,3 finnish nrc to transparent */
4377	NULL, /* 0,4 french nrc to transparent */
4378	NULL, /* 0,5 fr-canadian nrc to transparent */
4379	NULL, /* 0,6 german nrc to transparent */
4380	NULL, /* 0,7 hungarian nrc to transparent */
4381	NULL, /* 0,8 italian nrc to transparent */
4382	NULL, /* 0,9 norge/danish nrc to transparent */
4383	NULL, /* 0,10 portuguese nrc to transparent */
4384	NULL, /* 0,11 spanish nrc to transparent */
4385	NULL, /* 0,12 swedish nrc to transparent */
4386	NULL, /* 0,13 swiss nrc to transparent */
4387	NULL, /* 0,14 latin-1 to transparent */
4388	NULL, /* 0,15 latin-2 to transparent */
4389	NULL, /* 0,16 DEC MCS to transparent */
4390	NULL, /* 0,17 NeXT to transparent */
4391	NULL, /* 0,18 CP437 to transparent */
4392	NULL, /* 0,19 CP850 to transparent */
4393	NULL, /* 0,20 CP852 to transparent */
4394	NULL, /* 0,21 Macintosh Latin to transparent */
4395	NULL, /* 0,22 DGI to transparent */
4396	NULL, /* 0,23 HP to transparent */
4397	NULL, /* 0,24 Latin/Cyrillic to transparent */
4398	NULL, /* 0,25 CP866 to transparent */
4399	NULL, /* 0,26 Short KOI to transparent */
4400	NULL, /* 0,27 Old KOI-8 to transparent */
4401	NULL, /* 0,28 JIS-7 to transparent */
4402	NULL, /* 0,29 Shift JIS to transparent */
4403	NULL, /* 0,30 Japanese EUC to transparent */
4404	NULL, /* 0,31 DEC Kanji to transparent */
4405	NULL, /* 0,32 Hebrew-7 to transparent */
4406	NULL, /* 0,33 Latin/Hebrew to transparent */
4407	NULL, /* 0,34 CP862 Hebrew to transparent */
4408	NULL, /* 1,0 us ascii to ascii */
4409	NULL, /* 1,1 uk ascii to ascii */
4410	xduas, /* 1,2 dutch nrc to ascii */
4411	xfias, /* 1,3 finnish nrc to ascii */
4412	xfras, /* 1,4 french nrc to ascii */
4413	xfcas, /* 1,5 french canadian nrc to ascii */
4414	xgeas, /* 1,6 german nrc to ascii */
4415	xhuas, /* 1,7 hungarian nrc to ascii */
4416	xitas, /* 1,8 italian nrc to ascii */
4417	xnoas, /* 1,9 norwegian/danish nrc to ascii */
4418	xpoas, /* 1,10 portuguese nrc to ascii */
4419	xspas, /* 1,11 spanish nrc to ascii */
4420	xswas, /* 1,12 swedish nrc to ascii */
4421	xchas, /* 1,13 swiss nrc to ascii */
4422	xl1as, /* 1,14 latin-1 to ascii */
4423	xl2as, /* 1,15 latin-2 to ascii */
4424	xdmas, /* 1,16 dec mcs to ascii */
4425	xneas, /* 1,17 NeXT to ascii */
4426	x43as, /* 1,18 CP437 to ascii */
4427	x85as, /* 1,19 CP850 to ascii */
4428	x52as, /* 1,20 CP850 to ascii */
4429	xaqas, /* 1,21 Macintosh Latin to ascii */
4430	xdgas, /* 1,22 DGI to ascii */
4431	xr8as, /* 1,23 HP to ASCII */
4432	xlcas, /* 1,24 Latin/Cyrillic to ASCII */
4433	xacas, /* 1,25 CP866 to ASCII */
4434	xskas, /* 1,26 Short KOI to ASCII */
4435	xk8as, /* 1,27 Old KOI-8 Cyrillic to ASCII */
4436	NULL, /* 1,28 */
4437	NULL, /* 1,29 */
4438	NULL, /* 1,30 */
4439	NULL, /* 1,31 */
4440	xh7as, /* 1,32 Hebrew-7 to ASCII */
4441	xlhas, /* 1,33 Latin/Hebrew to ASCII */
4442	x62as, /* 1,34 CP862 Hebrew to ASCII */
4443	NULL, /* 2,0 us ascii to latin-1 */
4444	xukl1, /* 2,1 uk ascii to latin-1 */
4445	xdul1, /* 2,2 dutch nrc to latin-1 */
4446	xfil1, /* 2,3 finnish nrc to latin-1 */
4447	xfrl1, /* 2,4 french nrc to latin-1 */
4448	xfcl1, /* 2,5 french canadian nrc to latin-1 */
4449	xgel1, /* 2,6 german nrc to latin-1 */
4450	xhul1, /* 2,7 hungarian nrc to latin-1 */
4451	xitl1, /* 2,8 italian nrc to latin-1 */
4452	xnol1, /* 2,9 norwegian/danish nrc to latin-1 */
4453	xpol1, /* 2,10 portuguese nrc to latin-1 */
4454	xspl1, /* 2,11 spanish nrc to latin-1 */
4455	xswl1, /* 2,12 swedish nrc to latin-1 */
4456	xchl1, /* 2,13 swiss nrc to latin-1 */
4457	NULL, /* 2,14 latin-1 to latin-1 */
4458	xl2l1, /* 2,15 latin-2 to latin-1 */
4459	xdml1, /* 2,16 dec mcs to latin-1 */
4460	xnel1, /* 2,17 NeXT to Latin-1 */
4461	x43l1, /* 2,18 CP437 to Latin-1 */
4462	x85l1, /* 2,19 CP850 to Latin-1 */
4463	x52l1, /* 2,20 CP852 to Latin-1 */
4464	xaql1, /* 2,21 Macintosh Latin to Latin-1 */
4465	xdgl1, /* 2,22 DGI to Latin-1 */
4466	xr8l1, /* 2,23 HP to Latin-1 */
4467	xlcas, /* 2,24 Latin/Cyrillic to Latin-1 */
4468	xacas, /* 2,25 CP866 to Latin-1 */
4469	xskas, /* 2,26 Short KOI to Latin-1 */
4470	xk8as, /* 2,27 Old KOI-8 Cyrillic to Latin-1 */
4471	NULL, /* 2,28 Kanji ... */
4472	NULL, /* 2,29 */
4473	NULL, /* 2,30 */
4474	NULL, /* 2,32 */
4475	xh7as, /* 2,32 Hebrew-7 to Latin-1 */
4476	xlhl1, /* 2,33 Latin/Hebrew to Latin-1 */
4477	x62l1, /* 2,34 CP862 Hebrew to Latin-1 */
4478	NULL, /* 3,0 us ascii to latin-2 */
4479	NULL, /* 3,1 uk ascii to latin-2 */
4480	xduas, /* 3,2 dutch nrc to latin-2 */
4481	xfias, /* 3,3 finnish nrc to latin-2 */
4482	xfras, /* 3,4 french nrc to latin-2 */
4483	xfcas, /* 3,5 french canadian nrc to latin-2 */
4484	xgel2, /* 3,6 german nrc to latin-2 */
4485	xhul2, /* 3,7 hungarian nrc to latin-2 */
4486	xitas, /* 3,8 italian nrc to latin-2 */
4487	xnoas, /* 3,9 norwegian/danish nrc to latin-2 */
4488	xpoas, /* 3,10 portuguese nrc to latin-2 */
4489	xspas, /* 3,11 spanish nrc to latin-2 */
4490	xswas, /* 3,12 swedish nrc to latin-2 */
4491	xchas, /* 3,13 swiss nrc to latin-2 */
4492	xl1l2, /* 3,14 latin-1 to latin-2 */
4493	NULL, /* 3,15 latin-2 to latin-2 */
4494	xl1l2, /* 3,16 dec mcs to latin-2 */
4495	xnel2, /* 3,17 NeXT to Latin-2 */
4496	x43l2, /* 3,18 CP437 to Latin-2 */
4497	x85l2, /* 3,19 CP850 to Latin-2 */
4498	x52l2, /* 3,20 CP852 to Latin-2 */
4499	xaql2, /* 3,21 Macintosh Latin to Latin-2 */
4500	xdgl2, /* 3,22 DGI to Latin-2 */
4501	xr8l2, /* 3,22 HP to Latin-2 */
4502	xlcas, /* 3,24 Latin/Cyrillic to Latin-2 */
4503	xacas, /* 3,25 CP866 to Latin-2 */
4504	xskas, /* 3,26 Short KOI to Latin-2 */
4505	xk8as, /* 3,27 Old KOI-8 Cyrillic to Latin-2 */
4506	NULL, /* 3,28 Kanji ... */
4507	NULL, /* 3,29 */
4508	NULL, /* 3,30 */
4509	NULL, /* 3,31 */
4510	xh7as, /* 3,32 Hebrew-7 to Latin-2 */
4511	xlhas, /* 3,33 Latin/Hebrew to Latin-2 */
4512	x62as, /* 3,34 CP862 Hebrew to Latin-2 */
4513	xaslc, /* 4,0 us ascii to latin/cyrillic */
4514	xaslc, /* 4,1 uk ascii to latin/cyrillic */
4515	xduas, /* 4,2 dutch nrc to latin/cyrillic */
4516	xfias, /* 4,3 finnish nrc to latin/cyrillic */
4517	xfras, /* 4,4 french nrc to latin/cyrillic */
4518	xfcas, /* 4,5 french canadian nrc to latin/cyrillic */
4519	xgeas, /* 4,6 german nrc to latin/cyrillic */
4520	xhuas, /* 4,7 hungarian nrc to latin/cyrillic */
4521	xitas, /* 4,8 italian nrc to latin/cyrillic */
4522	xnoas, /* 4,9 norge/danish nrc to latin/cyrillic */
4523	xpoas, /* 4,10 portuguese nrc to latin/cyrillic */
4524	xspas, /* 4,11 spanish nrc to latin/cyrillic */
4525	xswas, /* 4,12 swedish nrc to latin/cyrillic */
4526	xchas, /* 4,13 swiss nrc to latin/cyrillic */
4527	xl1as, /* 4,14 latin-1 to latin/cyrillic */
4528	xl2as, /* 4,15 latin-2 to latin/cyrillic */
4529	xdmas, /* 4,16 dec mcs to latin/cyrillic */
4530	xneas, /* 4,17 NeXT to latin/cyrillic */
4531	x43as, /* 4,18 CP437 to latin/cyrillic */
4532	x85as, /* 4,19 CP850 to latin/cyrillic */
4533	x52as, /* 4,20 CP852 to latin/cyrillic */
4534	xaqas, /* 4,21 Macintosh Latin to latin/cyrillic */
4535	xdgas, /* 4,22 DGI to Latin/Cyrillic */
4536	xr8as, /* 4,23 HP to Latin/Cyrillic */
4537	NULL, /* 4,24 Latin/Cyrillic to Latin/Cyrillic */
4538	xaclc, /* 4,25 CP866 to Latin/Cyrillic */
4539	xskcy, /* 4,26 Short KOI to Latin/Cyrillic */
4540	xk8lc, /* 4,27 Old KOI-8 Cyrillic to Latin/Cyrillic */
4541	NULL, /* 4,28 Kanji... */
4542	NULL, /* 4,29 */
4543	NULL, /* 4,30 */
4544	NULL, /* 4,31 */
4545	xh7as, /* 4,32 Hebrew-7 to Latin/Cyrillic */
4546	xlhas, /* 4,33 Latin/Hebrew to Latin/Cyrillic */
4547	x62as, /* 4,34 CP862 Hebrew to Latin/Cyrillic */
4548	NULL, /* 5,00 */
4549	NULL, /* 5,01 */
4550	NULL, /* 5,02 */
4551	NULL, /* 5,03 */
4552	NULL, /* 5,04 */
4553	NULL, /* 5,05 */
4554	NULL, /* 5,06 */
4555	NULL, /* 4.07 */
4556	NULL, /* 5,08 */
4557	NULL, /* 5,09 */
4558	NULL, /* 5,10 */
4559	NULL, /* 5,11 */
4560	NULL, /* 5,12 */
4561	NULL, /* 5,13 */
4562	NULL, /* 5,14 */
4563	NULL, /* 5,15 */
4564	NULL, /* 5,16 */
4565	NULL, /* 5,17 */
4566	NULL, /* 5,18 */
4567	NULL, /* 5,19 */
4568	NULL, /* 5,20 */
4569	NULL, /* 5,21 */
4570	NULL, /* 5,22 */
4571	NULL, /* 5,23 */
4572	NULL, /* 5,24 */
4573	NULL, /* 5,25 */
4574	NULL, /* 5,26 */
4575	NULL, /* 5,27 */
4576	NULL, /* 5,28 */
4577	NULL, /* 5,29 */
4578	NULL, /* 5,30 */
4579	NULL, /* 5,31 */
4580	NULL, /* 5,32 */
4581	NULL, /* 5,33 */
4582	NULL, /* 5,34 */
4583	NULL, /* 6,0 us ascii to Latin/Hebrew */
4584	NULL, /* 6,1 uk ascii to Latin/Hebrew */
4585	xduas, /* 6,2 dutch nrc to Latin/Hebrew */
4586	xfias, /* 6,3 finnish nrc to Latin/Hebrew */
4587	xfras, /* 6,4 french nrc to Latin/Hebrew */
4588	xfcas, /* 6,5 french canadian nrc to Latin/Hebrew */
4589	xgeas, /* 6,6 german nrc to Latin/Hebrew */
4590	xhuas, /* 6,7 hungarian nrc to Latin/Hebrew */
4591	xitas, /* 6,8 italian nrc to Latin/Hebrew */
4592	xnoas, /* 6,9 norge/danish nrc to Latin/Hebrew */
4593	xpoas, /* 6,10 portuguese nrc to Latin/Hebrew */
4594	xspas, /* 6,11 spanish nrc to Latin/Hebrew */
4595	xswas, /* 6,12 swedish nrc to Latin/Hebrew */
4596	xchas, /* 6,13 swiss nrc to Latin/Hebrew */
4597	xl1lh, /* 6,14 latin-1 to Latin/Hebrew */
4598	xl2as, /* 6,15 latin-2 to Latin/Hebrew */
4599	xdmas, /* 6,16 dec mcs to Latin/Hebrew */
4600	xneas, /* 6,17 NeXT to Latin/Hebrew */
4601	x43as, /* 6,18 CP437 to Latin/Hebrew */
4602	x85as, /* 6,19 CP850 to Latin/Hebrew */
4603	x52as, /* 6,20 CP852 to Latin/Hebrew */
4604	xaqas, /* 6,21 Macintosh Latin to Latin/Hebrew */
4605	xdgas, /* 6,22 DGI to Latin/Hebrew */
4606	xr8as, /* 6,23 HP to Latin/Hebrew */
4607	xlcas, /* 6,24 Latin/Cyrillic to Latin/Hebrew */
4608	xacas, /* 6,25 CP866 to Latin/Hebrew */
4609	xskas, /* 6,26 Short KOI to Latin/Hebrew */
4610	xk8as, /* 6,27 Old KOI-8 Cyrillic to Latin/Hebrew */
4611	NULL, /* 6,28 Kanji... */
4612	NULL, /* 4,29 */
4613	NULL, /* 4,30 */
4614	NULL, /* 4,31 */
4615	xh7lh, /* 4,32 Hebrew-7 to Latin/Hebrew */
4616	NULL, /* 6,33 Latin/Hebrew to Latin/Hebrew */
4617	x62lh /* 6,34 CP862 Hebrew to Latin/Hebrew */
4618	};
4619
4620	#ifndef NOLOCAL
4621	/*
4622	The following routines are useful only for terminal character sets, and so
4623	ifdef'd out for NOLOCAL compilations.
4624	*/
4625
4626	/*
4627	C S _ I S _ N R C
4628
4629	Returns nonzero if argument indicates a 7-bit national character set,
4630	zero otherwise.
4631	*/
4632	int
4633	cs_is_nrc(x) int x; {
4634	#ifdef CKOUNI
4635	extern struct x_to_unicode * txrinfo[];
4636	if (x == TX_J201R \|\| x == TX_DECSPEC \|\| x == TX_DECTECH)
4637	return(0);
4638	else
4639	return(txrinfo[x]->flags & X2U_STD && txrinfo[x]->size == 94);
4640	#else /* CKOUNI */
4641	if ((cs_size(x) == 94)
4642	#ifdef OS2
4643	&& x != FC_DECSPEC
4644	&& x != FC_DECTECH
4645	#endif /* OS2 */
4646	)
4647	return(1);
4648	else
4649	return(0);
4650	#endif /* CKOUNI */
4651	}
4652
4653	/*
4654	C S _ I S _ S T D
4655
4656	Returns nonzero if argument indicates an ISO 4873-standard-format
4657	character set, i.e. one in which the control region is NOT used for
4658	graphics; zero otherwise.
4659	*/
4660	int
4661	cs_is_std(x) int x; {
4662	#ifdef CKOUNI
4663	extern struct x_to_unicode * txrinfo[];
4664	if (txrinfo[x]->size == 128) /* Just for safety */
4665	return(0);
4666	else
4667	return(txrinfo[x]->flags & X2U_STD); /* Only this should be needed */
4668	#else
4669	switch (x) {
4670	case FC_CP437: /* Code pages use C1 graphics */
4671	case FC_CP850:
4672	case FC_CP852:
4673	case FC_CP862:
4674	case FC_CP866:
4675	case FC_APPQD: /* So do Apple and NeXTSTEP */
4676	case FC_NEXT:
4677	return(0);
4678	default: /* Others behave */
4679	return(1);
4680	}
4681	#endif /* CKOUINI */
4682	}
4683
4684	int
4685	cs_size(x) int x; {
4686	#ifdef CKOUNI
4687	extern struct x_to_unicode * txrinfo[];
4688	return(txrinfo[x]->size);
4689	#else
4690	switch(x) {
4691	case FC_USASCII:
4692	case FC_UKASCII:
4693	case FC_DUASCII:
4694	case FC_FIASCII:
4695	case FC_FRASCII:
4696	case FC_FCASCII:
4697	case FC_GEASCII:
4698	case FC_HUASCII:
4699	case FC_ITASCII:
4700	case FC_NOASCII:
4701	case FC_POASCII:
4702	case FC_SPASCII:
4703	case FC_SWASCII:
4704	case FC_CHASCII:
4705	case FC_KOI7:
4706	case FC_HE7:
4707	#ifdef OS2
4708	case FC_DECSPEC:
4709	case FC_DECTECH:
4710	#endif /* OS2 */
4711	return(94);
4712
4713	case FC_1LATIN:
4714	case FC_2LATIN:
4715	case FC_DECMCS:
4716	case FC_DGMCS:
4717	case FC_HPR8:
4718	case FC_CYRILL:
4719	case FC_KOI8:
4720	case FC_HEBREW:
4721	return(96);
4722
4723	case FC_NEXT:
4724	case FC_CP437:
4725	case FC_CP850:
4726	case FC_CP852:
4727	case FC_CP862:
4728	case FC_CP866:
4729	case FC_APPQD:
4730	return(128);
4731	#ifdef KANJI
4732	case FC_JIS7:
4733	return(-94);
4734	case FC_SHJIS:
4735	return(-128);
4736	case FC_JEUC:
4737	case FC_JDEC:
4738	return(-96);
4739	#endif /* KANJI */
4740	default:
4741	return(-1);
4742	}
4743	#endif /* CKOUNI */
4744	}
4745	#endif /* NOLOCAL */
4746	#endif /* NOCSETS */

Note: See TracBrowser for help on using the repository browser.

Download in other formats: