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
|
% File in88592.otp
% Conversion to Unicode from ISO-8859-2 (Latin-2)
% 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:
tab8859_2[@"60] = {
@"00A0, @"0104, @"02D8, @"0141, @"00A4, @"013D, @"015A, @"00A7,
@"00A8, @"0160, @"015E, @"0164, @"0179, @"00AD, @"017D, @"017B,
@"00B0, @"0105, @"02DB, @"0142, @"00B4, @"013E, @"015B, @"02C7,
@"00B8, @"0161, @"015F, @"0165, @"017A, @"02DD, @"017E, @"017C,
@"0154, @"00C1, @"00C2, @"0102, @"00C4, @"0139, @"0106, @"00C7,
@"010C, @"00C9, @"0118, @"00CB, @"011A, @"00CD, @"00CE, @"010E,
@"0110, @"0143, @"0147, @"00D3, @"00D4, @"0150, @"00D6, @"00D7,
@"0158, @"016E, @"00DA, @"0170, @"00DC, @"00DD, @"0162, @"00DF,
@"0155, @"00E1, @"00E2, @"0103, @"00E4, @"013A, @"0107, @"00E7,
@"010D, @"00E9, @"0119, @"00EB, @"011B, @"00ED, @"00EE, @"010F,
@"0111, @"0144, @"0148, @"00F3, @"00F4, @"0151, @"00F6, @"00F7,
@"0159, @"016F, @"00FA, @"0171, @"00FC, @"00FD, @"0163, @"02D9
};
expressions:
@"00-@"9F => \1;
@"A0-@"FF => #(tab8859_2[\1-@"A0]);
. => @"FFFD;
|
