the Matita manual is now convertible to a decent .tex that is processable both

[helm.git] / share / texmf / unicode / contrib / lucenc.def

diff --git a/share/texmf/unicode/contrib/lucenc.def b/share/texmf/unicode/contrib/lucenc.def
new file mode 100644 (file)
index 0000000..431d2de
--- /dev/null
+++ b/share/texmf/unicode/contrib/lucenc.def
@@ -0,0 +1,100 @@
+%%
+%% 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 <dominique@unruh.de>
+%% 
+%% This program is provided under the terms of the LaTeX Project Public
+%% License with some modifications.
+%% See the file LICENSE (http://www.unruh.de/DniQ/latex/unicode/content/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