%%
%% 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'.
