\def\fileversion{1.2}%
\def\filedate{2 January 1995}%
\def\docdate{2 January 1995}%
\def\CheckSum{4615}%
% \changes{v0.1}{28-May-1993}{first release}
% \changes{v0.8}{17-June-1993}{macros to draw accent on character added (taken from DCLFONT.STY)}
% \changes{v0.9}{15-October-1993}{revised naming convention, comments, and unify style}
% \changes{v1.0}{16-May-1994}{Add suppression of character translation, put in DOC format}
% \changes{v1.1}{26-September-1994}{Redesign of code to improve
% memory usage, French text for the
% introduction.}
% \changes{v1.2}{2-January-1995}{Suppression of some ``loop'' command and
% expansion of code instead. This save many space on
% input stack size. Mainly the files
% initcar and in codepage were changed.}
% \MakeShortVerb{|}
%
% \iffrench
% \title{\texttt{codepage} un style pour traiter
% diff\'e{}rents code de page dans le m\^e{}me document}
% \author{Alain Aubord}
% \maketitle
% \begin{abstract}
% Cet article d\'e{}crit les nouvelles commandes disponibles pour
% traiter un code de page\ft{Un code de page est une convention qui d\'e{}finit une association
% unique entre un caract\`e{}re et un nombre qui le repr\'e{}sente dans un ordinateur.} ainsi que les
% probl\`e{}mes rencontr\'e{}s pour r\'e{}aliser cette implantation uniquement en \TeX{}.
% \end{abstract}
%
% \section{Introduction\label{INTRO}}
%
% La version 3 de \TeX{} permet de composer plus facilement des documents dans une autre langue
% que l'anglais. En effet, cette version autorise l'usage de caract\`e{}res cod\'e{}s sur 8 bits (valeurs
% de 0 \`a{} 255) dans le texte source et de multiples tables de c\'e{}sures dans un format.
%
% Ces am\'e{}liorations \'e{}taient n\'e{}cessaires, mais pas suffisantes. En effet, il est encore n\'e{}cessaire
% de disposer de styles adapt\'e{}s aux diff\'e{}rentes langues
% ainsi que des polices de caract\`e{}res contenant
% des signes sp\'e{}cifiques (comme les caract\`e{}res accentu\'e{}s\ft{La composition, c'est-\`a{}-dire
% l'utilisation d'une commande de positionnement d'un accent suivie par la lettre \`a{} accentuer, pr\'e{}sente
% l'avantage de pouvoir accentuer n'importe quel caract\`e{}re mais emp\^e{}che la c\'e{}sure correcte d'un mot
% accentu\'e{}.}, les guillemets fran\c c{}ais...).
%
%
% Le style \Fich{Babel} et les polices \textsc{Dc} ont \'e{}t\'e{} d\'e{}velopp\'e{}s pour r\'e{}soudre ces probl\`e{}mes.
% Cependant, il reste encore un probl\`e{}me de taille: les diff\'e{}rents codes de page existant sont
% incompatibles. Un document \'e{}crit dans un code de page doit \^e{}tre converti dans un nouveau code de page
% lorsqu'il est utilis\'e{} sur un ordinateur avec un syst\`e{}me
% d'exploitation diff\'e{}rent
% ou avec des polices de caract\`e{}res dont l'encodage correspond \`a{} un autre code de page
% (comme les polices \textsc{Dc}).
% La gestion des
% diff\'e{}rents codes de page peut se faire de plusieurs mani\`e{}res en \TeX:
% \begin{itemize}
% \item Par l'utilisation d'un programme externe de conversion de caract\`e{}res.
% Lorsqu'un tel programme est bien int\'e{}gr\'e{} dans \TeX{} (comme les
% tables \textsc{Tcp} d\'e{}finies par
% \textsc{EmTeX}), cette solution est tr\`e{}s efficace et agr\'e{}able \`a{} utiliser. Son principal
% d\'e{}savantage est le manque de portabilit\'e{}.
% \item Par l'utilisation de polices virtuelles\ft{Une police virtuelle est un m\'e{}canisme
% fourni avec \TeX{} version 3 qui permet de changer le vecteur d'encodage d'une
% police de caract\`e{}res, de composer une nouvelle police de caract\`e{}res \`a{} partir
% de plusieurs polices etc.}. Cette
% solution est tr\`e{}s bien int\'e{}gr\'e{}e dans \TeX\ft{Certains vieux pilotes de p\'e{}riph\'e{}riques ne
% savent pas utiliser les polices virtuelles.}. Cependant, il est n\'e{}cessaire de
% fournir les
% fichiers d\'e{}crivant la m\'e{}trique et le r\'e{}-encodage de chaque police
% virtuelle utilis\'e{}e dans un document.
% \item Par l'utilisation de la composition pour obtenir un caract\`e{}re accentu\'e{} (i.e.|\'e| pour
% \'e).
% Cette solution fonctionne remarquablement bien avec les polices \textsc{Dc}. Le style fourni
% pour l'utilisation de ces polices red\'e{}finit tr\`e{}s habilement les commandes qui dessinent un
% caract\`e{}re accentu\'e{}. Chaque fois qu'un caract\`e{}re accentu\'e{} existe dans la police, il est
% employ\'e{} (en lieu et place de la composition). Ce syst\`e{}me est donc parfaitement int\'e{}gr\'e{} dans
% \TeX{}, mais il est tr\`e{}s d\'e{}sagr\'e{}able de taper et de relire les caract\`e{}res accentu\'e{}s suivant
% cette m\'e{}thode.
% \item Par l'utilisation du paquet \Fich{codepage} qui est totalement compatible avec \TeX{}
% (version 3). Ce paquet offre en outre la possibilit\'e{} de composer avec \TeX{} un document
% pr\'e{}vu pour un autre code de page que celui de son propre ordinateur et de d\'e{}clarer des
% exceptions de c\'e{}sures contenant des syllabes accentu\'e{}es.
%
% Ce paquet transforme tous les caract\`e{}res sup\'e{}rieurs \`a{} 127
% en caract\`e{}re \og actif\fg{}
% (chaque caract\`e{}re actif est une commande \TeX)
% et il n\'e{}cessite la transmission de quelques
% fichiers annexes pour pouvoir composer un document sur un autre syst\`e{}me.
% \end{itemize}
%
% Comme on le voit, il n'y a pas de solution parfaite dans tous les cas. Le probl\`e{}me provient d'un manque
% de norme dans la mani\`e{}re de coder les symboles sp\'e{}ciaux\ft{Si un standard unique devait voir le jour,
% il serait d\'e{}fini sur 16 bits (valeur de 0 \`a{} 65535).}.
%
% \subsection{Le probl\`e{}me des c\'e{}sures\label{HYPHENATION}}
% \TeX{} effectue une c\'e{}sure automatique des mots en se basant sur une table d\'e{}crivant
% quelles syllabes peuvent \^e{}tre coup\'e{}es. Cette table est inclue dans le format\ft{Un format est
% un
% ensemble de commandes pr\'e{}-d\'e{}finies qui sont analys\'e{}es et enregistr\'e{}es sous une forme sp\'e{}ciale
% par une variante du programme \TeX{} appel\'e{}e \textsc{Ini}\TeX{}. Le programme \TeX{} peut
% ensuite
% charger en m\'e{}moire tr\`e{}s rapidement un format.} et sa forme est fig\'e{}e
% tant qu'un nouveau format n'est pas reconstruit. Lors de la construction
% d'une table de c\'e{}sure toutes les syllabes sont converties en minuscules (en utilisant le
% \Comm{lccode} de chaque caract\`e{}re) avant d'\^e{}tre enregistr\'e{}es. Pour
% trouver une c\'e{}sure lors de la composition d'un document,
% le texte \`a{} couper est traduit en minuscule et compar\'e{} avec les tables
% pr\'e{}-d\'e{}finies.
%
% Lorsque les tables de c\'e{}sures utilis\'e{}es lors de la construction du
% format et le texte du document utilisent des codes de pages diff\'e{}rents,
% les caract\`e{}res (dont la valeur est plus
% grande que 127) du texte \`a{} composer et
% ceux utilis\'e{}s pour les tables de c\'e{}sure ne correspondront jamais. Aucune
% c\'e{}sure ne pourra alors \^e{}tre trouv\'e{}e (des exceptions existent cependant).
%
% Il est \'e{}videmment possible de modifier la table de c\'e{}sure et de reg\'e{}n\'e{}rer
% un nouveau format, cependant cette solution n'est pas toujours possible
% ni forc\'e{}ment souhaitable pour plusieurs raisons:
% \begin{itemize}
% \item le fichier qui d\'e{}crit la table de c\'e{}sure devrait \^e{}tre identique
% quel que soit le syst\`e{}me pour obtenir une c\'e{}sure identique
% partout\ft{Un exemple tr\`e{}s concret de cette situation est l'utilisation
% de la table de c\'e{}sure anglaise pour des textes fran\c c{}ais. Les tables
% de c\'e{}sures anglaises sont disponibles et identiques quelle que soit
% l'implantation de \TeX{}. Lorsqu'on veut transmettre un document \'e{}crit
% en fran\c c{}ais \`a{} un correspondant dont on n'est pas certain qu'il puisse
% disposer d'une table de c\'e{}sure fran\c c{}aise, il est toujours possible d'utiliser
% le table de c\'e{}sure anglaise et d'indiquer les exceptions de c\'e{}sure avec la
% commande \Comm{hyphenation}. Cette m\'e{}thode fonctionne relativement bien
% si l'on prend la pr\'e{}caution de red\'e{}finir les commandes qui dessinent les
% accents sur les caract\`e{}res (comme cela est fait dans le paquet \Fich{codepage}).}.
% \item la g\'e{}n\'e{}ration d'un format est une op\'e{}ration complexe et d\'e{}licate
% qui peut exiger la possession d'autorisations sp\'e{}cifiques (sur une
% machine partag\'e{}e entre plusieurs utilisateurs).
% \end{itemize}
%
% La solution propos\'e{}e par le paquet \Fich{codepage} pour r\'e{}soudre ce
% probl\`e{}me consiste en une nouvelle commande \Comm{MakeHyphenationLetter} qui
% permet de modifier les valeurs associ\'e{}es \`a{} un caract\`e{}re cod\'e{} au-del\`a{} de 127
% pour utiliser des valeurs compatibles avec la commande \Comm{hyphenation}.
%
% \section{L'interface utilisateur}
% Cet interface a \'e{}t\'e{} con\c c{}u pour \^e{}tre \og le plus simple possible\fg.
% Seules deux macros (commandes) et quelques constantes sont d\'e{}finies.
%
% Les diff\'e{}rents codes de page possibles sont d\'e{}finis par des constantes:
% \begin{description}
% \item[\Comm{FourThreeSeven}] pour le code de page 437 du PC; ce code
% de page est surtout utilis\'e{} avec les syst\`e{}mes ayant l'anglais
% comme langue principale;
% \item[\Comm{EightFiveZero}] pour le code de page 850 du PC. Ce code de
% page est semblable au code 437 mais il contient moins de signes
% semi-graphiques et math\'e{}matiques et plus de lettres (comme les
% caract\`e{}res majuscules accentu\'e{}s). Ce code de page est surtout
% utilis\'e{} avec d'autres langues que l'anglais.
% \item[\Comm{IsoOne}] ISO Latin set 1. Cette norme est utilis\'e{}e
% par de nombreux syst\`e{}mes (la plupart des syst\`e{}mes \textsc{Unix}
% et \textsc{Windows}). L'encodage \textsc{Dc} des polices \TeX{}
% suit cette norme pour certains caract\`e{}res (en particulier toutes les lettres).
% Lorsque ce code de page est utilis\'e{} les caract\`e{}res qui
% correspondent exactement aux caract\`e{}res des polices \textsc{Dc}
% ne deviennent pas \og actifs\fg{} mais gardent le \og catcode\fg{}
% de lettres. Les caract\`e{}res se dessinant en utilisant le mode
% math\'e{}matique de \TeX{} restent cependant \og actifs\fg{}.
% \item[\Comm{Mac}] pour les caract\`e{}res du \textsc{Mac Intosh}.
% \end{description}
%
% Le choix de l'encodage des polices de \TeX{} est d\'e{}fini par deux autres
% constantes:
% \begin{description}
% \item[\Comm{CM}] d\'e{}finit l'encodage standard de \TeX{}. Ce code est
% d\'e{}fini sur 128 positions, les caract\`e{}res accentu\'e{}s sont
% dessin\'e{}s par composition.
% \item[\Comm{DC}] pour le nouvel encodage d\'e{}fini pour les polices \TeX{}.
% L'utilisation de ce code implique l'usage des polices \textsc{Dc}.
% Lorsque ce code est choisi, les caract\`e{}res existant dans un
% code de page sont simplement convertis en caract\`e{}re \'e{}quivalent
% des polices \textsc{Dc}.
% \end{description}
%
% Les symboles math\'e{}matiques sont dessin\'e{}s en utilisant les commandes et le
% mode math\'e{}matiques de \TeX{}, les autres symboles sont en g\'e{}n\'e{}ral ignor\'e{}s.
%
% Les deux commandes principales sont:
% \begin{description}
% \item[\Comm{codepage\#1\#2}] cette macro accepte deux param\`e{}tres: le code
% de page du document, et le type d'encodage choisi pour les polices
% \TeX.
%
% Apr\`e{}s l'appel \`a{} la macro \Comm{codepage} tous les caract\`e{}res
% sup\'e{}rieurs \`a{} 127 sont \og actifs\fg{} (ils se comportent
% comme des commandes).
% \item[\Comm{MakeHyphenationLetter\#1\#2}] cette macro n'existe
% que si le code de page \textsc{Dc} est choisi. Elle sert
% \`a{} modifier les valeurs associ\'e{}es \`a{} un caract\`e{}re sup\'e{}rieur
% \`a{} 127 pour qu'il puisse \^e{}tre utilis\'e{} avec la commande
% \Comm{hyphenation}.
% Pour que ces modifications restent locales,
% \Comm{MakeHyphenationLetter} doit donc toujours \^e{}tre appel\'e{}e dans un groupe
% (entre des accolades |{| et |}|). Pour des raisons techniques
% ces modifications ne sont pas univoques, il est possible
% que plusieurs caract\`e{}res aient des valeurs identiques apr\`e{}s
% transformation. Cette situation n'est pas trop grave car elle
% est peu fr\'e{}quente et n'entrave pas la c\'e{}sure (du moins dans le cas
% de la langue fran\c c{}aise), un message signalant un conflit
% potentiel est tout de fois \'e{}mis.
% \item[\Comm{CurrentEncoding}] Cette commande contient la valeur du
% syst\`e{}me d'encodage choisi. Sa valeur n'est d\'e{}finie qu'apr\`e{}s
% l'appel \`a{} la commande \Comm{codepage}.
% \end{description}
%
%
% Toutes les commandes qui servent \`a{} dessiner des accents sur des caract\`e{}res
% sont red\'e{}finies. Les valeurs originales des commandes sont sauv\'e{}es avec un
% nouveau nom:
% \begin{center}
% \begin{tabular}{ll}
% \textbf{Nouveau nom} & \textbf{Commande Originale}\\
% \Comm{Grave} & \Comm{`} \\
% \Comm{Circumflex} & \Comm{\Circonflexe} \\
% \Comm{Tilda} & \Comm{\TildeChar} \\
% \Comm{OverBar} & \Comm{=} \\
% \Comm{UnderBar} & \Comm{b} \\
% \Comm{Join} & \Comm{t} \\
% \Comm{HungarUmlaut} & \Comm{H} \\
% \Comm{Acute} & \Comm{'} \\
% \Comm{Diaresis} & \Comm{"} \\
% \Comm{Breve} & \Comm{u} \\
% \Comm{OverDot} & \Comm{.} \\
% \Comm{UnderDot} & \Comm{d} \\
% \Comm{Tcheche} & \Comm{v} \\
% \Comm{Cedille} & \Comm{c} \\
% \end{tabular}
% \end{center}
%
% Voici encore quelques commandes d\'e{}finies par le paquet. Ces commandes
% devraient \^e{}tre d'un usage exceptionnel:
% \begin{description}
% \item[\Comm{TRtrue}] enclenche le m\'e{}canisme qui transforme chaque
% caract\`e{}re sup\'e{}rieur \`a{} 127 pour qu'il soit imprim\'e{} correctement
% par \TeX. C'est la valeur par d\'e{}faut !
% \item[\Comm{TRfalse}] produit l'effet inverse de la commande pr\'e{}c\'e{}dente.
% Cette commande est surtout utile lorsque des caract\`e{}res doivent
% \^e{}tre \'e{}crits dans des fichiers auxiliaires (comme les fichiers
% servant \`a{} construire les index ou les glossaires). Il est
% alors souvent plus judicieux de convertir les caract\`e{}res sp\'e{}ciaux
% lors de la relecture de ces fichiers plut\^o{}t qu'\`a{} leur \'e{}criture.
% \item[\Comm{AllActive}] transforme tous les caract\`e{}res sup\'e{}rieurs
% \`a{} 127 en caract\`e{}re actifs.
% \item[\Comm{AllOther}] transforme tous les caract\`e{}res sup\'e{}rieurs \`a{} 127 en
% caract\`e{}re sans signification particuli\`e{}re pour TeX{} (leur
% \Comm{catcode} vaut 12).
% \item[\Comm{og}] dessine les guillemets fran\c c{}ais ouvrants (d\'e{}finis
% seulement lorsque les polices \textsc{Cm} sont choisies).
% \item[\Comm{fg}] dessine les guillemets fran\c c{}ais fermants (d\'e{}finis
% seulement lorsque les polices \textsc{Cm} sont choisies).
% \item[\Comm{atcatcode}] qui est une constante qui contient la valeur du
% |\catcode| du caract\`e{}re \textbf{@} lorsque cette valeur est
% modifi\'e{}e par le paquet \textsc{Codepage}. Autrement, elle
% est identique \`a{} la commande |\relax|.
% \end{description}
%
% \section{Un bref exemple (pour \LaTeX{}2e)}
% {
% | \documentclass{article}|\\
% | \usepackage{t1enc,codepage}|\\
% | {\MakeHyphenationLetter{\EightFiveZero}{|\tt\`e|}|\\
% | \hyphenation{sys-t|\tt\`e|-me sys-t|\tt\`e|-mes}|\\
% | }|\\
% | \codepage{\EightFiveZero}{\DC}|\\
% | \begin{document}|\\
% | Unix est un joli syst|\tt \`e|me d'exploitation.|\\
% | \end{document}|
% }
%
% Cet exemple fonctionnera correctement si tous les caract\`e{}res
% au-del\`a{} de 127 sont disponibles. Certaines implantations de \TeX{} (comme
% \textsc{Emtex}) transforment tous les caract\`e{}res au-del\`a{} de 127 en
% caract\`e{}re 127 ou utilise des tables sp\'e{}ciales (les tables
% \textsc{Tcp} pour \textsc{EmTeX}).
%
% Pour obtenir un comportement correct avec \textsc{Emtex}, il faut
% utiliser l'option |/8| lorsque le format est g\'e{}n\'e{}r\'e{}.
%
% \fi
% \ifenglish
% \title{\texttt{code-page} a style to handle different code-pages in the same document}
% \author{Alain Aubord}
% \maketitle
% \begin{abstract}
% This package provides some new commands to handle code page\ft{A code page is the convention
% for associating a character with a number used to represent it in a computer.}. This text describes the
% interface offered by the package and some problems which occur when the implementation is done only
% in \TeX{}.
% \end{abstract}
%
% \section{Introduction\label{INTRO}}
%
% The version 3 of TeX provides some facilities to work with documents written in a language
% different than English. Mainly, by allowing the use of characters coded on eight bits (values from 1 to
% 255) and the possibility to use multiple hyphenation tables.
%
% Although, this improvements are necessary, they are not sufficient. The standard \LaTeX{} style
% should be adapted to the different languages and new polices of characters containing glyphs\ft{Most
% foreign languages use characters with accent or diacritical marks. The
% traditional way to draw an accented character in TeX is the composition, ---~i.e. by using a
% macro to put an accent over a letter~---. This method offer the possibility to put accent on any character,
% but prohibit hyphenation on word containing an accented letter.}
% for the characters used in other language than English should be defined.
%
%
% The style \Fich{Babel} and the new font \textsc{Dc} have been developed to solve these problems.
% Well, one could think, ``don't worry, be happy'', documents will be typeset without problem.
% Unfortunately this is not exactly the case, but the problem is outside \TeX{}: there isn't any
% unique code page! Moreover some systems allow the use of many different code pages.
% The \textsc{Dc} font obeys more or less to the \textsc{Iso Latin Set 1} standard, but many
% other code pages exist. The solutions to this problem are multiples:
% \begin{itemize}
% \item The use of on external program to do the translation.
% If the program is well interfaced with \TeX{} (like the \textsc{Tcp} tables of \textsc{Emtex})
% this solution is very efficient and comfortable to use. But its main disadvantage is to be
% implementation specific, and the transfer of the document on an other \TeX{} implementation
% is not easy.
% \item The use of virtual fonts to match the position of each character in a font to the local
% code page. This solution is fully integrated with \TeX{}\ft{Some old driver don't work with
% virtual fonts.}, but when a document is transferred, all the virtual fonts should
% be given with the document (or defined at the other place), and the problem of hyphenation
% (see~\ref{HYPHENATION}) is not solved.
% \item The use of the standard convention to write accented character in \TeX{} (i.e.|\'e| for \'e).
% This solution works well with \textsc{Dc} fonts (due to a very clever redefinition of macros
% for positioning accent) and, naturally, is totally portable with any \TeX{} (version 2 and 3).
% But the typing of accented characters is clumsy (even with a good editor) and
% the reading is boring.
% \item The use of the package \Fich{codepage} which is totally \TeX{} (version 3 only) compatible. It
% can be used to typeset without any modifications a document with an other code page than those of
% the local computer (this may be useful for a demo version of a document) and the problem of
% hyphenation is partially (for hyphenation exceptions) solved.
% But the transfer of document implies the use of package and most
% of characters above 127 are
% made ``active'' (they are like macros). This could cause some interference with other packages.
% \end{itemize}
% As one could see, no solution is totally perfect, this is due to the lack of a standard for code page not
% to \TeX{}\ft{If, one day, a such standard should be established, no doubts it will be defined on sixteen
% bits (number from 1 to 65535) to allow special characters for every applications (math symbols,
% foreign languages, etc...).}.
%
% \subsection{The hyphenation problem\label{HYPHENATION}}
% The algorithm used in the \TeX{} program to hyphenate word is based on patterns read when the
% format\ft{A format is a precompiled version of commands used to composed a document.} is build.
% During the build of the hyphenation table, all the characters are put to lowercase by using the
% \Comm{lccode} value. When a string of characters in a text is to be hyphenated, it is put in lowercase
% by using the \Comm{lccode} value and the compared with hyphenation table to find a good break point.
%
% If the pattern file use the \Comm{lccode} values defined for the \textsc{Dc} font (which is generally
% the case), a match will never occur with the character above 127 in a text with a different
% code page
% since the \Comm{lccode} are adapted to that code page\ft{This is mandatory to have a correct behaviour
% with the command \Comm{uppercase} and \Comm{lowercase}, which transform a character in lower or upper case,
% according to the values: \Comm{lccode} and \Comm{uccode}.}.
% Despite this fact, the use of a pattern file containing characters above 127 is a good
% idea\ft{The
% modification of the original pattern file should not be done to preserve portability and (often) to
% respect the wish of maintainer who want to have a standard file.}, because
% the results are surprisingly good (almost with French language). Moreover, the package \Fich{codepage}
% provides the command \Comm{MakeHyphenationLetter} to adapt locally the \Comm{lccode} value to
% a value usable by the |\hyphenation| command.
%
% \section{The user interface}
% The prime goal of the interface was to be ``as simple as possible''. Therefore it's composed by two
% macros and some constants:
%
% The code pages are defined by constants:
% \begin{description}
% \item[\Comm{FourThreeSeven}] for the code page 437 of the PC; this code page is the standard code
% page used with English system.
% \item[\Comm{EightFiveZero}] for the code page 850. This code page is similar to code page 437 but
% contain more accented characters and less mathematical and special glyphs. It is used by
% international systems.
% \item[\Comm{IsoOne}] Iso Latin set 1 (the windows characters).
% \item[\Comm{Mac}] \textsc{Mac Intosh} characters.
% \end{description}
% The \TeX{} encoding are defined by two other constants:
% \begin{description}
% \item[\Comm{CM}] for the standard original \TeX{} encoding. This code is defined on only 128 position
% and does not contain characters with diacritical marks.
% \item[\Comm{DC}] for the new code defined at Cork. When this code is chosen, the \textsc{Dc} fonts
% should be available.
% \end{description}
%
% Now the two main macros:
% \begin{description}
% \item[\Comm{codepage\#1\#2}] This macro has two parameters which should be the constants defined above. The
% first parameter is the local code page, the second the encoding of the fonts used with \TeX{}
% (|\DC|,|\CM|). This macro redefines all the macros for putting
% accent over a letter, the original macro is saved under
% a new name.
% \begin{center}
% \begin{tabular}{ll}
% \textbf{New name} & \textbf{Original command}\\
% \Comm{Grave} & \Comm{`} \\
% \Comm{Circumflex} & \Comm{\Circonflexe} \\
% \Comm{Tilda} & \Comm{\TildeChar} \\
% \Comm{OverBar} & \Comm{=} \\
% \Comm{UnderBar} & \Comm{b} \\
% \Comm{Join} & \Comm{t} \\
% \Comm{HungarUmlaut} & \Comm{H} \\
% \Comm{Acute} & \Comm{'} \\
% \Comm{Diaresis} & \Comm{"} \\
% \Comm{Breve} & \Comm{u} \\
% \Comm{OverDot} & \Comm{.} \\
% \Comm{UnderDot} & \Comm{d} \\
% \Comm{Tcheche} & \Comm{v} \\
% \Comm{Cedille} & \Comm{c} \\
% \end{tabular}
% \end{center}
% After the call of |\codepage| all the characters above 127 are ``active''.
% \item[\Comm{MakeHyphenationLetter\#1\#2}] This macro has two parameters,
% the first is the local code page
% and the second is a character above 127. This macro should always be called in a group
% (i.e. inside braces) to avoid undesirable change of \Comm{lccode}. After the call, the letter can be
% use in the macro |\hyphenation| to construct correct pattern for hyphenation exceptions.
% Unfortunately this is not one way transformation, and two different characters above 127 could have
% the same \Comm{lccode}. In this case a warning is used, but this could affect
% only exceptionally the use of |\hyphenation| command\ft{The tests done with the French language
% haven't shown any problem, although some french letters are
% in conflict.}. This macro is defined only when the \textsc{Dc}
% encoding is chosen.
% \item[\Comm{CurrentEncoding}] This macro contain the value of the
% encoding chosen. Its value is meaningful only after the call
% to the \Comm{codepage} command.
% \end{description}
%
% Now we have some other macros defined by the package. Normally they should be quite rarely used:
% \begin{description}
% \item[\Comm{TRtrue}] to allow the translation of special characters (this is the default value !).
% \item[\Comm{TRfalse}] to suppress the translation of special character. This is useful
% when writing special characters into auxiliary (external) files like (\texttt{.idx, .toc}).
% Sometimes, the translation should be done only when these files are read again and not when they are
% written.
% \item[\Comm{AllActive}] put the \Comm{catcode} for all characters above 127 to \Comm{active}.
% \item[\Comm{AllOther}] put the \Comm{catcode} for all characters above 127 to the value 12
% (other).
% \item[\Comm{og}] draw the opening french guillomet (defined only when \textsc{Cm} encoding is used).
% \item[\Comm{fg}] draw the closing french guillomet (defined only when \textsc{Cm} encoding is used).
% \item[\Comm{atcatcode}] contain the value of the |\catcode| for the
% character \textbf{@} or |\relax|
% outside the part of code where this |\catcode| is modified.
% \item[\Comm{CurrentEncoding}] contain the value of the \TeX{} encoding choosen.
% \end{description}
%
% \section{A short example (for \LaTeX2e)}
% {
% | \documentclass{article}|\\
% | \usepackage{t1enc,codepage}|\\
% | {\MakeHyphenationLetter{\EightFiveZero}{|\tt\`e|}|\\
% | \hyphenation{sys-t|\tt\`e|-me sys-t|\tt\`e|-mes}|\\
% | }|\\
% | \codepage{\EightFiveZero}{\DC}|\\
% | \begin{document}|\\
% | Unix est un joli syst|\tt \`e|me d'exploitation.|\\
% | \end{document}|
% }
%
% This example will work correctly if all the characters above 127 are usable. Some
% implementations (like
% \textsc{Emtex}) map all characters above 127 on character 127 or use special translation tables
% (\textsc{Tcp} tables for \textsc{EmTeX}). With \textsc{Emtex} the options |/8| should be used when
% the format is generated.
%
%\fi
%
% \StopEventually{
% \begin{thebibliography}{9}
% \bibitem{Companion} M.~Goosens, F.~Mittelbach, and A.~Samarin
% \emph{The \LaTeX{} Companion}, 1994, Addison-Wesley.
% \bibitem{TeXnician} V.~Eijkhout
% \emph{\TeX{} by Topic A \TeX nician's Reference}, 1992 Addison-Wesley
% \bibitem{PETIT} R.~Seroul
% \emph{Le petit livre de \TeX{}}, 1989, Inter\'Edition
% \end{thebibliography}
%}
%
% \section{The implementation\label{IMPLEMENTATION}}
%
% \subsection{Introduction}
%
% The package is divided in three parts:
% \begin{enumerate}
% \item The drawing of characters\ft{Not all the characters in all code page could be represented in \TeX{}.}.
% \item The definition for the different code pages.
% \item The interface.
% \end{enumerate}
%
% Inside the package the characters above 127 are defined by commands whose names try to follow
% the
% standard defined by the \textsc{Postscript} language (\Comm{eacute} will draw the character \'e).
%
% The definition of a code page is done by associating a character with the command which draw it. To be more
% precise the command \Comm{eacute} does not draw the character directly, but it define an active character
% to draw the glyph ``e acute''. Thus a code page table is a call to a command which define each character
% from this code page to become an active character which draw the desired glyph.
%
% In addition, the associated code (\Comm{uccode} and \Comm{lccode}) are adapted to the values used in the code
% page to have a correct behaviour with the commands \Comm{uppercase} and \Comm{lowercase}. The change of
% \Comm{lccode} prohibit correct hyphenation\ft{Generally, the hyphenation patterns are defined with the
% \textsc{Dc} characters and it's not a good idea to modify this file to adapt it to a particular code page.},
% therefore the command \Comm{MakeHyphenationLetter} is provided to circumvent this problem.
%
% \subsection{File \Fich{codepage.sty}}
%
% First of all, a general purpose counter used in all package is declared:
% \begin{macrocode}
%<*codepage>
% \end{macrocode}
%
% Now we save the category code for the character \textbf{@}
% \begin{macrocode}
\chardef\atcatcode=\catcode`\@
\catcode`\@=11\relax
% \end{macrocode}
% and we define some conditionals to be able to test:
% \begin{itemize}
% \item what format is used (because some commands do not exist in \TeX{})
% \item if the translation should be executed on every special character. This is obviously almost ever
% the case (why else using this package ?!) but in some cases this is not a good solution. When
% the special characters are written in an auxiliary files, it could be better to translate them
% when the text is read again, specially if these characters should be transform by commands such
% \Comm{lowercase} or \Comm{uppercase}.
% \item if it's the first time that the command \Comm{codepage} is called, because the definition for the
% command drawing of accents should be saved just the first time (to avoid recursion problem).
% \end{itemize}
% \begin{macrocode}
\newif\if@FirstCodePageCall
\@FirstCodePageCalltrue
\newif\ifTeX
\newif\ifTR % True if we do the translation of character
\TRtrue
% \end{macrocode}
%
% Here is the test to know if the format is plain \TeX{} or \LaTeX{}. This code is stolen
% from~\cite{TeXnician}.
% \begin{macrocode}
\expandafter\ifx\csname @currsize\endcsname\relax\TeXtrue\else\TeXfalse\fi
\ifTeX
\message{codepage.sty used in TeX context}%
\else
\typeout{codepage.sty used in LaTeX context}%
\fi
% \end{macrocode}
%
% \DescribeMacro{\@BadHyphenCarMsg}
% This macro is defined here because it's used in all code page tables. It issue a warning
% when a special character is used to hyphenate a word, but it is not really a letter. A symbol
% drawn using mathematical mode of \TeX{} could not be used to hyphenate word.
% \begin{macrocode}
\def\@BadHyphenCarMsg#1{%
\ifTeX
\message{Warning: the character \string #1 is not a character
to form a word}%
\message{Hyphenation can't be done with it}%
\else
\typeout{Warning: the character \string #1 is not a character
to form a word}%
\typeout{Hyphenation can't be done with it}%
\fi
}%@BadHyphenCarMsg
% \end{macrocode}
% \DescribeMacro{\@ConflictHyphenCarMsg}
% Due to the manner to treat the hyphenation (see paragraph~\ref{HYPHEN}),
% some conflicts could arise
% between two characters for hyphenation. The two arguments of the macro are the two characters in conflict.
% \begin{macrocode}
\def\@ConflictHyphenCarMsg#1#2{%
\ifTeX
\message{Warning the character #1 could be in conflict}%
\message{with character #2 for hyphenation algorithm !}%
\else
\typeout{Warning the character #1 could be in conflict}%
\typeout{with character #2 for hyphenation algorithm !}%
\fi
}%\@ConflictHyphenCarMsg
% \end{macrocode}
%
% Now we could declare the interface of the package, first the definition of constants
% \begin{macrocode}
\chardef\CM=0% The target font is CM encoding
\chardef\DC=1% The target font is DC encoding
\chardef\FourThreeSeven=0% Code page 437
\chardef\EightFiveZero=1% Code page 850
\chardef\IsoOne=2% Iso latin set 1
\chardef\Mac=3% Apple Mac Intosh characters
% \end{macrocode}
%
% \DescribeMacro{\codepage}
% This is the main macro which take two parameters:
% \begin{enumerate}
% \item the source code page of the document;
% \item the encoding scheme chosen for the output (\texttt{T1} or \texttt{OT1}).
% \end{enumerate}
% After the call of the macro, all the characters above 127 are made ``active''.
% Some characters draw their shape, the other issue a warning indicating that they could not be drawn
% with \TeX{} commands.
%
% The first thing to do is the save of the current encoding in a global
% variable and the save of the original macros for putting accents over
% letter.
% This should be done inside the macro to be independent of the order of style's declarations and
% it should be done just once to avoid the recursion problem.
% \begin{macrocode}
\def\codepage#1#2{%
\chardef\CurrentEncoding=#2%
\if@FirstCodePageCall
\let\Grave=\`%
\let\Circumflex=\^%
\let\Tilda=\~%
\let\OverBar=\=%
\let\UnderBar=\b%
\let\Join=\t%
\let\HungarUmlaut=\H%
\let\Acute=\'%
\let\Diaresis=\"%
\let\Breve=\u%
\let\OverDot=\.%
\let\UnderDot=\d%
\let\Tcheche=\v%
\let\Cedille=\c%
\@FirstCodePageCallfalse
\fi
% \end{macrocode}
% All the characters upper 127 are made active and the table for the
% code page of document is set.
% \begin{macrocode}
\AllActive
\ifcase#1%
\input code437 %
\or
\input code850 %
\or
\input codeiso1 %
\or
\input codemac %
\fi
% \end{macrocode}
% The last thing to do is to save with an other name the standard macros for drawing accent
% which are modified by ``tabbing''
% environment of \LaTeX{} and the suppression of white space generated.
% Thus the same macro's name could
% be used everywhere to put accent on character.
% \begin{macrocode}
\let\@Grave=\`%
\let\@Aigu=\'%
\let\@OverBar=\=%
\ignorespaces
}%\codepage
% \end{macrocode}
%
% \DescribeMacro{\AllActive}
% \begin{macrocode}
\def\AllActive{%
\catcode`\^^80=\active \catcode`\^^81=\active \catcode`\^^82=\active
\catcode`\^^83=\active \catcode`\^^84=\active \catcode`\^^85=\active
\catcode`\^^86=\active \catcode`\^^87=\active \catcode`\^^88=\active
\catcode`\^^89=\active \catcode`\^^8a=\active \catcode`\^^8b=\active
\catcode`\^^8c=\active \catcode`\^^8d=\active \catcode`\^^8e=\active
\catcode`\^^8f=\active \catcode`\^^90=\active \catcode`\^^91=\active
\catcode`\^^92=\active \catcode`\^^93=\active \catcode`\^^94=\active
\catcode`\^^95=\active \catcode`\^^96=\active \catcode`\^^97=\active
\catcode`\^^98=\active \catcode`\^^99=\active \catcode`\^^9a=\active
\catcode`\^^9b=\active \catcode`\^^9c=\active \catcode`\^^9d=\active
\catcode`\^^9e=\active \catcode`\^^9f=\active \catcode`\^^a0=\active
\catcode`\^^a1=\active \catcode`\^^a2=\active \catcode`\^^a3=\active
\catcode`\^^a4=\active \catcode`\^^a5=\active \catcode`\^^a6=\active
\catcode`\^^a7=\active \catcode`\^^a8=\active \catcode`\^^a9=\active
\catcode`\^^aa=\active \catcode`\^^ab=\active \catcode`\^^ac=\active
\catcode`\^^ad=\active \catcode`\^^ae=\active \catcode`\^^af=\active
\catcode`\^^b0=\active \catcode`\^^b1=\active \catcode`\^^b2=\active
\catcode`\^^b3=\active \catcode`\^^b4=\active \catcode`\^^b5=\active
\catcode`\^^b6=\active \catcode`\^^b7=\active \catcode`\^^b8=\active
\catcode`\^^b9=\active \catcode`\^^ba=\active \catcode`\^^bb=\active
\catcode`\^^bc=\active \catcode`\^^bd=\active \catcode`\^^be=\active
\catcode`\^^bf=\active \catcode`\^^c0=\active \catcode`\^^c1=\active
\catcode`\^^c2=\active \catcode`\^^c3=\active \catcode`\^^c4=\active
\catcode`\^^c5=\active \catcode`\^^c6=\active \catcode`\^^c7=\active
\catcode`\^^c8=\active \catcode`\^^c9=\active \catcode`\^^ca=\active
\catcode`\^^cb=\active \catcode`\^^cc=\active \catcode`\^^cd=\active
\catcode`\^^ce=\active \catcode`\^^cf=\active \catcode`\^^d0=\active
\catcode`\^^d1=\active \catcode`\^^d2=\active \catcode`\^^d3=\active
\catcode`\^^d4=\active \catcode`\^^d5=\active \catcode`\^^d6=\active
\catcode`\^^d7=\active \catcode`\^^d8=\active \catcode`\^^d9=\active
\catcode`\^^da=\active \catcode`\^^db=\active \catcode`\^^dc=\active
\catcode`\^^dd=\active \catcode`\^^de=\active \catcode`\^^df=\active
\catcode`\^^e0=\active \catcode`\^^e1=\active \catcode`\^^e2=\active
\catcode`\^^e3=\active \catcode`\^^e4=\active \catcode`\^^e5=\active
\catcode`\^^e6=\active \catcode`\^^e7=\active \catcode`\^^e8=\active
\catcode`\^^e9=\active \catcode`\^^ea=\active \catcode`\^^eb=\active
\catcode`\^^ec=\active \catcode`\^^ed=\active \catcode`\^^ee=\active
\catcode`\^^ef=\active \catcode`\^^f0=\active \catcode`\^^f1=\active
\catcode`\^^f2=\active \catcode`\^^f3=\active \catcode`\^^f4=\active
\catcode`\^^f5=\active \catcode`\^^f6=\active \catcode`\^^f7=\active
\catcode`\^^f8=\active \catcode`\^^f9=\active \catcode`\^^fa=\active
\catcode`\^^fb=\active \catcode`\^^fc=\active \catcode`\^^fd=\active
\catcode`\^^fe=\active \catcode`\^^ff=\active
}% \AllActive
% \end{macrocode}
%
% \DescribeMacro{\AllOther}
% \begin{macrocode}
\def\AllOther{%
% \end{macrocode}
% This definition is used to save space (two digits take twice as space than and
% macro) and to clarify the meaning of catcode.
% \begin{macrocode}
\chardef\other=12\relax
\catcode`\^^80=\other \catcode`\^^81=\other \catcode`\^^82=\other
\catcode`\^^83=\other \catcode`\^^84=\other \catcode`\^^85=\other
\catcode`\^^86=\other \catcode`\^^87=\other \catcode`\^^88=\other
\catcode`\^^89=\other \catcode`\^^8a=\other \catcode`\^^8b=\other
\catcode`\^^8c=\other \catcode`\^^8d=\other \catcode`\^^8e=\other
\catcode`\^^8f=\other \catcode`\^^90=\other \catcode`\^^91=\other
\catcode`\^^92=\other \catcode`\^^93=\other \catcode`\^^94=\other
\catcode`\^^95=\other \catcode`\^^96=\other \catcode`\^^97=\other
\catcode`\^^98=\other \catcode`\^^99=\other \catcode`\^^9a=\other
\catcode`\^^9b=\other \catcode`\^^9c=\other \catcode`\^^9d=\other
\catcode`\^^9e=\other \catcode`\^^9f=\other \catcode`\^^a0=\other
\catcode`\^^a1=\other \catcode`\^^a2=\other \catcode`\^^a3=\other
\catcode`\^^a4=\other \catcode`\^^a5=\other \catcode`\^^a6=\other
\catcode`\^^a7=\other \catcode`\^^a8=\other \catcode`\^^a9=\other
\catcode`\^^aa=\other \catcode`\^^ab=\other \catcode`\^^ac=\other
\catcode`\^^ad=\other \catcode`\^^ae=\other \catcode`\^^af=\other
\catcode`\^^b0=\other \catcode`\^^b1=\other \catcode`\^^b2=\other
\catcode`\^^b3=\other \catcode`\^^b4=\other \catcode`\^^b5=\other
\catcode`\^^b6=\other \catcode`\^^b7=\other \catcode`\^^b8=\other
\catcode`\^^b9=\other \catcode`\^^ba=\other \catcode`\^^bb=\other
\catcode`\^^bc=\other \catcode`\^^bd=\other \catcode`\^^be=\other
\catcode`\^^bf=\other \catcode`\^^c0=\other \catcode`\^^c1=\other
\catcode`\^^c2=\other \catcode`\^^c3=\other \catcode`\^^c4=\other
\catcode`\^^c5=\other \catcode`\^^c6=\other \catcode`\^^c7=\other
\catcode`\^^c8=\other \catcode`\^^c9=\other \catcode`\^^ca=\other
\catcode`\^^cb=\other \catcode`\^^cc=\other \catcode`\^^cd=\other
\catcode`\^^ce=\other \catcode`\^^cf=\other \catcode`\^^d0=\other
\catcode`\^^d1=\other \catcode`\^^d2=\other \catcode`\^^d3=\other
\catcode`\^^d4=\other \catcode`\^^d5=\other \catcode`\^^d6=\other
\catcode`\^^d7=\other \catcode`\^^d8=\other \catcode`\^^d9=\other
\catcode`\^^da=\other \catcode`\^^db=\other \catcode`\^^dc=\other
\catcode`\^^dd=\other \catcode`\^^de=\other \catcode`\^^df=\other
\catcode`\^^e0=\other \catcode`\^^e1=\other \catcode`\^^e2=\other
\catcode`\^^e3=\other \catcode`\^^e4=\other \catcode`\^^e5=\other
\catcode`\^^e6=\other \catcode`\^^e7=\other \catcode`\^^e8=\other
\catcode`\^^e9=\other \catcode`\^^ea=\other \catcode`\^^eb=\other
\catcode`\^^ec=\other \catcode`\^^ed=\other \catcode`\^^ee=\other
\catcode`\^^ef=\other \catcode`\^^f0=\other \catcode`\^^f1=\other
\catcode`\^^f2=\other \catcode`\^^f3=\other \catcode`\^^f4=\other
\catcode`\^^f5=\other \catcode`\^^f6=\other \catcode`\^^f7=\other
\catcode`\^^f8=\other \catcode`\^^f9=\other \catcode`\^^fa=\other
\catcode`\^^fb=\other \catcode`\^^fc=\other \catcode`\^^fd=\other
\catcode`\^^fe=\other \catcode`\^^ff=\other
}% \AllOther
% \end{macrocode}
%
% \DescribeMacro{\MakeHyphenationLetter}
% This macro allow a special letter to be use in a \Comm{hyphenation}
% command to declare hyphenation exceptions.
% To do the hyphenation \TeX{} will transform all the characters to lowercase (by using the \Comm{lowerccase}
% primitive) and then compare the string of characters with the table of hyphenation; if a match is found
% the hyphenation could be done.
%
% The \Comm{lccode} and the \Comm{uccode} are always defined in term of code page of document
% (for instance the code page 850 of PC), but the process of
% hyphenation comes at a very late stage when all the characters are already translated in the \textsc{Dc}
% encoding. Thus a match is never possible. The macro \Comm{MakeHyphenationLetter} will then change locally the
% value of \Comm{lccode} to anticipate what it will be when the character is translated. Unfortunately this
% transformation is not one way, and different characters could give the same result, but this case is
% quite rare and a warning is issued.
%
% The two parameters for the macro are the code page of the document and the letter to be used in the
% \Comm{hyphenation} command.
% \begin{macrocode}
\def\MakeHyphenationLetter#1#2{%
\ifcase#1%
\@MakeHyphenationFourThreeSeven{#2}%
\or
\@MakeHyphenationEightFiveZero{#2}%
\or
\@MakeHyphenationLatinOne{#2}%
\or
\@MakeHyphenationMac{#2}%
\fi
}% MakeHyphenationLetter
% \end{macrocode}
%
% \DescribeMacro{\@CarSmaller}
% Macros that work only with \LaTeX, and draw character smaller (two steps less
% than current writing size ie. normalsize is set to footnotesize).
% With \TeX{} this macros does nothing.
% \begin{macrocode}
\def\@CarSmaller{\ifTeX
%Do nothing
\else
%We are in LaTeX
\ifx\@currsize\normalsize\relax
\footnotesize
\else
\ifx\@currsize\small\relax
\scriptsize
\else
\ifx\@currsize\footnotesize\relax
\tiny
\else
\ifx\@currsize\scriptsize\relax
\tiny % we cannot have less
\fi
\fi
\fi
\fi
\ifx\@currsize\large\relax
\small
\else
\ifx\@currsize\Large\relax
\normalsize
\else
\ifx\@currsize\LARGE\relax
\large
\else
\ifx\@currsize\huge\relax
\Large
\else
\ifx\@currsize\Huge\relax
\LARGE
\fi
\fi
\fi
\fi
\fi
\fi
}% \@CarSmaller
% \end{macrocode}
%
% \DescribeMacro{\@Sup}
% \begin{macrocode}
\def\@Sup#1{%
\ifmmode
^{\hbox{\@CarSmaller #1}}%
\else
$^{\hbox{\@CarSmaller #1}}$%
\fi
}%\@Sup
% \end{macrocode}
% \DescribeMacro{\@Fraction}
% Create a fraction (for one half, one quarter etc.)
% \begin{macrocode}
\def\@Fraction#1#2{%
\ifmmode
\ifTeX
#1\over#2%
\else
\frac{#1}{#2}%
\fi
\else
\ifTeX
$#1\over#2$%
\else
$\frac{#1}{#2}$%
\fi
\fi
}%\@Fraction
% \end{macrocode}
%
% \DescribeMacro{\@MathSymbol}
% MathSymbol defines its first parameter to print the mathematical
% symbol given as second parameter (given without {\tt\bslash{}})
% \begin{macrocode}
\def\@MathSymbol#1#2{%
%Do the global definitions
\gdef#1{\ifTR
\ifmmode
% Already in math ==> no $
\csname#2\endcsname
\else
$\csname#2\endcsname$%
\fi
\else
%No translation to do
\string#1%
\fi
}%
}%\@MathSymbol
% \end{macrocode}
% \DescribeMacro{\@InMath}
% @InMath write its argument in mathematical mode (given without {\tt\bslash{}})
% \begin{macrocode}
\def\@InMath#1{%
\ifmmode
% Already in math ==> no $
\csname#1\endcsname
\else
$\csname#1\endcsname$%
\fi
}%\@InMath
% \end{macrocode}
%
% \DescribeMacro{\@UC}
% \begin{macrocode}
\def\@UC#1#2#3{%
\global\uccode`#1=#2\global\lccode`#1=#3%
}%
% \end{macrocode}
%
% \DescribeMacro{\@DefaultValue}
%Define the default macro for an active character which could not be printed.
% \begin{macrocode}
\def\@DefaultValue#1{%
\ifTeX
\message{The character No #1 doesn't exist in target
font (ignored) !}%
\else
\typeout{The character No #1 doesn't exist in target
font (ignored) !}%
\fi
}%
% \end{macrocode}
% The last thing to do is to restore the value of \textbf{@} character
% \begin{macrocode}
\catcode`\@=\atcatcode \let\atcatcode\relax
%</codepage>
% \end{macrocode}
%
% \subsection{The drawing of characters (Files
% \Fich{shapecm.tex}, \Fich{shapedc.tex})}
%
%
% One file for every different possible (in \TeX{}) coding scheme is
% used. Each file should define macros to draw the characters and the
% accents in \TeX. All files should contain the same macros.
%
% \penalty -200
% Two types of macros are provided:
% \penalty 10000
% \begin{itemize}
% \item The macros prefixed with the @ character which are used to facilitate
% the drawing of some characters.
% These macros should be global and shared by all the
% active characters (thus they are declared in the file
% \Fich{codepage.tex}).
% \item The macros to define active characters. The name of
% these macro follows the Postscript conventions for
% character's name (whenever possible) and does not
% contain an @ character.
% \end{itemize}
%
% The auxiliary macros which are used are:
% \begin{description}
% \item[\Comm{@Sup}] to put its argument in superscript
% \item[\Comm{@Fraction}] to create a fraction with the first parameter over the second in
% smaller size than the current writing
% size.
% \item[\Comm{@CarSmaller}] which change the font to have
% a font two steps smaller than
% the current font (do nothing in \TeX{}).
% \item[\Comm{@MathSymbol}] draw a predefined \TeX{} math symbol.
% \item[\Comm{@UC}] just to have one macro for doing the same action
% many times.
% \end{description}
%
% \begin{macrocode}
%<*shapecm>
\chardef\atcatcode=\catcode`\@
\catcode`\@=11\relax
% \end{macrocode}
% \DescribeMacro{\@StartNewWord}
% This macro give the possibility to hyphenate word containing special characters between
% the syllabs containing the accented character. The trick used is to isolate a special character
% by surrounding it with ``end of word'' mark (i.e. a white space of 0pt where the hyphenation
% is prohibited).
%
% These techniques are used since many year in \TeX{} communauty.
% \begin{macrocode}
\gdef\@StartNewWord{\penalty\@M\hskip\z@skip}%
% \end{macrocode}
% \DescribeMacro{\@TreatDotLessCar}
% Change a dot character to remove the dot when used with an accented character.
% \begin{macrocode}
\gdef\@TreatDotLessCar#1#2{%
\@StartNewWord
\ifx#1i%
\csname#2\endcsname \i
\else
\ifx#1j%
\csname#2\endcsname \j
\else
\csname#2\endcsname #1%
\fi
\fi
\@StartNewWord}%
\gdef\`#1{{\@TreatDotLessCar{#1}{Grave}}}%
\gdef\^#1{{\@TreatDotLessCar{#1}{Circumflex}}}%
\gdef\~#1{{\@TreatDotLessCar{#1}{Tilda}}}%
\gdef\=#1{{\@TreatDotLessCar{#1}{OverBar}}}%
\gdef\b#1{{\underbar #1\@StartNewWord}}%
\gdef\t#1{{\@TreatDotLessCar{#1}{Join}}}%
\gdef\H#1{{\@TreatDotLessCar{#1}{HungarUmlaut}}}%
\gdef\'#1{{\@TreatDotLessCar{#1}{Acute}}}%
\gdef\"#1{{\@TreatDotLessCar{#1}{Diaresis}}}%
\gdef\u#1{{\@TreatDotLessCar{#1}{Breve}}}%
\gdef\.#1{{\@TreatDotLessCar{#1}{OverDot}}}%
\gdef\d#1{{\UnderDot #1\@StartNewWord}}%
\gdef\v#1{{\@TreatDotLessCar{#1}{Tcheche}}}%
\gdef\c#1{{\Cedille #1\@StartNewWord}}%
% \end{macrocode}
% Now we should define the definition for the french quotation marks which aren't defined
% in the \textsc{Cm} font. The code is taken from~\cite{PETIT}.
% \begin{macrocode}
\gdef\og{\leavevmode\raise.3ex\hbox{$\scriptscriptstyle\langle\!\langle\,$}}%
\gdef\fg{\leavevmode\raise.3ex\hbox{$\scriptscriptstyle\,\rangle\!\rangle$}}%
% \end{macrocode}
% This is a rudimentary code to obtain pounds sign in \TeX{} mode.
% \begin{macrocode}
\ifTeX\gdef\pounds{{\it\$}}\fi
% \end{macrocode}
%
% The macros for defining
% a active character to draw its glyph has always three parameters:
% \begin{enumerate}
% \item The character in source font (should be active before the call)
% \item The uppercase code
% \item The lowercase code
% \end{enumerate}
%
% \begin{macrocode}
\def\dieresis#1#2#3{%
% \end{macrocode}
% This macro will define an active character to draw a ``diaresis'' character.
% The first thing to do is to set the \Comm{lccode} and \Comm{uccode} to values meaningful for the
% code page of the document.
% \begin{macrocode}
\@UC{#1}{#2}{#3}%
% \end{macrocode}
% Then, depending on the \TeX{} encoding, the translation is done if the test \Comm{ifTR} is true, else
% the character is left verbatim (with \Comm{catcode=12}). When
% |\ifTR| is true, the character is written |\char "xx| for
% the \textsc{Dc} encoding and it is composed (i.e. |\'e|)
% for the \textsc{Cm} encoding.
% \begin{macrocode}
\gdef#1{\ifTR\char"7F{}\else\string#1\fi}%
}%
\def\acute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"13{}\else\string#1\fi}%
}%
\def\cedilla#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"18{}\else\string#1\fi}%
}%
\def\Agrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\grave{A}\else\@Grave{A}\fi\else\string#1\fi}%
}%
\def\Aacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\acute{A}\else\@Aigu{A}\fi\else\string#1\fi}%
}%
\def\Acircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\hat{A}\else\^{A}\fi\else\string#1\fi}%
}%
\def\Atilde#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\tilde{A}\else\~{A}\fi\else\string#1\fi}%
}%
\def\Adieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\ddot{A}\else\"{A}\fi\else\string#1\fi}%
}%
\def\Aring#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\AA{}\else\string#1\fi}%
}%
\def\fiLigature#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{fi}\else\string#1\fi}%
}%
\def\flLigature#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{fl}\else\string#1\fi}%
}%
\def\AE#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\AE{}\else\string#1\fi}%
}%
\def\Ccedilla#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\c {C}\else\string#1\fi}%
}%
\def\Egrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\grave{E}\else\@Grave{E}\fi\else\string#1\fi}%
}%
\def\Eacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\acute{E}\else\@Aigu{E}\fi\else\string#1\fi}%
}%
\def\Ecircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\hat{E}\else\^{E}\fi\else\string#1\fi}%
}%
\def\Edieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\ddot{E}\else\"{E}\fi\else\string#1\fi}%
}%
\def\Igrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\grave{I}\else\@Grave{I}\fi\else\string#1\fi}%
}%
\def\Iacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\acute{I}\else\@Aigu{I}\fi\else\string#1\fi}%
}%
\def\Icircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\hat{I}\else\^{I}\fi\else\string#1\fi}%
}%
\def\Idieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\ddot{I}\else\"{I}\fi\else\string#1\fi}%
}%
\def\DBar#1#2#3{%
\@UC{#1}{#2}{#3}%
% nothing to do we use the default value
}%
\def\Ntilde#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\tilde{N}\else\~{N}\fi\else\string#1\fi}%
}%
\def\Ograve#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\grave{O}\else\@Grave{O}\fi\else\string#1\fi}%
}%
\def\Oacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\acute{O}\else\@Aigu{O}\fi\else\string#1\fi}%
}%
\def\Ocircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\hat{O}\else\^{O}\fi\else\string#1\fi}%
}%
\def\Otilde#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\tilde{O}\else\~{O}\fi\else\string#1\fi}%
}%
\def\Odieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\ddot{O}\else\"{O}\fi\else\string#1\fi}%
}%
\def\Oslash#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\O{}\else\string#1\fi}%
}%
\def\Ugrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\grave{U}\else\@Grave{U}\fi\else\string#1\fi}%
}%
\def\Uacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\acute{U}\else\@Aigu{U}\fi\else\string#1\fi}%
}%
\def\Ucircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\hat{U}\else\^{U}\fi\else\string#1\fi}%
}%
\def\Udieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\ddot{U}\else\"{U}\fi\else\string#1\fi}%
}%
\def\Yacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\acute{Y}\else\@Aigu{Y}\fi\else\string#1\fi}%
}%
\def\Thorn#1#2#3{%
\@UC{#1}{#2}{#3}%
% no definition in CM
}%
\def\germandbls#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{SS}\else\string#1\fi}%
}%
\def\agrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\grave{a}\else\@Grave{a}\fi\else\string#1\fi}%
}%
\def\aacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\acute{a}\else\@Aigu{a}\fi\else\string#1\fi}%
}%
\def\acircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\hat{a}\else\^{a}\fi\else\string#1\fi}%
}%
\def\atilde#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\tilde{a}\else\~{a}\fi\else\string#1\fi}%
}%
\def\adieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\ddot{a}\else\"{a}\fi\else\string#1\fi}%
}%
\def\aring#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\aa{}\else\string#1\fi}%
}%
\def\ae#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ae{}\else\string#1\fi}%
}%
\def\ccedilla#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\c {c}\else\string#1\fi}%
}%
\def\egrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\grave{e}\else\@Grave{e}\fi\else\string#1\fi}%
}%
\def\eacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\acute{e}\else\@Aigu{e}\fi\else\string#1\fi}%
}%
\def\ecircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\hat{e}\else\^{e}\fi\else\string#1\fi}%
}%
\def\edieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\ddot{e}\else\"{e}\fi\else\string#1\fi}%
}%
\def\igrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\grave{i}\else\@Grave{i}\fi\else\string#1\fi}%
}%
\def\iacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\acute{i}\else\@Aigu{i}\fi\else\string#1\fi}%
}%
\def\icircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\hat{i}\else\^{i}\fi\else\string#1\fi}%
}%
\def\idieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\ddot{i}\else\"{i}\fi\else\string#1\fi}%
}%
\def\dBar#1#2#3{%
\@UC{#1}{#2}{#3}%
% no definition in CM
}%
\def\ntilde#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\tilde{n}\else\~{n}\fi\else\string#1\fi}%
}%
\def\ograve#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\grave{o}\else\@Grave{o}\fi\else\string#1\fi}%
}%
\def\oacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\acute{o}\else\@Aigu{o}\fi\else\string#1\fi}%
}%
\def\ocircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\hat{o}\else\^{o}\fi\else\string#1\fi}%
}%
\def\otilde#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\tilde{o}\else\~{o}\fi\else\string#1\fi}%
}%
\def\odieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\ddot{o}\else\"{o}\fi\else\string#1\fi}%
}%
\def\OE#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\OE{}\else\string#1\fi}%
}%
\def\oe#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\oe{}\else\string#1\fi}%
}%
\def\oslash#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\o{}\else\string#1\fi}%
}%
\def\ugrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\grave{u}\else\@Grave{u}\fi\else\string#1\fi}%
}%
\def\uacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\acute{u}\else\@Aigu{u}\fi\else\string#1\fi}%
}%
\def\ucircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\hat{u}\else\^{u}\fi\else\string#1\fi}%
}%
\def\udieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\ddot{u}\else\"{u}\fi\else\string#1\fi}%
}%
\def\yacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\acute{y}\else\@Aigu{y}\fi\else\string#1\fi}%
}%
\def\thorn#1#2#3{%
\@UC{#1}{#2}{#3}%
% no definition in CM
}%
\def\ydieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\ddot{y}\else\"{y}\fi\else\string#1\fi}%
}%
\def\Ydieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\ifmmode\ddot{Y}\else\"{Y}\fi\else\string#1\fi}%
}%
%
\def\alpha#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{alpha}%
}%
\def\approx#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{approx}%
}%
\def\beta#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{beta}%
}%
\def\bullet#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{bullet}%
}%
\def\cap#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{cap}%
}%
\def\cent#1#2#3{%
\@UC{#1}{#2}{#3}%
% no definition in CM
% no definition in DC
}%
\def\guillemeotright#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\fg{}\else\string#1\fi}%
}%
\def\copyright#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\copyright{}\else\string#1\fi}%
}%
\def\currency#1#2#3{% character hex A4 in Iso latin set 1
\@UC{#1}{#2}{#3}%
% no definition in CM
}%
\def\degree#1#2#3{%
\@UC{#1}{#2}{#3}%
}%
\def\dag#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{dag}%
}%
\def\ddag#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{ddag}%
}%
\def\delta#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{delta}%
}%
\def\div#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{div}%
}%
\def\diamond#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{Diamond}%
}%
\def\emptysetSign#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{emptyset}% is nicer than epsilon
}%
\def\section#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\S}\else\string#1\fi}%
}%
\def\epsilon#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{varepsilon}% is nicer than epsilon
}%
\def\equiv#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{equiv}%
}%
\def\ellipsis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{...}\else\string#1\fi}%
}%
\def\exclamdown#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{!`}\else\string#1\fi}%
}%
\def\ordfeminine#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\@Sup{\b{a}}\else\string#1\fi}%
}%
\def\geq#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{geq}%
}%
\def\Gamma#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{Gamma}%
}%
\def\infty#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{infty}%
}%
\def\leq#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{leq}%
}%
\def\emdash#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{---}\else\string#1\fi}%
}%
\def\ordmasculine#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\@Sup{\b{o}}\else\string#1\fi}%
}%
\def\mu#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{mu}%
}%
\def\neg#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{neg}%
}%
\def\neq#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{neq}%
}%
\def\unbreakablespace#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR~\else\string#1\fi}%
}%
\def\Omega#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{Omega}%
}%
\def\OneHalf#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\@Fraction{1}{2}}\else\string#1\fi}%
}%
\def\OneQuarter#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\@Fraction{1}{4}}\else\string#1\fi}%
}%
\def\guilletmotleft#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\og{}\else\string#1\fi}%
}%
\def\Pi#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{Pi}%
}%
\def\pi#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{pi}%
}%
\def\pm#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{pm}%
}%
\def\ParagraphSign#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\P}\else\string#1\fi}%
}%
\def\partial#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{partial}%
}%
\def\Phi#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{Phi}%
}%
\def\pounds#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\pounds{}\else\string#1\fi}%
}%
\def\powerone#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\@Sup{1}}\else\string#1\fi}%
}%
\def\powerthree#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\@Sup{3}}\else\string#1\fi}%
}%
\def\powertwo#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\@Sup{2}}\else\string#1\fi}%
}%
\def\questiondown#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{?`}\else\string#1\fi}%
}%
\def\register#1#2#3{%
\@UC{#1}{#2}{#3}%
% no definition in CM
% no definition in DC
}%
\def\Sigma#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{Sigma}%
}%
\def\sigma#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{sigma}%
}%
\def\quoteright#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{'}\else\string#1\fi}%
}%
\def\quoteleft#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{`}\else\string#1\fi}%
}%
\def\splitbar#1#2#3{%
\@UC{#1}{#2}{#3}%
% no definition in CM
}%
\def\tau#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{tau}%
}%
\def\ThetaSign#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{Theta}%
}%
\def\threequarter#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\@Fraction{3}{4}}\else\string#1\fi}%
}%
\def\times#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{times}%
}%
\def\trademark#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\@Sup{TM}\else\string#1\fi}%
}%
\def\quotedblright#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{''}\else\string#1\fi}%
}%
\def\quotedblleft#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{``}\else\string#1\fi}%
}%
\def\yen#1#2#3{%
\@UC{#1}{#2}{#3}%
% no definition in CM
% no definition in DC
}%
\def\perthousand#1#2#3{%
\@UC{#1}{#2}{#3}%
% no definition in CM
% no definition in DC
}%
\def\florin#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\it f}\else\string#1\fi}%
}%
\catcode`\@=\atcatcode \let\atcatcode\relax
%</shapecm>
% \end{macrocode}
%
% These macros redefines all the effect of the macros to put accents on
% characters
% in order to produce directly the character in the font \textsc{Dc}.
% The code is stolen from the file \Fich{DCLFONT.STY} from the \textsc{Nfss} distribution.
% Two reasons have dictated this choice:
% \begin{itemize}
% \item When \textsc{Nfss} is not used, the composition of character+accent
% will give directly the accented character;
% \item When \textsc{Nfss} is used, it's better to have the translation done
% in command |\char 'xxx| instead of |^^xx|. This avoid bad translation when
% an auxiliary file is reread.
% \end{itemize}
% The first thing to do is to save the catcode of @ character.
% \begin{macrocode}
%<*shapedc>
\chardef\atcatcode=\catcode`\@
\catcode`\@=11\relax
\global\chardef\aa="0E5%
\global\chardef\ae="0E6%
\global\chardef\l="0AA%
\global\chardef\oe="0F7%
\global\chardef\o="0F8%
\global\chardef\ss="0FF%
\global\chardef\AA="0C5%
\global\chardef\AE="0C6%
\global\chardef\L="8A%
\global\chardef\OE="0D7%
\global\chardef\O="0D8%
\global\chardef\SS="0DF%
\global\chardef\i="19%
\global\chardef\j="1A%
\global\chardef\pounds="0BF%
\gdef\hbar{{\mathchar'11\mkern-9muh}}%
\def\@accent@def#1#2#3{\expandafter\gdef
\csname @#1@\string#2@#1@\endcsname{#3}}%
\gdef\@accent@use#1#2#3{%
\expandafter\ifx \csname @#1@\string#3@#1@\endcsname \relax
{\accent#2 #3}%
\else \csname @#1@\string#3@#1@\endcsname\fi}%
\gdef\`{\@accent@use{grave}{0}}%
\let\@accii=\`%
\@accent@def{grave}{a}{\char"E0{}}%
\@accent@def{grave}{e}{\char"E8{}}%
\@accent@def{grave}{\i}{\char"EC{}}%
\@accent@def{grave}{i}{\char"EC{}}%
\@accent@def{grave}{o}{\char"F2{}}%
\@accent@def{grave}{u}{\char"F9{}}%
\@accent@def{grave}{A}{\char"C0{}}%
\@accent@def{grave}{E}{\char"C8{}}%
\@accent@def{grave}{I}{\char"CC{}}%
\@accent@def{grave}{O}{\char"D2{}}%
\@accent@def{grave}{U}{\char"D9{}}%
\gdef\'{\@accent@use{acute}{1}}%
\let\@acci=\'%
\@accent@def{acute}{n}{\char"AB{}}%
\@accent@def{acute}{l}{\char"A8{}}%
\@accent@def{acute}{r}{\char"AF{}}%
\@accent@def{acute}{s}{\char"B1{}}%
\@accent@def{acute}{z}{\char"B9{}}%
\@accent@def{acute}{a}{\char"E1{}}%
\@accent@def{acute}{e}{\char"E9{}}%
\@accent@def{acute}{\i}{\char"ED{}}%
\@accent@def{acute}{i}{\char"ED{}}%
\@accent@def{acute}{o}{\char"F3{}}%
\@accent@def{acute}{u}{\char"FA{}}%
\@accent@def{acute}{y}{\char"FD{}}%
\@accent@def{acute}{N}{\char"8B{}}%
\@accent@def{acute}{L}{\char"88{}}%
\@accent@def{acute}{R}{\char"8F{}}%
\@accent@def{acute}{S}{\char"91{}}%
\@accent@def{acute}{Z}{\char"99{}}%
\@accent@def{acute}{A}{\char"C1{}}%
\@accent@def{acute}{E}{\char"C9{}}%
\@accent@def{acute}{I}{\char"CD{}}%
\@accent@def{acute}{O}{\char"D3{}}%
\@accent@def{acute}{U}{\char"DA{}}%
\@accent@def{acute}{Y}{\char"DD{}}%
\@accent@def{acute}{c}{\char"A2{}}%
\@accent@def{acute}{C}{\char"82{}}%
\gdef\v{\@accent@use{check}{7}}%
\@accent@def{check}{c}{\char"A3{}}%
\@accent@def{check}{e}{\char"A5{}}%
\@accent@def{check}{n}{\char"AC{}}%
\@accent@def{check}{r}{\char"B0{}}%
\@accent@def{check}{s}{\char"B2{}}%
\@accent@def{check}{z}{\char"BA{}}%
\@accent@def{check}{C}{\char"83{}}%
\@accent@def{check}{D}{\char"84{}}%
\@accent@def{check}{E}{\char"85{}}%
\@accent@def{check}{N}{\char"8C{}}%
\@accent@def{check}{R}{\char"90{}}%
\@accent@def{check}{S}{\char"92{}}%
\@accent@def{check}{T}{\char"94{}}%
\@accent@def{check}{Z}{\char"9A{}}%
\gdef\u{\@accent@use{breve}{8}}%
\@accent@def{breve}{a}{\char"A0{}}%
\@accent@def{breve}{g}{\char"A7{}}%
\@accent@def{breve}{A}{\char"80{}}%
\@accent@def{breve}{G}{\char"87{}}%
\gdef\=#1{{\accent9 #1}}%
\let\@acciii=\=%
\gdef\^{\@accent@use{circflx}{2}}%
\@accent@def{circflx}{a}{\char"E2{}}%
\@accent@def{circflx}{e}{\char"EA{}}%
\@accent@def{circflx}{\i}{\char"EE{}}%
\@accent@def{circflx}{i}{\char"EE{}}%
\@accent@def{circflx}{o}{\char"F4{}}%
\@accent@def{circflx}{u}{\char"FB{}}%
\@accent@def{circflx}{A}{\char"C2{}}%
\@accent@def{circflx}{E}{\char"CA{}}%
\@accent@def{circflx}{I}{\char"CE{}}%
\@accent@def{circflx}{O}{\char"D4{}}%
\@accent@def{circflx}{U}{\char"DB{}}%
\gdef\.{\@accent@use{dot}{10}}%
\@accent@def{dot}{z}{\char"BB{}}%
\@accent@def{dot}{Z}{\char"9B{}}%
\@accent@def{dot}{I}{\char"9D{}}%
\@accent@def{dot}{i}{i}%
\gdef\H{\@accent@use{Hung}{5}}%
\@accent@def{Hung}{o}{\char"AE{}}%
\@accent@def{Hung}{u}{\char"B6{}}%
\@accent@def{Hung}{O}{\char"8E{}}%
\@accent@def{Hung}{U}{\char"96{}}%
\gdef\~{\@accent@use{tilde}{3}}%
\@accent@def{tilde}{a}{\char"E3{}}%
\@accent@def{tilde}{n}{\char"F1{}}%
\@accent@def{tilde}{o}{\char"F5{}}%
\@accent@def{tilde}{A}{\char"C3{}}%
\@accent@def{tilde}{N}{\char"D1{}}%
\@accent@def{tilde}{O}{\char"D5{}}%
\gdef\"{\@accent@use{Umlaut}{4}}%
\@accent@def{Umlaut}{a}{\char"E4{}}%
\@accent@def{Umlaut}{e}{\char"EB{}}%
\@accent@def{Umlaut}{\i}{\char"EF{}}%
\@accent@def{Umlaut}{i}{\char"EF{}}%
\@accent@def{Umlaut}{o}{\char"F6{}}%
\@accent@def{Umlaut}{u}{\char"FC{}}%
\@accent@def{Umlaut}{A}{\char"C4{}}%
\@accent@def{Umlaut}{E}{\char"CB{}}%
\@accent@def{Umlaut}{I}{\char"CF{}}%
\@accent@def{Umlaut}{O}{\char"D6{}}%
\@accent@def{Umlaut}{U}{\char"DC{}}%
\gdef\pb#1{\oalign{#1\crcr\hidewidth
\vbox to.2ex{\hbox{\char9}\vss}\hidewidth}}%
\gdef\pc#1{\expandafter\ifx
\csname @cedilla@\string#1@cedilla@\endcsname \relax
\c@dilla#1\else \csname @cedilla@\string#1@cedilla@\endcsname\fi}%
\@accent@def{cedilla}{s}{\char"B3{}}%
\@accent@def{cedilla}{t}{\char"B5{}}%
\@accent@def{cedilla}{c}{\char"E7{}}%
\@accent@def{cedilla}{S}{\char"93{}}%
\@accent@def{cedilla}{T}{\char"95{}}%
\@accent@def{cedilla}{C}{\char"C7{}}%
\gdef\c@dilla#1{\setbox\z@\hbox{#1}\ifdim\ht\z@=1ex\accent11 #1%
\else{\ooalign{\hidewidth\char11\hidewidth\crcr\unhbox\z@}}\fi}%
%
\def\dieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char'004{}\else\string#1\fi}%
}%
\def\acute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"01{}\else\string#1\fi}%
}%
\def\cedilla#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"0D{}\else\string#1\fi}%
}%
\def\Agrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"C0{}\else\string#1\fi}%
}%
\def\Aacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"C1{}\else\string#1\fi}%
}%
\def\Acircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"C2{}\else\string#1\fi}%
}%
\def\Atilde#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"C3{}\else\string#1\fi}%
}%
\def\Adieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"C4{}\else\string#1\fi}%
}%
\def\Aring#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"C5{}\else\string#1\fi}%
}%
\def\fiLigature#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{fi}\else\string#1\fi}%
}%
\def\flLigature#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{fl}\else\string#1\fi}%
}%
\def\AE#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"C6{}\else\string#1\fi}%
}%
\def\Ccedilla#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"C7{}\else\string#1\fi}%
}%
\def\Egrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"C8{}\else\string#1\fi}%
}%
\def\Eacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"C9{}\else\string#1\fi}%
}%
\def\Ecircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"CA{}\else\string#1\fi}%
}%
\def\Edieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"CB{}\else\string#1\fi}%
}%
\def\Igrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"CC{}\else\string#1\fi}%
}%
\def\Iacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"CD{}\else\string#1\fi}%
}%
\def\Icircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"CE{}\else\string#1\fi}%
}%
\def\Idieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"CF{}\else\string#1\fi}%
}%
\def\DBar#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"D0{}\else\string#1\fi}%
}%
\def\Ntilde#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"D1{}\else\string#1\fi}%
}%
\def\Ograve#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"D2{}\else\string#1\fi}%
}%
\def\Oacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"D3{}\else\string#1\fi}%
}%
\def\Ocircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"D4{}\else\string#1\fi}%
}%
\def\Otilde#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"D5{}\else\string#1\fi}%
}%
\def\Odieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"D6{}\else\string#1\fi}%
}%
\def\Oslash#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"D8{}\else\string#1\fi}%
}%
\def\Ugrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"D9{}\else\string#1\fi}%
}%
\def\Uacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"DA{}\else\string#1\fi}%
}%
\def\Ucircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"DB{}\else\string#1\fi}%
}%
\def\Udieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"DC{}\else\string#1\fi}%
}%
\def\Yacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"DD{}\else\string#1\fi}%
}%
\def\Thorn#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"DE{}\else\string#1\fi}%
}%
\def\germandbls#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"DF{}\else\string#1\fi}%
}%
\def\agrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"E0{}\else\string#1\fi}%
}%
\def\aacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"E1{}\else\string#1\fi}%
}%
\def\acircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"E2{}\else\string#1\fi}%
}%
\def\atilde#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"E3{}\else\string#1\fi}%
}%
\def\adieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"E4{}\else\string#1\fi}%
}%
\def\aring#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"E5{}\else\string#1\fi}%
}%
\def\ae#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"E6{}\else\string#1\fi}%
}%
\def\ccedilla#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"E7{}\else\string#1\fi}%
}%
\def\egrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"E8{}\else\string#1\fi}%
}%
\def\eacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"E9{}\else\string#1\fi}%
}%
\def\ecircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"EA{}\else\string#1\fi}%
}%
\def\edieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"EB{}\else\string#1\fi}%
}%
\def\igrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"EC{}\else\string#1\fi}%
}%
\def\iacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"ED{}\else\string#1\fi}%
}%
\def\icircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"EE{}\else\string#1\fi}%
}%
\def\idieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"EF{}\else\string#1\fi}%
}%
\def\dBar#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"F0{}\else\string#1\fi}%
}%
\def\ntilde#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"F1{}\else\string#1\fi}%
}%
\def\ograve#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"F2{}\else\string#1\fi}%
}%
\def\oacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"F3{}\else\string#1\fi}%
}%
\def\ocircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"F4{}\else\string#1\fi}%
}%
\def\otilde#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"F5{}\else\string#1\fi}%
}%
\def\odieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"F6{}\else\string#1\fi}%
}%
\def\OE#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\OE{}\else\string#1\fi}%
}%
\def\oe#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\oe{}\else\string#1\fi}%
}%
\def\oslash#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"F8{}\else\string#1\fi}%
}%
\def\ugrave#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"F9{}\else\string#1\fi}%
}%
\def\uacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"FA{}\else\string#1\fi}%
}%
\def\ucircumflex#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"FB{}\else\string#1\fi}%
}%
\def\udieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"FC{}\else\string#1\fi}%
}%
\def\yacute#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"FD{}\else\string#1\fi}%
}%
\def\thorn#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"FE{}\else\string#1\fi}%
}%
\def\ydieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"B8{}\else\string#1\fi}%
}%
\def\Ydieresis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"98{}\else\string#1\fi}%
}%
%
\def\alpha#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{alpha}%
}%
\def\approx#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{approx}%
}%
\def\beta#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{beta}%
}%
\def\bullet#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{bullet}%
}%
\def\cap#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{cap}%
}%
\def\cent#1#2#3{%
\@UC{#1}{#2}{#3}%
% no definition in DC
}%
\def\guillemeotright#1#2#3{%
\@UC{#1}{#2}{#3}%
% a small space is inserted before the french guillemot
% and the pre-existing space is removed
\gdef#1{\ifTR\unskip\@InMath{,}\char'024{}\else\string#1\fi}%
}%
\def\copyright#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\copyright{}\else\string#1\fi}%
}%
\def\currency#1#2#3{% character hex A4 in Iso latin set 1
\@UC{#1}{#2}{#3}%
% no definition in DC
}%
\def\degree#1#2#3{%
\@UC{#1}{#2}{#3}%
}%
\def\dag#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{dag}%
}%
\def\ddag#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{ddag}%
}%
\def\delta#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{delta}%
}%
\def\div#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{div}%
}%
\def\diamond#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{Diamond}%
}%
\def\emptysetSign#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{emptyset}%
}%
\def\section#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\S}\else\string#1\fi}%
}%
\def\epsilon#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{varepsilon}%
}%
\def\equiv#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{equiv}%
}%
\def\ellipsis#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{...}\else\string#1\fi}%
}%
\def\exclamdown#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"BD{}\else\string#1\fi}%
}%
\def\ordfeminine#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\@Sup{\b{a}}\else\string#1\fi}%
}%
\def\geq#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{geq}%
}%
\def\Gamma#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{Gamma}%
}%
\def\infty#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{infty}%
}%
\def\leq#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{leq}%
}%
\def\emdash#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{---}\else\string#1\fi}%
}%
\def\ordmasculine#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\@Sup{\b{o}}\else\string#1\fi}%
}%
\def\mu#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{mu}%
}%
\def\neg#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{neg}%
}%
\def\neq#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{neq}%
}%
\def\unbreakablespace#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR~\else\string#1\fi}%
}%
\def\Omega#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{Omega}%
}%
\def\OneHalf#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\@Fraction{1}{2}}\else\string#1\fi}%
}%
\def\OneQuarter#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\@Fraction{1}{4}}\else\string#1\fi}%
}%
\def\guilletmotleft#1#2#3{%
\@UC{#1}{#2}{#3}%
% a small space is added after the opening guillemot
% and the pre-existing space is removed
\gdef#1{\ifTR\char"13\unskip\@InMath{,}\else\string#1\fi}%
}%
\def\Pi#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{Pi}%
}%
\def\pi#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{pi}%
}%
\def\pm#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{pm}%
}%
\def\ParagraphSign#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\P}\else\string#1\fi}%
}%
\def\partial#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{partial}%
}%
\def\Phi#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{Phi}%
}%
\def\pounds#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"BF{}\else\string#1\fi}%
}%
\def\powerone#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\@Sup{1}}\else\string#1\fi}%
}%
\def\powerthree#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\@Sup{3}}\else\string#1\fi}%
}%
\def\powertwo#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\@Sup{2}}\else\string#1\fi}%
}%
\def\questiondown#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\char"BE{}\else\string#1\fi}%
}%
\def\register#1#2#3{%
\@UC{#1}{#2}{#3}%
% no definition in DC
}%
\def\Sigma#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{Sigma}%
}%
\def\sigma#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{sigma}%
}%
\def\quoteright#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{'}\else\string#1\fi}%
}%
\def\quoteleft#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{`}\else\string#1\fi}%
}%
\def\splitbar#1#2#3{%
\@UC{#1}{#2}{#3}%
% no definition in DC
}%
\def\tau#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{tau}%
}%
\def\ThetaSign#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{Theta}%
}%
\def\threequarter#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\@Fraction{3}{4}}\else\string#1\fi}%
}%
\def\times#1#2#3{%
\@UC{#1}{#2}{#3}%
\@MathSymbol{#1}{times}%
}%
\def\trademark#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR\@Sup{TM}\else\string#1\fi}%
}%
\def\quotedblright#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{''}\else\string#1\fi}%
}%
\def\quotedblleft#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{``}\else\string#1\fi}%
}%
\def\yen#1#2#3{%
\@UC{#1}{#2}{#3}%
% no definition in DC
}%
\def\perthousand#1#2#3{%
\@UC{#1}{#2}{#3}%
% no definition in DC
}%
\def\florin#1#2#3{%
\@UC{#1}{#2}{#3}%
\gdef#1{\ifTR{\it f}\else\string#1\fi}%
}%
\catcode`\@=\atcatcode \let\atcatcode\relax
%
%</shapedc>
% \end{macrocode}
%
% \subsection{Table for the code page 850 (file:
% \Fich{code850.tex})\label{HYPHEN}}
% This file contains code to set up the table to convert the
% code page 850 to
% the DC or Cm encoding scheme (depending on the value of global
% variable \Comm{CurrentEncoding}). This file should be moved into
% \TeX's
% memory with an \Comm{input} command and all the characters above 127
% should be active before the call to the \Comm{input} command.
%
%Some normal unaccented character should be made active, just for the case
%where the \Comm{uppercase} command is used with lowercase accented character which don't
%have uppercase accented equivalent (the normal unaccented character is used).
%
%Since the \Comm{uppercase} or \Comm{lowercase} command doesn't change the catcode,
%the resulting character will have the catcode \Comm{active} (since all the characters
%above 127 are active). Thus a macro should exist !
% \begin{macrocode}
%<*codepage850>
\chardef\atcatcode=\catcode`\@
\catcode`\@=11\relax
{%
\catcode`\Y=\active
\gdef Y{\string Y}%
}%
% \end{macrocode}
% All the characters are assigned to a default value (each character issue a message telling it
% could not be drawn with \TeX{} commands) and a group is started (in effect
% when the file \Fich{code850.tex} is read)
% to limit the scope of macros created by the inputting
% of files \Fich{shapecm} or \Fich{shapedc}. These macros
% are used just for setting the tables and never useful
% after that.
% \begin{macrocode}
\begingroup
\input initcar %
\ifcase\CurrentEncoding
\input shapecm %
\or
\input shapedc %
\fi
\Ccedilla{^^80}{"80}{"87}%
\udieresis{^^81}{"9A}{"81}%
\eacute{^^82}{"90}{"82}%
\acircumflex{^^83}{"B6}{"83}%
\adieresis{^^84}{"8E}{"84}%
\agrave{^^85}{"B7}{"85}%
\aring{^^86}{"8F}{"86}%
\ccedilla{^^87}{"80}{"87}%
\ecircumflex{^^88}{"D2}{"88}%
\edieresis{^^89}{"D3}{"89}%
\egrave{^^8a}{"D4}{"8A}%
\idieresis{^^8b}{"D8}{"8B}%
\icircumflex{^^8c}{"D7}{"8C}%
\igrave{^^8d}{"DE}{"8D}%
\Adieresis{^^8e}{"8E}{"84}%
\Aring{^^8f}{"8F}{"86}%
\Eacute{^^90}{"90}{"82}%
\ae{^^91}{"92}{"91}%
\AE{^^92}{"92}{"91}%
\ocircumflex{^^93}{"E2}{"93}%
\odieresis{^^94}{"99}{"94}%
\ograve{^^95}{"E3}{"95}%
\ucircumflex{^^96}{"EA}{"96}%
\ugrave{^^97}{"EB}{"97}%
\ydieresis{^^98}{"59}{"98}%
\Odieresis{^^99}{"99}{"94}%
\Udieresis{^^9a}{"9A}{"81}%
\oslash{^^9b}{"9D}{"9B}%
\pounds{^^9c}{"9C}{"9C}%
\Oslash{^^9d}{"9D}{"9B}%
\times{^^9e}{"9E}{"9E}%
\florin{^^9f}{"9F}{"9F}%
\aacute{^^a0}{"B5}{"A0}%
\iacute{^^a1}{"D6}{"A1}%
\oacute{^^a2}{"E0}{"A2}%
\uacute{^^a3}{"E9}{"A3}%
\ntilde{^^a4}{"A5}{"A4}%
\Ntilde{^^a5}{"A5}{"A4}%
\ordfeminine{^^a6}{"A6}{"A6}%
\ordmasculine{^^a7}{"A7}{"A7}%
\questiondown{^^a8}{"A8}{"A8}%
\register{^^a9}{"A9}{"A9}%
\neg{^^aa}{"AA}{"AA}%
\OneHalf{^^ab}{"AB}{"AB}%
\OneQuarter{^^ac}{"AC}{"AC}%
\exclamdown{^^ad}{"AD}{"AD}%
\guilletmotleft{^^ae}{"AE}{"AE}%
\guillemeotright{^^af}{"AF}{"AF}%
\Aacute{^^b5}{"B5}{"A0}%
\Acircumflex{^^b6}{"B6}{"83}%
\Agrave{^^b7}{"B7}{"85}%
\copyright{^^b8}{"B8}{"B8}%
\cent{^^bd}{"BD}{"BD}%
\yen{^^be}{"BE}{"BE}%
\atilde{^^c6}{"C7}{"C6}%
\Atilde{^^c7}{"C7}{"C6}%
\currency{^^cf}{"CF}{"CF}%
\dBar{^^d0}{"D1}{"D0}%
\DBar{^^d1}{"D1}{"D0}%
\Ecircumflex{^^d2}{"D2}{"88}%
\Edieresis{^^d3}{"D3}{"89}%
\Egrave{^^d4}{"D4}{"8A}%
\powerone{^^d5}{"D5}{"D5}%
\Iacute{^^d6}{"D6}{"A1}%
\Icircumflex{^^d7}{"D7}{"8C}%
\Idieresis{^^d8}{"D8}{"8B}%
\splitbar{^^dd}{"DD}{"DD}%
\Igrave{^^de}{"DE}{"8D}%
\Oacute{^^e0}{"E0}{"A2}%
\beta{^^e1}{"E1}{"E1}%
\Ocircumflex{^^e2}{"E2}{"93}%
\Ograve{^^e3}{"E3}{"95}%
\otilde{^^e4}{"E5}{"E4}%
\Otilde{^^e5}{"E5}{"E4}%
\mu{^^e6}{"E6}{"E6}%
\thorn{^^e7}{"E8}{"E7}%
\Thorn{^^e8}{"E8}{"E7}%
\Uacute{^^e9}{"E9}{"A3}%
\Ucircumflex{^^ea}{"EA}{"96}%
\Ugrave{^^eb}{"EB}{"97}%
\yacute{^^ec}{"ED}{"EC}%
\Yacute{^^ed}{"ED}{"EC}%
\pm{^^f1}{"F1}{"F1}%
\threequarter{^^f3}{"F3}{"F3}%
\ParagraphSign{^^f4}{"F4}{"F4}%
\section{^^f5}{"F5}{"F5}%
\div{^^f6}{"F6}{"F6}%
\cedilla{^^f7}{"F7}{"F7}%
\degree{^^f8}{"F8}{"F8}%
\dieresis{^^f9}{"F9}{"F9}%
\bullet{^^fa}{"FA}{"FA}%
\powerone{^^fb}{"FB}{"FB}%
\powerthree{^^fc}{"FC}{"FC}%
\powertwo{^^fd}{"FD}{"FD}%
\endgroup
% \end{macrocode}
%
% \DescribeMacro{\@MakeHyphenation850}
%\Comm{@MakeHyphenationEightFiveZero} prepare a letter given as parameter
%to do a letter for hyphenation exception.
%
% The algorithm to build the exception hyphenation pattern put all the characters
% to lower case before setting up the hyphenation tables. When a string should be broken
% it is transformed in lowercase and then compared with the hyphenation pattern.
%
% Since these two transformations are performed on two different characters (the first, before
% a character from a code page was translated, the second after), a match could never occur.
%
% The aim of this macro is to adapt the value of the \Comm{lccode} of a character to be used
% in the \Comm{hyphenation} to permit a match when this character will be translated in something
% else.
%
%\textbf{Examples:}\\
% ``e grave'' (character hexa 8a) in code page 850 will be translated in \textsc{Dc}
% encoding scheme to character hexa (E8). In code page 850,
% the character hexa
% E8 will have a lowercase character hexa E7 (in code page 850). When the translated
% character ``e grave'' will be put in lowercase, his value will be hexa E7.
% From that we can deduce that to
% use \Comm{hyphenation} with ``e grave'' (character hexa 8a in code page 850), ``e grave'' should
% have \Comm{lccode="E7}.
%
% ``n tilde'' (character hexa A4 in code page 850) will be translated
% to character hexa F1 in \textsc{Dc} encoding. Character hexa F1 in code page
% 850 is ``plus-minus'' sign which has lowercase hexa F1 thus
% the \Comm{lccode} for ``n tilde'' for use with the \Comm{hyphenation} command
% should be hexa F1.
%
% This macro is meaningless with the \textsc{Cm} encoding !
% \begin{macrocode}
\ifnum\CurrentEncoding=\DC\relax
\def\@MakeHyphenationEightFiveZero#1{%
\catcode`#1=12% make character given in parameter other which is
% a legal catcode for \hyphenation
\ifnum`#1="80
%C cedilla translated in DC encoding to "D7 (which is A tilde)
%with a tilde ("d6) as lowercase
\lccode`#1="D6%
\else\ifnum`#1="81
%u dieresis --> "FC
\lccode`#1="FC%
\else\ifnum`#1="82
%e acute --> "E9 (U acute) --> u acute
\lccode`#1="A3%
\else\ifnum`#1="83
%a circumflex --> "E2 O circumflex --> o circumflex
\lccode`#1="93%
\else\ifnum`#1="84
%a dieresis --> "E4 o tilde
\lccode`#1="E4%
\@ConflictHyphenCarMsg{a dieresis ("84)}{a ring ("86)}
\else\ifnum`#1="85
%a grave --> "E O acute --> "A2 (o acute in code page 850)
\lccode`#1="A2%
\else\ifnum`#1="86
%a ring --> "E5 O tilde --> "E4
\lccode`#1="E4%
\@ConflictHyphenCarMsg{a ring ("86)}{a dieresis ("84)}
\else\ifnum`#1="87
%c cedilla --> "E7 --> "E7
\lccode`#1="E7%
\@ConflictHyphenCarMsg{c cedilla ("87)}{e grave ("8A)}
\else\ifnum`#1="88
%e circumflex --> "EA (U circumflex ---> "96
\lccode`#1="96%
\else\ifnum`#1="89
%e dieresis --> "EB U grave --> "97
\lccode`#1="97%
\else\ifnum`#1="8A
%e grave --> "E8 Thorn --> "E7
\lccode`#1="E7%
\@ConflictHyphenCarMsg{e grave ("8A)}{c cedilla ("87)}
\else\ifnum`#1="8B
%i dieresis --> "EF (acute accent)
\lccode`#1="EF%
\else\ifnum`#1="8C
%i circumflex --> "EE (BAR Accent)
\lccode`#1="EE%
\else\ifnum`#1="8D
%i grave --> "EC (y acute)
\lccode`#1="EC%
\@ConflictHyphenCarMsg{i grave ("8D)}{i acute ("A1)}
\else\ifnum`#1="8E
%A dieresis --> "C4 (semi graphical character)
\lccode`#1="C4%
\else\ifnum`#1="8F
%A ring --> "C5 (semi graphical character)
\lccode`#1="C5%
\else\ifnum`#1="90
%E acute --> "C9 (semi graphical character)
\lccode`#1="C9%
\else\ifnum`#1="91
%ae ligature --> "E6 (mu sign)
\lccode`#1="E6%
\else\ifnum`#1="92
%AE ligature --> "C6 (a tilde)
\lccode`#1="C6%
\else\ifnum`#1="93
%o circumflex --> "F4 (Paragraph Sign)
\lccode`#1="F4%
\else\ifnum`#1="94
%o dieresis --> "F6 (divide sign)
\lccode`#1="F6%
\else\ifnum`#1="95
%O grave --> "F2 (equal sign)
\lccode`#1="F2%
\else\ifnum`#1="96
%u circumflex --> "FB (Power one sign)
\lccode`#1="FB%
\else\ifnum`#1="97
%u grave --> "F9 (dieresis accent)
\lccode`#1="F9%
\else\ifnum`#1="98
%y dieresis --> "B8 (Copyright sign)
\lccode`#1="B8%
\else\ifnum`#1="99
%O dieresis --> "D6 (I acute) --> i acute
\lccode`#1="A1%
\else\ifnum`#1="9A
%U dieresis --> "DC (semi graphical sign)
\lccode`#1="DC%
\else\ifnum`#1="9B
%o slash --> "F8 (Degree sign)
\lccode`#1="F8%
\else\ifnum`#1="9D
%O slash --> "D8 (I dieresis) --> i dieresis
\lccode`#1="8B%
\else\ifnum`#1="A0
%a acute --> "E1 (Beta sign)
\lccode`#1="E1%
\else\ifnum`#1="A1
%i acute --> "ED (Y acute) --> y acute
\lccode`#1="EC%
\@ConflictHyphenCarMsg{i acute ("A1)}{i grave ("8D)}
\else\ifnum`#1="A2
%o acute --> "F3 (three quarter sign)
\lccode`#1="F3%
\else\ifnum`#1="A3
%u acute --> "FA (Bullet sign)
\lccode`#1="FA%
\else\ifnum`#1="A4
%n tilde --> "F1 (Plus minus sign)
\lccode`#1="F1%
\else\ifnum`#1="A5
%N tilde --> "D1 (D bar) --> d bar
\lccode`#1="D0%
\@ConflictHyphenCarMsg{N tilde ("A5)}{D bar ("D1)}
\else\ifnum`#1="B5
%A acute --> "C1 (semi graphical sign)
\lccode`#1="C1%
\else\ifnum`#1="B6
%A circumflex --> "C2 (semi graphical sign)
\lccode`#1="C2%
\else\ifnum`#1="B7
%A grave --> "C0 (Semi graphical sign)
\lccode`#1="C0%
\else\ifnum`#1="D0
%d bar --> "F0 (minus sign)
\lccode`#1="F0%
\else\ifnum`#1="D1
%D bar --> "D0 (d bar)
\lccode`#1="D0%
\@ConflictHyphenCarMsg{D bar ("D1)}{N tilde ("A5}
\else\ifnum`#1="D2
%E circumflex --> "CA (semi-graphical sign)
\lccode`#1="CA%
\else\ifnum`#1="D3
%E dieresis --> "CB (semi graphical sign)
\lccode`#1="CB%
\else\ifnum`#1="D4
%E grave --> "C8 (semi graphical sign)
\lccode`#1="C8%
\else\ifnum`#1="D6
%I acute --> "CD (semi graphical sign)
\lccode`#1="CD%
\else\ifnum`#1="D7
%I circumflex --> "CE (semi-graphical sign)
\lccode`#1="CE%
\else\ifnum`#1="D8
%I dieresis --> "CF (currency sign)
\lccode`#1="CF%
\else\ifnum`#1="E0
%O acute --> "D3 (E dieresis) --> e dieresis
\lccode`#1="89%
\else\ifnum`#1="E2
%O circumflex --> "D4 (E grave) --> e grave
\lccode`#1="8A%
\else\ifnum`#1="E3
%O grave --> "D2 (E circumflex) --> e circumflex
\lccode`#1="88%
\else\ifnum`#1="E4
%o tilde --> "F5 (End of flow sign)
\lccode`#1="F5%
\else\ifnum`#1="E5
%O tilde --> "D5 (Power One sign)
\lccode`#1="D5%
\else\ifnum`#1="E7
%thorn --> "FE (semi graphical sign)
\lccode`#1="FE%
\else\ifnum`#1="E8
%P like letter --> "DE (I acute) --> i acute
\lccode`#1="8D%
\else\ifnum`#1="E9
%U acute --> "DA (semi graphical sign)
\lccode`#1="DA%
\else\ifnum`#1="EA
%U circumflex --> "DB (semi graphical sign)
\lccode`#1="DB%
\else\ifnum`#1="EB
%U grave --> "D9 (semi graphical sign)
\lccode`#1="D9%
\else\ifnum`#1="EC
%y acute --> "FD (Power two sign)
\lccode`#1="FD%
\else\ifnum`#1="ED
%Y acute --> "DD (Slit vertical bar sign)
\lccode`#1="DD%
\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\fi\fi
% We must have same count of \fi than \ifnum (58)
}%\@MakeHyphenationEightFiveZero
\fi % \ifx\CurrentEncoding...
\catcode`\@=\atcatcode \let\atcatcode\relax
%</codepage850>
% \end{macrocode}
% \subsection{Table for the code page 437 (file: \Fich{code437.tex})}
% \DescribeMacro{\@FourThreeSeven}
% \begin{macrocode}
%<*codepage437>
\chardef\atcatcode=\catcode`\@
\catcode`\@=11\relax
\begingroup
\catcode`\A=\active
\catcode`\E=\active
\catcode`\I=\active
\catcode`\O=\active
\catcode`\U=\active
\catcode`\Y=\active
\gdef A{\string A}%
\gdef E{\string E}%
\gdef I{\string I}%
\gdef O{\string O}%
\gdef U{\string U}%
\gdef Y{\string Y}%
\endgroup
\input initcar %
\begingroup
\ifcase\CurrentEncoding
\input shapecm %
\or
\input shapedc %
\fi
\Ccedilla{^^80}{"80}{"87}%
\Adieresis{^^8e}{"8E}{"84}%
\Aring{^^8f}{"8F}{"86}%
\Eacute{^^90}{"90}{"82}%
\AE{^^92}{"92}{"91}%
\Odieresis{^^99}{"99}{"94}%
\Udieresis{^^9a}{"9A}{"81}%
\Ntilde{^^a5}{"A5}{"A4}%
\udieresis{^^81}{"9A}{"81}%
\eacute{^^82}{"90}{"82}%
\acircumflex{^^83}{"41}{"83}%
\adieresis{^^84}{"8E}{"84}%
\agrave{^^85}{"41}{"85}%
\aring{^^86}{"8F}{"86}%
\ccedilla{^^87}{"80}{"87}%
\ecircumflex{^^88}{"45}{"88}%
\edieresis{^^89}{"45}{"89}%
\egrave{^^8a}{"45}{"8A}%
\idieresis{^^8b}{"49}{"8B}%
\icircumflex{^^8c}{"49}{"8C}%
\igrave{^^8d}{"49}{"8D}%
\ae{^^91}{"92}{"91}%
\ocircumflex{^^93}{"4F}{"93}%
\odieresis{^^94}{"99}{"94}%
\ograve{^^95}{"4F}{"95}%
\ucircumflex{^^96}{"55}{"96}%
\ugrave{^^97}{"55}{"97}%
\ydieresis{^^98}{"59}{"98}%
\pounds{^^9c}{"9C}{"9C}%
\florin{^^9f}{"9F}{"9F}%
\aacute{^^a0}{"41}{"A0}%
\iacute{^^a1}{"49}{"A1}%
\oacute{^^a2}{"4F}{"A2}%
\uacute{^^a3}{"55}{"A3}%
\ntilde{^^a4}{"A5}{"A4}%
\questiondown{^^a8}{"A8}{"A8}%
\exclamdown{^^ad}{"AD}{"AD}%
\guilletmotleft{^^ae}{"AE}{"AE}%
\guillemeotright{^^af}{"AF}{"AF}%
\alpha{^^e0}{"E0}{"E0}%
\beta{^^e1}{"E1}{"E1}%
\Gamma{^^e2}{"E2}{"E2}%
\pi{^^e3}{"E3}{"E3}%
\Sigma{^^e4}{"E4}{"E4}%
\sigma{^^e5}{"E5}{"E5}%
\mu{^^e6}{"E6}{"E6}%
\tau{^^e7}{"E7}{"E7}%
\Phi{^^e8}{"E8}{"E8}%
\ThetaSign{^^e9}{"E9}{"E9}%
\Omega{^^ea}{"EA}{"EA}%
\delta{^^eb}{"EB}{"EB}%
\infty{^^ec}{"EC}{"EC}%
\emptysetSign{^^ed}{"ED}{"ED}%
\epsilon{^^ee}{"EE}{"EE}%
\cap{^^ef}{"EF}{"EF}%
\equiv{^^f0}{"F0}{"F0}%
\pm{^^f1}{"F1}{"F1}%
\geq{^^f2}{"F2}{"F2}%
\leq{^^f3}{"F3}{"F3}%
\div{^^f6}{"F6}{"F6}%
\approx{^^f7}{"F7}{"F7}%
\bullet{^^f9}{"F9}{"F9}%
\endgroup
% \end{macrocode}
% \DescribeMacro{\@MakeHyphenation437}
% \begin{macrocode}
\ifnum\CurrentEncoding=\DC\relax
\def\@MakeHyphenationFourThreeSeven#1{%
\catcode`#1=12%
\ifnum`#1="80
% C cedilla translated in DC encoding to "D7 (which is a semi graphical
% sign in code page 437)
\lccode`#1="D7%
\else\ifnum`#1="81
%u dieresis --> "FC
\lccode`#1="FC%
\else\ifnum`#1="82
%e acute --> "E9 (Theta sign)
\lccode`#1="E9%
\else\ifnum`#1="83
%a circumflex --> "E2 (Gamma sign)
\lccode`#1="E2%
\else\ifnum`#1="84
%a dieresis --> "E4 o tilde
\lccode`#1="E4%
\else\ifnum`#1="85
%a grave --> "E0 (alpha sign)
\lccode`#1="E0%
\else\ifnum`#1="86
%a ring --> "E5 (sigma sign)
\lccode`#1="E5%
\else\ifnum`#1="87
%c cedilla --> "E7 (tau sign)
\lccode`#1="E7%
\else\ifnum`#1="88
%e circumflex --> "EA (Omega sign)
\lccode`#1="EA%
\else\ifnum`#1="89
%e dieresis --> "EB (delta sign)
\lccode`#1="EB%
\else\ifnum`#1="8A
%e grave --> "E8 (Phi sign)
\lccode`#1="E8%
\else\ifnum`#1="8B
%i dieresis --> "EF (set intersection sign)
\lccode`#1="EF%
\else\ifnum`#1="8C
%i circumflex --> "EE (epsilon sign)
\lccode`#1="EE%
\else\ifnum`#1="8D
%i grave --> "EC (infinity sign)
\lccode`#1="EC%
\else\ifnum`#1="8E
%A dieresis --> "C4 (semi graphical character)
\lccode`#1="C4%
\else\ifnum`#1="8F
%A ring --> "C5 (semi graphical character)
\lccode`#1="C5%
\else\ifnum`#1="90
%E acute --> "C9 (semi graphical character)
\lccode`#1="C9%
\else\ifnum`#1="91
%ae ligature --> "E6 (mu sign)
\lccode`#1="E6%
\else\ifnum`#1="92
%AE ligature --> "C6 (semi graphical character)
\lccode`#1="C6%
\else\ifnum`#1="93
%o circumflex --> "F4 (upper part of integral sign)
\lccode`#1="F4%
\else\ifnum`#1="94
%o dieresis --> "F6 (divide sign)
\lccode`#1="F6%
\else\ifnum`#1="95
%O grave --> "F2 (greater or equal sign)
\lccode`#1="F2%
\else\ifnum`#1="96
%u circumflex --> "FB (square sign)
\lccode`#1="FB%
\else\ifnum`#1="97
%u grave --> "F9 (big bullet sign)
\lccode`#1="F9%
\else\ifnum`#1="98
%y dieresis --> "B8 (semi graphical character)
\lccode`#1="B8%
\else\ifnum`#1="99
%O dieresis --> "D6 (semi graphical character)
\lccode`#1="D6%
\else\ifnum`#1="9A
%U dieresis --> "DC (semi graphical sign)
\lccode`#1="DC%
\else\ifnum`#1="A0
%a acute --> "E1 (Beta sign)
\lccode`#1="E1%
\else\ifnum`#1="A1
%i acute --> "ED (empty set sign)
\lccode`#1="ED%
\else\ifnum`#1="A2
%o acute --> "F3 (less or equal sign)
\lccode`#1="F3%
\else\ifnum`#1="A3
%u acute --> "FA (Bullet sign)
\lccode`#1="FA%
\else\ifnum`#1="A4
%n tilde --> "F1 (Plus minus sign)
\lccode`#1="F1%
\else\ifnum`#1="A5
%N tilde --> "D1 (semi graphical character)
\lccode`#1="D1%
\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
% We must have same count of \fi than \ifnum (33)
}%
\fi %\ifx\CurrentEncoding...
\catcode`\@=\atcatcode \let\atcatcode\relax
%</codepage437>
% \end{macrocode}
% \subsection{Table for the code page of {\normalfont\textsc{Mc Intosh}} (file: \Fich{codemac.tex})}
% \DescribeMacro{\@CodeMac}
% \begin{macrocode}
%<*codepagemac>
\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
% \end{macrocode}
%
% \DescribeMacro{\@MakeHyphenationMac}
% \begin{macrocode}
\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
% We must have same count of \fi than \ifnum (55)
}%
\fi %\ifx\CurrentEncoding...
\catcode`\@=\atcatcode \let\atcatcode\relax
%</codepagemac>
% \end{macrocode}
% \subsection{Table for the code page of {\normalfont\textsc{Iso Latin set One}} (file: \Fich{codeiso1.tex})}
% \DescribeMacro{\@IsoLatinSetOne}
% \begin{macrocode}
%<*codepageiso1>
\chardef\atcatcode=\catcode`\@
\catcode`\@=11\relax
{%
\catcode`\Y=\active
\gdef Y{\string Y}%
}%
\begingroup
\input initcar %
\ifcase\CurrentEncoding
\input shapecm %
\Agrave{^^c0}{"C0}{"E0}%
\Aacute{^^c1}{"C1}{"E1}%
\Acircumflex{^^c2}{"C2}{"E2}%
\Atilde{^^c3}{"C3}{"E3}%
\Adieresis{^^c4}{"C4}{"E4}%
\Aring{^^c5}{"C5}{"E5}%
\AE{^^c6}{"C6}{"E6}%
\Ccedilla{^^c7}{"C7}{"E7}%
\Egrave{^^c8}{"C8}{"E8}%
\Eacute{^^c9}{"C9}{"E9}%
\Ecircumflex{^^ca}{"CA}{"EA}%
\Edieresis{^^cb}{"CB}{"EB}%
\Igrave{^^cc}{"CC}{"EC}%
\Iacute{^^cd}{"CD}{"ED}%
\Icircumflex{^^ce}{"CE}{"EE}%
\Idieresis{^^cf}{"CF}{"EF}%
\DBar{^^d0}{"D0}{"F0}%
\Ntilde{^^d1}{"D1}{"F1}%
\Ograve{^^d2}{"D2}{"F2}%
\Oacute{^^d3}{"D3}{"F3}%
\Ocircumflex{^^d4}{"D4}{"F4}%
\Otilde{^^d5}{"D5}{"F5}%
\Odieresis{^^d6}{"D6}{"F6}%
\times{^^d7}{"D7}{"D7}%
\Oslash{^^d8}{"D8}{"F8}%
\Ugrave{^^d9}{"D9}{"F9}%
\Uacute{^^da}{"DA}{"FA}%
\Ucircumflex{^^db}{"DB}{"FB}%
\Udieresis{^^dc}{"DC}{"FC}%
\Yacute{^^dd}{"DD}{"FD}%
\thorn{^^de}{"FE}{"DE}%
\beta{^^df}{"DF}{"DF}%
\agrave{^^e0}{"C0}{"E0}%
\aacute{^^e1}{"C1}{"E1}%
\acircumflex{^^e2}{"C2}{"E2}%
\atilde{^^e3}{"C3}{"E3}%
\adieresis{^^e4}{"C4}{"E4}%
\aring{^^e5}{"C5}{"E5}%
\ae{^^e6}{"C6}{"E6}%
\ccedilla{^^e7}{"C7}{"E7}%
\egrave{^^e8}{"C8}{"E8}%
\eacute{^^e9}{"C9}{"E9}%
\ecircumflex{^^ea}{"CA}{"EA}%
\edieresis{^^eb}{"CB}{"EB}%
\igrave{^^ec}{"CC}{"EC}%
\iacute{^^ed}{"CD}{"ED}%
\icircumflex{^^ee}{"CE}{"EE}%
\idieresis{^^ef}{"CF}{"EF}%
\dBar{^^f0}{"D0}{"F0}%
\ntilde{^^f1}{"D1}{"F1}%
\ograve{^^f2}{"D2}{"F2}%
\oacute{^^f3}{"D3}{"F3}%
\ocircumflex{^^f4}{"D4}{"F4}%
\otilde{^^f5}{"D5}{"F5}%
\odieresis{^^f6}{"D6}{"F6}%
\div{^^f7}{"F7}{"F7}%
\oslash{^^f8}{"D8}{"F8}%
\ugrave{^^f9}{"D9}{"F9}%
\uacute{^^fa}{"DA}{"FA}%
\ucircumflex{^^fb}{"DB}{"FB}%
\udieresis{^^fc}{"DC}{"FC}%
\yacute{^^fd}{"DD}{"FD}%
\Thorn{^^fe}{"DE}{"FE}%
\ydieresis{^^ff}{"59}{"FF}%
\or
\input shapedc %
% \end{macrocode}
% The following characters are in the same place in both
% (\textsc{Iso1} and \textsc{Dc}) encodings. Thus the only
% thing to do is to change the \emph{catcode} to transform
% the character in letter (can be used in control sequence, but
% this is not recommended if one want have portable documents) and
% to define good values for uppercase and lowercase characters.
% \begin{macrocode}
%Agrave
\global\catcode"C0=11\global\uccode"C0="C0\global\lccode"C0="E0%
%Aacute
\global\catcode"C1=11\global\uccode"C1="C1\global\lccode"C1="E1%
%Acircumflex
\global\catcode"C2=11\global\uccode"C2="C2\global\lccode"C2="E2%
%Atilde
\global\catcode"C3=11\global\uccode"C3="C3\global\lccode"C3="E3%
%Adieresis
\global\catcode"C4=11\global\uccode"C4="C4\global\lccode"C4="E4%
%Aring
\global\catcode"C5=11\global\uccode"C5="C5\global\lccode"C5="E5%
%AE
\global\catcode"C6=11\global\uccode"C6="C6\global\lccode"C6="E6%
%Ccedilla
\global\catcode"C7=11\global\uccode"C7="C7\global\lccode"C7="E7
%Egrave
\global\catcode"C8=11\global\uccode"C8="C8\global\lccode"C8="E8%
%Eacute
\global\catcode"C9=11\global\uccode"C9="C9\global\lccode"C9="E9%
%Ecircumflex
\global\catcode"CA=11\global\uccode"CA="CA\global\lccode"CA="EA%
%Edieresis
\global\catcode"CB=11\global\uccode"CB="CB\global\lccode"CB="EB%
%Igrave
\global\catcode"CC=11\global\uccode"CC="CC\global\lccode"CC="EC%
%Iacute
\global\catcode"CD=11\global\uccode"CD="CD\global\lccode"CD="ED%
%Icircumflex
\global\catcode"CE=11\global\uccode"CE="CE\global\lccode"CE="EE%
%Idieresis
\global\catcode"CF=11\global\uccode"CF="CF\global\lccode"CF="EF%
%DBar
\global\catcode"D0=11\global\uccode"D0="D0\global\lccode"D0="F0%
%Ntilde
\global\catcode"D1=11\global\uccode"D1="D1\global\lccode"D1="F1%
%Ograve
\global\catcode"D2=11\global\uccode"D2="D2\global\lccode"D2="F2%
%Oacute
\global\catcode"D3=11\global\uccode"D3="D3\global\lccode"D3="F3%
%Ocircumflex
\global\catcode"D4=11\global\uccode"D4="D4\global\lccode"D4="F4%
%Otilde
\global\catcode"D5=11\global\uccode"D5="D5\global\lccode"D5="F5%
%Odieresis
\global\catcode"D6=11\global\uccode"D6="D6\global\lccode"D6="F6%
\times{^^d7}{"D7}{"D7}%
%Oslash
\global\catcode"D8=11\global\uccode"D8="D8\global\lccode"D8="F8%
%Ugrave
\global\catcode"D9=11\global\uccode"D9="D9\global\lccode"D9="F9%
%Uacute
\global\catcode"DA=11\global\uccode"DA="DA\global\lccode"DA="FA%
%Ucircumflex
\global\catcode"DB=11\global\uccode"DB="DB\global\lccode"DB="FB%
%Udieresis
\global\catcode"DC=11\global\uccode"DC="DC\global\lccode"DC="FC%
%Yacute
\global\catcode"DD=11\global\uccode"DD="DD\global\lccode"DD="FD%
%thorn
\global\catcode"DE=11\global\uccode"DE="FE\global\lccode"DE="DE%
\beta{^^df}{"DF}{"DF}%
%agrave
\global\catcode"E0=11\global\uccode"E0="C0\global\lccode"E0="E0%
%aacute
\global\catcode"E1=11\global\uccode"E1="C1\global\lccode"E1="E1%
%acircumflex
\global\catcode"E2=11\global\uccode"E2="C2\global\lccode"E2="E2%
%atilde
\global\catcode"E3=11\global\uccode"E3="C3\global\lccode"E3="E3%
%adieresis
\global\catcode"E4=11\global\uccode"E4="C4\global\lccode"E4="E4%
%aring
\global\catcode"E5=11\global\uccode"E5="C5\global\lccode"E5="E5%
%ae
\global\catcode"E6=11\global\uccode"E6="C6\global\lccode"E6="E6%
%ccedilla
\global\catcode"E7=11\global\uccode"E7="C7\global\lccode"E7="E7%
%egrave
\global\catcode"E8=11\global\uccode"E8="C8\global\lccode"E8="E8%
%eacute
\global\catcode"E9=11\global\uccode"E9="C9\global\lccode"E9="E9%
%ecircumflex
\global\catcode"EA=11\global\uccode"EA="CA\global\lccode"EA="EA%
%edieresis
\global\catcode"EB=11\global\uccode"EB="CB\global\lccode"EB="EB%
%igrave
\global\catcode"EC=11\global\uccode"EC="CC\global\lccode"EC="EC%
%iacute
\global\catcode"ED=11\global\uccode"ED="CD\global\lccode"ED="ED%
%icircumflex
\global\catcode"EE=11\global\uccode"EE="CE\global\lccode"EE="EE%
%idieresis
\global\catcode"EF=11\global\uccode"EF="CF\global\lccode"EF="EF%
%dBar
\global\catcode"F0=11\global\uccode"F0="D0\global\lccode"F0="F0%
%ntilde
\global\catcode"F1=11\global\uccode"F1="D1\global\lccode"F1="F1%
%ograve
\global\catcode"F2=11\global\uccode"F2="D2\global\lccode"F2="F2%
%oacute
\global\catcode"F3=11\global\uccode"F3="D3\global\lccode"F3="F3%
%ocircumflex
\global\catcode"F4=11\global\uccode"F4="D4\global\lccode"F4="F4%
%otilde
\global\catcode"F5=11\global\uccode"F5="D5\global\lccode"F5="F5%
%odieresis
\global\catcode"F6=11\global\uccode"F6="D6\global\lccode"F6="F6%
\div{^^f7}{"F7}{"F7}%
%oslash
\global\catcode"F8=11\global\uccode"F8="D8\global\lccode"F8="F8%
%ugrave
\global\catcode"F9=11\global\uccode"F9="D9\global\lccode"F9="F9%
%uacute
\global\catcode"FA=11\global\uccode"FA="DA\global\lccode"FA="FA%
%ucircumflex
\global\catcode"FB=11\global\uccode"FB="DB\global\lccode"FB="FB%
%udieresis
\global\catcode"FC=11\global\uccode"FC="DC\global\lccode"FC="FC%
%yacute
\global\catcode"FD=11\global\uccode"FD="DD\global\lccode"FD="FD%
%Thorn
\global\catcode"FE=11\global\uccode"FE="DE\global\lccode"FE="FE%
%ydieresis
\global\catcode"FF=11\global\uccode"FF="59\global\lccode"FF="FF%
\fi %\ifcase
% \end{macrocode}
% These symbols are drawn with mathematical commands and thus are aleways
% ``active'' in both encoding
% \begin{macrocode}
\exclamdown{^^a1}{"A1}{"A1}%
\cent{^^a2}{"A2}{"A2}%
\pounds{^^a3}{"A3}{"A3}%
\currency{^^a4}{"A4}{"A4}%
\yen{^^a5}{"A5}{"A5}%
\splitbar{^^a6}{"A6}{"A6}%
\section{^^a7}{"A7}{"A7}%
\dieresis{^^a8}{"A8}{"A8}%
\copyright{^^a9}{"A9}{"A9}%
\ordfeminine{^^aa}{"AA}{"AA}%
\guilletmotleft{^^ab}{"AB}{"AB}%
\neg{^^ac}{"AC}{"AC}%
\register{^^ad}{"AD}{"AD}%
\degree{^^b0}{"B0}{"B0}%
\pm{^^b1}{"B1}{"B1}%
\powertwo{^^b2}{"B2}{"B2}%
\powerthree{^^b3}{"B3}{"B3}%
\mu{^^b5}{"B5}{"B5}%
\ParagraphSign{^^b6}{"B6}{"B6}%
\bullet{^^b7}{"B7}{"B7}%
\cedilla{^^b8}{"B8}{"B8}%
\powerone{^^b9}{"B9}{"B9}%
\ordmasculine{^^ba}{"BA}{"BA}%
\guillemeotright{^^bb}{"BB}{"BB}%
\OneQuarter{^^bc}{"BC}{"BC}%
\OneHalf{^^bd}{"BD}{"BD}%
\threequarter{^^be}{"BE}{"BE}%
\questiondown{^^bf}{"BF}{"BF}%
\endgroup
% \end{macrocode}
% \DescribeMacro{\@MakeHyphenationLatin1}
% \begin{macrocode}
\ifnum\CurrentEncoding=\DC
\def\@MakeHyphenationLatinOne#1{%
% Here we have not too much work since the character from Iso Latin set one and
% from DC encoding are the same. We just do the verification that the character
% is a letter.
\catcode`#1=12%
\ifnum`#1>"C0%
\ifnum`#1="D7% Times sign
\@BadHyphenCarMsg{#1}%
\fi
\ifnum`#1="DF% beta sign
\@BadHyphenCarMsg{#1}%
\fi
\ifnum`#1="F7% Divide sign
\@BadHyphenCarMsg{#1}%
\fi
\else
\@BadHyphenCarMsg{#1}%
\fi
}%
\fi %\ifnum\CurrentEncoding...
\catcode`\@=\atcatcode \let\atcatcode\relax
%</codepageiso1>
% \end{macrocode}
% \subsection{Default value for each character (file: \Fich{initcar.tex})}
%
% The file when inputting give a default value to each character above
% 127, and set the value for
% \Comm{lccode} and \Comm{uccode} to the character itself.
% This convention doesn't follow the normal \TeX{} convention
% (where a character without uppercase or lowercase has value zero for both code) but it
% is necessary to be able to declare hyphenation exception
% (containing character above 127) with the command \Comm{hyphenation}.
% \begin{macrocode}
%<*initcar>
\gdef^^80{\@DefaultValue{80}}\global\uccode"80="80\global\lccode"80="80%
\gdef^^81{\@DefaultValue{81}}\global\uccode"81="81\global\lccode"81="81%
\gdef^^82{\@DefaultValue{82}}\global\uccode"82="82\global\lccode"82="82%
\gdef^^83{\@DefaultValue{83}}\global\uccode"83="83\global\lccode"83="83%
\gdef^^84{\@DefaultValue{84}}\global\uccode"84="84\global\lccode"84="84%
\gdef^^85{\@DefaultValue{85}}\global\uccode"85="85\global\lccode"85="85%
\gdef^^86{\@DefaultValue{86}}\global\uccode"86="86\global\lccode"86="86%
\gdef^^87{\@DefaultValue{87}}\global\uccode"87="87\global\lccode"87="87%
\gdef^^88{\@DefaultValue{88}}\global\uccode"88="88\global\lccode"88="88%
\gdef^^89{\@DefaultValue{89}}\global\uccode"89="89\global\lccode"89="89%
\gdef^^8a{\@DefaultValue{8a}}\global\uccode"8A="8A\global\lccode"8A="8A%
\gdef^^8b{\@DefaultValue{8b}}\global\uccode"8B="8B\global\lccode"8B="8B%
\gdef^^8c{\@DefaultValue{8c}}\global\uccode"8C="8C\global\lccode"8C="8C%
\gdef^^8d{\@DefaultValue{8d}}\global\uccode"8D="8D\global\lccode"8D="8D%
\gdef^^8e{\@DefaultValue{8e}}\global\uccode"8E="8E\global\lccode"8E="8E%
\gdef^^8f{\@DefaultValue{8f}}\global\uccode"8F="8F\global\lccode"8F="8F%
\gdef^^90{\@DefaultValue{90}}\global\uccode"90="90\global\lccode"90="90%
\gdef^^91{\@DefaultValue{91}}\global\uccode"91="91\global\lccode"91="91%
\gdef^^92{\@DefaultValue{92}}\global\uccode"92="92\global\lccode"92="92%
\gdef^^93{\@DefaultValue{93}}\global\uccode"93="93\global\lccode"93="93%
\gdef^^94{\@DefaultValue{94}}\global\uccode"94="94\global\lccode"94="94%
\gdef^^95{\@DefaultValue{95}}\global\uccode"95="95\global\lccode"95="95%
\gdef^^96{\@DefaultValue{96}}\global\uccode"96="96\global\lccode"96="96%
\gdef^^97{\@DefaultValue{97}}\global\uccode"97="97\global\lccode"97="97%
\gdef^^98{\@DefaultValue{98}}\global\uccode"98="98\global\lccode"98="98%
\gdef^^99{\@DefaultValue{99}}\global\uccode"99="99\global\lccode"99="99%
\gdef^^9a{\@DefaultValue{9a}}\global\uccode"9A="9A\global\lccode"9A="9A%
\gdef^^9b{\@DefaultValue{9b}}\global\uccode"9B="9B\global\lccode"9B="9B%
\gdef^^9c{\@DefaultValue{9c}}\global\uccode"9C="9C\global\lccode"9C="9C%
\gdef^^9d{\@DefaultValue{9d}}\global\uccode"9D="9D\global\lccode"9D="9D%
\gdef^^9e{\@DefaultValue{9e}}\global\uccode"9E="9E\global\lccode"9E="9E%
\gdef^^9f{\@DefaultValue{9f}}\global\uccode"9F="9F\global\lccode"9F="9F%
\gdef^^a0{\@DefaultValue{a0}}\global\uccode"A0="A0\global\lccode"A0="A0%
\gdef^^a1{\@DefaultValue{a1}}\global\uccode"A1="A1\global\lccode"A1="A1%
\gdef^^a2{\@DefaultValue{a2}}\global\uccode"A2="A2\global\lccode"A2="A2%
\gdef^^a3{\@DefaultValue{a3}}\global\uccode"A3="A3\global\lccode"A3="A3%
\gdef^^a4{\@DefaultValue{a4}}\global\uccode"A4="A4\global\lccode"A4="A4%
\gdef^^a5{\@DefaultValue{a5}}\global\uccode"A5="A5\global\lccode"A5="A5%
\gdef^^a6{\@DefaultValue{a6}}\global\uccode"A6="A6\global\lccode"A6="A6%
\gdef^^a7{\@DefaultValue{a7}}\global\uccode"A7="A7\global\lccode"A7="A7%
\gdef^^a8{\@DefaultValue{a8}}\global\uccode"A8="A8\global\lccode"A8="A8%
\gdef^^a9{\@DefaultValue{a9}}\global\uccode"A9="A9\global\lccode"A9="A9%
\gdef^^aa{\@DefaultValue{aa}}\global\uccode"AA="AA\global\lccode"AA="AA%
\gdef^^ab{\@DefaultValue{ab}}\global\uccode"AB="AB\global\lccode"AB="AB%
\gdef^^ac{\@DefaultValue{ac}}\global\uccode"AC="AC\global\lccode"AC="AC%
\gdef^^ad{\@DefaultValue{ad}}\global\uccode"AD="AD\global\lccode"AD="AD%
\gdef^^ae{\@DefaultValue{ae}}\global\uccode"AE="AE\global\lccode"AE="AE%
\gdef^^af{\@DefaultValue{af}}\global\uccode"AF="AF\global\lccode"AF="AF%
\gdef^^b0{\@DefaultValue{b0}}\global\uccode"B0="B0\global\lccode"B0="B0%
\gdef^^b1{\@DefaultValue{b1}}\global\uccode"B1="B1\global\lccode"B1="B1%
\gdef^^b2{\@DefaultValue{b2}}\global\uccode"B2="B2\global\lccode"B2="B2%
\gdef^^b3{\@DefaultValue{b3}}\global\uccode"B3="B3\global\lccode"B3="B3%
\gdef^^b4{\@DefaultValue{b4}}\global\uccode"B4="B4\global\lccode"B4="B4%
\gdef^^b5{\@DefaultValue{b5}}\global\uccode"B5="B5\global\lccode"B5="B5%
\gdef^^b6{\@DefaultValue{b6}}\global\uccode"B6="B6\global\lccode"B6="B6%
\gdef^^b7{\@DefaultValue{b7}}\global\uccode"B7="B7\global\lccode"B7="B7%
\gdef^^b8{\@DefaultValue{b8}}\global\uccode"B8="B8\global\lccode"B8="B8%
\gdef^^b9{\@DefaultValue{b9}}\global\uccode"B9="B9\global\lccode"B9="B9%
\gdef^^ba{\@DefaultValue{ba}}\global\uccode"BA="BA\global\lccode"BA="BA%
\gdef^^bb{\@DefaultValue{bb}}\global\uccode"BB="BB\global\lccode"BB="BB%
\gdef^^bc{\@DefaultValue{bc}}\global\uccode"BC="BC\global\lccode"BC="BC%
\gdef^^bd{\@DefaultValue{bd}}\global\uccode"BD="BD\global\lccode"BD="BD%
\gdef^^be{\@DefaultValue{be}}\global\uccode"BE="BE\global\lccode"BE="BE%
\gdef^^bf{\@DefaultValue{bf}}\global\uccode"BF="BF\global\lccode"BF="BF%
\gdef^^c0{\@DefaultValue{c0}}\global\uccode"C0="C0\global\lccode"C0="C0%
\gdef^^c1{\@DefaultValue{c1}}\global\uccode"C1="C1\global\lccode"C1="C1%
\gdef^^c2{\@DefaultValue{c2}}\global\uccode"C2="C2\global\lccode"C2="C2%
\gdef^^c3{\@DefaultValue{c3}}\global\uccode"C3="C3\global\lccode"C3="C3%
\gdef^^c4{\@DefaultValue{c4}}\global\uccode"C4="C4\global\lccode"C4="C4%
\gdef^^c5{\@DefaultValue{c5}}\global\uccode"C5="C5\global\lccode"C5="C5%
\gdef^^c6{\@DefaultValue{c6}}\global\uccode"C6="C6\global\lccode"C6="C6%
\gdef^^c7{\@DefaultValue{c7}}\global\uccode"C7="C7\global\lccode"C7="C7%
\gdef^^c8{\@DefaultValue{c8}}\global\uccode"C8="C8\global\lccode"C8="C8%
\gdef^^c9{\@DefaultValue{c9}}\global\uccode"C9="C9\global\lccode"C9="C9%
\gdef^^ca{\@DefaultValue{ca}}\global\uccode"CA="CA\global\lccode"CA="CA%
\gdef^^cb{\@DefaultValue{cb}}\global\uccode"CB="CB\global\lccode"CB="CB%
\gdef^^cc{\@DefaultValue{cc}}\global\uccode"CC="CC\global\lccode"CC="CC%
\gdef^^cd{\@DefaultValue{cd}}\global\uccode"CD="CD\global\lccode"CD="CD%
\gdef^^ce{\@DefaultValue{ce}}\global\uccode"CE="CE\global\lccode"CE="CE%
\gdef^^cf{\@DefaultValue{cf}}\global\uccode"CF="CF\global\lccode"CF="CF%
\gdef^^d0{\@DefaultValue{d0}}\global\uccode"D0="D0\global\lccode"D0="D0%
\gdef^^d1{\@DefaultValue{d1}}\global\uccode"D1="D1\global\lccode"D1="D1%
\gdef^^d2{\@DefaultValue{d2}}\global\uccode"D2="D2\global\lccode"D2="D2%
\gdef^^d3{\@DefaultValue{d3}}\global\uccode"D3="D3\global\lccode"D3="D3%
\gdef^^d4{\@DefaultValue{d4}}\global\uccode"D4="D4\global\lccode"D4="D4%
\gdef^^d5{\@DefaultValue{d5}}\global\uccode"D5="D5\global\lccode"D5="D5%
\gdef^^d6{\@DefaultValue{d6}}\global\uccode"D6="D6\global\lccode"D6="D6%
\gdef^^d7{\@DefaultValue{d7}}\global\uccode"D7="D7\global\lccode"D7="D7%
\gdef^^d8{\@DefaultValue{d8}}\global\uccode"D8="D8\global\lccode"D8="D8%
\gdef^^d9{\@DefaultValue{d9}}\global\uccode"D9="D9\global\lccode"D9="D9%
\gdef^^da{\@DefaultValue{da}}\global\uccode"DA="DA\global\lccode"DA="DA%
\gdef^^db{\@DefaultValue{db}}\global\uccode"DB="DB\global\lccode"DB="DB%
\gdef^^dc{\@DefaultValue{dc}}\global\uccode"DC="DC\global\lccode"DC="DC%
\gdef^^dd{\@DefaultValue{dd}}\global\uccode"DD="DD\global\lccode"DD="DD%
\gdef^^de{\@DefaultValue{de}}\global\uccode"DE="DE\global\lccode"DE="DE%
\gdef^^df{\@DefaultValue{df}}\global\uccode"DF="DF\global\lccode"DF="DF%
\gdef^^e0{\@DefaultValue{e0}}\global\uccode"E0="E0\global\lccode"E0="E0%
\gdef^^e1{\@DefaultValue{e1}}\global\uccode"E1="E1\global\lccode"E1="E1%
\gdef^^e2{\@DefaultValue{e2}}\global\uccode"E2="E2\global\lccode"E2="E2%
\gdef^^e3{\@DefaultValue{e3}}\global\uccode"E3="E3\global\lccode"E3="E3%
\gdef^^e4{\@DefaultValue{e4}}\global\uccode"E4="E4\global\lccode"E4="E4%
\gdef^^e5{\@DefaultValue{e5}}\global\uccode"E5="E5\global\lccode"E5="E5%
\gdef^^e6{\@DefaultValue{e6}}\global\uccode"E6="E6\global\lccode"E6="E6%
\gdef^^e7{\@DefaultValue{e7}}\global\uccode"E7="E7\global\lccode"E7="E7%
\gdef^^e8{\@DefaultValue{e8}}\global\uccode"E8="E8\global\lccode"E8="E8%
\gdef^^e9{\@DefaultValue{e9}}\global\uccode"E9="E9\global\lccode"E9="E9%
\gdef^^ea{\@DefaultValue{ea}}\global\uccode"EA="EA\global\lccode"EA="EA%
\gdef^^eb{\@DefaultValue{eb}}\global\uccode"EB="EB\global\lccode"EB="EB%
\gdef^^ec{\@DefaultValue{ec}}\global\uccode"EC="EC\global\lccode"EC="EC%
\gdef^^ed{\@DefaultValue{ed}}\global\uccode"ED="ED\global\lccode"ED="ED%
\gdef^^ee{\@DefaultValue{ee}}\global\uccode"EE="EE\global\lccode"EE="EE%
\gdef^^ef{\@DefaultValue{ef}}\global\uccode"EF="EF\global\lccode"EF="EF%
\gdef^^f0{\@DefaultValue{f0}}\global\uccode"F0="F0\global\lccode"F0="F0%
\gdef^^f1{\@DefaultValue{f1}}\global\uccode"F1="F1\global\lccode"F1="F1%
\gdef^^f2{\@DefaultValue{f2}}\global\uccode"F2="F2\global\lccode"F2="F2%
\gdef^^f3{\@DefaultValue{f3}}\global\uccode"F3="F3\global\lccode"F3="F3%
\gdef^^f4{\@DefaultValue{f4}}\global\uccode"F4="F4\global\lccode"F4="F4%
\gdef^^f5{\@DefaultValue{f5}}\global\uccode"F5="F5\global\lccode"F5="F5%
\gdef^^f6{\@DefaultValue{f6}}\global\uccode"F6="F6\global\lccode"F6="F6%
\gdef^^f7{\@DefaultValue{f7}}\global\uccode"F7="F7\global\lccode"F7="F7%
\gdef^^f8{\@DefaultValue{f8}}\global\uccode"F8="F8\global\lccode"F8="F8%
\gdef^^f9{\@DefaultValue{f9}}\global\uccode"F9="F9\global\lccode"F9="F9%
\gdef^^fa{\@DefaultValue{fa}}\global\uccode"FA="FA\global\lccode"FA="FA%
\gdef^^fb{\@DefaultValue{fb}}\global\uccode"FB="FB\global\lccode"FB="FB%
\gdef^^fc{\@DefaultValue{fc}}\global\uccode"FC="FC\global\lccode"FC="FC%
\gdef^^fd{\@DefaultValue{fd}}\global\uccode"FD="FD\global\lccode"FD="FD%
\gdef^^fe{\@DefaultValue{fe}}\global\uccode"FE="FE\global\lccode"FE="FE%
\gdef^^ff{\@DefaultValue{ff}}\global\uccode"FF="FF\global\lccode"FF="FF%
%</initcar>
% \end{macrocode}
%\Finale