diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/cjk/mule/MULEenc.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/cjk/mule/MULEenc.sty | 501 |
1 files changed, 0 insertions, 501 deletions
diff --git a/Master/texmf-dist/tex/latex/cjk/mule/MULEenc.sty b/Master/texmf-dist/tex/latex/cjk/mule/MULEenc.sty deleted file mode 100644 index afa7ee184b3..00000000000 --- a/Master/texmf-dist/tex/latex/cjk/mule/MULEenc.sty +++ /dev/null @@ -1,501 +0,0 @@ -% This is the file MULEenc.sty of the CJK package -% providing an interface to `cjk-enc.el' (a special Emacs mode) -% -% created by Werner Lemberg <wl@gnu.org> -% -% Version 4.8.1 (10-Aug-2008) - -% Copyright (C) 1994-2008 Werner Lemberg <wl@gnu.org> -% -% This program is free software; you can redistribute it and/or modify -% it under the terms of the GNU General Public License as published by -% the Free Software Foundation; either version 2 of the License, or -% (at your option) any later version. -% -% This program is distributed in the hope that it will be useful, -% but WITHOUT ANY WARRANTY; without even the implied warranty of -% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -% GNU General Public License for more details. -% -% You should have received a copy of the GNU General Public License -% along with this program in doc/COPYING; if not, write to the Free -% Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, -% MA 02110-1301 USA - -\makeatletter -\endlinechar \m@ne - -\def\fileversion{4.8.1} -\def\filedate{2008/08/10} -\ProvidesPackage{MULEenc}[\filedate\space\fileversion] -\NeedsTeXFormat{LaTeX2e}[1998/06/01] - - -% to allow Latin encodings in verbatim environments we activate the -% character ^^7f and define it as a multiplex character which executes -% its first argument; it will also be used as a delimiter. - -\catcode "7F \active - -\def^^7f{ - \ifx\protect \@typeset@protect - \expandafter\mule@arg - \else - \noexpand ^^7f - \fi} - -\def\mule@arg#1^^7f#2^^7f{ - \mule@@arg #2^^7f#1^^7f#2^^7f} - -\def\mule@@arg#1^^7f{ - \mule@ifbslash #1^^7f - \expandafter\mule@@@arg - \else - \expandafter\mule@exec - \fi} - -\def\mule@@@arg#1^^7f#2^^7f{ - \csname mule@\string #1\endcsname{#2}} - - -% the pseudo-if \mule@ifbslash tests whether its argument contains a -% backslash with a character category code (this happens in verbatim -% environments). We need to change the catcode of `\' locally to -% achieve that. -% -% \mule@exec then swallows this backslash so we can call \csname (twice). -% -% All these weird constructions assure that we do not lose kerning between -% characters---only macro expansion is allowed! - -\let\mule@@@ \@empty - -{\catcode`\|=\z@ - \catcode`\\=12\relax - |gdef|mule@ifbslash#1^^7f{ - |mule@@ifbslash #1\^^7f} - |gdef|mule@@ifbslash#1\#2^^7f{ - |expandafter|expandafter|expandafter|ifx - |expandafter|csname |string #2mule@@@|endcsname |@empty} - |gdef|mule@exec#1^^7f\#2^^7f{ - |expandafter|csname - mule@#1|expandafter |endcsname |csname #2|endcsname} -} - - -% here come the definitions for the macros cjk-enc.el emits. - -% first some \let's to avoid problems in tabbing environments. - -\AtBeginDocument{ - \let\mule@acute \' - \let\mule@grave \` - \let\mule@macron \= - \let\mule@hacek \v} - -% and now the missing definitions for cjk-enc.el to represent Latin -% encodings. - -% these definitions may be overridden with \ProvideTextCommandDefault -% commands. - -\def\textonequarter{\ensuremath{\frac14}} -\def\textonehalf{\ensuremath{\frac12}} -\def\textthreequarters{\ensuremath{\frac34}} - -% LaTeX defines the following macros as \math... instead of \text..., -% but we want that all commands work in text mode. - -\def\textonesuperior{\ensuremath{{^1}}} -\def\texttwosuperior{\ensuremath{{^2}}} -\def\textthreesuperior{\ensuremath{{^3}}} - -% the next macros are text versions of the corresponding math macros. - -\def\textlnot{\ensuremath{\lnot}} -\def\textpm{\ensuremath{\pm}} -\def\textmu{\ensuremath{\mu}} -\def\texttimes{\ensuremath{\times}} -\def\textdiv{\ensuremath{\div}} - -% this macro is not in the LaTeX 2e base package - -\def\textcommercialat{\char64} - -% the following macro is not defined in standard LaTeX2e. -% -% JIS X 0201: 0x7E \textoverscore (U+203E) - - -% to make the multiplex macro work with \uppercase and \lowercase too, -% numbers are used as parameters in the ^^7f macro. - -\def\mule@def#1{\expandafter\def\csname mule@\string #1\endcsname} - -% accents - -\mule@def{8}{\"} -\mule@def{15}{\mule@macron} -\mule@def{20}{\mule@acute} -\mule@def{24}{\c} -\mule@def{32}{\mule@grave} -\mule@def{33}{\^} -\mule@def{34}{\~} -\mule@def{48}{\k} -\mule@def{49}{\u} -\mule@def{51}{\mule@hacek} -\mule@def{52}{\.} -\mule@def{53}{\r} -\mule@def{55}{\H} - -% Vietnamese hook (\h; only defined in T5 encoding) and dot below accent - -\mule@def{71}{\d} -\mule@def{73}{\h} - -% symbols - -\mule@def{1}{\textexclamdown} -\mule@def{2}{\textcent} -\mule@def{3}{\textsterling} -\mule@def{4}{\textcurrency} -\mule@def{5}{\textyen} -\mule@def{6}{\textbrokenbar} -\mule@def{7}{\S} -\mule@def{9}{\copyright} -\mule@def{10}{\textordfeminine} -\mule@def{11}{\guillemotleft} -\mule@def{12}{\textlnot} -\mule@def{14}{\textregistered} -\mule@def{16}{\textdegree} -\mule@def{17}{\textpm} -\mule@def{18}{\texttwosuperior} -\mule@def{19}{\textthreesuperior} -\mule@def{21}{\textmu} -\mule@def{22}{\P} -\mule@def{23}{\textperiodcentered} -\mule@def{25}{\textonesuperior} -\mule@def{26}{\textordmasculine} -\mule@def{27}{\guillemotright} -\mule@def{28}{\textonequarter} -\mule@def{29}{\textonehalf} -\mule@def{30}{\textthreequarters} -\mule@def{31}{\textquestiondown} -\mule@def{36}{\textcommercialat} -\mule@def{37}{\textquotedbl} -\mule@def{38}{\texttimes} -\mule@def{39}{\textdollar} -\mule@def{40}{\textquoteright} -\mule@def{41}{\textless} -\mule@def{42}{\textgreater} -\mule@def{43}{\textasciicircum} -\mule@def{44}{\textunderscore} -\mule@def{45}{\textdiv} -\mule@def{46}{\textquoteleft} -\mule@def{47}{\textbraceleft} -\mule@def{50}{\textbar} -\mule@def{54}{\textbraceright} -\mule@def{56}{\textoverscore} -\mule@def{99}{\nobreakspace} - -\mule@def{35}{\textnumero} % Cyrillic Number Sign - -% letters - -\let\TEXTMALTESEH \textmalteseH -\def\I{I} % uppercase form of \i - -\let\TEXTTSTROKE \textTstroke -\mule@def{59}{\textkra} - -% commands - -\mule@def{0}{\@firstofone} % for commands as arguments which exist - % in both uppercase and lowercase forms - % like \AA and \aa -\mule@def{64}{\CJKspace\@gobble} -\mule@def{65}{\CJKnospace\@gobble} -\mule@def{66}{\CJKenc{JIS}\@gobble} -\mule@def{67}{\CJKenc{GB}\@gobble} -\mule@def{68}{\CJKenc{Bg5}\@gobble} -\mule@def{69}{\CJKenc{KS}\@gobble} -\mule@def{70}{\CJKenc{SJIS}\@gobble} - -% in previous versions we have used ^^a0 for calling \CJKchar, but to -% support GBK and Big 5+ encodings which both need this slot we use the -% ^^7f interface also. - -\mule@def{72}{\mule@@@@arg} - -\def\mule@@@@arg#1^^7f#2^^7f#3^^7f{ - \uppercase{\CJKchar[#1]{#2}{#3}}} - - -% Thai support. We need the many \bgroup and \egroup commands to make it -% work with ulem.sty. - -\mule@def{57}{\bgroup\fontencoding{C90}\selectfont - \bgroup\bgroup\@gobble} % begin Thai -\mule@def{58}{\egroup - \egroup\egroup\@gobble} % end Thai -\mule@def{60}{\mule@char} % Thai diacritic -\mule@def{61}{\Thaibreak\@gobble} % Thai word break -\mule@def{62}{\nobreak\Thaiglue\nobreak\mule@char} % Thai base character -\mule@def{63}{\mule@ignorespaces} % Thai EOL - -\def\mule@char#1{\char #1 } -\def\mule@ignorespaces#1{\ignorespaces} - -\newcommand{\Thaiglue}{\hskip \z@ \@plus .03\baselineskip} -\newcommand{\Thaibreak}{\hskip \z@} - -\newcommand{\Thaispace}{\mule@def{63}{}} -\newcommand{\Thainospace}{\mule@def{63}{\mule@ignorespaces}} - - -% preprocessed mode now uses the ^^7f interface for CJK characters also -% to make it coexist with normal mode. -% -% the \@gobble macro is used to swallow the first element in \CJK@<number>; -% this is either \CJK@disableMakeUppercase or \relax if not needed. - -\def\mule@@def#1{ - \expandafter\def\csname mule@\string #1\endcsname##1{ - \expandafter\expandafter\expandafter\@gobble - \csname CJK@\number `#1\endcsname{##1} - \CJK@ignorespaces}} - -\mule@@def{^^81} -\mule@@def{^^82} -\mule@@def{^^83} -\mule@@def{^^84} -\mule@@def{^^85} -\mule@@def{^^86} -\mule@@def{^^87} -\mule@@def{^^88} -\mule@@def{^^89} -\mule@@def{^^8a} -\mule@@def{^^8b} -\mule@@def{^^8c} -\mule@@def{^^8d} -\mule@@def{^^8e} -\mule@@def{^^8f} -\mule@@def{^^90} -\mule@@def{^^91} -\mule@@def{^^92} -\mule@@def{^^93} -\mule@@def{^^94} -\mule@@def{^^95} -\mule@@def{^^96} -\mule@@def{^^97} -\mule@@def{^^98} -\mule@@def{^^99} -\mule@@def{^^9a} -\mule@@def{^^9b} -\mule@@def{^^9c} -\mule@@def{^^9d} -\mule@@def{^^9e} -\mule@@def{^^9f} -\mule@@def{^^a0} -\mule@@def{^^a1} -\mule@@def{^^a2} -\mule@@def{^^a3} -\mule@@def{^^a4} -\mule@@def{^^a5} -\mule@@def{^^a6} -\mule@@def{^^a7} -\mule@@def{^^a8} -\mule@@def{^^a9} -\mule@@def{^^aa} -\mule@@def{^^ab} -\mule@@def{^^ac} -\mule@@def{^^ad} -\mule@@def{^^ae} -\mule@@def{^^af} -\mule@@def{^^b0} -\mule@@def{^^b1} -\mule@@def{^^b2} -\mule@@def{^^b3} -\mule@@def{^^b4} -\mule@@def{^^b5} -\mule@@def{^^b6} -\mule@@def{^^b7} -\mule@@def{^^b8} -\mule@@def{^^b9} -\mule@@def{^^ba} -\mule@@def{^^bb} -\mule@@def{^^bc} -\mule@@def{^^bd} -\mule@@def{^^be} -\mule@@def{^^bf} -\mule@@def{^^c0} -\mule@@def{^^c1} -\mule@@def{^^c2} -\mule@@def{^^c3} -\mule@@def{^^c4} -\mule@@def{^^c5} -\mule@@def{^^c6} -\mule@@def{^^c7} -\mule@@def{^^c8} -\mule@@def{^^c9} -\mule@@def{^^ca} -\mule@@def{^^cb} -\mule@@def{^^cc} -\mule@@def{^^cd} -\mule@@def{^^ce} -\mule@@def{^^cf} -\mule@@def{^^d0} -\mule@@def{^^d1} -\mule@@def{^^d2} -\mule@@def{^^d3} -\mule@@def{^^d4} -\mule@@def{^^d5} -\mule@@def{^^d6} -\mule@@def{^^d7} -\mule@@def{^^d8} -\mule@@def{^^d9} -\mule@@def{^^da} -\mule@@def{^^db} -\mule@@def{^^dc} -\mule@@def{^^dd} -\mule@@def{^^de} -\mule@@def{^^df} -\mule@@def{^^e0} -\mule@@def{^^e1} -\mule@@def{^^e2} -\mule@@def{^^e3} -\mule@@def{^^e4} -\mule@@def{^^e5} -\mule@@def{^^e6} -\mule@@def{^^e7} -\mule@@def{^^e8} -\mule@@def{^^e9} -\mule@@def{^^ea} -\mule@@def{^^eb} -\mule@@def{^^ec} -\mule@@def{^^ed} -\mule@@def{^^ee} -\mule@@def{^^ef} -\mule@@def{^^f0} -\mule@@def{^^f1} -\mule@@def{^^f2} -\mule@@def{^^f3} -\mule@@def{^^f4} -\mule@@def{^^f5} -\mule@@def{^^f6} -\mule@@def{^^f7} -\mule@@def{^^f8} -\mule@@def{^^f9} -\mule@@def{^^fa} -\mule@@def{^^fb} -\mule@@def{^^fc} -\mule@@def{^^fd} -\mule@@def{^^fe} - - -% if the `verbatim' package is loaded it is possible to improve the output -% automatically, namely, to avoid breaking of overfull lines in a -% verbatim environment. The following command will install a hook to -% suppress insertion of glue between Thai glyphs. CJK.sty will extend -% it for CJK glyphs. -% -\def\mule@verbatim{ - \addto@hook{\every@verbatim}{ - \renewcommand{\Thaiglue}{} - \mule@def{61}{}}} -\ifx\CJK@verbatim \@undefined - \def\CJK@verbatim{} -\fi - -\def\CJKverbatim{ - \mule@verbatim - \CJK@verbatim} - - -% here comes our special include command which will load <file>.cjk -% instead of <file>.tex - -\def\CJKinclude#1{ - \relax - - \ifnum\@auxout = \@partaux - \@latex@error{\string\CJKinclude\space cannot be nested} - \@eha - \else - \CJK@include#1 % - \fi -} - -\def\CJK@include#1 { - \clearpage - - \if@filesw - \immediate\write\@mainaux{\string\@input{#1.aux}} - \fi - - \@tempswatrue - - \if@partsw - \@tempswafalse - \edef\reserved@b{#1} - \@for\reserved@a:=\@partlist\do - {\ifx\reserved@a \reserved@b - \@tempswatrue - \fi - } - \fi - - \if@tempswa - \let\@auxout\@partaux - \if@filesw - \immediate\openout\@partaux #1.aux - \immediate\write\@partaux{\relax} - \fi - \@input@{#1.cjk} - \clearpage - \@writeckpt{#1} - \if@filesw - \immediate\closeout\@partaux - \fi - \else - \deadcycles\z@ - \@nameuse{cp@#1} - \fi - - \let\@auxout\@mainaux -} - - -% the same for the bibliography - -\def\CJKbibliography#1{ - \if@filesw - \immediate\write\@auxout{\string\bibdata{#1-cjk}}% - \fi - \@input@{\jobname.bbl} -} - - -% here our special input command -- cjk-enc.el will scan files included with -% \CJKinput, but not with \input. -% -% We only want the syntax form of \input with braces around the parameter. -% If no file name extension is given, `cjk' is used. - -\def\CJKinput#1{ - \filename@parse{#1} - \ifx\filename@ext \relax - \def\filename@ext{cjk} - \fi - \InputIfFileExists{\filename@area\filename@base.\filename@ext} - {} - {\edef\reserved@a{ - \noexpand\@missingfileerror - {\filename@area\filename@base} - {\filename@ext}} - \reserved@a}} - - -\endlinechar `\^^M -\makeatother -\endinput |