summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/omega/otp/char2uni/inebcdic.otp
blob: 6a00eca14160b5dea02a28e439e202414ba5c60b (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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
% File inebcdic.otp
% Conversion to Unicode from EBCDIC
% 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:

ebcdic[256] = {
@"00,   @"01,   @"02,   @"03,   @"FFFD, @"09,   @"FFFD, @"7F,
@"FFFD, @"FFFD, @"FFFD, @"0B,   @"0C,   @"0D,   @"0E,   @"0F,
@"10,   @"11,   @"12,   @"13,   @"FFFD, @"FFFD, @"08,   @"FFFD,
@"18,   @"09,   @"FFFD, @"FFFD, @"1C,   @"1D,   @"1E,   @"1F,
@"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"0A,   @"17,   @"1B,
@"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"05,   @"06,   @"07,
@"FFFD, @"FFFD, @"16,   @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"04,
@"FFFD, @"FFFD, @"FFFD, @"FFFD, @"14,   @"15,   @"FFFD, @"1A,
@"20,   @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD,
@"FFFD, @"FFFD, @"5B,   @"2E,   @"3C,   @"28,   @"2B,   @"21,
@"26,   @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD,
@"FFFD, @"FFFD, @"5D,   @"24,   @"2A,   @"29,   @"3B,   @"5E, 
@"2D,   @"2F,   @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD,
@"FFFD, @"FFFD, @"7C,   @"2C,   @"25,   @"5F,   @"3E,   @"3F,
@"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD,
@"FFFD, @"60,   @"3A,   @"23,   @"40,   @"27,   @"3D,   @"22,
@"FFFD, @"61,   @"62,   @"63,   @"64,   @"65,   @"66,   @"67,
@"68,   @"69,   @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD,
@"FFFD, @"6A,   @"6B,   @"6C,   @"6D,   @"6E,   @"6F,   @"70,
@"71,   @"72,   @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD,
@"FFFD, @"7E,   @"73,   @"74,   @"75,   @"76,   @"77,   @"78,
@"79,   @"7A,   @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD,
@"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD,
@"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD,
@"7B,   @"41,   @"42,   @"43,   @"44,   @"45,   @"46,   @"47,
@"48,   @"49,   @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD,
@"7D,   @"4A,   @"4B,   @"4C,   @"4D,   @"4E,   @"4F,   @"50,
@"51,   @"52,   @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD,
@"5C,   @"FFFD, @"53,   @"54,   @"55,   @"56,   @"57,   @"58,
@"59,   @"5A,   @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD,
@"30,   @"31,   @"32,   @"33,   @"34,   @"35,   @"36,   @"37,
@"38,   @"39,   @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD, @"FFFD
};

expressions:

@"00-@"FF	=> #(ebcdic[\1]);
.		=> @"FFFD;