1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
% File inmsdos2.otp
% Conversion to Unicode from IBM PC: CP 437 with graphics in C0
% Copyright (c) 1995 John Plaice and Yannis Haralambous
% This file is part of the Omega project.
%
% This file was derived from data in the tcs program
% (ftp://plan9.att.com/plan9/unixsrc/tcs.shar.Z, 16 November 1994)
%
input: 1;
output: 2;
tables:
tabmsdos2_c0[@"20] = {
@"0000, @"263A, @"263B, @"2665, @"2666, @"2663, @"2660, @"2022,
@"25D8, @"25CB, @"25D9, @"2642, @"2640, @"266A, @"266B, @"263C,
@"25B6, @"25C0, @"2195, @"203C, @"00B6, @"00A7, @"2043, @"21A8,
@"2191, @"2193, @"2192, @"2190, @"2319, @"2194, @"25B2, @"25BC
};
tabmsdos2[@"80] = {
@"00C7, @"00FC, @"00E9, @"00E2, @"00E4, @"00E0, @"00E5, @"00E7,
@"00EA, @"00EB, @"00E8, @"00EF, @"00EE, @"00EC, @"00C4, @"00C5,
@"00C9, @"00E6, @"00C6, @"00F4, @"00F6, @"00F2, @"00FB, @"00F9,
@"00FF, @"00D6, @"00DC, @"00A2, @"00A3, @"00A5, @"20A7, @"0192,
@"00E1, @"00ED, @"00F3, @"00FA, @"00F1, @"00D1, @"00AA, @"00BA,
@"00BF, @"2310, @"00AC, @"00BD, @"00BC, @"00A1, @"00AB, @"00BB,
@"2591, @"2592, @"2593, @"2502, @"2524, @"2561, @"2562, @"2556,
@"2555, @"2563, @"2551, @"2557, @"255D, @"255C, @"255B, @"2510,
@"2514, @"2534, @"252C, @"251C, @"2500, @"253C, @"255E, @"255F,
@"255A, @"2554, @"2569, @"2566, @"2560, @"2550, @"256C, @"2567,
@"2568, @"2564, @"2565, @"2559, @"2558, @"2552, @"2553, @"256B,
@"256A, @"2518, @"250C, @"2588, @"2584, @"258C, @"2590, @"2580,
@"03B1, @"00DF, @"0393, @"03C0, @"03A3, @"03C3, @"00B5, @"03C4,
@"03A6, @"0398, @"2126, @"03B4, @"221E, @"2205, @"2208, @"2229,
@"2261, @"00B1, @"2265, @"2264, @"2320, @"2321, @"00F7, @"2248,
@"00B0, @"2022, @"00B7, @"221A, @"207F, @"00B2, @"220E, @"00A0
};
expressions:
@"20-@"7F => \1;
@"00-@"1F => #(tabmsdos2_c0[\1]);
@"80-@"FF => #(tabmsdos2[\1-@"80]);
. => @"FFFD;
|
