2 %% This is file `c42enc.def',
3 %% generated with the docstrip utility.
5 %% The original source files were:
7 %% ucs.dtx (with options: `c42enc.def')
9 %% Copyright 2001 Dominique Unruh <dominique@unruh.de>
11 %% This program is provided under the terms of the LaTeX Project Public
12 %% License with some modifications.
13 %% See the file LICENSE (http://www.unruh.de/DniQ/latex/unicode/content/LICENSE)
16 \ProvidesFile{c42enc.def}[2002/11/25 Fontencoding C42 (JISdnp)]%
17 \DeclareFontEncoding{C42}{}{}%
18 \DeclareFontSubstitution{C42}{song}{m}{n}%
20 \expandafter\let\csname C42/song/m/n\endcsname\undefined
21 \def\cjk@Cfrttw@#1#2#3{%
23 \ifnum\count1>256\advance\count1by-256\def\temp@a{#2}\else\def\temp@a{#1}\fi
24 %\typeout{#1/#2/#3, \meaning\temp@a, \number\count1}%
26 \def\cjk@Cfrttw#1#2#3#4{% Takes JIS0208 codepos in hex
27 %\typeout{JIS: #1#2#3#4}%
29 \count0="#1#2 \count1="#3#4
31 \expandafter\cjk@Cfrttw@
36 {hira}{err}{-32}\or % 3
37 {kata}{err}{-32}\or % 4
38 {greek}{err}{-32}\or % 5
39 {russian}{err}{-32}\or % 6
40 {keisen}{err}{-32}\or % 7
41 {err}{err}{128}\or % 8
42 {err}{err}{128}\or % 9
43 {err}{err}{128}\or % 10
44 {err}{err}{128}\or % 11
45 {err}{err}{128}\or % 12
46 {err}{err}{128}\or % 13
47 {err}{err}{128}\or % 14
48 {ka}{err}{-33}\or % 15
55 {kc}{err}{113}\or % 22
59 {ke}{err}{-23}\or % 26
66 {kg}{err}{123}\or % 33
70 {ki}{err}{-13}\or % 37
74 {kj}{err}{107}\or % 41
78 {kl}{err}{-29}\or % 45
80 {km}{err}{-33}\or % 47
87 {ko}{err}{113}\or % 54
91 {kq}{err}{-23}\or % 58
98 {ks}{err}{123}\or % 65
100 {kt}{err}{55}\or % 67
101 {kt}{ku}{149}\or % 68
102 {ku}{err}{-13}\or % 69
103 {ku}{err}{81}\or % 70
104 {ku}{kv}{175}\or % 71
105 {kv}{err}{13}\or % 72
106 {kv}{err}{107}\or % 73
107 {kv}{kw}{201}\or % 74
108 {kw}{err}{39}\or % 75
109 {kw}{kx}{133}\or % 76
110 {kx}{err}{-29}\or % 77
111 {kx}{err}{65}\or % 78
112 {kx}{ky}{159}\or % 79
113 {ky}{err}{-3}\or % 80
114 {ky}{err}{91}\or % 81
115 {ky}{kz}{185}\or % 82
116 {kz}{err}{23}\else % 83
118 \edef\temp@b{\ifx\temp@a\CJK@plane\else
119 \def\noexpand\CJK@plane{\temp@a}\noexpand\selectfont\fi
120 \char\number\count\@ne\space}%
121 %\typeout{C42: \meaning\temp@b}%
122 \expandafter}\temp@b%
124 \DeclareTextCommand\jischar{C42}[1]{\cjk@Cfrttw#1}
125 \DeclareTextCommandDefault\jischar[1]{{\fontencoding{C42}%
126 \let\CJK@plane\undefined\cjk@Cfrttw#1}}