%% %% This is file `shapecm.tex', %% generated with the docstrip utility. %% %% The original source files were: %% %% codepage.dtx (with options: `shapecm') %% This package provides some commands to handle different code pages in the same %% document. It works with TeX and LaTeX, but his documentation should be produced %% with the docstrip package. %% %% Disclaimer: %% This package is provided 'as is' without any warranty. %% %% Author: %% Alain Aubord %% Geneva %% Switzerland %% %% E-mail: aubord@uni2a.unige.ch \def\fileversion{1.2}% \def\filedate{2 January 1995}% \def\docdate{2 January 1995}% \def\CheckSum{4615}% \chardef\atcatcode=\catcode`\@ \catcode`\@=11\relax \gdef\@StartNewWord{\penalty\@M\hskip\z@skip}% \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}}% \gdef\og{\leavevmode\raise.3ex\hbox{$\scriptscriptstyle\langle\!\langle\,$}}% \gdef\fg{\leavevmode\raise.3ex\hbox{$\scriptscriptstyle\,\rangle\!\rangle$}}% \ifTeX\gdef\pounds{{\it\$}}\fi \def\dieresis#1#2#3{% \@UC{#1}{#2}{#3}% \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 \endinput %% %% End of file `shapecm.tex'.