%%
%% This is file `shapedc.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% codepage.dtx  (with options: `shapedc')
%%     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
\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

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