blob: 174c465dc001d06a2a2658a1500bf4f6ef30c0dc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
% File inutf8.otp
% Conversion to Unicode from UTF-8
% Copyright (c) 1999 John Plaice and Yannis Haralambous
% This file is part of the Omega project.
%
% The information was provided by Martin Duerst.
%
input: 1;
output: 2;
expressions:
@"00-@"7F
=> \1;
(@"C0-@"DF)(@"80-@"BF)
=> #(((\1-@"C0)*@"40) + (\2-@"80));
(@"E0-@"EF)(@"80-@"BF)(@"80-@"BF)
=> #(((\1-@"E0)*@"1000) + ((\2-@"80)*@"40) + (\3-@"80));
. => @"FFFD;
|