path: root/Master/texmf-dist/tex/latex/codepage/codemac.tex

%%
%% This is file `codemac.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% codepage.dtx  (with options: `codepagemac')
%%     This package provides some commands to handle different code pages in the same
%%     document. It works with TeX and LaTeX, but his documentation should be produced
%%     with the docstrip package.
%% 
%%     Disclaimer:
%%        This package is provided 'as is' without any warranty.
%% 
%%     Author:
%%        Alain Aubord
%%        Geneva
%%        Switzerland
%% 
%%     E-mail: aubord@uni2a.unige.ch
\def\fileversion{1.2}%
\def\filedate{2 January 1995}%
\def\docdate{2 January 1995}%
\def\CheckSum{4615}%
\chardef\atcatcode=\catcode`\@
\catcode`\@=11\relax
   {%
      \catcode`\Y=\active
      \gdef Y{\string Y}%
   }%
\begingroup
\input initcar %
\ifcase\CurrentEncoding
   \input shapecm %
\or
   \input shapedc %
\fi
\Adieresis{^^80}{"80}{"8A}%
\Aring{^^81}{"81}{"8C}%
\Ccedilla{^^82}{"82}{"8D}%
\Eacute{^^83}{"83}{"8E}%
\Ntilde{^^84}{"84}{"96}%
\Odieresis{^^85}{"85}{"9A}%
\Udieresis{^^86}{"86}{"9F}%
\aacute{^^87}{"E7}{"87}%
\agrave{^^88}{"CB}{"88}%
\acircumflex{^^89}{"E5}{"89}%
\adieresis{^^8a}{"80}{"8A}%
\atilde{^^8b}{"CC}{"8B}%
\aring{^^8c}{"81}{"8C}%
\ccedilla{^^8d}{"82}{"8D}%
\eacute{^^8e}{"83}{"8E}%
\egrave{^^8f}{"E9}{"8F}%
\ecircumflex{^^90}{"E6}{"90}%
\edieresis{^^91}{"E8}{"91}%
\iacute{^^92}{"EA}{"92}%
\igrave{^^93}{"ED}{"93}%
\icircumflex{^^94}{"EB}{"94}%
\idieresis{^^95}{"EC}{"95}%
\ntilde{^^96}{"84}{"96}%
\oacute{^^97}{"EE}{"97}%
\ograve{^^98}{"F1}{"98}%
\ocircumflex{^^99}{"EF}{"99}%
\odieresis{^^9a}{"85}{"9A}%
\otilde{^^9b}{"CD}{"9B}%
\uacute{^^9c}{"F2}{"9C}%
\ugrave{^^9d}{"F4}{"9D}%
\ucircumflex{^^9e}{"F3}{"9E}%
\udieresis{^^9f}{"86}{"9F}%
\dag{^^a0}{"A0}{"A0}%
\degree{^^a1}{"A1}{"A1}%
\cent{^^a2}{"A2}{"A2}%
\pounds{^^a3}{"A3}{"A3}%
\section{^^a4}{"A4}{"A4}%
\bullet{^^a5}{"A5}{"A5}%
\ParagraphSign{^^a6}{"A6}{"A6}%
\beta{^^a7}{"A7}{"A7}%
\register{^^a8}{"A8}{"A8}%
\copyright{^^a9}{"A9}{"A9}%
\trademark{^^aa}{"AA}{"AA}%
\acute{^^ab}{"AB}{"AB}%
\dieresis{^^ac}{"AC}{"AC}%
\neq{^^ad}{"AD}{"AD}%
\AE{^^ae}{"AE}{"BE}%
\Oslash{^^af}{"AF}{"BF}%
\pm{^^b1}{"B1}{"B1}%
\leq{^^b2}{"B2}{"B2}%
\geq{^^b3}{"B3}{"B3}%
\yen{^^b4}{"B4}{"B4}%
\mu{^^b5}{"B5}{"B5}%
\delta{^^b6}{"B6}{"B6}%
\Sigma{^^b7}{"B7}{"B7}%
\Pi{^^b8}{"B8}{"B8}%
\pi{^^b9}{"B9}{"B9}%
\florin{^^ba}{"BA}{"BA}%
\ordfeminine{^^bb}{"BB}{"BB}%
\ordmasculine{^^bc}{"BC}{"BC}%
\Omega{^^bd}{"BD}{"BD}%
\ae{^^be}{"AE}{"BE}%
\oslash{^^bf}{"AF}{"BF}%
\questiondown{^^c0}{"C0}{"C0}%
\exclamdown{^^c1}{"C1}{"C1}%
\neg{^^c2}{"C2}{"C2}%
\approx{^^c5}{"C5}{"C5}%
\partial{^^c6}{"C6}{"C6}%
\guilletmotleft{^^c7}{"C7}{"C7}%
\guillemeotright{^^c8}{"C8}{"C8}%
\ellipsis{^^c9}{"C9}{"C9}%
\unbreakablespace{^^ca}{"CA}{"CA}%
\Agrave{^^cb}{"CB}{"88}%
\Atilde{^^cc}{"CC}{"8B}%
\Otilde{^^cd}{"CD}{"9B}%
\OE{^^ce}{"CE}{"CF}%
\oe{^^cf}{"CE}{"CF}%
\emdash{^^d1}{"D1}{"D1}%
\quotedblleft{^^d2}{"D2}{"D2}%
\quotedblright{^^d3}{"D3}{"D3}%
\quoteleft{^^d4}{"D4}{"D4}%
\quoteright{^^d5}{"D5}{"D5}%
\div{^^d6}{"D6}{"D6}%
\diamond{^^d7}{"D7}{"D7}%
\ydieresis{^^d8}{"D9}{"D8}%
\Ydieresis{^^d9}{"D9}{"D8}%
\currency{^^db}{"DB}{"DB}%
\fiLigature{^^de}{"DE}{"DE}%
\flLigature{^^df}{"DF}{"DF}%
\ddag{^^e0}{"E0}{"E0}%
\cedilla{^^e2}{"E2}{"E2}%
\perthousand{^^e4}{"E4}{"E4}%
\Acircumflex{^^e5}{"E5}{"89}%
\Ecircumflex{^^e6}{"E6}{"90}%
\Aacute{^^e7}{"E7}{"87}%
\Edieresis{^^e8}{"E8}{"91}%
\Egrave{^^e9}{"E9}{"8F}%
\Iacute{^^ea}{"EA}{"92}%
\Icircumflex{^^eb}{"EB}{"94}%
\Idieresis{^^ec}{"EC}{"95}%
\Igrave{^^ed}{"ED}{"93}%
\Oacute{^^ee}{"EE}{"97}%
\Ocircumflex{^^ef}{"EF}{"99}%
\Ograve{^^f1}{"F1}{"98}%
\Uacute{^^f2}{"F2}{"9C}%
\Ucircumflex{^^f3}{"F3}{"9E}%
\Ugrave{^^f4}{"F4}{"9D}%
\powerone{^^f5}{"F5}{"F5}%
\endgroup
\ifnum\CurrentEncoding=\DC\relax
\def\@MakeHyphenationMac#1{%
 \catcode`#1=12%Legal value for \hyphenation
  \ifnum`#1="80
     % A dieresis --> C4 (graphical symbol)
     \lccode`#1="C4%
  \else\ifnum`#1="81
     %A ring --> "C5 (approx sign)
     \lccode`#1="C5%
  \else\ifnum`#1="82
     %C cedilla --> "C7 (french opening guillemet)
     \lccode`#1="C7%
  \else\ifnum`#1="83
     %E acute --> "C9 (three dot sign)
     \lccode`#1="C9%
  \else\ifnum`#1="84
     %N tilde --> "D1 (long dash)
     \lccode`#1="D1%
  \else\ifnum`#1="85
     %O dieresis --> "D6 (divide sign)
     \lccode`#1="D6%
  \else\ifnum`#1="86
     %U dieresis --> "DC (graphical symbol)
     \lccode`#1="DC%
  \else\ifnum`#1="87
     %a acute --> "E1 (graphical symbol)
     \lccode`#1="E1%
 \else\ifnum`#1="88
     %a grave --> "E0 (double dag sign)
     \lccode`#1="E0%
  \else\ifnum`#1="89
     %a circumflex --> "E2 (cedilla accent)
     \lccode`#1="E2%
  \else\ifnum`#1="8A
     %a dieresis --> "E4 (graphical symbol)
     \lccode`#1="E4%
  \else\ifnum`#1="8B
     %a tilde --> "E3 (graphical symbol)
     \lccode`#1="E3%
  \else\ifnum`#1="8C
     %a ring --> "E5 (A circumflex) --> a circumflex
     \lccode`#1="89%
  \else\ifnum`#1="8D
     %c cedilla --> "E7 (A acute) --> a acute
     \lccode`#1="87%
  \else\ifnum`#1="8E
     %e acute --> "E9 (E grave) --> e grave
     \lccode`#1="8F%
  \else\ifnum`#1="8F
     %e grave --> "E8 (E dieresis) --> e dieresis
     \lccode`#1="91%
  \else\ifnum`#1="90
     %e circumflex --> "EA (I acute) --> i acute
     \lccode`#1="92%
  \else\ifnum`#1="91
     %e dieresis --> "EB (I circumflex) --> i circumflex
     \lccode`#1="94%
  \else\ifnum`#1="92
     %i acute --> "ED (I grave) --> i grave
     \lccode`#1="93%
  \else\ifnum`#1="93
     %i grave --> "EC (I dieresis) --> i dieresis
     \lccode`#1="95%
  \else\ifnum`#1="94
     %i circumflex --> "EE (O acute) --> o acute
     \lccode`#1="97%
  \else\ifnum`#1="95
     %i dieresis --> "EF (O circumflex) --> o circumflex
     \lccode`#1="99%
  \else\ifnum`#1="96
     %n tilde --> "F1 (O grave) --> o grave
     \lccode`#1="98%
  \else\ifnum`#1="97
     %o acute --> "F3 (U circumflex) --> u circumflex
     \lccode`#1="9E%
  \else\ifnum`#1="98
     %o grave --> "F2 (U acute) --> u acute
     \lccode`#1="9C%
  \else\ifnum`#1="99
     %o circumflex --> "F4 (U grave) --> u grave
     \lccode`#1="9D%
  \else\ifnum`#1="9A
     %o dieresis --> "F6 (graphical sign)
     \lccode`#1="F6%
  \else\ifnum`#1="9B
     %o tilde --> "F5 (power one sign)
     \lccode`#1="F5%
  \else\ifnum`#1="9C
     %u acute --> "FA (graphical sign)
     \lccode`#1="FA%
  \else\ifnum`#1="9D
     %u grave --> "F9 (graphical sign)
     \lccode`#1="F9%
  \else\ifnum`#1="9E
     %u circumflex --> "FB (graphical sign)
     \lccode`#1="FB%
  \else\ifnum`#1="9F
     %u dieresis --> "FC (graphical sign)
     \lccode`#1="FC%
  \else\ifnum`#1="AE
     %AE ligature --> "C6 (differential sign)
     \lccode`#1="C6%
  \else\ifnum`#1="BE
     %ae ligature --> "E6 (E circumflex) --> e circumflex
     \lccode`#1="90%
  \else\ifnum`#1="CB
     %A grave --> "C0 (Interrogation down sign)
     \lccode`#1="C0%
  \else\ifnum`#1="CC
     %A tilde --> "C3 (graphical sign)
     \lccode`#1="C3%
  \else\ifnum`#1="CD
     %O tilde --> "D5 (closing american quote)
     \lccode`#1="D5%
  \else\ifnum`#1="CE
     %OE ligature --> "D7 (diamond sign)
     \lccode`#1="D7%
  \else\ifnum`#1="CF
     %oe ligature --> "F7 (graphical sign)
     \lccode`#1="F7%
  \else\ifnum`#1="D8
     %y dieresis --> "B8 (Pi sign)
     \lccode`#1="B8%
  \else\ifnum`#1="E5
     %A circumflex --> "C2 (neg sign)
     \lccode`#1="C2%
  \else\ifnum`#1="E6
     %E circumflex --> "CA (graphical sign)
     \lccode`#1="CA%
  \else\ifnum`#1="E7
     %A acute --> "C1 (Exclam down sign)
     \lccode`#1="C1%
  \else\ifnum`#1="E8
     %E dieresis --> "CB (A acute) --> a acute
     \lccode`#1="88%
  \else\ifnum`#1="E9
     %E grave --> "C8 (closing french guillemet)
     \lccode`#1="C8%
  \else\ifnum`#1="EA
     %I acute --> "CD (O tilde) --> o tilde
     \lccode`#1="9B%
  \else\ifnum`#1="EB
     %I circumflex --> "CE (OE ligature) --> oe ligature
     \lccode`#1="EF%
     \@ConflictHyphenCarMsg{I circumflex ("EB)}{I dieresis ("EC)}%
  \else\ifnum`#1="EC
     %I dieresis --> "CF (oe ligature)
     \lccode`#1="EF%
     \@ConflictHyphenCarMsg{I dieresis ("EC)}{I circumflex ("EB)}%
  \else\ifnum`#1="ED
     %I acute --> "CC (A tilde) --> a tilde
     \lccode`#1="8B%
  \else\ifnum`#1="EE%
     %O acute --> "D3 (closing us guillemet)
     \lccode`#1="D3%
  \else\ifnum`#1="EF%
     %O circumflex --> "D4 (opening quote)
     \lccode`#1="D4%
  \else\ifnum`#1="F1%
     %O grave --> "D2 (Opening US guillemets)
     \lccode`#1="D2%
  \else\ifnum`#1="F2%
     %U acute --> "DA (graphical character)
     \lccode`#1="DA%
  \else\ifnum`#1="F3%
     %U circumflex --> "DB (graphical character)
     \lccode`#1="DB%
  \else\ifnum`#1="F4%
     %U grave --> "D9 (Y dieresis) --> y dieresis
     \lccode`#1="D8%
  \else
    %we don't have a letter (a character to form word)
    \@BadHyphenCarMsg{#1}
    \catcode`#1=15% make this character invalid
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
  \fi\fi\fi\fi\fi
}%
\fi %\ifx\CurrentEncoding...
\catcode`\@=\atcatcode \let\atcatcode\relax

\endinput
%%
%% End of file `codemac.tex'.