helm/software/share/texmf/unicode/contrib/c42enc.def

   1 %%
   2 %% This is file `c42enc.def',
   3 %% generated with the docstrip utility.
   4 %%
   5 %% The original source files were:
   6 %%
   7 %% ucs.dtx  (with options: `c42enc.def')
   8 %%
   9 %% Copyright 2001 Dominique Unruh <dominique@unruh.de>
  10 %%
  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)
  14 %% for information.
  15 %%
  16 \ProvidesFile{c42enc.def}[2002/11/25 Fontencoding C42 (JISdnp)]%
  17 \DeclareFontEncoding{C42}{}{}%
  18 \DeclareFontSubstitution{C42}{song}{m}{n}%
  19 \input{cenccmn.tex}%
  20 \expandafter\let\csname C42/song/m/n\endcsname\undefined
  21 \def\cjk@Cfrttw@#1#2#3{%
  22   \advance\count1 by#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}%
  25 }
  26 \def\cjk@Cfrttw#1#2#3#4{% Takes JIS0208 codepos in hex
  27   %\typeout{JIS: #1#2#3#4}%
  28   {%
  29     \count0="#1#2 \count1="#3#4
  30     \advance\count0by-33
  31     \expandafter\cjk@Cfrttw@
  32     \ifcase\count0
  33     {sy}{err}{-32}\or % 0
  34     {sy}{err}{68}\or % 1
  35     {roma}{err}{0}\or % 2
  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
  49     {ka}{err}{61}\or % 16
  50     {ka}{kb}{155}\or % 17
  51     {kb}{err}{-7}\or % 18
  52     {kb}{err}{87}\or % 19
  53     {kb}{kc}{181}\or % 20
  54     {kc}{err}{19}\or % 21
  55     {kc}{err}{113}\or % 22
  56     {kc}{kd}{207}\or % 23
  57     {kd}{err}{45}\or % 24
  58     {kd}{ke}{139}\or % 25
  59     {ke}{err}{-23}\or % 26
  60     {ke}{err}{71}\or % 27
  61     {ke}{kf}{165}\or % 28
  62     {kf}{err}{3}\or % 29
  63     {kf}{err}{97}\or % 30
  64     {kf}{kg}{191}\or % 31
  65     {kg}{err}{29}\or % 32
  66     {kg}{err}{123}\or % 33
  67     {kg}{kh}{217}\or % 34
  68     {kh}{err}{55}\or % 35
  69     {kh}{ki}{149}\or % 36
  70     {ki}{err}{-13}\or % 37
  71     {ki}{err}{81}\or % 38
  72     {ki}{kj}{175}\or % 39
  73     {kj}{err}{13}\or % 40
  74     {kj}{err}{107}\or % 41
  75     {kj}{kk}{201}\or % 42
  76     {kk}{err}{39}\or % 43
  77     {kk}{kl}{133}\or % 44
  78     {kl}{err}{-29}\or % 45
  79     {kl}{err}{65}\or % 46
  80     {km}{err}{-33}\or % 47
  81     {km}{err}{61}\or % 48
  82     {km}{kn}{155}\or % 49
  83     {kn}{err}{-7}\or % 50
  84     {kn}{err}{87}\or % 51
  85     {kn}{ko}{181}\or % 52
  86     {ko}{err}{19}\or % 53
  87     {ko}{err}{113}\or % 54
  88     {ko}{kp}{207}\or % 55
  89     {kp}{err}{45}\or % 56
  90     {kp}{kq}{139}\or % 57
  91     {kq}{err}{-23}\or % 58
  92     {kq}{err}{71}\or % 59
  93     {kq}{kr}{165}\or % 60
  94     {kr}{err}{3}\or % 61
  95     {kr}{err}{97}\or % 62
  96     {kr}{ks}{191}\or % 63
  97     {ks}{err}{29}\or % 64
  98     {ks}{err}{123}\or % 65
  99     {ks}{kt}{217}\or % 66
 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
 117     {err}{err}0\fi
 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%
 123   }%
 124 \DeclareTextCommand\jischar{C42}[1]{\cjk@Cfrttw#1}
 125 \DeclareTextCommandDefault\jischar[1]{{\fontencoding{C42}%
 126     \let\CJK@plane\undefined\cjk@Cfrttw#1}}