summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/ucs/utils/cenccmn.tex
blob: 217280c8a3856001cec8be4e604963c78a1e2b7f (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
%%
%% This is file `cenccmn.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% ucs.dtx  (with options: `cenccmn.tex')
%% 
%% 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{cenccmn.tex}[2001/10/25
    Macros common to fontencodings C00, C40, C61]%
\def\CJK@@empty#1{%
  \ifx\CJK@plane\undefined\def\mandatory@arg{cmr10}\else
  \edef\mandatory@arg{\mandatory@arg\CJK@plane}\fi%
  \empty@sfcnt#1%
  \xdef\font@name{\csname \curr@fontshape/\f@size/%
    \ifx\CJK@plane\undefined\else\CJK@plane\fi\endcsname}}
\def\CJK@@sub#1{%
  \expandafter\ifx\csname CJK@\mandatory@arg/\f@size\endcsname\relax
  \expandafter\gdef\csname CJK@\mandatory@arg/\f@size\endcsname{}%
  \sub@sfcnt#1%
  \else
  \sub@sfcnt\@gobble
  \fi}
\def\CJK@DNPgen{%
  \ifx\CJK@plane\undefined\def\external@font{cmr10}\else
  \edef\external@font{%
    \mandatory@arg\CJK@plane\f@size}\fi
  \xdef\font@name{%
    \csname \curr@fontshape/\f@size/%
    \ifx\CJK@plane\undefined\else\CJK@plane\fi\endcsname}}%
\def\CJK@DNP{%
  \ifx\CJK@plane\undefined\def\external@font{cmr10}\else
  \@tempdimb \f@size\p@
  \edef\external@font{%
    \mandatory@arg\CJK@plane\optional@arg\space at \the\@tempdimb}\fi
  \xdef\font@name{%
    \csname \curr@fontshape/\f@size/%
    \ifx\CJK@plane\undefined\else\CJK@plane\fi\endcsname\endcsname}}
\DeclareSizeFunction{CJK}{\CJK@@empty\@font@warning}
\DeclareSizeFunction{CJKb}{\CJK@@empty\@font@warning}
\DeclareSizeFunction{sCJK}{\CJK@@empty\@font@info}
\DeclareSizeFunction{sCJKb}{\CJK@@empty\@font@info}
\DeclareSizeFunction{CJKsub}{\CJK@@sub\@font@warning}
\DeclareSizeFunction{CJKssub}{\CJK@@sub\@font@info}
\DeclareSizeFunction{DNPgen}{\CJK@DNPgen}
\DeclareSizeFunction{DNPgenb}{\CJK@DNPgen}
\DeclareSizeFunction{DNP}{\CJK@DNP}
\DeclareSizeFunction{DNPb}{\CJK@DNP}
\@ifpackageloaded{CJK}{}{%
  \AtBeginDocument{%
    \@ifpackageloaded{CJK}{%
      \PackageError{fontenc C??}{Load fontencoding C00/C40/... after CJK}{%
        Otherwise strange things may happen, when you use those encodings}}{}}}
\def\CJKresetplane{\let\CJK@plane\undefined}
%%% Local Variables:
%%% mode: latex
%%% coding: utf-8
%%% TeX-master: "../test.tex"
%%% End:
%%% Local IspellDict: british