summaryrefslogtreecommitdiff
path: root/macros/generic/cptex/cp.tex
blob: 15cd215af5b1f38292cb99a73ae6b174b3d8b57f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
%
% TeX-Definitionen fr die Verwendung von Code Pages in Plain-TeX
%
% (C) 1994 FuturaSoft (Martin Krmer, D-49179 Ostercappeln)
%

\def\makeatletter{\catcode`\@=11\relax}
\def\makeatother{\catcode`\@=12\relax}

\chardef\atcode=\catcode`\@\makeatletter
\input lamac
\let\prm=\rm
\let\pit=\it
\let\pbf=\bf
\let\psl=\sl
\let\psf=\sf % undefined
\let\psc=\sc % undefined
\let\ptt=\tt
\def\frac#1#2{{#1\over #2}}
\def\Diamond{\diamond}
\def\lhd{\mathbin{< \hbox to -.43em{}\hbox{\vrule
      width .065em height .55em depth .05em}\hbox to .2em{}}}
\def\rhd{\mathbin{\hbox to .3em{}\hbox{\vrule width .065em height
       .55em depth .05em}\hbox to -.43em{}>}}
\def\pounds{\protect\ppounds}
\def\ppounds{\relax\ifmmode\mathchar"424\else{\it \char'44}\fi}
\def\copyright{\protect\pcopyright}
\def\pcopyright{{\rm\ooalign{\hfil
     \raise.07ex\hbox{c}\hfil\crcr\mathhexbox20D}}}
\input cp.sty
\savetextfam
\def\qq{{}''{}}
\def\sq{{}'{}}
\def\cent{\leavevmode\hbox{\setbox0=\hbox{c}%
  c\llap{\raise0.1ex\hbox to\wd0{\the\scriptfont\textfam\hss\kern0.1em/\hss}}}}
\catcode`\@=\atcode