summaryrefslogtreecommitdiff
path: root/macros/generic/cptex/cp8859w.sty
blob: 9fd06e5924f7a9ceff4a055d68ec9f89eb1494f2 (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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
%
% TeX-Definitionen fr die Code Page ISO-8859-1 (Latin 1)
% mit Erweiterungen von Microsoft Windows
%
% (C) 1994 FuturaSoft (Martin Krmer, D-49179 Ostercappeln)
%
% Changes between Version 1.1 and 1.0:
% - adding the options `original' and `german' for german quotes
%
\typeout{Document Style Option `cp8859w' Version 1.1 <1 Mar 1994>.}
%
%
\@ifundefined{selectcodepage}{\input cp.sty}{}

\activateuppercharset

\newcodepage{8859w}{

  \selectcodepage[original]{8859}
  \makeactive{"082-"08C,"093-"09C,"09F}

  \mapchar{^^82}{\glq}
  \mapchar{^^83}{\florin}
  \mapchar{^^84}{\glqq}
  \mapchar{^^85}{\dots}
  \mapchar{^^86}{\dag}
  \mapchar{^^87}{\ddag}
  \mapchar{^^88}{\^{}}
  \mapchar{^^89}{\perthousand}
  \mapchar{^^8a}{\v S}\lcchar{^^9a}
  \mapchar{^^8b}{\flq}
  \mapchar{^^8c}{\OE}\lcchar{^^9c}
%
  \mapchar{^^93}{\lqq}
  \mapchar{^^94}{\rqq}
  \mapchar{^^95}{\mathsymbol{\bullet}}
  \mapchar{^^96}{\endash}
  \mapchar{^^97}{\emdash}
  \mapchar{^^98}{\~{}}
  \mapchar{^^99}{\trademark}
  \mapchar{^^9a}{\v s}\ucchar{^^8a}
  \mapchar{^^9b}{\frq}
  \mapchar{^^9c}{\oe}\ucchar{^^8c}
%
  \mapchar{^^9f}{\"Y}\lcchar{^^ff}
%
  \mapchar{^^ff}{\"y}\ucchar{^^9f}

%
% Zuruecksetzen der Original-Definitionen
%
\def\cporiginal{%
  \mapchar{^^91}{\lq}%
  \mapchar{^^93}{\lqq}}

%
% Modifizierte Definitionen fuer die Benutzung von dt. Anfuehrungszeichen
%
\def\cpgerman{%
  \mapchar{^^91}{\grq}%
  \mapchar{^^93}{\grqq}}

}%\end{newcodepage}

%
% Einstellen der Code Page von Microsoft Windows
%
\selectcodepage{8859w}