blob: 854396da3ae802e805d98dfbf609ec24dfb6cae4 (
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
69
70
71
72
73
74
75
76
77
78
79
|
% \iffalse metacomment
% This file is part of the mapcodes package, version 1.04.
% -----------------------------------------------------------
% Copyright (C) 1994 Michael Piotrowski. All rights reserved.
%
% This file is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty
% of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
% -----------------------------------------------------------
%
% IMPORTANT NOTICE:
%
% For error reports in case of UNCHANGED versions see readme file.
%
% You are not allowed to change this file.
%
% You are allowed to distribute this file under the condition that
% it is distributed together with all files mentioned in manifest.txt.
%
% If you receive only some of these files from someone, complain!
%
% You are NOT ALLOWED to distribute this file alone. You are NOT
% ALLOWED to take money for the distribution or use of either this
% file or a changed version, except for a nominal charge for copying.
%
%
%<*driver>
\documentclass{article}
\usepackage{doc}
\DontCheckModules
\newcommand{\mapcodes}{\textsf{mapcodes}}
\begin{document}
\DocInput{german.dtx}
\end{document}
%</driver>
% \fi
%
% \def\filename{german.dtx}
% \def\fileversion{v1.1}
% \def\filedate{1995/04/07}
% \CheckSum{44}
%
% \changes{german-1.0}{1994/12/05}{First version}
% \changes{german-1.1}{1995/04/07}{Support for quotation marks added}
%
% \section{\mapcodes{} Support for German Extensions}
%
% This is \filename{} \fileversion{} of \filedate. It contains the
% \mapcodes support for the \textsf{german} package and the
% \texttt{german} option of \textsf{babel}.
%
% \StopEventually{}
%
% \begin{macrocode}
\typeout{Compatibility with German OT1 extensions requested...}
\ifx\encodingdefault\map@oldenc
\typeout{enabled.}
\renewcommand\map@Adieresis{"A}
\renewcommand\map@Odieresis{"O}
\renewcommand\map@Udieresis{"U}
\renewcommand\map@adieresis{"a}
\renewcommand\map@odieresis{"o}
\renewcommand\map@udieresis{"u}
\renewcommand\map@germandbls{"s}
\renewcommand\map@quotedblbase{"`}
\renewcommand\map@quotedblleft{"'}
\renewcommand\map@quotesinglbase{\glq}
\renewcommand\map@quoteleft{\grq}
\renewcommand\map@guilsinglleft{\flq}
\renewcommand\map@guilsinglright{\flq}
\renewcommand\map@guillemotleft{\flqq}
\renewcommand\map@guillemotright{\frqq}
\else
\typeout{rejected, T1 encoding used.}
\fi
% \end{macrocode}
% \Finale
\endinput
|
