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 intis620.otp
% Conversion to Unicode from TIS 620-1986 (Thai+ASCII)
% 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:
tabtis620[@"60] = {
@"FFFD, @"0E01, @"0E02, @"0E03, @"0E04, @"0E05, @"0E06, @"0E07,
@"0E08, @"0E09, @"0E0A, @"0E0B, @"0E0C, @"0E0D, @"0E0E, @"0E0F,
@"0E10, @"0E11, @"0E12, @"0E13, @"0E14, @"0E15, @"0E16, @"0E17,
@"0E18, @"0E19, @"0E1A, @"0E1B, @"0E1C, @"0E1D, @"0E1E, @"0E1F,
@"0E20, @"0E21, @"0E22, @"0E23, @"0E24, @"0E25, @"0E26, @"0E27,
@"0E28, @"0E29, @"0E2A, @"0E2B, @"0E2C, @"0E2D, @"0E2E, @"0E2F,
@"0E30, @"0E31, @"0E32, @"0E33, @"0E34, @"0E35, @"0E36, @"0E37,
@"0E38, @"0E39, @"0E3A, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"0E3F,
@"0E40, @"0E41, @"0E42, @"0E43, @"0E44, @"0E45, @"0E46, @"0E47,
@"0E48, @"0E49, @"0E4A, @"0E4B, @"0E4C, @"0E4D, @"0E4E, @"0E4F,
@"0E50, @"0E51, @"0E52, @"0E53, @"0E54, @"0E55, @"0E56, @"0E57,
@"0E58, @"0E59, @"0E5A, @"0E5B, @"FFFD, @"FFFD, @"FFFD, @"FFFD
};
expressions:
@"00-@"7F => \1;
@"A0-@"FF => #(tabtis620[\1-@"60]);
. => @"FFFD;
|
