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 inviet1.otp
% Conversion to Unicode from Vietnamese VSCII-1 (1993)
% 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:
tabviet1_c0[@"20] = {
@"FFFD, @"00DA, @"1EE4, @"FFFD, @"1EEA, @"1EEC, @"1EEE, @"0007,
@"FFFD, @"FFFD, @"000A, @"FFFD, @"FFFD, @"000C, @"FFFD, @"FFFD,
@"FFFD, @"1EE8, @"1EF0, @"1EF2, @"1EF6, @"1EF8, @"00DD, @"1EF4,
@"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD
};
tabviet1[@"80] = {
@"00C0, @"1EA2, @"00C3, @"00C1, @"1EA0, @"1EB6, @"1EAC, @"00C8,
@"1EBA, @"1EBC, @"00C9, @"1EB8, @"1EC6, @"00CC, @"1EC8, @"0128,
@"00CD, @"1ECA, @"00D2, @"1ECE, @"00D5, @"00D3, @"1ECC, @"1ED8,
@"1EDC, @"1EDE, @"1EE0, @"1EDA, @"1EE2, @"00D9, @"1EE6, @"0168,
@"00A0, @"0102, @"00C2, @"00CA, @"00D4, @"01A0, @"01AF, @"0110,
@"0103, @"00E2, @"00EA, @"00F4, @"01A1, @"01B0, @"0111, @"1EB0,
@"0300, @"0309, @"0303, @"0301, @"0323, @"00E0, @"1EA3, @"00E3,
@"00E1, @"1EA1, @"1EB2, @"1EB1, @"1EB3, @"1EB5, @"1EAF, @"1EB4,
@"1EAE, @"1EA6, @"1EA8, @"1EAA, @"1EA4, @"1EC0, @"1EB7, @"1EA7,
@"1EA9, @"1EAB, @"1EA5, @"1EAD, @"00E8, @"1EC2, @"1EBB, @"1EBD,
@"00E9, @"1EB9, @"1EC1, @"1EC3, @"1EC5, @"1EBF, @"1EC7, @"00EC,
@"1EC9, @"1EC4, @"1EBE, @"1ED2, @"0129, @"00ED, @"1ECB, @"00F2,
@"1ED4, @"1ECF, @"00F5, @"00F3, @"1ECD, @"1ED3, @"1ED5, @"1ED7,
@"1ED1, @"1ED9, @"1EDD, @"1EDF, @"1EE1, @"1EDB, @"1EE3, @"00F9,
@"1ED6, @"1EE7, @"0169, @"00FA, @"1EE5, @"1EEB, @"1EED, @"1EEF,
@"1EE9, @"1EF1, @"1EF3, @"1EF7, @"1EF9, @"00FD, @"1EF5, @"1ED0
};
expressions:
@"20-@"7F => \1;
@"00-@"1F => #(tabviet1_c0[\1]);
@"80-@"FF => #(tabviet1[\1-@"80]);
. => @"FFFD;
|
