diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/ucs/utils/lucenc.def')
-rw-r--r-- | Master/texmf-dist/tex/latex/ucs/utils/lucenc.def | 99 |
1 files changed, 99 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/ucs/utils/lucenc.def b/Master/texmf-dist/tex/latex/ucs/utils/lucenc.def new file mode 100644 index 00000000000..8e4e9b86489 --- /dev/null +++ b/Master/texmf-dist/tex/latex/ucs/utils/lucenc.def @@ -0,0 +1,99 @@ +%% +%% This is file `lucenc.def', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% ucs.dtx (with options: `lucenc.def') +%% +%% Copyright 2001 Dominique Unruh <unruh@ut.ee> +%% Copyright 2012 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. +%% +\catcode`\@11 +\ifx\@tempcnta\undefined\csname newcount\endcsname\@tempcnta\fi +\ifx\@tempcntb\undefined\csname newcount\endcsname\@tempcntb\fi +\def\lucchar#1{% + \begingroup + \@tempcnta=#1\divide\@tempcnta by"1000 + \multiply\@tempcnta by-"1000\advance\@tempcnta by#1% + \divide\@tempcnta by"100% + \@tempcntb=#1\divide\@tempcntb by"10000 + \multiply\@tempcntb by-"10000\advance\@tempcntb by#1% + \divide\@tempcntb by"1000% + \xdef\LUC@plane@LUC{% + \ifcase\@tempcntb0\or1\or2\or3\or4\or5\or6\or7\or + 8\or9\or a\or b\or c\or d\or e\or f\fi + \ifcase\@tempcnta0\or1\or2\or3\or4\or5\or6\or7\or + 8\or9\or a\or b\or c\or d\or e\or f\fi}% + \ifnum#1>"FFFF + \@tempcnta=#1\divide\@tempcnta by"100000 + \multiply\@tempcnta by-"100000\advance\@tempcnta by#1% + \divide\@tempcnta by"10000% + \xdef\LUC@plane@LUC{% + \ifcase\@tempcnta0\or1\or2\or3\or4\or5\or6\or7\or + 8\or9\or a\or b\or c\or d\or e\or f\fi + \LUC@plane@LUC}% + \ifnum#1>"FFFFF + \@tempcnta=#1\divide\@tempcnta by"1000000 + \multiply\@tempcnta by-"1000000\advance\@tempcnta by#1% + \divide\@tempcnta by"100000% + \xdef\LUC@plane@LUC{% + \ifcase\@tempcnta0\or1\or2\or3\or4\or5\or6\or7\or + 8\or9\or a\or b\or c\or d\or e\or f\fi + \LUC@plane@LUC}% + \fi + \fi + \@tempcnta=#1\divide\@tempcnta by"100 + \multiply\@tempcnta by-"100\advance\@tempcnta by#1% + \relax + %\typeout{Plane: \LUC@plane@LUC, Char: \number\@tempcnta}% + \expandafter\endgroup + \expandafter\luc@char\expandafter{\number\@tempcnta}% +} +\def\luc@loadfont{% + \expandafter\ifx\csname LUC-font-\LUCfont\LUC@plane@LUC\endcsname\relax + \expandafter\font\csname LUC-font-\LUCfont\LUC@plane@LUC\endcsname=% + \LUCfont\LUC@plane@LUC\fi + \csname LUC-font-\LUCfont\LUC@plane@LUC\endcsname} +\def\luc@char#1{% + \ifx\LUC@plane@LUC\LUC@plane@old\else + \ifx\LUCfont\undefined\selectfont + \else\luc@loadfont\fi + \fi + \char#1 } +\ifx\NeedsTeXFormat\undefined\endinput\fi + +\ProvidesFile{lucenc.def}[2002/02/20 Encoding for Unicode fonts] +\DeclareFontEncoding{LUC}{}{}% +\DeclareFontSubstitution{LUC}{arial}{m}{n}% +\providecommand\LUC@@empty[1]{% + \edef\mandatory@arg{\mandatory@arg\csname LUC@plane@\f@encoding\endcsname}% + \empty@sfcnt#1% + \edef\uc@temp@a{\csname LUC@plane@\f@encoding\endcsname}% + \xdef\font@name{\csname \curr@fontshape/\f@size/\uc@temp@a\endcsname}} +\providecommand\LUC@@sub[1]{% + \expandafter\ifx\csname LUC@\mandatory@arg/\f@size\endcsname\relax + \expandafter\gdef\csname LUC@\mandatory@arg/\f@size\endcsname{}% + \sub@sfcnt#1% + \else + \sub@sfcnt\@gobble + \fi} +\DeclareSizeFunction{LUC}{\LUC@@empty\@font@warning} +\DeclareSizeFunction{LUCb}{\LUC@@empty\@font@warning} +\DeclareSizeFunction{sLUC}{\LUC@@empty\@font@info} +\DeclareSizeFunction{sLUCb}{\LUC@@empty\@font@info} +\DeclareSizeFunction{LUCsub}{\LUC@@sub\@font@warning} +\DeclareSizeFunction{LUCssub}{\LUC@@sub\@font@info} +\gdef\LUC@plane@LUC{00}% +\DeclareTextCommand{\textascii}{\LastDeclaredEncoding}[1]{\textunicodechar{`#1}} +\DeclareTextCommand{\textunicodechar}{\LastDeclaredEncoding}[1]{\lucchar{#1}} + +%%% Local Variables: +%%% mode: latex +%%% coding: utf-8 +%%% TeX-master: "../test.tex" +%%% End: +%%% Local IspellDict: british |