summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/generic/german/german.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/generic/german/german.dtx')
-rw-r--r--Master/texmf-dist/source/generic/german/german.dtx2331
1 files changed, 2331 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/generic/german/german.dtx b/Master/texmf-dist/source/generic/german/german.dtx
new file mode 100644
index 00000000000..50500e75a06
--- /dev/null
+++ b/Master/texmf-dist/source/generic/german/german.dtx
@@ -0,0 +1,2331 @@
+% \iffalse meta-comment
+%<*!hyphcfg>
+%<*!driver>
+% \begin{macrocode}
+%
+% Copyright (C) 1987-1990 by H.Partl
+% Copyright (C) 1991-1997 by B.Raichle and DANTE e.V.
+% Copyright (C) 1998 by B.Raichle
+% All rights reserved.
+%
+% Please read the documentation file `gerdoc.tex' for more
+% information of how to use this macro file and how to install
+% the pattern files necessary for german hyphenation.
+%
+% \end{macrocode}
+%
+% INSTALLATION GUIDE:
+%
+% The distribution of the `german' package consists of a set of
+% files, which are packed and documented in _one_ `docstrip archive
+% file' called `german.dtx'. This archive file can be unpacked to
+% create the necessary files containing the macros, implementation
+% documentation, and other files.
+%
+% To unpack this archive file you need:
+%
+% * `german.ins' (containing docstrip installation instructions)
+%
+% * `german.dtx' (it is the file you are currently reading)
+%
+% * `docstrip.tex' version 2.4 or newer
+% (You can find this file in the LaTeX2e release;
+% `docstrip' can be used with plainTeX, too!)
+%
+% Then run `german.ins' through plainTeX or LaTeX to unpack the
+% archive file:
+%
+% tex german.ins
+% or
+% latex german.ins
+%
+% This will create a set of files which contain the macro code or
+% code to produce the implementation documentation of the `german'
+% bundle of files.
+%
+% --------------- start of docstrip archive file ------------------
+%
+% To get the formatted code documentation do the following steps
+%
+% latex german.dtx
+% latex german.dtx
+% makeindex -s gind.ist german.idx
+% makeindex -s gglo.ist -o german.gls german.glo
+% latex german.dtx
+%
+%
+%</!driver>
+%<*driver>
+\ifx\documentclass\undefined % LaTeX2e or 2.09?
+ \documentstyle[newdoc,german]{article}
+ \ifx\LaTeXe\undefined
+ \newcommand{\LaTeXe}{%
+ \mbox{\LaTeX\kern.15em\(2_{\textstyle\varepsilon}\)}}\fi
+ \newcommand{\emph}[1]{{\em #1}}
+ \newcommand{\textit}[1]{{\it #1}}
+ \newcommand{\textbf}[1]{{\bf #1}}
+ \newcommand{\texttt}[1]{{\tt #1}}
+ \newcommand{\cs}[1]{{\tt\symbol{92}#1}}
+ \MakeShortverb{\|}\CodelineIndex
+\else
+ \documentclass[a4paper]{ltxdoc}
+ \usepackage{german}
+ \EnableCrossrefs
+ %\DisableCrossrefs % Say \DisableCrossrefs if index is ready
+ \CodelineIndex \RecordChanges
+\fi
+\begin{document}
+\setcounter{StandardModuleDepth}{0}
+\DocInput{german.dtx}
+\PrintIndex \PrintChanges
+\end{document}
+%</driver>
+%<*!driver>
+%
+% \fi
+% \CheckSum{2166}
+%
+% \CharacterTable
+% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+% Digits \0\1\2\3\4\5\6\7\8\9
+% Exclamation \! Double quote \" Hash (number) \#
+% Dollar \$ Percent \% Ampersand \&
+% Acute accent \' Left paren \( Right paren \)
+% Asterisk \* Plus \+ Comma \,
+% Minus \- Point \. Solidus \/
+% Colon \: Semicolon \; Less than \<
+% Equals \= Greater than \> Question mark \?
+% Commercial at \@ Left bracket \[ Backslash \\
+% Right bracket \] Circumflex \^ Underscore \_
+% Grave accent \` Left brace \{ Vertical bar \|
+% Right brace \} Tilde \~}
+%
+% \DoNotIndex{\',\(,\),\-,\.,\/,\{,\},\^,\`,\|,\ ,\@,\x,\Z}
+% \DoNotIndex{\@M,\@m,\m@ne,\z@,\z@skip,\@ne,\tw@,sixt@@n}
+% \DoNotIndex{\count@,\dimen@,\advance,\day,\month,year,\relax}
+% \DoNotIndex{\begin,\end,\bgroup,\egroup,\begingroup,\endgroup}
+% \DoNotIndex{\bf,\em,\it,\rm,\tt,\textbf,\textit,\texttt,\emph}
+% \DoNotIndex{\expandafter,\noexpand,\string,\the,\ifhmode,\ifmmode}
+% \DoNotIndex{\ifcase,\or,\else,\fi,\if,\ifdim,\ifnum,\ifx}
+% \DoNotIndex{\do,\afterassignment,\number,\escapechar,\space}
+% \DoNotIndex{\def,\edef,\let,\newcommand,\undefined,\active}
+% \DoNotIndex{\accent,\box,\dp,\ht,\wd,\char,\chardef,\discretionary}
+% \DoNotIndex{\catcode,\csname,\endcsname,\hbox,\hskip,\kern}
+% \DoNotIndex{\font,\fontdimen,\scriptscriptstyle,\textstyle}
+% \DoNotIndex{\lccode,\lowercase,\sfcode,\spacefactor,\penalty}
+% \DoNotIndex{\mathchar,\mathchardef,\mathaccent,\varepsilon,\m@th}
+% \DoNotIndex{\empty,\@empty,\leavevmode,\makeatletter,\mbox}
+% \DoNotIndex{\errhelp,\errmessage,\message,\wlog,\write,\immediate}
+% \DoNotIndex{\lower,\raise,\sfcode,\spacefactor,\setbox,\toks}
+% \DoNotIndex{\documentclass,\documentstyle,\LaTeX,\LaTeXe,\TeX}
+% \DoNotIndex{\ProvidesPackage,\usepackage,\CodelineIndex,\cs}
+% \DoNotIndex{\input,\endinput,\DocInput}
+%
+%
+% \title{Die Makropakete "`german"' und "`ngerman"' f"ur \LaTeXe, \LaTeX~2.09,
+% Plain-\TeX{} und andere darauf basierende Formate}
+% \date{8.~Juli 1998}
+% \author{Bernd Raichle \\
+% E-mail: \texttt{raichle@Informatik.Uni-Stuttgart.DE}}
+% \maketitle
+%
+% Dieses Dokument beschreibt Interna, Einschr"ankungen und einige
+% Tricks und Kniffe, die bei der Implementierung der Makropakete
+% "`german"' und "`ngerman"' verwendet werden.
+% Wie diese Pakete installiert
+% und verwendet werden, ist in der "`Kurzbeschreibung --
+% \texttt{german.sty} (Version~2.5)"' zu finden. Diese ist in der
+% Datei \texttt{gerdoc.tex} zu finden, die mit der Datei
+% \texttt{german.dtx} bzw. den Makropaketen mitgeliefert wird
+% und ist f"ur den Endanwender gedacht.
+%
+% Das vorliegende Dokument ist \emph{nicht} f"ur den Endanwender
+% gedacht. Es beschreibt die Implementierung und ist zum einen f"ur
+% den zuk"unftige Verwalter dieser Pakete gedacht, zum anderen
+% f"ur alle Makro-Schreiber, die Ideen und Verbesserungsvorschl"age
+% direkt am Code austesten wollen.
+%
+% Der Code der beiden Pakete "`german"' und "`ngerman"' ist weitgehend
+% identisch. Wo im folgenden nur von "`german"' die Rede ist, sind
+% \emph{beide} Pakete gemeint; auf Unterschiede wird stets explizit
+% hingewiesen. Mit |<old>| gekennzeichnete Codezeilen geh"oren zu
+% "`german"', mit |<new>| gekennzeichnete zu "`ngerman"'.
+%
+% \changes{2.5e (beta 1)}{98/05/05}{Es kann wahlweise "`german"' oder "`ngerman"'
+% erzeugt werden, indem \textsc{DocStrip} mit den Optionen \texttt{old}
+% oder \texttt{new} aufgerufen wird.}
+% \StopEventually{}
+%
+% \tableofcontents
+%
+% \ifx\emergencystretch\undefined \else
+% \setlength{\emergencystretch}{2em}
+% \fi
+% \hbadness=2000
+%
+% \section{Identifikation des Pakets}
+%
+% Damit diese Datei problemlos mehrmals eingelesen werden kann, wird
+% hier getestet, ob die Datei bereits geladen wurde. Dadurch wird
+% verhindert, da"s Makros, Z"ahler, etc.\ noch einmal und damit
+% unn"otig definiert werden und in einigen F"allen auch
+% zus"atzliche Ressourcen belegen. Damit auch Nutzer mit
+% vorgeladenen, alten "`german"'-Versionen in den Genu"s dieser
+% neuen Version kommen, wird nicht wie in "alteren Versionen die
+% Existenz der Anweisung Befehl |\mdqon| "uberpr"uft, sondern auf
+% eine Versionsnummer abgetestet. Diese Versionsnummer besteht aus
+% der Jahreszahl und einer pro Jahr fortlaufenden Nummer.
+%
+% Die \textit{control sequence} f"ur die Versionsnummer sollte mit
+% keinem anderen Paket kollidieren. Daher wird der Pr"afix
+% \texttt{grmn@} bzw. \texttt{ngrm@} im Namen verwendet. Da AMS-\TeX{} ein aktives
+% At-Zeichen verwendet, wird dieses hier explizit mit |\string|
+% deaktiviert, bis wir den |\catcode| "andern.
+%
+% \changes{2.5c}{96/02/26}{Total falsche Logik zur Verhinderung
+% mehrmaligen Lesen des Styles korrigiert, \cs{ifdim} durch
+% \cs{ifnum} ersetzt, \cs{grmn@VersionNo} mu"s mit \cs{csname}
+% erzeugt werden, da \cs{catcode} des At-Zeichens noch unbekannt
+% ist, Versionsnummer sollte in allen F"allen gesetzt werden.}
+% \changes{2.5c}{96/04/21}{Mit AMS-\TeX{} aktives At-Zeichen
+% in \cs{grmn@VersionNo} explizit mit \cs{string} deaktivieren
+% (found by \texttt{Michael.Schgraffer@uibk.ac.at}, 95/10/10).}
+% \changes{2.5e (beta 2)}{98/05/12}{Abgefragte Versionsnummer korrigiert;
+% 9805 statt 9701)}
+% \begin{macrocode}
+%<old>\expandafter\ifx\csname grmn\string @VersionNo\endcsname\relax
+%<new>\expandafter\ifx\csname ngrm\string @VersionNo\endcsname\relax
+\else
+%<old> \ifnum\number\csname grmn\string @VersionNo\endcsname<9806\relax
+%<new> \ifnum\number\csname ngrm\string @VersionNo\endcsname<9806\relax
+%<old> \else \germanTeX \expandafter\expandafter\expandafter\endinput
+%<new> \else \ngermanTeX \expandafter\expandafter\expandafter\endinput
+ \fi\fi
+% \end{macrocode}
+%
+% Ist "`german"' noch nicht geladen oder wurde bisher eine "altere
+% Version verwendet, so wird der Rest dieser Datei abgearbeitet.
+% Zuerst wird die Versionsnummer gesetzt. Da diese gr"o"ser als 255
+% ist, wird dazu |\mathchardef| verwendet.
+% \begin{macrocode}
+%<old>\expandafter\mathchardef\csname grmn\string @VersionNo\endcsname
+%<new>\expandafter\mathchardef\csname ngrm\string @VersionNo\endcsname
+=9806\relax % = v2.5e
+% \end{macrocode}
+%
+%
+% Die Style-Option "`german"' soll sowohl von Plain-\TeX\ als auch
+% von den unterschiedlichen \LaTeX-Versionen verwendet werden
+% k"onnen. Deshalb wird f"ur die Ausgabe das Primitiv |\message|
+% verwendet.
+% \changes{2.5e (beta 2)}{98/05/12}{Meldungen korrigiert und vereinfacht.}
+%
+% \begin{macrocode}
+\message{v2.5e 1998-07-08}
+% \end{macrocode}
+%
+% F"ur \LaTeXe\ wird die Style-Option als Paket deklariert. Da
+% andere Style-Optionen den Befehl |\ProvidesPackage| meist nur auf
+% \texttt{undefined} abtesten, wird hier eine auf den ersten Blick
+% komisch anmutende Konstruktion mit einer Gruppe verwendet. Sie
+% verhindert aber, da"s ein vorher undefiniertes |\ProvidesPackage|
+% danach die Bedeutung |\relax| hat. Dieser Gruppierungstrick wird
+% noch einige Male verwendet.
+%
+% \begin{macrocode}
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname ProvidesPackage\endcsname\relax\else
+%<old> \ProvidesPackage{german}[1998/07/08 v2.5e %
+%<new> \ProvidesPackage{ngerman}[1998/07/08 v2.5e %
+ Support for writing german texts (br)]
+\fi
+% \end{macrocode}
+%
+% Da diese Datei auch mit einem simplen |\input| geladen werden
+% kann, andererseits aber auf interne Befehle zugegriffen werden
+% mu"s, wird der \textit{category code} des Zeichens~\texttt{@}
+% gerettet, bevor er auf "`letter"' ge"andert wird.
+%
+% \begin{macrocode}
+\chardef\atcode=\catcode`\@
+\catcode`\@=11 % \makeatletter
+% \end{macrocode}
+%
+%
+% \section{Kompatibilit"atsmakros}
+%
+% \subsection{Low-Level-Makros}
+%
+% Einige Makros aus dem \LaTeX-Format sind sehr hilfreich und werden,
+% falls sie nicht definiert wurden, hier definiert.
+% \changes{2.5c}{95/01/24}{Im Makro \cs{@ifundefined} wurde in den
+% Namen der beiden Hilfsmakros in v2.5a/b das \texttt{dq}
+% vergessen.}
+% \begin{macrocode}
+\expandafter\ifx\csname @ifundefined\endcsname\relax
+ \def\@ifundefined#1{%
+ \expandafter\ifx\csname #1\endcsname\relax
+ \expandafter\grmn@dqfirst\else\expandafter\grmn@dqsecond\fi}
+\fi
+% \end{macrocode}
+% Die Makros |\grmn@dqfirst|\label{grmndqfirst} und |\grmn@dqsecond|
+% werden sp"ater nochmals verwendet.
+% \begin{macrocode}
+\def\grmn@dqfirst#1#2{#1}
+\def\grmn@dqsecond#1#2{#2}
+% \end{macrocode}
+%
+% \subsection{Kompatibilit"atsmakros f"ur NFSS, Version~2}
+%
+% Das neue Schriftauswahlschema~NFSS hat in Version~2 den neuen
+% Schriftparameter |\fontencoding|. NFSS~2 wurde offiziell im
+% ersten \LaTeXe-Release vom 1.~Juni 1994 eingef"uhrt, jedoch im
+% n"achsten Release vom 1.~Dezember 1995 durch Fehlerberichtigungen,
+% Erweiterungen und neu eingef"uhrte Befehle verbessert.
+%
+% Im folgenden wird angenommen, da"s NFSS~2 vorhanden ist, wenn der
+% Befehl |\DeclareTextSymbol| definiert ist.
+%
+% \begin{macrocode}
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname DeclareTextSymbol\endcsname\relax
+% \end{macrocode}
+%
+% \subsubsection{Makros f"ur Textzeichen -- ohne NFSS~2}
+%
+% Der symbolische Name |\SS| f"ur ein SS mu"s f"ur \LaTeX~2.09 und
+% Plain-\TeX{} definiert werden, falls er noch nicht bekannt ist.
+% \changes{2.5d}{97/04/13}{F"ur \texttt{\symbol{`\"}S} wird
+% \cs{SS} verwendet, das in \LaTeXe{} bereits definiert ist.}
+% \begin{macrocode}
+\@ifundefined{SS}{\def\SS{SS}}{}
+% \end{macrocode}
+%
+%
+% Die nachfolgenden Abschnitte beschreiben die notwendigen
+% Deklarationen f"ur NFSS~2.
+% \begin{macrocode}
+\else
+% \end{macrocode}
+%
+% \subsubsection{Deklarationsmakros}
+%
+% Die neueren NFSS~2-Versionen haben einige Befehle, die f"ur Symbole
+% und Akzentmakros Defaultwerte f"ur diejenigen Schriften deklarieren,
+% f"ur die keine expliziten Symboldeklarationen angegeben wurden.
+% Diese Befehle werden f"ur "altere NFSS~2-Versionen in einer sehr
+% stark vereinfachten Realisierung nachfolgend definiert.
+% \emph{In diesen Definitionen werden einige Interna aus
+% \LaTeXe/NFSS~2 verwendet, so da"s dieser Teil der Style-Option
+% zuk"unftig m"oglicherweise zu Fehlern f"uhren kann! Dieser Teil ist
+% als schlechtes Beispiel zu betrachten -- es zeigt, wie man solche
+% Dinge m"oglichst nicht realisieren sollte. Jedoch sind diese
+% Definitionen notwendig, damit diese Style-Option auch mit diesen
+% "alteren Versionen laufen kann.}
+% \textbf{Es ist daher immer ratsam, eine alte \LaTeXe-Release durch
+% die neueste Version zu ersetzen.}
+% Aus diesem Grund wird hier ein Hinweis f"ur den Benutzer dieses
+% alten Release ausgegeben. In der n"achsten Version wird
+% German-Style abbrechen oder den sehr viel einfacheren Code
+% f"ur \LaTeX~2.09 verwenden.
+%
+% \changes{2.5c}{96/04/28}{Warnung und Hinweis auf Update bei
+% Benutzung der veralteten \LaTeXe-Release vom Juni~1994.}
+% \begin{macrocode}
+% \changes{2.5e (beta 1) }{98/05/04}{Formulierung ge"andert.}
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname ProvideTextCommandDefault\endcsname\relax
+ \immediate\write17{}
+ \immediate\write17{%
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!}
+ \immediate\write17{%
+!! Dies ist eine zu alte LaTeX2e-Version, die nicht}
+ \immediate\write17{%
+!! alle fuer german/ngerman notwendigen Deklarationen}
+ \immediate\write17{%
+!! zur Verfuegung stellt. Dennoch koennen Sie diese}
+ \immediate\write17{%
+!! Pakete, eventuell mit kleinen Fehlern, verwenden.}
+ \immediate\write17{!!}
+ \immediate\write17{%
+!! Bitte installieren Sie eine neuere LaTeX2e-Version,}
+ \immediate\write17{%
+!! da zukuenftige Versionen der Pakete diese}
+ \immediate\write17{%
+!! LaTeX2e-Version nicht mehr unterstuetzen werden!}
+ \immediate\write17{%
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!}
+ \immediate\write17{}
+\fi
+% \end{macrocode}
+%
+% Weiterhin wird angenommen, da"s der Befehl |\providecommand|
+% verf"ugbar ist. Dieser Befehl k"onnte in einer zuk"unftigen
+% NFSS~2-Version, die f"ur Plain-\TeX\ angepa"st wurde, nicht mehr
+% verf"ugbar sein.
+%
+% |\UseTextSymbol{|\meta{encoding}|}{|\meta{symbol}|}| schaltet die
+% angegebene Schriftkodierung zur Ausgabe dieses Zeichens um.
+% \begin{macrocode}
+\@ifundefined{UseTextSymbol}{%
+ \def\UseTextSymbol#1#2{{\fontencoding{#1}\selectfont #2}}
+}{}
+% \end{macrocode}
+%
+% |\UseTextAccent{|\meta{encoding}|}{|\meta{accent}|}{|\meta{base}|}|
+% verwendet das Akzentzeichen aus der Schrift mit der angegebenen,
+% eventuell vom aktuellen Wert abweichenden Kodierung.
+% \begin{macrocode}
+\@ifundefined{UseTextAccent}{%
+ \def\UseTextAccent#1#2#3{%
+ {\let\@curr@enc\f@encoding
+ \fontencoding{#1}\selectfont
+ #2{\fontencoding\@curr@enc\selectfont #3}}}%
+}{}
+% \end{macrocode}
+%
+% |\ProvideTextCommand{|\meta{csname}|}{|\meta{encoding}|}[|^^A
+% \meta{number}|][|\meta{default}|]{|\meta{definition}|}| definiert
+% einen Befehl, der nur f"ur die angegebene Kodierung verwendet wird,
+% falls dieser Befehl noch nicht f"ur diese Kodierung definiert
+% wurde.
+% \begin{macrocode}
+\@ifundefined{ProvideTextCommand}{%
+ \def\ProvideTextCommand#1#2{%
+ %%% misses \RobustTextCommand{#1}{...etc.etc...}!!
+ \expandafter\providecommand\csname #2\string#1\endcsname}%
+}{}
+% \end{macrocode}
+%
+% |\ProvideTextCommandDefault{|\meta{command}|}{|\meta{definition}|}|
+% definiert nun eine Defaultdefinition f"ur alle Kodierungen, f"ur
+% die keine explizite Definition angegeben wurde. Leider w"urde eine
+% einigerma"sen komplette Realisierung einer Re-Implementierung der
+% neueren NFSS~2-Versionen entsprechen, so da"s hier einfach nur eine
+% Definition f"ur die Kodierung~\glq U\grq{} get"atigt wird, die f"ur
+% unbekannte Kodierungen verwendet wird.
+% \begin{macrocode}
+\@ifundefined{ProvideTextCommandDefault}{%
+ \def\ProvideTextCommandDefault#1{%
+ \ProvideTextCommand{#1}{U}}%
+}{}
+% \end{macrocode}
+%
+% Mit |\DeclareTextCompositeCommand{|\meta{command}|}{|^^A
+% \meta{encoding}|}{|\meta{char}|}{|\meta{definition}|}| kann f"ur die
+% Umlaut- und Trema-Kombinationen sehr bequem eine Definition
+% angegeben werden. Bevor hier f"ur die "alteren NFSS~2-Versionen
+% eine eigene L"osung "`gestrickt"' wird, verl"a"st sich die
+% nachfolgende Definition auf einige \LaTeXe/NFSS~2-Interna!
+% \begin{macrocode}
+\@ifundefined{DeclareTextCompositeCommand}{%
+ \def\DeclareTextCompositeCommand#1#2#3#4{%
+ % define a `dummy' text composite
+ \DeclareTextComposite{#1}{#2}{#3}{`\Z}%
+ % then redefine this command including the new command
+ \expandafter\def\csname\expandafter\string\csname
+ #2\endcsname\string#1-\string#3\endcsname##1##2{#4}}%
+}{}
+% \end{macrocode}
+%
+% Damit ist gesichert, da"s bei Vorliegen von \LaTeXe/NFSS~2 die
+% wichtigsten Deklarationen unabh"angig von der \LaTeXe-Version
+% verf"ugbar sind. Dies vereinfacht die nachfolgenden Deklarationen.
+%
+% \subsubsection{Makros f"ur Textzeichen}
+%
+% Neben den zuvor aufgezeigten Makros definieren die neueren
+% NFSS~2-Versionen noch symbolische Namen f"ur viele der in den
+% Schriften vorhandenen Lettern. Im folgenden werden zum einen f"ur
+% die "alteren Versionen die anschlie"send verwendeten symbolischen
+% Namen nachdefiniert und zum anderen werden Definitionen, die in
+% "alteren \LaTeXe/NFSS~2-Versionen fehlen, f"ur die
+% Kodierung~\texttt{OT1} und Defaults f"ur einige Lettern
+% nachgereicht.
+%
+% \paragraph{Spezielle Behandlung von Babel~v3.5:}
+%
+% Babel Version~3.5 definiert f"ur Nicht-\LaTeXe-Formate die
+% wichtigsten NFSS~2-Anweisung zur Deklaration der symbolischen Namen.
+% Dadurch meint der Code des German-Style, da"s selbst f"ur diese
+% Formate ein vollst"andiges \LaTeXe{} mit NFSS~2 vorl"age. Leider
+% fehlten in "alteren Babel-Versionen wichtige Standarddeklarationen,
+% was zur Folge hat, da"s es bei deren Verwendung zu Fehlern wie
+% z.\,B.\ Endlosschleifen kommen kann. Eine Endlosschleife wird dabei
+% durch Deklaration eines Defaults mit
+% \cs{Provide\-Text\-Command\-Default} verursacht, wenn das Symbol
+% bisher noch nicht deklariert wurde. In Babel Version~3.6
+% werden daher jetzt die Symbole \cs{ss}, \cs{i},
+% \cs{textquotedblright} und \cs{textquoteright} deklariert, die in
+% Version~3.5 fehlten.
+%
+% In den folgenden Deklarationen werden NFSS~2-Interna verwendet:
+% Es wird beispielsweise angenommen, da"s die Existenz des Makros
+% \texttt{\symbol{`\\}OT1\symbol{`\\}ss} -- ein Makro! -- anzeigt,
+% da"s \cs{ss} f"ur NFSS~2 deklariert wurde. Ist dies f"ur die vier
+% Symbole \cs{ss}, \cs{i}, \cs{textquotedblright} und
+% \cs{textquoteright} der Fall, werden sie hier nachdeklariert.
+% Dabei wird dies in der Protokolldatei vermerkt, um eventuell
+% diese Ursache f"ur auftretende Fehler leichter erkennen zu k"onnen.
+% \cs{textquotedblright} und \cs{textquoteright} werden sp"ater noch
+% deklariert, so da"s dies hier noch nicht notwendig ist.
+%
+% \changes{2.5d}{97/04/13}{Die fehlenden Deklarationen f"ur \cs{ss} und
+% \cs{i}, werden f"ur Babel~v3.5, falls ben"otigt, nachdeklariert.
+% F"ur \cs{textquotedblright} und \cs{textquoteright} hier nicht
+% notwendig, da dies hier ein paar Zeilen sp"ater gemacht wird.}
+% \begin{macrocode}
+\@ifundefined{OT1\string\ss}{%
+%<old> \wlog{german: Re-declaration of \string\ss\space for OT1!}%
+%<new> \wlog{ngerman: Re-declaration of \string\ss\space for OT1!}%
+ \DeclareTextSymbol{\ss}{OT1}{25}}{}
+\@ifundefined{OT1\string\i}{%
+%<old> \wlog{german: Re-declaration of \string\i\space for OT1!}%
+%<new> \wlog{ngerman: Re-declaration of \string\i\space for OT1!}%
+ \DeclareTextSymbol{\i}{OT1}{16}}{}
+% \end{macrocode}
+%
+% \paragraph{Defaults f"ur Symbole:}
+%
+% F"ur die Makros |\"|, |\ss|, |\i| und |\SS| sollte ein Default
+% definiert sein.
+% \changes{2.5d}{97/04/13}{F"ur \texttt{\symbol{`\"}S} wird
+% \cs{SS} verwendet, das in \LaTeXe{} bereits definiert ist.}
+% \begin{macrocode}
+\ProvideTextCommandDefault{\"}{\UseTextAccent{OT1}{\"}}
+\ProvideTextCommandDefault{\ss}{\UseTextSymbol{OT1}\ss}
+\ProvideTextCommandDefault{\i}{\UseTextSymbol{OT1}\i}
+\ProvideTextCommandDefault{\SS}{SS}
+% \end{macrocode}
+%
+% Dann sollte auch sichergestellt sein, da"s symbolische Namen f"ur
+% die Zeichen definiert sind, die in den Makros f"ur die
+% Anf"uhrungszeichen verwendet werden. Die Defaults werden jeweils
+% aus den Schriften in Kodierung~\texttt{OT1} genommen.
+%
+% Zuerst die Zeichen f"ur die Anf"uhrungszeichen "`\ldots"' und
+% \glq\ldots\grq:
+% \begin{macrocode}
+\@ifundefined{textquotedblleft}{%
+ \ProvideTextCommandDefault{\textquotedblleft}{%
+ \UseTextSymbol{OT1}\textquotedblleft}%
+ \DeclareTextSymbol{\textquotedblleft}{OT1}{92}%
+% \end{macrocode}
+% (oder |\DeclareTextCommand{\textquotedblleft}{OT1}{``}|)
+% \begin{macrocode}
+ \DeclareTextSymbol{\textquotedblleft}{T1}{16}%
+}{}
+\@ifundefined{textquotedblright}{%
+ \ProvideTextCommandDefault{\textquotedblright}{%
+ \UseTextSymbol{OT1}\textquotedblright}%
+ \DeclareTextSymbol{\textquotedblright}{OT1}{`\"}%
+% \end{macrocode}
+% (oder |\DeclareTextCommand{\textquotedblright}{OT1}{''}|)
+% \begin{macrocode}
+ \DeclareTextSymbol{\textquotedblright}{T1}{17}%
+ %% \DeclareTextSymbol{\textquotedbl}{T1}{`\"}%
+}{}
+\@ifundefined{textquoteleft}{%
+ \ProvideTextCommandDefault{\textquoteleft}{%
+ \UseTextSymbol{OT1}\textquoteleft}%
+ \DeclareTextSymbol{\textquoteleft}{OT1}{`\`}%
+ \DeclareTextSymbol{\textquoteleft}{T1}{`\`}%
+}{}
+\@ifundefined{textquoteright}{%
+ \ProvideTextCommandDefault{\textquoteright}{%
+ \UseTextSymbol{OT1}\textquoteright}%
+ \DeclareTextSymbol{\textquoteright}{OT1}{`\'}%
+ \DeclareTextSymbol{\textquoteright}{T1}{`\'}%
+}{}
+\@ifundefined{quotesinglbase}{%
+ \DeclareTextSymbol{\quotesinglbase}{T1}{13}}{}
+\@ifundefined{quotedblbase}{%
+ \DeclareTextSymbol{\quotedblbase}{T1}{18}}{}
+% \end{macrocode}
+% Danach die Anf"uhrungszeichen in franz"osischer Form ">\ldots"< und
+% \frq\ldots\flq:
+% \begin{macrocode}
+\@ifundefined{guillemotleft}{%
+ \DeclareTextSymbol{\guillemotleft}{T1}{19}}{}
+\@ifundefined{guillemotright}{%
+ \DeclareTextSymbol{\guillemotright}{T1}{20}}{}
+\@ifundefined{guilsinglleft}{%
+ \DeclareTextSymbol{\guilsinglleft}{T1}{14}}{}
+\@ifundefined{guilsinglright}{%
+ \DeclareTextSymbol{\guilsinglright}{T1}{15}}{}
+% \end{macrocode}
+%
+% Damit sind die wichtigsten Makros so definiert, da"s die
+% nachfolgenden Definitionen nur noch wenige F"alle unterscheiden
+% m"ussen und damit "ubersichtlicher definiert werden k"onnen.
+%
+% Die nun folgenden Definitionen sind nicht nur f"ur NFSS~2
+% verwendbar, so da"s das \texttt{if}-NFSS~2 vorl"aufig beendet werden
+% kann.
+% \begin{macrocode}
+\fi
+% \end{macrocode}
+%
+% \section{Low-Level-Befehle f"ur die Style-Option}
+%
+% Die Style-Option verwendet Low-Level-Befehle zur Implementierung
+% von An"-f"uhrungs"-zeichen, der Umlaute u.\,a. Einige dieser
+% Befehle sind auch f"ur Benutzer verf"ugbar.
+%
+% \subsection{Verschiedenes}
+%
+% \LaTeX\ verwendet den Befehl |\protect|, um \emph{fragile}
+% Kommandos zu sch"utzen. Dieser Befehl mu"s f"ur Plain-\TeX\
+% nachdefiniert werden. Folgendes Code-St"uck definiert diesen
+% Befehl als |\relax|, falls er noch undefiniert ist,
+% andernfalls wird |\protect| nicht ge"andert.
+% \begin{macrocode}
+\expandafter\let\expandafter\protect\csname protect\endcsname
+% \end{macrocode}
+%
+% Mit |\allowhyphens| kann man \TeX\ signalisieren, da"s ein
+% trennbarer Wortteil endet (durch den |\penalty1000|- oder
+% |\nobreak|-Befehl) und ein neuer beginnt (durch den |\hskip|-Befehl,
+% der \textit{glue} ein"-f"ugt). Dieser Trick ist in Anhang~D des
+% \TeX{}book beschrieben, die Interna dazu in Anhang~H.
+%\begin{verbatim}
+%\def\allowhyphens{\nobreak \hskip 0pt plus 0pt\relax}
+%\end{verbatim}
+% entspricht der nachfolgenden Definition:
+% \begin{macrocode}
+\def\allowhyphens{\penalty\@M \hskip\z@skip}
+% \end{macrocode}
+%
+% Neben den Umlauten mu"s auch daf"ur gesorgt werden, da"s am und nach
+% dem Buchstaben~{\ss} getrennt werden kann, \TeX{} also diesen Letter
+% als Wortbestandteil erkennt. Dazu mu"s dem Letter ein
+% Lowercase-Code |\lccode| gr"o"ser als Null zugewiesen sein.
+% |\ss|~entspricht f"ur Schriften in Kodierung~\texttt{OT1} dem
+% Letter auf Position~|^^Y|. Um W"orter mit diesem Letter komplett
+% trennbar zu machen, reicht es daher aus, wenn man den |\lccode|
+% dieser Letter auf einen Wert ungleich Null setzt. F"ur ein |\ss|
+% aus anderen Schriften mu"s dies in der entsprechenden Makrodatei
+% getan werden, in dem die Schrift und der Befehl~|\ss| redefiniert
+% wird.
+% \begin{macrocode}
+\lccode`\^^Y=`\^^Y
+% \end{macrocode}
+%
+% \subsection{Anf"uhrungszeichen}
+%
+% Die deutschen Anf"uhrungszeichen werden f"ur Schriften, die keine
+% geeigneten Lettern besitzen, durch Box-Manipulationen aus den im
+% englischsprachigen Raum gebr"auchlichen Anf"uhrungszeichen erzeugt.
+%
+% |\set@low@box| verschiebt das Zeichen im Argument, normalerweise ``
+% bzw.\ '', auf die H"ohe des Kommas in dieser Schrift. Achtung: Da
+% das Makro den Inhalt der Box 0, 2 und ein L"angenregister "andert,
+% sollte dieses Makro nur innerhalb einer Gruppe aufgerufen werden.
+% \begin{macrocode}
+\def\set@low@box#1{\setbox\tw@\hbox{,}\setbox\z@\hbox{#1}%
+ \setbox\z@\hbox{\dimen@\ht\z@ \advance\dimen@ -\ht\tw@
+ \lower\dimen@\box\z@}%
+ \ht\z@\ht\tw@ \dp\z@\dp\tw@}
+% \end{macrocode}
+%
+% Normalerweise wird der aktuelle |\spacefactor| nicht durch
+% An"-f"uhrungs"-zeichen ge"-"andert, so da"s bei aktiviertem
+% |\nonfrenchspacing| nach einem Satzzeichen und direkt nachfolgenden
+% Anf"uhrungszeichen ein gr"o"serer Wortzwischenraum gelassen wird.
+% Da \TeX\ den |\spacefactor| nach einem Box-Befehl auf~1000 setzt,
+% mu"s man diesen Wert von Hand vorher retten und danach wieder
+% setzen, um dieses Verhalten nicht zu "andern.
+% \begin{macrocode}
+\def\save@sf@q#1{{\ifhmode
+ \edef\@SF{\spacefactor\the\spacefactor}\else
+ \let\@SF\empty \fi \leavevmode #1\@SF}}
+% \end{macrocode}
+%
+% \subsection{Umlaute}
+%
+% Wird ein Umlaut mit Hilfe des |\accent|-Primitivs erzeugt, werden
+% bei den meisten Schriften die Umlautpunkte zu hoch gesetzt. Die
+% Umlautpunkte entsprechen dadurch eher einem Trema. Das Makro
+% |\umlaut| ersetzt das \TeX-Primitiv, um Umlaute mit etwas tieferen
+% Umlautpunkten zu erzeugen. Die Funktionsweise beruht auf dem
+% folgenden kleinen Trick: Das |\accent|-Primitiv hat die Eigenschaft,
+% die aktuelle \textit{x-height} und die Gr"o"se des Buchstabens zu
+% verwenden, um die vertikale Positionierung und in Abh"angigkeit
+% des \textit{slant} der Schrift die horizontale Verschiebung der
+% Punkte zu bestimmen. Um die Punkte etwas tiefer zu setzen, kann
+% nun entweder die H"ohe des Buchstabens verkleinert oder die
+% \textit{x-height} der Schrift tempor"ar vergr"o"sert werden. Da das
+% |\accent|-Primitiv keine Box als Argument erlaubt, wird der zweite
+% Weg gew"-"ahlt. Dabei mu"s beachtet werden, da"s "Anderungen der
+% |\fontdimen| immer global ausgef"uhrt werden, so da"s man den
+% urspr"unglichen Wert retten und danach wieder explizit
+% zur"uckschreiben mu"s!
+% \changes{2.5c}{95/01/24}{Abfrage auf L"angenregister \cs{grmnU@D}
+% hatte wegen eines At-Zeichens zuviel auf \cs{grmn@U@D} getestet.}
+% \begin{macrocode}
+\expandafter\ifx\csname grmnU@D\endcsname\relax
+ \csname newdimen\endcsname\grmnU@D
+\fi
+\def\newumlaut#1{{\grmnU@D 1ex%
+ {\setbox\z@\hbox{\char127}\dimen@-.45ex\advance\dimen@\ht\z@
+ \ifdim 1ex<\dimen@ \fontdimen5\font\dimen@ \fi}%
+ \accent127\fontdimen5\font\grmnU@D #1}\allowhyphens}
+% \end{macrocode}
+%
+% F"ur Tremata wird das urspr"ungliche |\accent|-Primitive verwendet.
+% Da die Style-Option das |\"|-Makro "andert, mu"s hier die originale
+% Definition selbst verwendet werden, wobei durch das |\allowhyphens|
+% nach dem Akzentprimitiv die Trennung im Rest des Wortes wieder
+% erlaubt ist. F"ur \LaTeXe\ kann durch die ge"anderten Interna das
+% |\"|-Makro direkt verwendet werden, wobei auch hier ein
+% |\allowhyphens| die Trennung im nachfolgenden Wortteil wieder
+% erlaubt.
+% \begin{macrocode}
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname DeclareTextSymbol\endcsname\relax
+ \def\highumlaut#1{{\accent127 #1}\allowhyphens}
+\else
+ \def\highumlaut#1{\"{#1}\allowhyphens}
+\fi
+% \end{macrocode}
+%
+% \subsection{Aktivierter Double\-quote}
+%
+% Die Style-Option "`german"' verwendet ein aktiviertes
+% Doublequote-Zeichen. Mit den Makros |\mdqon| und |\mdqoff| werden
+% hierzu Befehle zum Hin- und Herschalten definiert.
+% \begin{macrocode}
+\def\mdqon{\catcode`\"\active}
+\def\mdqoff{\catcode`\"12\relax}
+% \end{macrocode}
+%
+% Der Mechanismus der die Double\-quote-Eingabe\-notation realisiert,
+% verwendet folgende weitere symbolische Namen f"ur Makros und
+% spezielle Zeichen.
+% \changes{2.5d}{97/04/12}{"Uberbleibsel \cs{@UMLAUT}-Definition
+% als \cs{\protect\dq} aus Vor-NFSS2-Zeiten entfernt.}
+% \changes{2.5d}{97/04/13}{\cs{@SS} in \cs{@MATHss} umbenannt.}
+% \changes{2.5d}{97/05/01}{In \cs{@MATHss} ein eigentlich
+% "uberfl"ussiges \cs{mathord} eingef"ugt, das aber daf"ur sorgt,
+% da"s Leerzeichen danach nicht ignoriert werden.}
+% \begin{macrocode}
+\begingroup \mdqoff
+\def\x{\endgroup
+ \def\@MATHUMLAUT{\ddot}% = \mathaccent"707F
+ \def\@MATHss{\mathord{\mathchar"7019}}% TODO: correct?
+ \def\dq{"}}% TODO: or \textquotedbl?
+\x
+% \end{macrocode}
+%
+% Da das Zeichen aktiviert wird, mu"s es f"ur bestimmte Kontexte
+% explizit wieder deaktiviert werden. Plain-\TeX\ und \LaTeX\
+% verwenden f"ur Umgebungen, wie \texttt{verbatim}, die Befehle
+% |\dospecials| und |\@sanitize|, die Listen mit diesen speziellen
+% Zeichen darstellen. Der Double\-quote wird an diese Listen
+% angeh"angt.
+% \begin{macrocode}
+\begingroup
+ \def\do{\noexpand\do\noexpand}%
+ \edef\x{\endgroup
+ \def\noexpand\dospecials{\dospecials\do\"}}%
+\x
+% \end{macrocode}
+% |\@sanitize| ist nur f"ur \LaTeX\ definiert, so da"s dessen
+% Existenz explizit abgefragt wird.
+% \begin{macrocode}
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname @sanitize\endcsname\relax \else
+ \begingroup
+ \def\@makeother{\noexpand\@makeother\noexpand}%
+ \edef\x{\endgroup
+ \def\noexpand\@sanitize{\@sanitize\@makeother\"}}%
+ \x
+\fi
+% \end{macrocode}
+%
+% \subsection{Kompatibilit"at mit "alteren Versionen}
+%
+% "Altere Versionen der Style-Option "`german"' definieren die
+% Befehle |\3| und |\ck|, die nicht mehr verwendet werden sollten.
+% Damit alte Dokumente mit diesen Kommandos nicht ge"andert werden
+% m"ussen, existieren diese Befehle auch noch f"ur Version~2.x.
+% In "`ngerman"' wird |\ck| so definiert, da"s ein "`ck"' mit Trennstelle
+% davor erzeugt wird; au"erdem wird eine Warnung ausgegeben.
+% \changes{2.5e (beta 1)}{98/05/04}{ge"anderte Definition von \cs{ck}
+% in "`ngerman"'}
+% \begin{macrocode}
+\let\grmn@original@three=\3 % \3 may be defined or undefined.
+%<*old>
+\def\ck{\penalty\@M\discretionary{k-}{}{c}k\allowhyphens}
+%</old>
+%<*new>
+\def\ck{%
+ \ifnum\grmn@dqwarninglevel>\@ne
+ \grmn@dq@warning@obsolete{\string\ck}{ck}%
+ \fi
+ \penalty\@M\-\allowhyphens ck}
+%</new>
+% \end{macrocode}
+%
+%
+% \section{Anf"uhrungszeichen}
+%
+% Die Makros |\glqq|, |\grqq|, |\glq|, |\grq|, |\flqq|, |\frqq|,
+% |\flq| und |\frq| f"ur die Anf"uhrungzeichen k"onnen mit NFSS
+% Version~2 (also mit \LaTeXe) abh"angig von der Kodierung der
+% Schrift definiert werden.
+% \begin{macrocode}
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname DeclareTextSymbol\endcsname\relax
+% \end{macrocode}
+%
+% \subsection{\ldots~ohne NFSS Version~2}
+%
+% Ohne NFSS Version~2 werden die Makros aus den "`alten"' Versionen
+% dieser Style-Option verwendet. Da diese Makros auf alle Zeichen
+% "uber symbolische Befehle oder Ligaturen zugreifen, sollten die
+% Ergebnisse f"ur die meisten Schriften korrekt sein, jedoch wird
+% wegen der nicht expandierbaren Tokens in den Makros kein Kerning
+% zwischen dem Anf"uhrungszeichen und umgebenden Text durchgef"uhrt
+% (und keine Ligaturen gebildet, auch wenn diese in bisher keiner
+% mir bekannten und f"ur \TeX{} verf"ugbaren Schrift vorhanden sind).
+%
+% Zuerst einmal die Makros f"ur die Anf"uhrungszeichen "`\ldots"' und
+% \glq\ldots\grq. Die Namen |\@glqq|, |\@grqq|, etc.\ der zu
+% sch"utzenden internen Makros aus "alteren Version des German-Style
+% werden eigentlich nicht mehr ben"otigt, werden hier aber zur
+% Kompatibilit"at dennoch definiert.
+% \changes{2.5d}{97/04/13}{Verwende Trick von \LaTeXe{} mit
+% dem Leerzeichen im Namen des zu sch"utzenden Makros.}
+% \begin{macrocode}
+\expandafter\def\csname glqq \endcsname{%
+ \save@sf@q{\set@low@box{''\/}\box\z@\kern-.04em\allowhyphens}}
+\edef\glqq{\noexpand\protect
+ \expandafter\noexpand\csname glqq \endcsname}
+\let\@glqq=\glqq
+\expandafter\def\csname grqq \endcsname{%
+ \save@sf@q{\kern-.07em``\kern.07em}}% ('')
+\edef\grqq{\noexpand\protect
+ \expandafter\noexpand\csname grqq \endcsname}
+\let\@grqq=\grqq
+\expandafter\def\csname glq \endcsname{%
+ \save@sf@q{\set@low@box{'\/}\box\z@\kern-.04em\allowhyphens}}
+\edef\glq{\noexpand\protect
+ \expandafter\noexpand\csname glq \endcsname}
+\let\@glq=\glq
+\expandafter\def\csname grq\endcsname{%
+ \save@sf@q{\kern-.0125em`\kern.07em}}
+\edef\grq{\noexpand\protect
+ \expandafter\noexpand\csname grq \endcsname}
+\let\@grq=\grq
+% \end{macrocode}
+% Danach folgen die Definitionen f"ur die franz"osische Form der
+% Anf"uhrungszeichen "<\ldots"> und {\flq}\ldots{\frq}. Da die
+% Definition auch f"ur Plain-\TeX\ verwendbar sein soll, k"onnte man
+% das Aussehen durch eine etwas andere Definition noch verbessern.
+% Auch hier werden die Namen der zu sch"utzenden internen Makros aus
+% "alteren Version obwohl nicht notwendig zur Kompatibilit"at
+% definiert.
+% \changes{2.5c}{96/02/26}{Im Code f"ur die franz"osischen
+% Anf"uhrungszeichen \cs{m@th} eingef"ugt.}
+% \changes{2.5c}{96/04/28}{Die Boxen f"ur \cs{flqq}, \cs{frqq},
+% \cs{flq} und \cs{frq} werden mit \cs{raise.2ex} etwas zu tief
+% gesetzt, deshalb wird jetzt \cs{raise.27ex} aus
+% \texttt{french.sty} verwendet.}
+% \changes{2.5d}{97/04/13}{Verwende Trick von \LaTeXe{} mit
+% dem Leerzeichen im Namen des zu sch"utzenden Makros.}
+% \changes{2.5d}{97/05/01}{In \cs{flqq} und \cs{frqq} um \cs{ll}
+% bzw.\ \cs{gg} ein \cs{mathrel} eingef"ugt (klammern oder ein
+% ein leeres Klammerpaar danach w"urde Abst"ande "andern).
+% Damit kann das leere Klammerpaar in dern entsprechenden
+% Doublequote-Notation f"ur die franz"osischen Anf"uhrungszeichen
+% entfernt werden.}
+% \begin{macrocode}
+\expandafter\def\csname flqq \endcsname{%
+ \relax\ifmmode \mathrel{\ll}\else \save@sf@q{\penalty\@M
+ \raise .27ex\hbox{$\m@th\scriptscriptstyle \ll $}%
+ \allowhyphens}\fi}
+\edef\flqq{\noexpand\protect
+ \expandafter\noexpand\csname flqq \endcsname}
+\let\@flqq=\flqq
+\expandafter\def\csname frqq \endcsname{%
+ \relax\ifmmode \mathrel{\gg}\else \save@sf@q{\penalty\@M
+ \raise .27ex\hbox{$\m@th\scriptscriptstyle \gg $}%
+ \allowhyphens}\fi}
+\edef\frqq{\noexpand\protect
+ \expandafter\noexpand\csname frqq \endcsname}
+\let\@frqq=\frqq
+\expandafter\def\csname flq \endcsname{%
+ \relax\ifmmode <\else \save@sf@q{\penalty\@M
+ \raise .27ex\hbox{$\m@th\scriptscriptstyle <$}\allowhyphens}\fi}
+\edef\flq{\noexpand\protect
+ \expandafter\noexpand\csname flq \endcsname}
+\let\@flq=\flq
+\expandafter\def\csname frq \endcsname{%
+ \relax\ifmmode >\else \save@sf@q{\penalty\@M
+ \raise .27ex\hbox{$\m@th\scriptscriptstyle >$}\allowhyphens}\fi}
+\edef\frq{\noexpand\protect
+ \expandafter\noexpand\csname frq \endcsname}
+\let\@frq=\frq
+% \end{macrocode}
+% Leider verhindert das |\nobreak| in |\allowhyphens| eine Trennung
+% an einem Wortzwischenraum, der nach dem Anf"uhrungszeichen folgen
+% kann. Da die obige Definition sowohl f"ur ">\ldots"< als auch f"ur
+% "<\ldots"> verwendbar sein mu"s, kann man ohne weitere Tricks
+% nichts an dieser Einschr"ankung "andern.
+%
+%
+% Die nachfolgenden Abschnitte beschreiben die notwendigen
+% Definitionen f"ur NFSS~2.
+% \begin{macrocode}
+\else
+% \end{macrocode}
+%
+% \subsection{\ldots~mit NFSS Version~2}
+%
+% Das Makro |\glqq| entspricht dem in neueren \LaTeXe-Releases
+% definiertem Symbol |\quotedblbase|. Die Definitionen dieses
+% Symbols werden auch f"ur die \texttt{OT1}-kodierten Schriften
+% erweitert, so da"s man eine relativ einfache Definition erh"alt.
+% \begin{macrocode}
+\DeclareRobustCommand{\glqq}{%
+ \ifmmode\hbox{\quotedblbase}\else\quotedblbase\fi}
+\ProvideTextCommandDefault{\quotedblbase}{%
+ \UseTextSymbol{OT1}\quotedblbase}
+\ProvideTextCommand{\quotedblbase}{OT1}{%
+ \save@sf@q{\set@low@box{\textquotedblright\/}\box\z@
+ \kern-.04em\allowhyphens}}
+% \end{macrocode}
+%
+% Leider existiert f"ur |\grqq| kein entsprechendes Pendant, so da"s
+% man hier auf die "`alte"' Version zur"uckgreifen mu"s. Jedoch wird
+% f"ur \texttt{T1}-kodierte Schriften keine \cs{kern}-Anweisungen
+% eingef"ugt, da diese insbesondere bei den EC-Fonts und dessen
+% Testversionen ab DC-Fonts Version~1.2 das Anf"uhrungszeichen zu
+% weit nach links plazieren und dieses dadurch den davorstehenden
+% Letter "uber"-schreiben k"onnte.
+% \changes{2.5c}{96/02/26}{F"ur \texttt{T1}-kodierte Schriften,
+% insbesondere den DC-Fonts~v1.2 d"urfen bei \cs{grqq} keine
+% expliziten \cs{kern} eingef"ugt werden. Deshalb separate
+% Deklarationen f"ur T1- und OT1-kodierte Schriften.}
+% \begin{macrocode}
+\ProvideTextCommand{\grqq}{T1}{\textquotedblleft}
+\ProvideTextCommand{\grqq}{OT1}{%
+ \save@sf@q{\kern-.07em%
+ \ifmmode\hbox{\textquotedblleft}\else\textquotedblleft\fi
+ \kern.07em\relax}}
+\ProvideTextCommandDefault{\grqq}{\UseTextSymbol{OT1}\grqq}
+% \end{macrocode}
+% Entsprechend werden die Symbole |\glq| und |\grq| definiert\,\ldots
+% \begin{macrocode}
+\DeclareRobustCommand{\glq}{%
+ \ifmmode\hbox{\quotesinglbase}\else\quotesinglbase\fi}
+\ProvideTextCommandDefault{\quotesinglbase}{%
+ \UseTextSymbol{OT1}\quotesinglbase}
+\ProvideTextCommand{\quotesinglbase}{OT1}{%
+ \save@sf@q{\set@low@box{\textquoteright\/}\box\z@
+ \kern-.04em\allowhyphens}}
+% \end{macrocode}
+% \changes{2.5c}{96/04/27}{F"ur \texttt{T1}-kodierte Schriften
+% bin ich mir momentan nicht sicher, ob f"ur \cs{grq} explizite
+% \cs{kern} eingef"ugt werden sollten; die DC-Fonts~v1.2 haben
+% Kerning f"ur ein als schlie"sendes Quote verwendetes Backquote,
+% deshalb kein \cs{kern}.}
+% \begin{macrocode}
+\ProvideTextCommand{\grq}{T1}{\textquoteleft}
+\ProvideTextCommand{\grq}{OT1}{%
+ \save@sf@q{\kern-.0125em%
+ \ifmmode\hbox{\textquoteleft}\else\textquoteleft\fi
+ \kern.07em\relax}}
+\ProvideTextCommandDefault{\grq}{\UseTextSymbol{OT1}\grq}
+% \end{macrocode}
+% \ldots\,und auch die franz"osische Form der Anf"uhrungszeichen.
+% \changes{2.5c}{96/02/26}{Im Code f"ur die franz"osischen
+% Anf"uhrungszeichen \cs{m@th} eingef"ugt.}
+% \changes{2.5c}{96/04/28}{Die Boxen f"ur \cs{flqq}, \cs{frqq},
+% \cs{flq} und \cs{frq} werden mit \cs{raise.2ex} etwas zu tief
+% gesetzt, deshalb wird jetzt \cs{raise.27ex} aus
+% \texttt{french.sty} verwendet.}
+% \changes{2.5d}{97/05/01}{\cs{mathrel} bzw.\ \cs{mathbin} in
+% \cs{flqq}, \cs{frqq}, \cs{flq} und \cs{frq} eingef"ugt.}
+% \begin{macrocode}
+\DeclareRobustCommand{\flqq}{%
+ \ifmmode\mathrel{\hbox{\guillemotleft}}\else\guillemotleft\fi}
+\ProvideTextCommandDefault{\guillemotleft}{%
+ \UseTextSymbol{OT1}\guillemotleft}
+\ProvideTextCommand{\guillemotleft}{OT1}{%
+ \ifmmode \ll \else \save@sf@q{\penalty\@M
+ \raise .27ex\hbox{$\m@th\scriptscriptstyle \ll $}%
+ \allowhyphens}\fi}
+\DeclareRobustCommand{\frqq}{%
+ \ifmmode\mathrel{\hbox{\guillemotright}}\else\guillemotright\fi}
+\ProvideTextCommandDefault{\guillemotright}{%
+ \UseTextSymbol{OT1}\guillemotright}
+\ProvideTextCommand{\guillemotright}{OT1}{%
+ \ifmmode \gg \else \save@sf@q{\penalty\@M
+ \raise .27ex\hbox{$\m@th\scriptscriptstyle \gg $}%
+ \allowhyphens}\fi}
+% \end{macrocode}
+% \begin{macrocode}
+\DeclareRobustCommand{\flq}{%
+ \ifmmode\mathbin{\hbox{\guilsinglleft}}\else\guilsinglleft\fi}
+\ProvideTextCommandDefault{\guilsinglleft}{%
+ \UseTextSymbol{OT1}\guilsinglleft}
+\ProvideTextCommand{\guilsinglleft}{OT1}{%
+ \ifmmode <\else \save@sf@q{\penalty\@M
+ \raise .27ex\hbox{$\m@th\scriptscriptstyle <$}\allowhyphens}\fi}
+\DeclareRobustCommand{\frq}{%
+ \ifmmode\mathbin{\hbox{\guilsinglright}}\else\guilsinglright\fi}
+\ProvideTextCommandDefault{\guilsinglright}{%
+ \UseTextSymbol{OT1}\guilsinglright}
+\ProvideTextCommand{\guilsinglright}{OT1}{%
+ \ifmmode >\else \save@sf@q{\penalty\@M
+ \raise .27ex\hbox{$\m@th\scriptscriptstyle >$}\allowhyphens}\fi}
+% \end{macrocode}
+%
+% Damit w"aren die Makros f"ur die Anf"uhrungszeichen definiert
+% und die Unterscheidung mit/ohne NFSS Version~2 wird f"ur's erste
+% nicht mehr ben"otigt.
+% \begin{macrocode}
+\fi
+% \end{macrocode}
+%
+%
+% \section{Anpassung der Umlautmakros}
+%
+% Wie schon bei der Definition des Befehls |\umlaut| erw"ahnt,
+% mu"s das Akzentmakro f"ur die Umlaute angepa"st werden.
+%
+% Um sp"ater zwischen der Original- und der neuen Definition
+% umschalten zu k"onnen, werden die internen Umschaltbefehle
+% |\umlauthigh| und |\umlautlow| definiert. Da NFSS Version~2
+% schon wieder eine Sonderrolle -- im positiven Sinne -- spielen
+% mu"s, ist wieder eine Unterscheidung der Versionen n"otig.
+% \begin{macrocode}
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname DeclareTextSymbol\endcsname\relax
+% \end{macrocode}
+%
+% F"ur Versionen ohne NFSS Version~2 wird relativ einfach zwischen
+% den beiden Versionen gewechselt. Wenn man Schriften mit ge"anderten
+% Kodierungen verwenden will, mu"s dieses Makro ebenso angepa"st
+% werden.
+% \begin{macrocode}
+\def\umlauthigh{\def\"##1{{\accent127 ##1}}}
+\def\umlautlow{\def\"{\protect\newumlaut}}
+% \end{macrocode}
+% \begin{macrocode}
+\else
+% \end{macrocode}
+%
+% F"ur NFSS Version~2 ist das ganze etwas komplizierter.
+% Da die Befehle |\DeclareText...| nicht mehr nach der Pr"aambel
+% verwendet werden d"urfen, wird der neue symbolische Name
+% |\grmn@OTumlaut| f"ur das Umlautmakro f"ur Schriften in
+% Kodierung~\texttt{OT1} definiert. Beim Umschalten wird dann die
+% Definition dieses Makro ver"andert.
+% \begin{macrocode}
+\def\umlauthigh{\def\grmn@OTumlaut##1{{\accent 127 ##1}}}
+\def\umlautlow{\def\grmn@OTumlaut{\protect\newumlaut}}
+\umlauthigh
+% \end{macrocode}
+% F"ur Schriften in Kodierung \texttt{OT1} und~\texttt{T1} werden hier
+% Standarddefinitionen angegeben, in der das neue Makro verwendet
+% wird.
+% \begin{macrocode}
+\DeclareTextAccent{\"}{T1}{4}
+\DeclareTextAccent{\"}{OT1}{127}
+\DeclareTextCompositeCommand{\"}{OT1}{a}{\grmn@OTumlaut{a}}%
+\DeclareTextCompositeCommand{\"}{OT1}{o}{\grmn@OTumlaut{o}}%
+\DeclareTextCompositeCommand{\"}{OT1}{u}{\grmn@OTumlaut{u}}%
+\DeclareTextCompositeCommand{\"}{OT1}{A}{\grmn@OTumlaut{A}}%
+\DeclareTextCompositeCommand{\"}{OT1}{O}{\grmn@OTumlaut{O}}%
+\DeclareTextCompositeCommand{\"}{OT1}{U}{\grmn@OTumlaut{U}}%
+\DeclareTextComposite{\"}{T1}{a}{228}
+% \end{macrocode}
+%
+% Da diese Definitionen in einer "alteren Patch-Datei am Beginn eines
+% Dokuments ge"andert werden, werden diese "Anderungen einfach
+% nochmals mit den oben angegebenen Anweisungen "uberschrieben,
+% obwohl dies eigentlich nur f"ur diese veraltete \LaTeXe-Version
+% mit dieser Patch-Datei notwendig w"are. Dies sollte in einer
+% der n"achsten Version des German-Style entfernt werden!
+% \begin{macrocode}
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname AtBeginDocument\endcsname\relax \else
+ \AtBeginDocument{%
+ \DeclareTextAccent{\"}{T1}{4}% % from `ltpatch.tex'
+ \DeclareTextAccent{\"}{OT1}{127}% % from `ltpatch.tex'
+ % \DeclareTextCommand{\"}{OT1}{\newumlaut}% from `ltpatch.tex'
+ % % has to be removed
+ \DeclareTextCompositeCommand{\"}{OT1}{a}{\grmn@OTumlaut{a}}%
+ \DeclareTextCompositeCommand{\"}{OT1}{o}{\grmn@OTumlaut{o}}%
+ \DeclareTextCompositeCommand{\"}{OT1}{u}{\grmn@OTumlaut{u}}%
+ \DeclareTextCompositeCommand{\"}{OT1}{A}{\grmn@OTumlaut{A}}%
+ \DeclareTextCompositeCommand{\"}{OT1}{O}{\grmn@OTumlaut{O}}%
+ \DeclareTextCompositeCommand{\"}{OT1}{U}{\grmn@OTumlaut{U}}%
+ \DeclareTextComposite{\"}{T1}{a}{228}% % from `ltpatch.tex'
+ }
+\fi
+% \end{macrocode}
+% \begin{macrocode}
+\fi
+% \end{macrocode}
+%
+%
+% \section{Mechanismus f"ur Doublequote-Notation}
+%
+% Die Eingabenotation |"x| f"ur Umlaute, spezielle Trennungen
+% u.\,a., die die Style-Option "`german"' anbietet, wird durch den
+% \textit{active character} Double\-quote realisiert. Dieses aktive
+% Zeichen liest das folgende Token als sein Argument und entscheidet
+% abh"angig von diesem Argument, welche Kommandos zur Realisierung
+% verwendet werden sollen.
+%
+% Nach dieser Beschreibung scheint die Makrodefinition, die diesem
+% aktiven Zeichen zugewiesen wird, relativ einfach zu realisieren zu
+% sein:
+%\begin{verbatim}
+%\catcode`\"=\active
+%\def "#1{\ifx#1a\newumlaut{a}\else ...etc.etc... \fi}
+%\end{verbatim}
+% Leider gibt es bei dieser einfachen Implementierung einige
+% Fehlerm"oglichkeiten: Zum einen "uberliest \TeX\ vor jedem nicht
+% begrenztem Argument eines Makros alle Leerzeichen, so da"s die
+% beiden Eingaben |" a| und~|"a| nicht unterscheidbar sind.
+% Zum zweiten erzeugen die Gruppenklammern |{| und~|}|
+% als Argument Fehler, da bei einer "offnenden Klammer eine komplette
+% Liste gelesen wird und eine schlie"sende Klammer zu einem Fehler
+% f"uhrt.
+%
+% Will man diese Probleme mit der etwas "`schlaueren"' L"osung
+%\begin{verbatim}
+%\catcode`\"=\active
+%\def "{\afterassignment\do@activedq \let\next= }
+%\def\do@activedq{\ifx\next\bgroup \def\next{\dq\bgroup}\else
+% \ifx\next\egroup \def\next{\dq\egroup}\else
+% \expandafter\ifx\space\next \def\next{\dq\space}\else
+% \ifx a\next \def\next{\newumlaut{a}}\else
+% ...etc.etc... \fi\fi\fi...\fi \next}
+%\end{verbatim}
+% vermeiden, handelt man sich ein anderes, schwerwiegenderes Problem
+% ein: In \TeX\ kann man ganzzahlige Konstanten auch in hexadezimaler
+% Notation eingeben. Dazu wird einfach der hexadezimalen Zahl ein
+% normales Double\-quote-Zeichen vorangestellt (Bsp.: |"FF| f"ur die
+% Konstante~255). Mit der "`schlaueren"' L"osung meldet \TeX\ jedoch
+% beim Einlesen aller hexadezimalen Konstanten bei aktiviertem
+% Double\-quote eine fehlende Zahl. Der Grund ist einfach:
+% Primitive, wie |\afterassignment| oder |\futurelet|, sind
+% nicht expandierbar und nichtexpandierbare Token beenden das
+% Scan\-nen einer Zahl.
+%
+% Um diesen schwerwiegenden Nachteil der "`schlaueren"' L"osung
+% zu vermeiden (die "ahnlich in Version~2.3c/d verwendet wurde, wobei
+% schon in den Versionen 2.2--2.3b ein |\protect| mit Bedeutung
+% |\relax| diesen Fehler erzeugt hat), mu"s man wohl oder "ubel die
+% erste L"osung verwenden und deren Nachteile in Kauf nehmen.
+%
+% Auf einen anderen Punkt mu"s auch geachtet werden: Damit \TeX\ f"ur
+% die resultierenden Umlaute und An"-f"uhrungs"-zeichen ein Kerning
+% durch"-f"uhrt und Ligaturen bildet, d"urfen vor und nach diesen
+% Zeichen keine nichtexpandierbaren Token, wie Gruppenklammern,
+% |\relax|, etc., in der Eingabe "`stehenbleiben"'. Dies mu"s
+% insbesondere auch f"ur die F"alle gelten, in denen der
+% Double\-quote eine hexadezimale Konstante einleitet!
+%
+%
+% \subsection{Fehler bei undefinierten
+% \protect\texttt{\char34x}-Kombinationen}
+%
+% F"ur Argumente des Double\-quote-Makros, f"ur die keine Bedeutung
+% definiert wurde, sollte eine Fehlermeldung an den Benutzer
+% ausgegeben werden. Dies verhindert zum einen, da"s einfache
+% Tippfehler "uber"-sehen werden, zum anderen gibt es in sp"ateren
+% Versionen, in denen f"ur weitere Argumente Bedeutungen definiert
+% werden, weniger Fehler in alten Dokumenten.
+%
+% Mit dem (undokumentierten) Befehl |\dqwarninglevel| kann festgelegt
+% werden, bei welchen Befehlen Warnungen ausgegeben werden:
+% 0~bedeutet momentan keine Warnung, 1~nur f"ur undefinierte
+% Kombinationen (Default) und 2~auch Warnungen f"ur die Befehle f"ur
+% drei gleiche Konsonanten.
+%
+% Es bietet sich an, den Level~2 daf"ur zu verwenden, vor
+% durch die Rechtschreibreform obsolet gewordenen Befehlen zu
+% warnen, n"amlich Dreier"=Kombinationen und zus"atzlich die
+% Befehle zur |ck|"~Trennung: |"ck| und |\ck|.
+% \changes{2.5e (beta 1)}{98/05/04}{Level~2 f"ur neue Rechtschreibung.}
+% \begin{macrocode}
+\def\dqwarninglevel#1{\chardef\grmn@dqwarninglevel=#1\relax}
+%<old> \dqwarninglevel{1}
+%<new> \dqwarninglevel{2}
+% \end{macrocode}
+%
+% Neuere \LaTeX-Versionen verwenden den in \TeX~3 vorhandenen
+% Parameter |\inputlineno|, um mit jeder Fehlermeldung auch die
+% Zeilennummer auszugeben. Da dies allgemein sinnvoll ist, wird das
+% dazu benutzte \LaTeX-Makro definiert, falls es bei Verwendung von
+% Plain-\TeX\ oder einer alten \LaTeX-Version noch nicht definiert
+% ist und \TeX~3 verwendet wird (|\inputlineno| mu"s existieren
+% und einen positiven Wert haben).
+% \changes{2.5d}{97/05/01}{\cs{@empty} ist in Plain-\TeX{} nicht
+% definiert, daher \cs{on@line} besser direkt definieren.}
+% \begin{macrocode}
+\expandafter\ifx\csname on@line\endcsname\relax
+ \ifx\inputlineno\undefined \def\on@line{}%
+ \else
+ \ifnum\inputlineno<\z@ \def\on@line{}%
+ \else \def\on@line{ on input line \the\inputlineno}%
+\fi\fi\fi
+% \end{macrocode}
+%
+% F"ur die Ausgabe von Warnungen und Fehlermeldungen werden
+% weitere Makros definiert.
+% \changes{2.5e (beta 1)}{98/05/04}{Neue Warnbefehle nur f"ur "`ngerman"'.}
+% \begin{macrocode}
+\def\grmn@dq@error#1{%
+ \errhelp{Use `` for a simple double quote character.}%
+%<old> \errmessage{german: The command \dq\string#1 is undefined}}
+%<new> \errmessage{ngerman: The command \dq\string#1 is undefined}}
+\def\grmn@dq@warning#1{%
+ \immediate\write\sixt@@n
+%<old> {german: \dq\string#1 is possibly wrong\on@line.}}
+%<new> {ngerman: \dq\string#1 is possibly wrong\on@line.}}
+% \end{macrocode}
+% Der Befehl |\grmn@dq@warning@obsolete| l"ot den
+% |\grmn@dq@warning|"~Befehl nur in den F"allen ab, bei denen
+% der "`Warning"=Level"' auf zwei steht, also bei denen der Anwender
+% auf den veralteten Befehl hingewiesen werden soll.
+% Da der erste Parameter sowohl ein Befehlsname |\ck| als auch eine
+% |"|"~Kombination sein kann, mu"s der Aufrufer daf"ur Sorge tragen,
+% da"s die Parameter richtig geschrieben werden k"onnen. Als
+% Beispiel sollte |"f| als |\dq f| und |\ck| als |\string\ck|
+% "ubergeben werden).
+% \begin{macrocode}
+%<*new>
+\def\grmn@dq@warning@obsolete#1#2{%
+ \immediate\write\sixt@@n
+ {ngerman: #1 is now obsolete, please use #2 instead\on@line.}}
+%</new>
+% \end{macrocode}
+% F"ur die Dreier"=Kombinationen sind die |"|"~Befehle
+% "uberfl"ussig geworden. Das Makro, abgeleitet aus
+% |\grmn@dqdisc|, gibt daher eine Warnung aus und
+% setzt die Buchstaben. Da drei gleiche Buchstaben nach dem
+% zweiten getrennt werden d"urfen, wird die entsprechende
+% Trennhilfe eingef"ugt (|"-|).
+% \begin{macrocode}
+%<*new>
+\def\grmn@dqobsolete@three#1{#1#1%
+ \ifnum\grmn@dqwarninglevel>\@ne
+ \grmn@dq@warning@obsolete{\dq#1#1}{#1#1#1}%
+ \fi
+ \penalty\@M\-\allowhyphens}
+%</new>
+% \end{macrocode}
+% Dasselbe wird nun f"ur die Kombination |"ck| gemacht,
+% wobei hier die Trennhilfe vor den Buchstaben |ck| wie
+% im |\ck|"~Befehl gesetzt wird.
+% \begin{macrocode}
+%<*new>
+\def\grmn@dqobsolete@ck#1#2{%
+ \ifnum\grmn@dqwarninglevel>\@ne
+ \grmn@dq@warning@obsolete{\dq#1#2}{#1#2}%
+ \fi
+ \penalty\@M\-\allowhyphens#1}
+%</new>
+% \end{macrocode}
+%
+%
+% \subsection{Definition der Double\-quote-Befehle}
+%
+% Jeder definierte Double\-quote-Befehl wird in einem eigenen Makro
+% abgelegt, in dessen Name das Argument, also das einzelne Zeichen
+% nach dem Double\-quote, als Schl"ussel verwendet wird.
+%
+% Das Makro |\grmn@dq@macro| hat zwei Argumente und erzeugt unter
+% Verwendung des zweiten Arguments diesen Makronamen. Das erste
+% Argument, ein einzelnes Token, wird vor diesen Makronamen gesetzt.
+% Diese zuerst etwas komisch anmutende Kombination von Argumenten
+% verhindert, da"s bei der Verwendung dieses Makros Unmengen von
+% \cs{expandafter}-Anweisungen notwendig werden. Der Befehl
+% \cs{string} verhindert, da"s aktive Zeichen als Argumente
+% (z.\,B.\ eine Tilde) Fehler erzeugen.
+% \begin{macrocode}
+\def\grmn@dq@macro#1#2{%
+ \expandafter#1\csname @grmn@@\string #2dq\endcsname}
+% \end{macrocode}
+%
+% Neue Befehlskombinationen k"onnen mit dem Befehl |\def@dqmacro|
+% definiert werden. Argument~1 ist dabei das Zeichen im Befehl,
+% Argument 2 und~3 die Expansionen, die jeweils f"ur Text- und
+% Mathematik"-modus verwendet werden sollen.
+% \begin{macrocode}
+\def\def@dqmacro#1#2#3{%
+ \grmn@dqredefcheck{#1}%
+ \grmn@dq@macro\def{#1}{{#2}{#3}}}
+% \end{macrocode}
+%
+% Ein Synonym f"ur einen schon zuvor definierten Befehl kann man mit
+% |\let@dqmacro| definieren.
+% \begin{macrocode}
+\def\let@dqmacro#1#2{\begingroup
+ \grmn@dqredefcheck{#1}%
+ \edef\x{\endgroup \let
+ \grmn@dq@macro\noexpand{#1}\grmn@dq@macro\noexpand{#2}}%
+ \x}
+% \end{macrocode}
+%
+% Wird ein zuvor definierter Befehl erneut definiert oder
+% umdefiniert, sollte dies zumindest in der Protokolldatei erscheinen,
+% um gemeldete Fehler, die darauf zur"uckzuf"uhren sind, einfacher
+% erkennen zu k"onnen. Hier wird f"ur das Makro |\grmn@dqredefcheck|,
+% das diese Zeile in die Protokolldatei schreibt, ein Dummy definiert,
+% die sp"ater durch die end"-g"ultige Makrodefinition ersetzt wird.
+% \begin{macrocode}
+\def\grmn@dqredefcheck#1{}
+% \end{macrocode}
+%
+%
+% \subsection{Makros f"ur den aktiven Double\-quote}
+%
+% Das Makro |\@active@dq| wird sp"ater an das aktive
+% Double\-quote-Zeichen gebunden. Dieses liest das n"achste Zeichen
+% (mit den zuvor schon genannten Einschr"ankungen), pr"uft ab, ob
+% hier"-f"ur eine Bedeutung definiert wurde und gibt in diesem Falle
+% einen Fehler aus.
+% \begin{macrocode}
+\def\@active@dq#1{%
+ \grmn@dq@macro\ifx{#1}\relax
+ \ifnum\grmn@dqwarninglevel>\z@ \grmn@dq@error{#1}\fi
+ \expandafter\grmn@@normal@dq
+ \else
+ \expandafter\grmn@@active@dq
+ \fi {#1}}
+% \end{macrocode}
+%
+% Leitet der Double\-quote eine hexadezimale Konstante ein, folgt
+% also eine Ziffer oder ein Gro"sbuchstabe im Bereich~\mbox{A--F}, so
+% soll "`nichts"' unternommen werden. Um diese speziellen Befehle zu
+% erkennen, werden den zugeordneten \emph{control sequences} sp"ater
+% die Bedeutung eines |\noexpand| zugeordnet.
+% \changes{2.5b}{95/01/20}{Einziger Bugfix f"ur v2.5a: In
+% \cs{grmn@@active@dq} wurde \cs{grmn@@normal@dq} (expandiert zu
+% zwei einfachen Quotes) statt \cs{grmn@normal@dq} (expandiert zu
+% einem Double\-quote) aufgerufen, so da"s es zu Fehlern bei
+% Hexzahlen kam.}
+% \begin{macrocode}
+\def\grmn@@active@dq#1{%
+ \grmn@dq@macro\ifx{#1}\noexpand
+ \expandafter\grmn@normal@dq
+ \else
+ \expandafter\grmn@@@active@dq
+ \fi {#1}}
+% \end{macrocode}
+%
+% F"ur die F"alle, in denen Anf"uhrungszeichen erzeugt werden sollen,
+% werden zwei weitere Befehle aufgerufen: |\grmn@normal@dq| wird f"ur
+% die hexadezimalen Konstanten verwendet, in denen ein Double\-quote
+% ben"otigt wird. |\grmn@@normal@dq| wird dagegen im Fehlerfalle
+% verwendet und gibt zwei einzelne Quotes aus, um Endlosschleifen bei
+% der Expansion zu vermeiden.
+% \begin{macrocode}
+\def\grmn@@normal@dq#1{``#1}
+\def\grmn@normal@dq#1{\dq #1}
+% \end{macrocode}
+%
+%
+% \subsection{Sch"utzen von zerbrechlichen Bedeutungen}
+%
+% Da die Double\-quote-Befehle auch zu zerbrechlichen Bedeutungen
+% expandieren k"onnen, mu"s ein |\protect| o.\,"a.\ so
+% eingef"ugt werden, da"s einerseits keine nicht expandierbaren Token
+% eingef"ugt werden. Andererseits kann, wie im Falle einer Tilde,
+% auch das Argument selbst expandierbar sein und mu"s zum mehrfachem
+% Lesen und Schreiben entsprechend gesch"utzt werden. (Beispielsweise
+% wird der Inhalt von \LaTeX{}s \texttt{aux}-Datei wieder in die
+% \texttt{toc}-Datei geschrieben, bevor diese end"-g"ultig eingelesen
+% wird.)
+%
+% Aufgrund letzterem folgt jetzt ein Hack mit \textit{category codes},
+% um beim Schreiben auf eine Datei keine zus"atzlichen Zeichen
+% ein"-f"ugen zu m"ussen, wie dies noch in Version~2.4a gemacht
+% wurde.
+%
+% Im folgenden ben"otigt dieser Hack geschweifte Klammern mit
+% \textit{category code} "`other"'. Als tempor"arer Ersatz f"ur
+% die \TeX-Klammern werden die runden Klammern verwendet. Au"serdem
+% wird der in \LaTeXe\ verwendete Trick mit einem Leerzeichen im
+% Makronamen verwendet, um diese speziellen Klammern f"ur "`interne"'
+% Expansionen, wie beim Primitiv |\marks|, wieder korrekt
+% einlesen zu k"onnen.
+% \begin{macrocode}
+\begingroup
+ \catcode`\(=1\lccode`\(=`\{\catcode`\{=12
+ \catcode`\)=2\lccode`\)=`\}\catcode`\}=12
+ \catcode`\ =11\relax% <= do not delete this and the
+\lowercase(\endgroup% <=== following percent characters!
+% \end{macrocode}
+%
+% Zuerst wird das m"oglicherweise expandierbare Argument durch den
+% Befehl |\string| vor Expansion beim Schreiben auf eine Datei
+% oder Erzeugen eines Mark gesch"utzt. Ist das Argument leer, so
+% wird die nachfolgende geschweifte Klammer zu einer Klammer mit
+% \textit{category code} "`other"'. Hierin liegt der Grund, wieso
+% f"ur diese Definitionen die \textit{category codes} der
+% geschweiften Klammern ge"-"andert wurden.
+% \begin{macrocode}
+\def\grmn@@@active@dq#1(%
+\expandafter\grmn@@@@active@dq\expandafter{\string#1})%
+% \end{macrocode}
+%
+% Nachdem das Argument gesch"utzt wurde, wird f"ur die F"alle, in
+% denen |\protect| eine besondere Bedeutung hat, dieses
+% eingef"ugt. Hat das |\protect| "`nur"' die Bedeutung eines
+% |\relax| oder eines leeren Makros, so wird es nicht
+% eingef"ugt, um Kerning und Ligaturbildung nicht zu verhindern.
+%
+% Die Makros \verb*:\active@dq : und \verb*:\dq@prtct :, die ein
+% Leerzeichen im Namen haben, sind die "`internen"' Versionen des
+% aktiven Double\-quote-Makros und eines Makros, das das Argument
+% sch"utzt. Werden diese auf eine Datei geschrieben und wieder
+% eingelesen, so werden beim Lesen die entsprechenden Makros ohne
+% diese Leerzeichen am Ende des Namens expandiert.
+% \begin{macrocode}
+\def\grmn@@@@active@dq(%
+\ifx\protect\relax\else\ifx\protect\empty\else%
+\expandafter\expandafter\expandafter\protect%
+\fi\fi%
+\active@dq \dq@prtct )%
+% \end{macrocode}
+%
+% Zuerst zum einfacheren Makropaar \verb*:\dq@prtct : und
+% |\dq@prtct|, das das nachfolgende Argument beim wiederholten
+% Einlesen von und Schreiben auf eine Datei sch"utzen soll. Beim
+% Wiedereinlesen, bei dem das Makro |\dq@prtct| verwendet wird, sollen
+% alle Zeichen (normalerweise nur Leerzeichen, in seltenen F"allen
+% aber auch die Zeichen des Makros |\dq@prtct|) bis zur "offnenden
+% Klammer ignoriert werden. Anschlie"send soll dieses Argument wieder
+% gesch"utzt werden, wobei gleich noch ein |\dq@prtct| vorangestellt
+% wird, um das Argument bei einem erneuten Schreiben wiederum zu
+% sch"utzen.
+% \begin{macrocode}
+\def\dq@prtct#1#(\@dq@prtct)%
+\def\@dq@prtct#1(\string\dq@prtct{\string#1})%
+% \end{macrocode}
+% Das Makro \verb*:\dq@prtct : k"onnte auf den ersten Blick einfacher
+% definiert werden, da das Argument schon zuvor in
+% |\grmn@@@active@dq| gesch"utzt wurde. Jedoch kann der Fall
+% auftreten, da"s zuerst (mit |\protect|\(=\)|\relax|) expandiert und
+% dann erst auf eine Datei geschrieben wird. Da auch in diesen
+% F"allen zumindest die Zeichenkette |\dq@prtct| in diese Datei
+% geschrieben werden mu"s, wird dies hier einfach getan\ldots
+% \begin{macrocode}
+\def\dq@prtct #1{#2}(\string\dq@prtct{\string#2})%
+% \end{macrocode}
+%
+% Jetzt folgt noch das Makropaar \verb*:\active@dq : und
+% |\active@dq|. F"ur die interne Variante \verb*:\active@dq : dieses
+% Paars mu"s die zuvor eingef"ugte Zeichenkette |\dq@prtct| "uberlesen
+% und die geschweiften Klammern mit \textit{category code} "`other"'
+% durch "`richtige"' Klammern ersetzt werden.
+% \begin{macrocode}
+\def\active@dq #1{#2}(\grmn@active@@dq(#2))%
+% \end{macrocode}
+%
+% Da die ge"anderten \textit{category codes} nicht mehr ben"otigt
+% werden, wird das Argument des |\lowercase|-Befehl beendet und
+% die Gruppe mit diesen "Anderungen geschlossen.
+% \begin{macrocode}
+)%
+% \end{macrocode}
+%
+% Wird |\active@dq| von einer Datei eingelesen, m"ussen alle Token
+% bis zur "offnenden Klammer (z.\,B.\ die Zeichenkette |\dq@prtct|)
+% "uber"-lesen werden. Anschlie"send kann der Doublequote-Mechanismus
+% "`angeschmissen"' werden, als ob ein normales Double\-quote gelesen
+% worden w"are. Wir k"onnten auch |\grm@active@@dq| aufrufen, was
+% jedoch den Nachteil h"atte, da"s nicht erneut Tokens gesch"utzt
+% werden, falls dies notwendig sein m"u"ste.
+% \changes{2.5c}{96/04/21}{In \cs{active@dq}, das nur in einer
+% wiedereingelesen Datei auftauchen sollte, das urspr"ungliche
+% \cs{grmn@active@@dq} durch \cs{@active@dq} ersetzt, um
+% Protection-Mechanismus erneut zu durchlaufen.}
+% \begin{macrocode}
+\def\active@dq#1#{\@active@dq}%
+% \end{macrocode}
+%
+% Zum Schlu"s bleibt nur noch die Auswahl der f"ur diese
+% Double\-quote-Kombination abgelegte Definition abh"angig vom
+% momentanen Modus.
+% \begin{macrocode}
+\def\grmn@active@@dq#1{%
+ \csname grmn@dq\ifmmode second\else first\fi
+ \expandafter\expandafter\expandafter\expandafter
+ \grmn@dq@macro\endcsname{#1}}
+% \end{macrocode}
+% Die Makros |\grmn@dqfirst| und |\grmn@dqsecond|, die hier verwendet
+% werden, sind schon zuvor in Abschnitt~\ref{grmndqfirst} definiert
+% worden.
+%
+%
+% \subsection{Liste der Standard-Doublequote-Befehle}
+%
+% Bisher melden alle |"x|-Befehle einen Fehler, da noch kein
+% einziger Double\-quote-Befehl definiert wurde. Da zumindest die
+% Double\-quote-Kombinationen, die eine hexadezimale Konstante
+% darstellen k"onnten, "`durchgelassen"' werden sollten, werden diese
+% als erste definiert. Wie schon in den zuvor beschriebenen Makros
+% erl"autert, wird den zugeordneten \textit{control sequences} die
+% Bedeutung eines |\noexpand| zugeordnet, um diese spezielle
+% Bedeutung zu markieren.
+% \begin{macrocode}
+\grmn@dq@macro\let{0}=\noexpand
+\let@dqmacro{1}{0}\let@dqmacro{2}{0}\let@dqmacro{3}{0}
+\let@dqmacro{4}{0}\let@dqmacro{5}{0}\let@dqmacro{6}{0}
+\let@dqmacro{7}{0}\let@dqmacro{8}{0}\let@dqmacro{9}{0}
+\let@dqmacro{A}{0}\let@dqmacro{B}{0}\let@dqmacro{C}{0}
+\let@dqmacro{D}{0}\let@dqmacro{E}{0}\let@dqmacro{F}{0}
+% \end{macrocode}
+% Einige der gerade definierten Kombinationen werden sp"ater
+% redefiniert. Darunter fallen die folgenden Gro"sbuchstaben: A, C,
+% E und~F, denen dann die Bedeutungen Umlaut-A,
+% \mbox{CK/K-K}-Trennung, Trema-E und \mbox{FF/FF-F}-Trennung
+% zugewiesen wird. Deshalb kann es zu Problemen mit hexadezimalen
+% Konstanten im Bereich |"A0|--|"FF| kommen.
+%
+% In "alteren Versionen der Style-Option "`german"' konnte man mit
+% |"{}| ein normales Double\-quote erzeugen. Dies sollte aus
+% Kompatibilit"at zu "alteren Texten, die dies ausnutzen, auch
+% weiterhin m"oglich sein, auch wenn dies der Grund f"ur die zuvor
+% beschriebenen Tricks mit den "Anderungen der \textit{category
+% codes} ist.
+% \changes{2.5d}{97/05/01}{Leeres Klammerpaar nach \cs{dq} f"ur
+% \texttt{\protect\dq\symbol{`\{}\symbol{`\}}} entfernt.}
+% \changes{2.5d}{97/05/01}{Leeres Klammerpaar nach \cs{dq} f"ur
+% \texttt{\protect\dq\symbol{`\{}\symbol{`\}}} wieder eingef"ugt,
+% da es dadurch mehrfach gelesen und geschrieben werden kann.}
+% \begin{macrocode}
+\def@dqmacro{}{\dq{}}{\dq{}}
+% \end{macrocode}
+%
+% Die Definition der Kombinationen, die Umlaute erzeugen, ist
+% entsprechend einfach,
+% \changes{2.5d}{97/04/12}{"Uberbleibsel \cs{@UMLAUT} aus
+% Vor-NFSS2-Zeiten durch \cs{\protect\dq} ersetzt.}
+% \begin{macrocode}
+\def@dqmacro{a}{\"a}{\@MATHUMLAUT a}
+\def@dqmacro{o}{\"o}{\@MATHUMLAUT o}
+\def@dqmacro{u}{\"u}{\@MATHUMLAUT u}
+\def@dqmacro{A}{\"A}{\@MATHUMLAUT A}
+\def@dqmacro{O}{\"O}{\@MATHUMLAUT O}
+\def@dqmacro{U}{\"U}{\@MATHUMLAUT U}
+% \end{macrocode}
+% genauso wie diejenige f"ur den Buchstaben~\ss. Leider verhindert
+% das leere Klammerpaar nach dem Token |\ss| in dieser Definition, die
+% f"ur Plain-\TeX\ notwendig ist, da"s nach dem~\ss\ Ligaturen
+% gebildet werden oder Kerning eingef"ugt werden kann. Dies soll in
+% der n"achsten Version verbessert werden.
+% \changes{2.5d}{97/04/13}{\cs{@SS} in \cs{@MATHss} umbenannt.}
+% \changes{2.5d}{97/04/13}{F"ur \LaTeXe{} werden die leeren
+% Klammerpaare nach \cs{ss} und \cs{@MATHss} entfernt.}
+% \changes{2.5d}{97/04/13}{F"ur \texttt{\symbol{`\"}S} wird
+% \cs{SS} verwendet, das in \LaTeXe{} bereits definiert ist
+% (Hinweis von Jaakob Kind
+% \texttt{j.kind@stochastik.rwth-aachen.de}, August 1996).}
+% \changes{2.5d}{97/05/01}{Expansion von \cs{@MATHss} ist nach
+% Einf"ugung eines \cs{mathord} ok, daher leeres Klammerpaar
+% auch f"ur \LaTeX~2.09 und Plain-\TeX{} entfernt.}
+% \begin{macrocode}
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname DeclareTextSymbol\endcsname\relax
+ \def@dqmacro{s}{\ss{}}{\@MATHss}
+\else
+ \def@dqmacro{s}{\ss}{\@MATHss}
+\fi
+\def@dqmacro{S}{\SS}{\SS}
+\let@dqmacro{z}{s}
+\def@dqmacro{Z}{SZ}{SZ}
+% \end{macrocode}
+% Spezielle Kombinationen f"ur Tremata sind, bis auf die Ausnahme
+% des~"`i"' ohne \mbox{I-Punkt}, ebenso einfach\ldots
+% \begin{macrocode}
+\def@dqmacro{e}{\highumlaut e}{\@MATHUMLAUT e}
+\def@dqmacro{E}{\highumlaut E}{\@MATHUMLAUT E}
+\def@dqmacro{i}{\highumlaut{\i}}{\@MATHUMLAUT\imath}
+\def@dqmacro{I}{\highumlaut I}{\@MATHUMLAUT I}
+% \end{macrocode}
+% \ldots\,wie die Definitionen f"ur die Anf"uhrungszeichen. Die hier
+% eigentlich f"ur Plain-\TeX\ notwendigen leeren Klammerpaare, die
+% Kerning und Ligaturbildung verhindern, konnten entfernt werden,
+% nachdem sichergestellt ist, da"s nach vollst"andiger Expansion der
+% Makros am Ende keine \textit{control sequence} verbleibt.
+% \changes{2.5d}{97/04/13}{F"ur \LaTeXe{} werden die leeren
+% Klammerpaare nach \cs{glqq}, \cs{grqq}, \cs{flqq} und
+% \cs{frqq} entfernt.}
+% \changes{2.5d}{97/05/01}{Leere Klammernpaare ebenso f"ur
+% \LaTeX~2.09 und Plain-\TeX{} entfernen, nachdem daf"ur gesorgt
+% wurde, da"s bei vollst"andiger Expansion am Ende keine cs
+% verbleibt.}
+% \begin{macrocode}
+\def@dqmacro{`}{\glqq}{\glqq}
+\def@dqmacro{'}{\grqq}{\grqq}
+\def@dqmacro{<}{\flqq}{\flqq}
+\def@dqmacro{>}{\frqq}{\frqq}
+% \end{macrocode}
+%
+% Bei den Definitionen der Trennhilfen mu"s nur auf die
+% Einschr"ankungen des Mathematik"-modus geachtet werden.
+% \begin{macrocode}
+\def@dqmacro{-}{\penalty\@M\-\allowhyphens}%
+ {\penalty\@M\-\allowhyphens}
+\def@dqmacro{|}{\penalty\@M\discretionary{-}{}{\kern.03em}%
+ \allowhyphens}{}
+\def@dqmacro{"}{\hskip\z@skip}{\hskip\z@skip}
+% \end{macrocode}
+% \begin{macrocode}
+\def@dqmacro{~}{\leavevmode\hbox{-}}{-}
+\def@dqmacro{=}{\penalty\@M-\hskip\z@skip}%
+ {\penalty\@M-\hskip\z@skip}
+% \end{macrocode}
+%
+% Die restlichen Standard-Doublequote-Befehle werden je nach alter und
+% neuer Rechtschreibung verschieden definiert.
+%
+% Mit "`german"' sollen
+% Dreifachkonsonanten nur im Fall der Silbentrennung erzeugt werden:
+% Um die Definitionen f"ur die Ausnahmen der Silbentrennung zu
+% vereinfachen, wird das Makro |\grmn@dqdisc| verwendet, das die
+% gemeinsamen Code-Teile enth"alt.
+% \begin{macrocode}
+%<*old>
+\def\grmn@dqdisc#1#2{\penalty\@M
+ \ifnum\grmn@dqwarninglevel>\@ne \grmn@dq@warning{#1}\fi
+ \discretionary{#2-}{}{#1}\allowhyphens}
+% \end{macrocode}
+% Auch bei diesen Definitionen mu"s der Mathematikmodus separat
+% gehandhabt werden. Wie man hier bemerken sollte, liest das
+% Double\-quote-Makro nur das n"achste Zeichen und pr"uft nicht nach,
+% ob nach der Kombination~|"c| auch ein~\texttt{k} folgt. Dies
+% ist bis auf die Kombination~|"f| f"ur die meisten Schriften
+% nicht notwendig, da in diesen keine Ligaturen definiert sind.
+% \begin{macrocode}
+\def@dqmacro{c}{\grmn@dqdisc ck}{c}
+\def@dqmacro{C}{\grmn@dqdisc CK}{C}
+% \end{macrocode}
+% \begin{macrocode}
+\def@dqmacro{l}{\grmn@dqdisc l{ll}}{l}
+\def@dqmacro{L}{\grmn@dqdisc L{LL}}{L}
+\def@dqmacro{m}{\grmn@dqdisc m{mm}}{m}
+\def@dqmacro{M}{\grmn@dqdisc M{MM}}{M}
+\def@dqmacro{n}{\grmn@dqdisc n{nn}}{n}
+\def@dqmacro{N}{\grmn@dqdisc N{NN}}{N}
+\def@dqmacro{p}{\grmn@dqdisc p{pp}}{p}
+\def@dqmacro{P}{\grmn@dqdisc P{PP}}{P}
+\def@dqmacro{r}{\grmn@dqdisc r{rr}}{r}
+\def@dqmacro{R}{\grmn@dqdisc R{RR}}{R}
+\def@dqmacro{t}{\grmn@dqdisc t{tt}}{t}
+\def@dqmacro{T}{\grmn@dqdisc T{TT}}{T}
+\def@dqmacro{F}{\grmn@dqdisc F{FF}}{F}
+% \end{macrocode}
+%
+% \changes{2.5c}{96/04/21}{Bei \texttt{{\protect\dq}ff} sollte
+% ff-Ligatur nicht unterdr"uckt werden (Bugfix von Joachim Schrod,
+% ehemals f"ur Version 2.4, jedoch hier mit dem Trick des
+% initialisierten \cs{grmn@dqnextff} erg"anzt).}
+% \changes{2.5d}{97/04/13}{Fehler f"ur \texttt{{\protect\dq}f}, falls
+% danach kein weiteres~f folgt, beseitigt (Hinweis von Carsten
+% J"ager \texttt{jaeger@Physiology.RWTH-Aachen.DE}, M"arz 1997).}
+%
+% In den meisten Schriften ist f"ur \texttt{ff} eine Ligatur
+% definiert, die auch in Wortfugen bei Ausfall des
+% dritten~\glq f\grq{} verwendet werden sollte. Die hier verwendeten
+% Makros sind zerbrechlich (\emph{fragile}, jedoch mit einer nicht
+% ganz sauberen Abhilfe, siehe unten), was aber nur in
+% nicht-\LaTeX-basierten Formaten zu Problemen f"uhren wird. F"ur
+% diese Formate mu"s |\protect| in Primitiven wie |\edef|, |\write|,
+% |\mark|, etc.\ entsprechend definiert werden!
+% \begin{macrocode}
+\def@dqmacro{f}{\grmn@dqdiscff}{f}
+\def\grmn@dqdiscff{\penalty\@M
+ \ifnum\grmn@dqwarninglevel>\@ne \grmn@dq@warning f\fi
+ \afterassignment\grmn@dqinsertff \let\grmn@dqnextff= }
+\def\grmn@dqinsertff{%
+ \if f\grmn@dqnextff
+ \expandafter\grmn@dqfirst\else\expandafter\grmn@dqsecond\fi
+ {\relax\discretionary{ff-}{f}{ff}\allowhyphens}{f\grmn@dqnextff}}
+% \end{macrocode}
+%
+% F"ur die zuvor schon erw"ahnten F"alle, in denen |\protect| nicht
+% entsprechend definiert wird, initialisieren wir |\grmn@dqnextff| auf
+% den typischen Wert~\glq f\grq. Da die Makros f"ur die ff-Ligatur
+% entsprechend definiert sind, vermeiden wir, wenn auch etwas
+% kryptisch, in den Nur-Expansions"-f"allen eine Fehlermeldung und
+% erhalten meist auch eine ff-Ligatur. Dazu haben wir au"serdem noch
+% im Makro |\grmn@dqinsertff| ein |\relax| f"ur |\afterassignment| in
+% den nur-expandierten Makrotext vor das |\discretionary| eingef"ugt.
+% \begin{macrocode}
+\let\grmn@dqnextff=f
+%</old>
+% \end{macrocode}
+%
+% Mit "`ngerman"' sollen die Makros dasjenige Ergebnis erzugen,
+% das offenbar gemeint ist, aber es soll gleichzeitig eine Warnung ins
+% Protokoll geschrieben werden:
+% \changes{2.5e (beta 1)}{98/05/04}{Die Befehle f"ur Dreifachkonsonanten
+% werden in "`ngerman"' sinnvoll definiert.}
+% \begin{macrocode}
+%<*new>
+\def@dqmacro{c}{\grmn@dqobsolete@ck ck}{c}
+\def@dqmacro{C}{\grmn@dqobsolete@ck CK}{C}
+\def@dqmacro{l}{\grmn@dqobsolete@three l}{l}
+\def@dqmacro{L}{\grmn@dqobsolete@three L}{L}
+\def@dqmacro{m}{\grmn@dqobsolete@three m}{m}
+\def@dqmacro{M}{\grmn@dqobsolete@three M}{M}
+\def@dqmacro{n}{\grmn@dqobsolete@three n}{n}
+\def@dqmacro{N}{\grmn@dqobsolete@three N}{N}
+\def@dqmacro{p}{\grmn@dqobsolete@three p}{p}
+\def@dqmacro{P}{\grmn@dqobsolete@three P}{P}
+\def@dqmacro{r}{\grmn@dqobsolete@three r}{r}
+\def@dqmacro{R}{\grmn@dqobsolete@three R}{R}
+\def@dqmacro{t}{\grmn@dqobsolete@three t}{t}
+\def@dqmacro{T}{\grmn@dqobsolete@three T}{T}
+\def@dqmacro{F}{\grmn@dqobsolete@three F}{F}
+\def@dqmacro{f}{\grmn@dqobsolete@three f}{f}
+%</new>
+% \end{macrocode}
+%
+%
+% \subsection{Definition der Double\-quote-Befehle (cont.)}
+%
+% Wie schon bei der vorl"aufigen Definition des Makros
+% |\grmn@dqredefcheck| er"-w"ahnt, sollten alle weiteren
+% Definitionen von Double\-quote-Befehlen zumindest in der
+% Protokolldatei erscheinen. Dann k"onnen von Benutzer gemeldete
+% Fehler, wenn auch die Protokolldatei mitgeschickt wird, schneller
+% eingegrenzt werden. Deshalb wird dieses Makro hier so definiert,
+% da"s es bei jeder Verwendung von |\def@dqmacro| und |\let@dqmacro|
+% eine Zeile in die Protokolldatei schreibt -- mit Informationen,
+% welche Kombination definiert wird und ob eine alte Definition
+% "uber"-schrieben wird.
+% \changes{2.5d}{97/05/01}{\cs{immediate}\cs{write}\cs{m@ne} durch
+% \cs{wlog} ersetzt.}
+% \begin{macrocode}
+\def\grmn@dqredefcheck#1{%
+%<old> \wlog{german: \grmn@dq@macro\ifx{#1}\relax \else re\fi
+%<new> \wlog{ngerman: \grmn@dq@macro\ifx{#1}\relax \else re\fi
+ defining dq-command for `\string#1'\on@line.}}%
+% \end{macrocode}
+%
+%
+% \section{Unterst"utzung f"ur Dokumente in verschiedenen Sprachen}
+%
+% Die Style-Option "`german"' unterst"utzt die Einbindung von
+% Textteilen in deutscher Sprache in Dokumente, die auch in englisch
+% oder franz"osisch geschrieben sind. Die folgenden Befehle sind
+% dagegen nur bedingt f"ur "`mehrsprachige"' Texte geeignet, in denen
+% zwei oder mehr Sprachen gleichrangig gesetzt werden.
+%
+%
+% \subsection{Datumsangaben}
+% \begin{macrocode}
+%<old>\def\month@german{\ifcase\month \or
+%<new>\def\month@ngerman{\ifcase\month \or
+ Januar\or Februar\or M\"arz\or April\or Mai\or Juni\or
+ Juli\or August\or September\or Oktober\or November\or Dezember\fi}
+%<old>\def\dategerman{\def\today{\number\day.~\month@german
+%<new>\def\datengerman{\def\today{\number\day.~\month@ngerman
+ \space\number\year}}
+%<old>\def\dateaustrian{\def\today{\number\day.~\ifnum 1=\month
+%<new>\def\datenaustrian{\def\today{\number\day.~\ifnum 1=\month
+%<old> J\"anner\else \month@german\fi \space\number\year}}
+%<new> J\"anner\else \month@ngerman\fi \space\number\year}}
+% \end{macrocode}
+% \begin{macrocode}
+\def\month@english{\ifcase\month \or
+ January\or February\or March\or April\or May\or June\or
+ July\or August\or September\or October\or November\or December\fi}
+\def\dateUSenglish{\def\today{\month@english
+ \space\number\day, \number\year}}
+\def\dateenglish{\def\today{\number\day \ifcase\day \or
+ st\or nd\or rd\or th\or th\or th\or th\or th\or th\or th\or% 1..10
+ th\or th\or th\or th\or th\or th\or th\or th\or th\or th\or% 11..20
+ st\or nd\or rd\or th\or th\or th\or th\or th\or th\or th\or% 21..30
+ st\fi
+ ~\month@english \space\number\year}}
+% \end{macrocode}
+% \begin{macrocode}
+\def\datefrench{\def\today{\number\day \ifnum1=\day \/$^{\rm er}$\fi
+ \space\ifcase\month \or
+ janvier\or f\'evrier\or mars\or avril\or mai\or juin\or
+ juillet\or ao\^ut\or septembre\or
+ octobre\or novembre\or d\'ecembre\fi
+ \space\number\year}}
+% \end{macrocode}
+%
+% \subsection{Textteile in "Uberschriften, etc.}
+%
+% Ab der \LaTeX~2.09-Release vom Dezember~1991 sind alle konstanten
+% Textteile in den Standard-Styles und Style-Optionen durch Makros
+% |\...name| ersetzt, so da"s man mit einigen Einschr"ankungen
+% durch Redefinition dieser Makros eine Sprachanpassung erreichen
+% kann. Will man diese Anpassung auch bei eigenen Styles und
+% Style-Optionen erreichen, so sollte man die entsprechenden
+% Textteile durch die entsprechenden Makros ersetzen, wobei man
+% eine Default-Definition dieser Makros mitliefern sollte.
+%
+% Als Beispiel mu"s die Definition
+%\begin{verbatim}
+%\def\tableofcontents{\section*{Contents%
+% \@mkboth{CONTENTS}{CONTENTS}}%
+% \@starttoc{toc}}
+%\end{verbatim}
+% die in den alten \LaTeX-Releases vor Dezember~1991 in
+% \texttt{article.sty} zu finden ist, durch
+%\begin{verbatim}
+%\def\contentsname{Contents}
+%\def\tableofcontents{\section*{\contentsname
+% \@mkboth{\uppercase{\contentsname}}%
+% {\uppercase{\contentsname}}}%
+% \@starttoc{toc}}
+%\end{verbatim}
+% ersetzt werden, um die englische "Uberschrift "`Contents"' f"ur
+% das Inhaltsverzeichnis entsprechend anpassen zu k"onnen.
+%
+% F"ur die Standard-Klassen und Pakete von \LaTeXe\ wurde dies von
+% Anfang an gemacht, so da"s hier keine "Anderungen notwendig sind.
+%
+% Die folgenden Makros |\captions|\meta{Sprache} definieren alle in
+% den \LaTeX-Standard-Klassen und \mbox{-Paketen} verwendeten
+% Textteile.
+% \begin{macrocode}
+%<old>\def\captionsgerman{%
+%<new>\def\captionsngerman{%
+ \def\prefacename{Vorwort}%
+ \def\refname{Literatur}%
+ \def\abstractname{Zusammenfassung}%
+ \def\bibname{Literaturverzeichnis}%
+ \def\chaptername{Kapitel}%
+ \def\appendixname{Anhang}%
+ \def\contentsname{Inhaltsverzeichnis}% % oder nur: Inhalt
+ \def\listfigurename{Abbildungsverzeichnis}%
+ \def\listtablename{Tabellenverzeichnis}%
+ \def\indexname{Index}%
+ \def\figurename{Abbildung}%
+ \def\tablename{Tabelle}% % oder: Tafel
+ \def\partname{Teil}%
+ \def\enclname{Anlage(n)}% % oder: Beilage(n)
+ \def\ccname{Verteiler}% % oder: Kopien an
+ \def\headtoname{An}%
+ \def\pagename{Seite}%
+ \def\seename{siehe}%
+ \def\alsoname{siehe auch}}
+%<old>\let\captionsaustrian=\captionsgerman
+%<new>\let\captionsnaustrian=\captionsngerman
+% \end{macrocode}
+% \begin{macrocode}
+\def\captionsenglish{%
+ \def\prefacename{Preface}%
+ \def\refname{References}%
+ \def\abstractname{Abstract}%
+ \def\bibname{Bibliography}%
+ \def\chaptername{Chapter}%
+ \def\appendixname{Appendix}%
+ \def\contentsname{Contents}%
+ \def\listfigurename{List of Figures}%
+ \def\listtablename{List of Tables}%
+ \def\indexname{Index}%
+ \def\figurename{Figure}%
+ \def\tablename{Table}%
+ \def\partname{Part}%
+ \def\enclname{encl}%
+ \def\ccname{cc}%
+ \def\headtoname{To}%
+ \def\pagename{Page}%
+ \def\seename{see}%
+ \def\alsoname{see also}}
+\let\captionsUSenglish=\captionsenglish
+% \end{macrocode}
+% \begin{macrocode}
+\def\captionsfrench{%
+ \def\prefacename{Pr\'eface}%
+ \def\refname{R\'ef\'erences}%
+ \def\abstractname{R\'esum\'e}%
+ \def\bibname{Bibliographie}%
+ \def\chaptername{Chapitre}%
+ \def\appendixname{Annexe}%
+ \def\contentsname{Table des mati\`eres}%
+ \def\listfigurename{Liste des figures}%
+ \def\listtablename{Liste des tableaux}%
+ \def\indexname{Index}%
+ \def\figurename{Figure}%
+ \def\tablename{Tableau}%
+ \def\partname{Partie}%
+ \def\enclname{P.~J.}%
+ \def\ccname{Copie \`a}%
+ \def\headtoname{A}%
+ \def\pagename{Page}%
+ \def\seename{voir}%
+ \def\alsoname{voir aussi}}%
+% \end{macrocode}
+%
+% \subsection{Weitere sprachabh"angige Parameter}
+%
+% Die Sprache eines Dokuments bestimmt neben den Datumsangaben und
+% den Textteilen in "Uberschriften auch noch weitere Parameter, wie
+% z.\,B.\ ob nach einem Satzzeichen, wie Punkten und Kommas, ein
+% gr"o"serer Wortzwischenraum eingef"ugt werden soll. Au"serdem
+% sollten auch die den Trennmustern zugeordneten Parameter
+% \texttt{\string\left\-hyphen\-min} und
+% \texttt{\string\right\-hyphen\-min} auf entsprechende Werte gesetzt
+% werden.
+%
+% Nach der neuen Rechtschreibung w"are |\lefthyphenmin=1| zul"assig.
+% Dies wird allerdings von den Trennmustern \texttt{gnhyph01.tex}
+% nicht unterst"utzt.
+%
+% \changes{2.5c}{96/04/28}{\cs{(no)extras(US)english} als
+% expandierbare Makros statt als \cs{relax} definiert, damit
+% k"onnen diese Makros einfacher erg"anzt werden.}
+% \begin{macrocode}
+\def\extrasUSenglish{}
+\let\noextrasUSenglish=\extrasUSenglish
+\let\extrasenglish=\extrasUSenglish
+\let\noextrasenglish=\extrasenglish
+% \end{macrocode}
+% \changes{2.5c}{96/02/26}{Explizite Zuweisung an \cs{uchyph}
+% hinzugef"ugt (found by R. Wonneberger, David M. Jones,
+% 93/02/11).}
+% \begin{macrocode}
+%<old>\def\extrasgerman{\frenchspacing \uchyph\@ne
+%<new>\def\extrasngerman{\frenchspacing \uchyph\@ne
+ \lefthyphenmin\tw@ \righthyphenmin\tw@}
+%<old>\def\noextrasgerman{%
+%<new>\def\noextrasngerman{%
+ \ifnum\sfcode`\.=\@m \else \noexpand\nonfrenchspacing \fi
+ \uchyph\the\uchyph\relax
+ \lefthyphenmin\the\lefthyphenmin
+ \righthyphenmin\the\righthyphenmin}
+%<old>\let\extrasaustrian=\extrasgerman
+%<new>\let\extrasnaustrian=\extrasngerman
+%<old>\let\noextrasaustrian=\noextrasgerman
+%<new>\let\noextrasnaustrian=\noextrasngerman
+% \end{macrocode}
+% \begin{macrocode}
+\def\extrasfrench{\frenchspacing}
+\def\noextrasfrench{%
+ \ifnum\sfcode`\.=\@m \else \noexpand\nonfrenchspacing \fi}
+% \end{macrocode}
+%
+%
+% \subsection{Default-Werte f"ur Trennmusterwerte deklarieren}
+%
+% Jeder Sprache und deren zugeordnetem Satz von Trennmustern sollte
+% eine Nummer f"ur den \TeX-Parameter |\language| beim Erzeugen
+% der Formatdatei zugewiesen worden sein. Diese Nummer ist f"ur
+% jede Sprache in der \textit{control sequence}
+% |\l@|\(\langle\)Sprache\(\rangle\) abgespeichert.
+%
+% Die Style-Option "`german"' verwendet die Sprachen
+% \texttt{USenglish}, \texttt{english}, \texttt{german},
+% \texttt{austrian} und \texttt{french}. Sind f"ur diese Sprachen
+% keine Nummern abgespeichert worden, werden diese hier als Dialekt
+% einer schon definierten Sprache oder als~\(255\) definiert, so da"s
+% nicht getrennt wird.
+%
+% Ist f"ur \texttt{german} bzw.\ dessen "`Dialekt"' \texttt{austrian}
+% kein Wert definiert, wird eine entsprechende Meldung auf dem
+% Benutzerterminal ausgegeben. F"ur die anderen Sprache erscheint
+% diese Meldung nur in der Protokolldatei.
+%
+% "`german"' und "`ngerman"' unterscheiden sich
+% durch die Bezeichner f"ur die jeweils unterst"utzten die Sprachen:
+% F"ur die neue Rechtschreibung
+% werden \texttt{ngerman} und \texttt{naustrian} an Stelle von
+% \texttt{german} und \texttt{austrian} verwendet.
+%
+%
+% \begin{macrocode}
+\@ifundefined{l@USenglish}{%
+ \@ifundefined{l@english}{\chardef\l@USenglish=255 }%
+ {\chardef\l@USenglish=\l@english}%
+%<old> \wlog{german -- \string\language\space number for USenglish %
+%<new> \wlog{ngerman -- \string\language\space number for USenglish %
+ undefined, default \number\l@USenglish\space used.}%
+}{}
+% \end{macrocode}
+% \begin{macrocode}
+\@ifundefined{l@english}{%
+ \chardef\l@english=\l@USenglish
+%<old> \wlog{german -- \string\language\space number for UKenglish %
+%<new> \wlog{ngerman -- \string\language\space number for UKenglish %
+ undefined, default \number\l@english\space used.}%
+}{}
+% \end{macrocode}
+% \begin{macrocode}
+%<*old>
+\@ifundefined{l@german}{%
+ \@ifundefined{l@austrian}{%
+ \chardef\l@german=255 %
+ \message{german -- \string\language\space number for German %
+ undefined, default \number\l@german\space used,}%
+ \message{german -- Please read \string"gerdoc.tex\string" how %
+ to install hyphenation patterns.}%
+ }{%
+ \chardef\l@german=\l@austrian
+ \wlog{german -- \string\language\space number for German %
+ undefined, default \number\l@german\space used.}%
+ }%
+}{}
+%</old>
+%<*new>
+\@ifundefined{l@ngerman}{%
+ \@ifundefined{l@naustrian}{%
+ \chardef\l@ngerman=255 %
+ \message{ngerman -- \string\language\space number for ngerman %
+ undefined, default \number\l@ngerman\space used,}%
+ \message{ngerman -- Please read \string"gerdoc.tex\string" how %
+ to install hyphenation patterns.}%
+ }{%
+ \chardef\l@ngerman=\l@naustrian
+ \wlog{ngerman -- \string\language\space number for ngerman %
+ undefined, default \number\l@ngerman\space used.}%
+ }%
+}{}
+%</new>
+% \end{macrocode}
+% \begin{macrocode}
+%<*old>
+\@ifundefined{l@austrian}{%
+ \chardef\l@austrian=\l@german
+ \wlog{german -- \string\language\space number for Austrian %
+ undefined, default \number\l@austrian\space used.}%
+}{}
+%</old>
+%<*new>
+\@ifundefined{l@naustrian}{%
+ \chardef\l@naustrian=\l@ngerman
+ \wlog{ngerman -- \string\language\space number for naustrian %
+ undefined, default \number\l@naustrian\space used.}%
+}{}
+%</new>
+% \end{macrocode}
+% \begin{macrocode}
+\@ifundefined{l@french}{%
+ \chardef\l@french=255
+%<old> \wlog{german -- \string\language\space number for French %
+%<new> \wlog{ngerman -- \string\language\space number for French %
+ undefined, default \number\l@french\space used.}%
+}{}
+% \end{macrocode}
+%
+%
+% \subsection{Wechsel der Trennmuster, Datumsangabe und
+% "Uberschriften}
+%
+% Ein Wechsel der Sprache mit |\selectlanguage{|\meta{Sprache}|}|
+% schaltet einfach die Datumsangabe, Textteile, Trennmuster und
+% andere Parameter f"ur die angegebene \meta{Sprache} um.
+%
+% F"ur die n"achste Version ist endlich eine Anpassung an das
+% Babel-System geplant. Au"serdem fehlen momentan noch
+% Standard-Makros, um die aktuelle Sprache abzufragen und abh"angig
+% von dieser entsprechend reagieren zu k"onnen.
+%
+% Das Makro |\originalTeX| enth"alt alle Anweisungen, um die
+% Parameter"-anpassungen r"uck"-g"angig machen zu k"onnen, die man
+% beim Umschalten auf die momentane Sprache ge"-"andert hat. Dieses
+% Makro mu"s immer expandierbar sein; darf also nicht als |\relax|
+% definiert werden. Zu Beginn sind keine Anweisungen notwendig.
+% (Anmerkung: Wegen Problemen mit dem Paket \texttt{bibgerm}, das
+% einige der internen Makros von "`german"' umdefiniert, wurde der
+% Name des Makros ge"andert -- dies sollte in einer endg"ultigen
+% L"osung wieder verbessert werden, um beispielsweise kompatibel zu
+% Babel zu werden.)
+% \changes{2.5c}{96/02/26}{\cs{grmn@originalTeX} mu"s
+% \cs{original@TeX} hei"sen, damit einige andere Pakete, wie
+% `bibgerm' kompatibel bleiben. `bibgerm' sollte endlich verbessert
+% und "`sauberer"' programmiert werden (die zus"atzlichen Strings
+% kann man auch in die Makros \cs{extras\ldots} einf"ugen).}
+% \changes{2.5c}{96/04/21}{\cs{original@TeX} hei"st in Babel
+% \cs{originalTeX}, das in `german.sty' eine andere Bedeutung
+% hat (TODO).
+% Da ich in \cs{selectlanguage} den Leerzeichen-Trick verwende
+% (um `bibgerman' zu "`hintergehen"'), hei"st \cs{original@TeX}
+% bis zur endg"ultigen L"osung wieder \cs{grmn@originalTeX}.}
+% \begin{macrocode}
+\def\grmn@originalTeX{}
+% \end{macrocode}
+%
+% \changes{2.5c}{96/04/21}{\cs{languagename} neu mit Babels
+% Funktionalit"at eingef"uhrt, Hinweis auf m"ogliche other-Tokens.}
+%
+% Das Makro |\languagename| enth"alt den Namen der momentan
+% eingeschalteten Sprache. Der Name ist eine Folge von
+% Character-Tokens, die entweder einen |\catcode| von 11 (letter) oder
+% 12 (other) besitzen k"onnen. Die Ursache f"ur Other-Tokens ist das
+% Primitiv |\string|, das in |\selectlanguage| verwendet wird, um aus
+% einer als Argument angegebenen \textit{control sequence} das
+% Escape-Zeichen abzuspalten. (Die Dokumentation von Babel~3.5 gibt
+% einen Test der aktuellen Sprache mit |\languagename| an, der wegen
+% der Other-Tokens nicht immer funktionieren wird!)
+%
+% \begin{macrocode}
+\def\languagename{}
+% \end{macrocode}
+%
+% Mit dem Makro |\selectlanguage| wird auf die Sprache umgeschaltet.
+% Dabei werden, nachdem abgefragt wurde, ob die Sprache definiert
+% wurde, zuerst mit |\originalTeX| alle "Anderungen r"uck"-g"angig
+% gemacht, bevor das Datum, die "Uberschriften, sonstige Parameter
+% und die Trennmuster umgeschalten werden.
+% (Anmerkung: |\originalTeX| hei"st im Moment noch
+% |\grmn@originalTeX|, dies mu"s aber noch in der n"achsten Version
+% ge"andert werden, um kompatibler zu Babel zu sein.)
+%
+% \changes{2.5c}{96/04/21}{Der Trick aus \LaTeXe{} mit dem
+% abschlie"senden Leerzeichen im Namen des zu sch"utzenden Makros
+% wird auch f"ur \cs{selectlanguage } verwendet. Da damit die
+% Neudefinition im Paket `bibgerm' wirkungslos wird, verwende ich
+% hier einen tempor"aren Patch (in Form des \cs{bibs\ldots}) f"ur
+% dieses Paket. Besser w"are es aber, wenn `bibgerm' die
+% zus"atzlichen Definitionen an \cs{extras\ldots} anh"angen w"urde.}
+% \begin{macrocode}
+\expandafter\def\csname selectlanguage \endcsname#1{\relax
+ \expandafter\ifx\csname l@#1\endcsname\relax
+ \errhelp{Your command will be ignored, type <return> to proceed}%
+ \errmessage{You haven't defined the language #1 yet}%
+ \else
+ \grmn@originalTeX
+ \edef\languagename{#1}%
+ \edef\grmn@originalTeX{\csname noextras#1\endcsname
+ \def\noexpand\grmn@originalTeX{}}%
+ \csname date#1\endcsname
+ \csname captions#1\endcsname
+ \csname extras#1\endcsname\relax
+ % Diese Zeile ist fuer `bibgerm' ...
+ \csname bibs#1\endcsname
+ % ... sie wird in spaeteren `german.sty'-Versionen nicht
+ % mehr vorhanden sein. Also nicht darauf verlassen!
+ \language \csname l@#1\endcsname\relax
+ \fi}
+% \end{macrocode}
+%
+% Das Makro |\selectlanguage| ist \emph{fragile}. Deshalb wird es
+% implizit mit einem |\protect| gesch"utzt. Da dadurch so oder so
+% zwei Makros notwendig sind, k"onnen wir in dieses zweite Makro
+% gleich noch weitere Funktionalit"at stecken (die aber vollst"andig
+% expandierbar sein mu"s!):
+% In "alteren Versionen dieser Style-Option mu"ste man die Sprache als
+% \textit{control sequence}, z.\,B.\ |\german|, eingeben, w"ahrend man
+% in den aktuellen Versionen nur noch den Namen, also |german|,
+% verwenden sollte. Damit beides aus Kompatibilit"ats"-gr"unden
+% m"oglich ist, wird hier einfach die \textit{control sequence}
+% umgewandelt und das Escape-Zeichen, normalerweise ein Back\-slash,
+% mit einem kleinen Kniff entfernt.
+% \changes{2.5c}{96/04/21}{Der Trick aus \LaTeXe{} mit dem
+% abschlie"senden Leerzeichen im Namen des zu sch"utzenden Makros
+% wird auch f"ur \cs{selectlanguage} verwendet.}
+% \begin{macrocode}
+\begingroup\catcode`\ =11\relax% <= do not delete this and the
+\toks0={\endgroup% <=== following percent characters!
+\def\selectlanguage#1{\protect\selectlanguage {%
+\ifnum\escapechar=\expandafter`\string#1\empty%
+\else\string#1\empty\fi}}}%
+\the\toks0\relax%
+% \end{macrocode}
+%
+%
+% In "alteren \texttt{.aux}-Dateien kann immer noch die alte interne
+% Form \cs{p@select\-language} auftauchen. Daher wird diese hier
+% nochmals definiert, um diese eigentlich unn"otigen Fehlermeldungen
+% zu vermeiden. Au"serdem fr"agt \texttt{bibgerm.sty} die Existenz
+% dieses Makros ab und, falls es nicht existiert, definiert
+% \texttt{bibgerm.sty} ein eigenes Makro \cs{select\-language} mit der
+% alten Definition aus \texttt{german.sty} Version~2.3. Dies mu"s
+% auf alle F"alle vermieden werden!
+%
+% \changes{2.5c}{96/04/23}{\cs{p@selectlanguage} aus Kompatibilit"at
+% mit v2.5b und noch "alteren Versionen wieder eingef"uhrt.}
+%
+% \begin{macrocode}
+\def\p@selectlanguage{\selectlanguage}
+% \end{macrocode}
+%
+%
+% \changes{2.5c}{96/04/21}{\cs{iflanguage} neu eingef"uhrt.}
+% \changes{2.5e (beta 1)}{98/05/04}{\cs{iflanguage} ge"andert.}
+%
+% Das Makro |\iflanguage| kann dazu benutzt werden, abh"angig von
+% der aktuellen Sprache Aktionen auszuf"uhren. Das Makro hat drei
+% Argumente. Das erste Argument ist die Sprache in Form einer
+% Folge von Character-Tokens, das zweite und dritte Argument enth"alt
+% die Aktionen, falls dies die aktuelle Sprache ist bzw.\ falls nicht.
+%
+% Mit dem folgenden |\iflanguage| kann man in den "`then"'- und
+% "`else"'"~Argumenten auch Makros verwenden, deren Parameter
+% hinter dem |\iflanguage|-Befehl folgen. Diese Implementation,
+% abgeschaut von |\@ifundefined|, erm"oglicht
+% Konstrukte wie |Sto\iflanguage{german}{"}{f}ffetzen|.
+%
+% |\iflanguage| kann sich in sp"ateren Version noch geringf"ugig
+% "andern, falls dies im Babel-Paket geschehen sollte.
+%
+% \begin{macrocode}
+\def\iflanguage#1{%
+ \ifx\csname l@#1\endcsname\relax
+ \expandafter\grmn@dqsecond
+ \else \ifnum\csname l@#1\endcsname=\language
+ \expandafter\expandafter\expandafter\grmn@dqfirst
+ \else
+ \expandafter\expandafter\expandafter\grmn@dqsecond
+ \fi\fi
+}
+% \end{macrocode}
+%
+%
+% \subsection{Kompatibilit"at mit \protect\TeX~2}
+%
+% In \TeX\ Version 2.x konnte man Trennmuster f"ur nur eine einzige
+% Sprache in einer Format"-datei laden und verwenden. Deshalb fehlen
+% in dieser alten \TeX-Version, die von einigen, wenn auch wenigen
+% Personen immer noch verwendet wird/werden mu"s, die Parameter
+% |\language|, \texttt{\string\left\-hyphen\-min},
+% \texttt{\string\right\-hyphen\-min} und das Primitiv
+% \texttt{\string\set\-language}. Um diese Style-Option mit dieser
+% alten Version verwenden zu k"onnen, werden diese f"ur \TeX\
+% Version~2 einfach ohne Funktionalit"at nachimplementiert.
+%
+% Die Parameter sind einfache Z"ahler, die mit |\newcount| allokiert
+% werden k"onnen und mit sinnvollen, wenn auch nie von \TeX\ selbst
+% verwendete Werten initialisiert werden. Da |\newcount| in
+% Plain-\TeX\ als "`outer"' deklariert ist, mu"s hier der Trick mit
+% |\csname| verwendet werden.
+% \begin{macrocode}
+\expandafter\ifx\csname language\endcsname\relax
+ \csname newcount\endcsname\language
+ \language=0 \fi
+\expandafter\ifx\csname lefthyphenmin\endcsname\relax
+ \csname newcount\endcsname\lefthyphenmin
+ \lefthyphenmin=2 \fi
+\expandafter\ifx\csname righthyphenmin\endcsname\relax
+ \csname newcount\endcsname\righthyphenmin
+ \righthyphenmin=3 \fi
+% \end{macrocode}
+%
+% F"ur das in \TeX~3 neu hinzugekommene Primitiv
+% \texttt{\string\set\-language} k"onnte man eine relativ einfache
+% Definition verwenden. Da jedoch Makros die Existenz dieses Befehls
+% abpr"ufen und es dann mit der Bedeutung, die es in \TeX~3 besitzt,
+% verwenden k"onnten, sollte es das Verhalten, insbesondere dessen
+% Einschr"ankungen, dieses neuen Primitivs nachbilden.
+% Da |\setlanguage| in "alteren Versionen dieser Style-Option zu
+% Wechseln der Sprache verwendet wurde, kann man gleich in der
+% Fehlermeldung auf das neue Makro |\selectlanguage| hinweisen.
+% \begin{macrocode}
+\expandafter\ifx\csname setlanguage\endcsname\relax
+ \def\setlanguage{\relax
+ \ifhmode \else
+ \errhelp{Use \selectlanguage to switch languages.}%
+ \errmessage{\setlanguage allowed only in horizontal mode}%
+ \fi
+ \begingroup\afterassignment\endgroup\count@=}
+\fi
+% \end{macrocode}
+%
+% \subsection{Ein-/Ausschalten der deutschen Befehle}
+% \changes{2.5e (beta 3)}{98/05/28}{In {\tt ngerman.sty} wird nun
+% \cs{ngermanTeX} definiert.}
+%
+% \begin{macrocode}
+\begingroup \mdqon
+\def\x{\endgroup
+ \def\originalTeX{\mdqoff \let"\dq \umlauthigh
+ \let\3\grmn@original@three
+ \selectlanguage{USenglish}}%
+%<old> \def\germanTeX{\mdqon \let"\@active@dq \umlautlow
+%<new> \def\ngermanTeX{\mdqon \let"\@active@dq \umlautlow
+ \let\grmn@original@three\3\let\3\ss
+%<old> \selectlanguage{german}}}%
+%<new> \selectlanguage{ngerman}}}%
+\x
+% \end{macrocode}
+%
+% Zum Schlu"s bleibt nur noch das R"ucksetzen des \textit{category
+% codes} des Zeichens~\texttt{@} und das Einschalten der deutschen
+% Befehle, das gleichzeitig die deutschen Trennmuster aktiviert,
+% falls sie geladen wurden.
+% \begin{macrocode}
+\catcode`\@=\atcode % return to previous catcode
+%<old>\germanTeX
+%<new>\ngermanTeX
+% \end{macrocode}
+%
+%\iffalse
+%</!driver>
+%</!hyphcfg>
+%\fi
+%
+% \section{Beispieldatei \texttt{hyphen.cfg} zum Laden der
+% Trennmuster}
+%
+% In \texttt{gerdoc.tex}, der Dokumentation zum German-Style, sind
+% die Schritte zur Installation der Trennmuster genauer erl"autert.
+% Zur Vereinfachung f"ur den Benutzer wird die Beispieldatei
+% \texttt{hyphxmpl.cfg} zur Verf"ugung gestellt, die entweder direkt
+% oder mit wenigen "Anderungen als Datei \texttt{hyphen.cfg}
+% f"ur \LaTeXe{} verwendet werden kann.
+%
+% \begin{macrocode}
+%<+hyphcfg>%% ----------------------------------------------
+%<+hyphcfg>%% Beispielkonfigurationsdatei fuer: `hyphen.cfg'
+%<+hyphcfg>%% Naeheres siehe Dokumentation `gerdoc.tex'.
+%<+hyphcfg>%% Copyleft 1995-1998 by Bernd Raichle.
+%<+hyphcfg>
+%<+hyphcfg>%% Konfigurationsdatei -- Trennmuster: `hyphen.cfg'
+%<+hyphcfg>\message{== Loading hyphenation patterns:}
+%<+hyphcfg>
+%<+hyphcfg>%% american english
+%<+hyphcfg>\chardef\l@USenglish=\language
+%<+hyphcfg>%% british english als "Dialekt"
+%<+hyphcfg>\chardef\l@english=\l@USenglish
+%<+hyphcfg>\input hyphen
+%<+hyphcfg>
+%<+hyphcfg>%% german
+%<+hyphcfg>\newlanguage\l@german \language=\l@german
+%<+hyphcfg>%% oesterreichisch als "Dialekt"
+%<+hyphcfg>\chardef\l@austrian=\l@german
+%<+hyphcfg>\input ghyph31
+%<+hyphcfg>
+%<+hyphcfg>%% new german
+%<+hyphcfg>\newlanguage\l@ngerman \language=\l@ngerman
+%<+hyphcfg>%% oesterreichisch (neu) als "Dialekt"
+%<+hyphcfg>\chardef\l@naustrian=\l@ngerman
+%<+hyphcfg>\input gnhyph01
+%<+hyphcfg>
+%<+hyphcfg>%% weitere Sprachen nach folgendem Schema:
+%<+hyphcfg>% \newlanguage\l@SPRACHE \language=\l@SPRACHE
+%<+hyphcfg>% \chardef\l@DIALEKT=\l@SPRACHE
+%<+hyphcfg>% \input SPRACHhyphen
+%<+hyphcfg>
+%<+hyphcfg>%% Default-Trennmuster: USenglish
+%<+hyphcfg>\language=\l@USenglish \lefthyphenmin=2 \righthyphenmin=3
+%<+hyphcfg>\message{done.}
+% \end{macrocode}
+%
+% Ich hoffe, das Lesen dieses dokumentierten Quellcodes hat einige
+% Einblicke in die Implementierung der Style-Option "`german"'
+% gegeben. Da ich sie haupt"-s"achlich als eigene Ged"achtnisst"utze
+% geschrieben habe, kaum Korrekturen vorgenommen habe, ist sie
+% unvoll"-st"andig, ent"-h"alt viele \mbox{Tipp-}, Ausdrucks- und
+% sonstige Fehler. Man m"oge "uber diese hinwegsehen oder mir
+% entsprechende Korrekturen zukommen lassen. Wichtiger ist mir
+% jedoch, da"s der Makro-Code m"oglichst wenig Fehler enth"alt, soda"s
+% jede Meldung eines Fehlers und jeder Verbesserungsvorschlag immer
+% willkommen ist. Daf"ur schon jetzt meinen Dank!
+% \pagebreak
+%
+% \Finale
+\endinput
+%% End of german.dtx