%% %% 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 %% Copyright 2013 Wolfgang Jeltsch %% %% 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