helm/software/share/texmf/unicode/contrib/cenccmn.tex

   1 %%
   2 %% This is file `cenccmn.tex',
   3 %% generated with the docstrip utility.
   4 %%
   5 %% The original source files were:
   6 %%
   7 %% ucs.dtx  (with options: `cenccmn.tex')
   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{cenccmn.tex}[2001/10/25
  17     Macros common to fontencodings C00, C40, C61]%
  18 \def\CJK@@empty#1{%
  19   \ifx\CJK@plane\undefined\def\mandatory@arg{cmr10}\else
  20   \edef\mandatory@arg{\mandatory@arg\CJK@plane}\fi%
  21   \empty@sfcnt#1%
  22   \xdef\font@name{\csname \curr@fontshape/\f@size/%
  23     \ifx\CJK@plane\undefined\else\CJK@plane\fi\endcsname}}
  24 \def\CJK@@sub#1{%
  25   \expandafter\ifx\csname CJK@\mandatory@arg/\f@size\endcsname\relax
  26   \expandafter\gdef\csname CJK@\mandatory@arg/\f@size\endcsname{}%
  27   \sub@sfcnt#1%
  28   \else
  29   \sub@sfcnt\@gobble
  30   \fi}
  31 \def\CJK@DNPgen{%
  32   \ifx\CJK@plane\undefined\def\external@font{cmr10}\else
  33   \edef\external@font{%
  34     \mandatory@arg\CJK@plane\f@size}\fi
  35   \xdef\font@name{%
  36     \csname \curr@fontshape/\f@size/%
  37     \ifx\CJK@plane\undefined\else\CJK@plane\fi\endcsname}}%
  38 \def\CJK@DNP{%
  39   \ifx\CJK@plane\undefined\def\external@font{cmr10}\else
  40   \@tempdimb \f@size\p@
  41   \edef\external@font{%
  42     \mandatory@arg\CJK@plane\optional@arg\space at \the\@tempdimb}\fi
  43   \xdef\font@name{%
  44     \csname \curr@fontshape/\f@size/%
  45     \ifx\CJK@plane\undefined\else\CJK@plane\fi\endcsname\endcsname}}
  46 \DeclareSizeFunction{CJK}{\CJK@@empty\@font@warning}
  47 \DeclareSizeFunction{CJKb}{\CJK@@empty\@font@warning}
  48 \DeclareSizeFunction{sCJK}{\CJK@@empty\@font@info}
  49 \DeclareSizeFunction{sCJKb}{\CJK@@empty\@font@info}
  50 \DeclareSizeFunction{CJKsub}{\CJK@@sub\@font@warning}
  51 \DeclareSizeFunction{CJKssub}{\CJK@@sub\@font@info}
  52 \DeclareSizeFunction{DNPgen}{\CJK@DNPgen}
  53 \DeclareSizeFunction{DNPgenb}{\CJK@DNPgen}
  54 \DeclareSizeFunction{DNP}{\CJK@DNP}
  55 \DeclareSizeFunction{DNPb}{\CJK@DNP}
  56 \@ifpackageloaded{CJK}{}{%
  57   \AtBeginDocument{%
  58     \@ifpackageloaded{CJK}{%
  59       \PackageError{fontenc C??}{Load fontencoding C00/C40/... after CJK}{%
  60         Otherwise strange things may happen, when you use those encodings}}{}}}
  61 \def\CJKresetplane{\let\CJK@plane\undefined}
  62 %%% Local Variables:
  63 %%% mode: latex
  64 %%% coding: utf-8
  65 %%% TeX-master: "../test.tex"
  66 %%% End:
  67 %%% Local IspellDict: british