summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/omega/otp/char2uni/inmsdos.otp
blob: 5292e2b401e44f23ba18a463f5e60c9229a688df (plain)
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
% File inmsdos.otp
% Conversion to Unicode from IBM PC: CP 437
% 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:

tabmsdos[@"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:

@"00-@"7F	=> \1;
@"80-@"FF	=> #(tabmsdos[\1-@"80]);
.		=> @"FFFD;