blob: 6ca9d92e9ace5f8b2749d31393d60755c7733045 (
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
%%
%% This is file `c42enc.def',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% ucs.dtx (with options: `c42enc.def')
%%
%% Copyright 2001 Dominique Unruh <unruh@ut.ee>
%% Copyright 2013 Wolfgang Jeltsch <wolfgang@cs.ioc.ee>
%%
%% This program is provided under the terms of the LaTeX Project Public License with some
%% modifications. See the file LICENSE for information.
%%
\ProvidesFile{c42enc.def}[2002/11/25 Fontencoding C42 (JISdnp)]%
\DeclareFontEncoding{C42}{}{}%
\DeclareFontSubstitution{C42}{song}{m}{n}%
\input{cenccmn.tex}%
\expandafter\let\csname C42/song/m/n\endcsname\undefined
\def\cjk@Cfrttw@#1#2#3{%
\advance\count1 by#3
\ifnum\count1>256\advance\count1by-256\def\temp@a{#2}\else\def\temp@a{#1}\fi
%\typeout{#1/#2/#3, \meaning\temp@a, \number\count1}%
}
\def\cjk@Cfrttw#1#2#3#4{% Takes JIS0208 codepos in hex
%\typeout{JIS: #1#2#3#4}%
{%
\count0="#1#2 \count1="#3#4
\advance\count0by-33
\expandafter\cjk@Cfrttw@
\ifcase\count0
{sy}{err}{-32}\or % 0
{sy}{err}{68}\or % 1
{roma}{err}{0}\or % 2
{hira}{err}{-32}\or % 3
{kata}{err}{-32}\or % 4
{greek}{err}{-32}\or % 5
{russian}{err}{-32}\or % 6
{keisen}{err}{-32}\or % 7
{err}{err}{128}\or % 8
{err}{err}{128}\or % 9
{err}{err}{128}\or % 10
{err}{err}{128}\or % 11
{err}{err}{128}\or % 12
{err}{err}{128}\or % 13
{err}{err}{128}\or % 14
{ka}{err}{-33}\or % 15
{ka}{err}{61}\or % 16
{ka}{kb}{155}\or % 17
{kb}{err}{-7}\or % 18
{kb}{err}{87}\or % 19
{kb}{kc}{181}\or % 20
{kc}{err}{19}\or % 21
{kc}{err}{113}\or % 22
{kc}{kd}{207}\or % 23
{kd}{err}{45}\or % 24
{kd}{ke}{139}\or % 25
{ke}{err}{-23}\or % 26
{ke}{err}{71}\or % 27
{ke}{kf}{165}\or % 28
{kf}{err}{3}\or % 29
{kf}{err}{97}\or % 30
{kf}{kg}{191}\or % 31
{kg}{err}{29}\or % 32
{kg}{err}{123}\or % 33
{kg}{kh}{217}\or % 34
{kh}{err}{55}\or % 35
{kh}{ki}{149}\or % 36
{ki}{err}{-13}\or % 37
{ki}{err}{81}\or % 38
{ki}{kj}{175}\or % 39
{kj}{err}{13}\or % 40
{kj}{err}{107}\or % 41
{kj}{kk}{201}\or % 42
{kk}{err}{39}\or % 43
{kk}{kl}{133}\or % 44
{kl}{err}{-29}\or % 45
{kl}{err}{65}\or % 46
{km}{err}{-33}\or % 47
{km}{err}{61}\or % 48
{km}{kn}{155}\or % 49
{kn}{err}{-7}\or % 50
{kn}{err}{87}\or % 51
{kn}{ko}{181}\or % 52
{ko}{err}{19}\or % 53
{ko}{err}{113}\or % 54
{ko}{kp}{207}\or % 55
{kp}{err}{45}\or % 56
{kp}{kq}{139}\or % 57
{kq}{err}{-23}\or % 58
{kq}{err}{71}\or % 59
{kq}{kr}{165}\or % 60
{kr}{err}{3}\or % 61
{kr}{err}{97}\or % 62
{kr}{ks}{191}\or % 63
{ks}{err}{29}\or % 64
{ks}{err}{123}\or % 65
{ks}{kt}{217}\or % 66
{kt}{err}{55}\or % 67
{kt}{ku}{149}\or % 68
{ku}{err}{-13}\or % 69
{ku}{err}{81}\or % 70
{ku}{kv}{175}\or % 71
{kv}{err}{13}\or % 72
{kv}{err}{107}\or % 73
{kv}{kw}{201}\or % 74
{kw}{err}{39}\or % 75
{kw}{kx}{133}\or % 76
{kx}{err}{-29}\or % 77
{kx}{err}{65}\or % 78
{kx}{ky}{159}\or % 79
{ky}{err}{-3}\or % 80
{ky}{err}{91}\or % 81
{ky}{kz}{185}\or % 82
{kz}{err}{23}\else % 83
{err}{err}0\fi
\edef\temp@b{\ifx\temp@a\CJK@plane\else
\def\noexpand\CJK@plane{\temp@a}\noexpand\selectfont\fi
\char\number\count\@ne\space}%
%\typeout{C42: \meaning\temp@b}%
\expandafter}\temp@b%
}%
\DeclareTextCommand\jischar{C42}[1]{\cjk@Cfrttw#1}
\DeclareTextCommandDefault\jischar[1]{{\fontencoding{C42}%
\let\CJK@plane\undefined\cjk@Cfrttw#1}}
|
