diff options
author | Karl Berry <karl@freefriends.org> | 2008-05-10 00:31:48 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-05-10 00:31:48 +0000 |
commit | 3affd633834494c279f96078e95831935ea51ca7 (patch) | |
tree | d18cbef6ade390df34099bff78c593f00e9d7971 /Master/texmf-dist/tex/generic/tex4ht/utf8x.4ht | |
parent | 78d169458ffb8d121d56a1345471b5dbe3f17a2a (diff) |
tex4ht-1.0.2008_05_07_2048
git-svn-id: svn://tug.org/texlive/trunk@8000 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/tex4ht/utf8x.4ht')
-rwxr-xr-x | Master/texmf-dist/tex/generic/tex4ht/utf8x.4ht | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/tex4ht/utf8x.4ht b/Master/texmf-dist/tex/generic/tex4ht/utf8x.4ht new file mode 100755 index 00000000000..c41d6736c5a --- /dev/null +++ b/Master/texmf-dist/tex/generic/tex4ht/utf8x.4ht @@ -0,0 +1,65 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% utf8x.4ht 2008-02-28-20:51 % +% Copyright (C) 2007--2008 Eitan M. Gurari % +% % +% This work may be distributed and/or modified under the % +% conditions of the LaTeX Project Public License, either % +% version 1.3c of this license or (at your option) any % +% later version. The latest version of this license is % +% in % +% http://www.latex-project.org/lppl.txt % +% and version 1.3c or later is part of all distributions % +% of LaTeX version 2005/12/01 or later. % +% % +% This work has the LPPL maintenance status "maintained".% +% % +% This Current Maintainer of this work % +% is Eitan M. Gurari. % +% % +% If you modify this program your changing its signature % +% with a directive of the following form will be % +% appreciated. % +% \message{signature} % +% % +% gurari@cse.ohio-state.edu % +% http://www.cse.ohio-state.edu/~gurari % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\immediate\write-1{version 2008-02-28-20:51} + +\bgroup +\def\temp#1{% + \ifnum \count255<224 + \expandafter\gdef\csname :u8-\number\count255\endcsname ##1{% + \string#1\string##1}% + \else\ifnum \count255<240 + \expandafter\gdef\csname :u8-\number\count255\endcsname ##1##2{% + \string#1\string##1\string##2}% + \else \ifnum \count255<245 + \expandafter\gdef\csname :u8-\number\count255\endcsname ##1##2##3{% + \string#1\string##1\string##2\string##3}% + \fi\fi\fi + \edef\tempa{% + \noexpand\Configure{@newlabel}{\noexpand\let\noexpand #1\expandafter + \noexpand\csname :u8-\number\count255\endcsname}}% + \tempa +} + + + \count255=194\relax + \loop\ifnum\count255<245\relax + \catcode\count255\active + \begingroup + \uccode`\~\count255% + \uccode`\u`\u% + \uppercase{% + \endgroup + \temp{~}}% + \advance\count255by1\relax + \repeat + \expandafter\global\expandafter\let\csname a:@newlabel\expandafter + \endcsname\csname a:@newlabel\endcsname +\egroup +% +% \Hinput{utf8x} +\endinput + |