% \iffalse meta-comment
%<*!driver>
%<*!hyphcfg>
%    \begin{macrocode}
 %%
 %% This is GERMAN.DTX/GERMAN.STY, Version 2.5c, 1. Mai 1996
 %%
 %% Copyright (C) 1987-1990 by H.Partl
 %% Copyright (C) 1991-1996 by B.Raichle and DANTE e.V.
 %%                         All rights reserved.
 %%
 %% Please read the documentation file `germdoc.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.x 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 file which contain the macro code or
% code to produce the implementation documentation of the `german'
% package.
%
% --------------- start of docstrip archive file ------------------
%
% \fi
% \CheckSum{1861}
%
% \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{Style-Option "`german"' f"ur plain-\TeX, \LaTeX~2.09,
%        \LaTeXe\ und anderen auf diesen basierenden Formate}
% \date{1. Mai 1996}
% \author{Bernd Raichle \\
%         Koordinator "`german.sty"' \\
%         DANTE, Deutschsprachige Anwendervereinigung
%         \TeX\ e.V\negthinspace. \\
%         E-mail: \texttt{dante@dante.de}}
% \maketitle
%
% Dieses Dokument beschreibt Interna, Einschr"ankungen und einige
% Tricks und Kniffe, die bei der Implementierung der Style-Option
% "`german"' verwendet werden.  Wie diese Style-Option installiert
% und verwendet wird, ist in der "`Kurzanleitung --
% \texttt{german.sty}"' zu finden.  Diese Kurzanleitung ist in der
% Datei \texttt{germdoc.tex} zu finden, die mit der Datei
% \texttt{german.dtx} (bzw.\ \texttt{german.sty}) 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 Style-Option gedacht, zum anderen
% f"ur alle Makro-Schreiber, die Ideen und Verbesserungsvorschl"age
% direkt am Code austesten wollen.
%
% \StopEventually{}
%
% \tableofcontents
%
% \ifx\emergencystretch\undefined \else
%    \setlength{\emergencystretch}{2em}
% \fi
% \hbadness=2000
%
% \section{Identifikation des Pakets/der Makrodatei}
%
%  Damit diese Datei mehrmals geladen werden kann, wird hier
%  abgetestet, ob die Datei schon geladen wurde.  Dadurch werden
%  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 den alten 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@} 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).}
%    \begin{macrocode}
\expandafter\ifx\csname grmn\string @VersionNo\endcsname\relax
\else
  \ifnum\number\csname grmn\string @VersionNo\endcsname<9601\relax
  \else \germanTeX \expandafter\expandafter\expandafter\endinput
  \fi\fi
%    \end{macrocode}
%
%  Ist "`german"' noch nicht geladen, oder bisher wurde 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}
\expandafter\mathchardef\csname grmn\string @VersionNo\endcsname
=9601\relax % = 1/96 = v2.5c
%    \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 meist \verb:\message:
% verwendet.
%
%    \begin{macrocode}
\message{Package `german', Version 2.5c of 96/05/01.}
%    \end{macrocode}
%
% F"ur \LaTeXe\ wird die Style-Option als Paket deklariert.  Da
% andere Style-Optionen evtl.\ den Befehl |\ProvidesPackage| 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 undefiniertes |\ProvidesPackage| mit der
% Bedeutung |\relax| definiert wird.  Dieser Trick wird nachfolgend
% noch einige Male verwendet.
%
%    \begin{macrocode}
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname ProvidesPackage\endcsname\relax\else
  \ProvidesPackage{german}[1996/05/01 v2.5c %
     Package for writing german texts (br)]
\fi
%    \end{macrocode}
%
% Da diese Datei auch mit einem simplen \verb:\input: geladen werden
% kann, andererseits aber auf interne Befehle zugegriffen werden
% mu"s, wird der \textit{category code} des Zeichens~\verb:@:
% 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 Fontauswahlschema~NFSS hat in Version~2 den neuen
% Fontparameter \verb:\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 \verb:\DeclareTextSymbol: definiert ist.
%
%    \begin{macrocode}
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname DeclareTextSymbol\endcsname\relax \else
%    \end{macrocode}
%
% \subsubsection{Deklarationsmakros}
%
% Die neueren NFSS~2-Versionen haben einige Befehle, die f"ur Symbole
% und Akzentmakros Defaultwerte f"ur diejenigen Fonts deklarieren,
% f"ur die keine expliziten Zeichencodes angegeben wurden.  Diese
% Befehle werden f"ur "altere NFSS~2-Versionen in einer sehr stark
% vereinfachten Realisierung im nachfolgenden Abschnitt definiert.
% \emph{In diesen Definitionen werden einige Interna aus
% \LaTeXe/NFSS~2 verwendet, so da"s dieser Teil der Style-Option
% evtl.\ zuk"unftig zu Fehlern f"uhren kann!  Dieser Teil ist als
% schlechtes Beispiel zu betrachten, wie man solche Dinge m"oglichst
% nicht realisieren sollte.  Jedoch sind diese Definitionen
% notwendig, damit dieser Style-Option auch mit diesen "alteren
% Versionen laufen k"onnen.}
% \textbf{Es ist daher 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}
\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-Style notwendigen Deklarationen}
  \immediate\write17{%
!! zur Verfuegung stellt.  Dennoch koennen Sie German-}
  \immediate\write17{%
!! Style, evtl. mit kleinen Fehlern, verwenden.}
  \immediate\write17{!!}
  \immediate\write17{%
!! Bitte installieren Sie eine neuere LaTeX2e-Version,}
  \immediate\write17{%
!! da zukuenftige Versionen von German-Style 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 kann evtl.\ f"ur eine zuk"unftige
% NFSS~2-Version, die f"ur plain-\TeX\ angepa"st wurde, nicht
% verf"ugbar sein.
%
% |\UseTextSymbol{|\meta{encoding}|}{|\meta{symbol}|}| schaltet die
% angegebene Fontkodierung 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 dem Font mit der angegebenen,
% evtl.\ 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 Reimplementierung der
% neueren NFSS~2-Versionen entsprechen, so da"s hier einfach nur eine
% Definition f"ur die zumeist f"ur alle nicht bekannten Kodierung
% verwendete Kodierung~{\glq}U{\grq} get"atigt 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}
%
% \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 Fonts
% vorhandenen Textzeichen.  Im folgenden werden zum einen f"ur die
% "alteren Versionen die danach verwendeten symbolischen Namen
% nachdefiniert und zum anderen werden  fehlenden Definitionen f"ur
% die Kodierung~\texttt{OT1} und Defaults f"ur einige Zeichen
% nachgereicht.
%
% F"ur die Makros |\"|, |\ss| und |\i| sollte ein Default definiert
% sein.
%    \begin{macrocode}
\ProvideTextCommandDefault{\"}{\UseTextAccent{OT1}{\"}}
\ProvideTextCommandDefault{\ss}{\UseTextSymbol{OT1}\ss}
\ProvideTextCommandDefault{\i}{\UseTextSymbol{OT1}\i}
%    \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 Fonts mit 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 \verb:\DeclareTextCommand{\textquotedblleft}{OT1}{``}:)
%    \begin{macrocode}
  \DeclareTextSymbol{\textquotedblleft}{T1}{16}%
}{}
\@ifundefined{textquotedblright}{%
  \ProvideTextCommandDefault{\textquotedblright}{%
    \UseTextSymbol{OT1}\textquotedblright}%
  \DeclareTextSymbol{\textquotedblright}{OT1}{`\"}%
%    \end{macrocode}
% (oder \verb:\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.
%
%    \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 \verb:\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 \verb:\penalty:-) 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 nach dem
% Buchstaben~{\ss} getrennt werden kann.  |\ss| entspricht f"ur Fonts
% mit Kodierung~\texttt{OT1} dem Zeichen auf Position~\verb:^^Y:.  Um
% W"orter mit diesem Zeichen trennbar zu machen, reicht es aus, wenn
% man den |\lccode| dieses Zeichen auf einen Wert ungleich Null
% setzt.  F"ur ein |\ss| aus anderen Fonts mu"s dies im
% entsprechenden Makrofile getan werden, in dem der Font und der
% Befehl~|\ss| redefiniert wird.
%    \begin{macrocode}
\lccode`\^^Y=`\^^Y
%    \end{macrocode}
%
% \subsection{Anf"uhrungszeichen}
%
% Die deutschen Anf"uhrungszeichen werden f"ur Fonts, die keine
% geeigneten Zeichen 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 normalen Kommas.  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 von
% An"-f"uhrungs"-zeichen ge"-"andert, so da"s bei aktiviertem
% |\nonfrenchspacing| nach einem Satzzeichen 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 von \TeX{}s |\accent|-Primitiv erzeugt,
% werden bei den meisten Fonts die Umlautpunkte zu hoch gesetzt.  Sie
% entsprechen dadurch eher einem Trema.   Das Makro |\umlaut| ersetzt
% das \TeX-Primitiv, um Umlaute mit etwas tieferen Umlautpunkten zu
% erzeugen.   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} die horizontale Verschiebung) der Punkte zu
% bestimmen.   Um die Punkte etwas tiefer zu setzen, kann nun
% entweder die H"ohe des Buchstaben verkleinert oder die
% \textit{x-height} 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
% 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 Tremas 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{Mechanismus f"ur den aktivierten 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 Eingabenotation, die einen aktiven
% Double\-quote verwendet, realisiert, verwendet weitere symbolische
% Namen f"ur Makros und spezielle Zeichen.
%    \begin{macrocode}
\begingroup \mdqoff
\def\x{\endgroup
  \def\@UMLAUT{\"}%
  \def\@MATHUMLAUT{\ddot}% = \mathaccent"707F
  \def\@SS{\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.
%    \begin{macrocode}
\let\grmn@original@three=\3 % \3 may be defined or undefined.
\def\ck{\penalty\@M\discretionary{k-}{}{c}k\allowhyphens}
%    \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 des Fonts
% 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 Fonts korrekt sein, jedoch wird wegen
% der nicht expandierbaren Tokens in den Makros kein Kerning
% durchgef"uhrt und keine Ligaturen gebildet.
%
% Zuerst einmal die Makros f"ur die Anf"uhrungszeichen "`\ldots"' und
% {\glq}\ldots{\grq}.
%    \begin{macrocode}
\def\@glqq{\save@sf@q{\set@low@box{''\/}\box\z@
             \kern-.04em\allowhyphens}}
\def\glqq{\protect\@glqq}
\def\@grqq{\save@sf@q{\kern-.07em``\kern.07em}}% ('')
\def\grqq{\protect\@grqq}
\def\@glq{\save@sf@q{\set@low@box{'\/}\box\z@
            \kern-.04em\allowhyphens}}
\def\glq{\protect\@glq}
\def\@grq{\save@sf@q{\kern-.0125em`\kern.07em}}
\def\grq{\protect\@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.
% \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.} 
%    \begin{macrocode}
\def\@flqq{\relax\ifmmode \ll \else \save@sf@q{\penalty\@M
    \raise .27ex\hbox{$\m@th\scriptscriptstyle \ll $}%
    \allowhyphens}\fi}
\def\flqq{\protect\@flqq}
\def\@frqq{\relax\ifmmode \gg \else \save@sf@q{\penalty\@M
    \raise .27ex\hbox{$\m@th\scriptscriptstyle \gg $}%
    \allowhyphens}\fi}
\def\frqq{\protect\@frqq}
\def\@flq{\relax\ifmmode <\else \save@sf@q{\penalty\@M
    \raise .27ex\hbox{$\m@th\scriptscriptstyle <$}\allowhyphens}\fi}
\def\flq{\protect\@flq}
\def\@frq{\relax\ifmmode >\else \save@sf@q{\penalty\@M
    \raise .27ex\hbox{$\m@th\scriptscriptstyle >$}\allowhyphens}\fi}
\def\frq{\protect\@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.
%
%    \begin{macrocode}
\else
%    \end{macrocode}
%
% \subsection{\ldots~mit NFSS Version~2}
%
% Das Kommando |\glqq| entspricht dem in neueren \LaTeXe-Releases
% definiertem Symbol |\quotedblbase|.  Die Definitionen dieses
% Symbols werden auch f"ur die \texttt{OT1}-kodierten Fonts 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}
%
% \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.} 
%
% 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 DC-Fonts~v1.2 das
% Anf"uhrungszeichen zu weit nach links plazieren und dadurch das
% davorstehende Zeichen "uber"-schreiben k"onnten.
%    \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.}
%    \begin{macrocode}
\DeclareRobustCommand{\flqq}{%
  \ifmmode\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\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\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\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, wieder eine Unterscheidung der Versionen.
%    \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 Fonts 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 \verb:\DeclareText...: nicht mehr nach der Pr"aambel
% verwendet werden d"urfen, wird der neue symbolische Name
% |\grmn@OTumlaut| f"ur das Umlautmakro f"ur Fonts 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 Fonts mit 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.
%    \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 \verb:"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 sein n"achstes 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 \verb:" a: und~\verb:"a: nicht unterscheidbar sind.
% Zum zweiten erzeugen die Gruppenklammern \verb:{: und~\verb:}:
% Fehler, da bei einer "offnenden Klammer eine komplette Liste
% gelesen wird und eine geschlossene 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
% normale Double\-quote vorangestellt (Bsp.: \verb:"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 \verb:\afterassignment: oder \verb:\futurelet:, sind
% nicht expandierbar und nichtexpandierbare Token beenden das
% Scan\-nen einer Zahl.
%
% Um diesen schwerwiegenden Nachteil dieser L"osung vermeiden (die
% "ahnlich in Version~2.3c/d verwendet wurde, wobei schon in den
% Versionen 2.2--2.3b ein \verb:\relax: diesen Fehler erzeugt), mu"s
% man wohl oder "ubel die erste L"osung mit deren Nachteilen
% verwenden.
%
% 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,
% \verb:\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 Warnung 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.
%    \begin{macrocode}
\def\dqwarninglevel#1{\chardef\grmn@dqwarninglevel=#1\relax}
\dqwarninglevel{1}
%    \end{macrocode}
%
% Neuere \LaTeX-Versionen verwenden den in \TeX~3 vorhandenen
% Parameter \verb:\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 (\verb:\inputlineno: mu"s existieren
% und einen positiven Wert beinhalten).
%    \begin{macrocode}
\expandafter\ifx\csname on@line\endcsname\relax
  \ifx\inputlineno\undefined \let\on@line\@empty
  \else
    \ifnum\inputlineno<\z@ \let\on@line\@empty
    \else \def\on@line{ on input line \the\inputlineno}
\fi\fi\fi
%    \end{macrocode}
%
% F"ur die Warnungen und Fehlermeldungen werden zwei weitere Makros
% definiert.
%    \begin{macrocode}
\def\grmn@dq@error#1{%
  \errhelp{Use `` for a simple double quote character.}%
  \errmessage{german: The command \dq\string#1 is undefined}}
\def\grmn@dq@warning#1{%
   \immediate\write\sixt@@n{german: %
       \dq\string#1 is possibly wrong\on@line.}}
%    \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 Expansion, die 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 Log-Datei 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 Log-Datei 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 \verb:\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 \verb:\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 bei mehrfachem Lesen
% und Schreiben entsprechend gesch"utzt werden (z.\,B.\ der Inhalt
% von \LaTeX{}s \texttt{aux}-Datei wird wieder in die
% \texttt{toc}-Datei geschrieben, bevor es end"-g"ultig eingelesen
% wird). 
%
% Aus letzterem Grund folgt jetzt ein Hack mit \textit{category
% codes}, um beim Schreiben auf ein File keine zus"atzlichen Zeichen
% ein"-f"ugen zu m"ussen, wie dies 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
% diese Klammern werden die runden Klammern verwendet.  Au"serdem
% wird der in \LaTeX2e\ verwendete Trick mit einem Leerzeichen im
% Makroname verwendet, um diese speziellen Klammern f"ur "`interne"'
% Expansionen, wie beim Primitiv \verb:\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 \verb:\string: vor Expansion beim Schreiben auf ein File
% 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 \verb:\protect: eine besondere Bedeutung hat, dieses
% eingef"ugt.  Hat das \verb:\protect: "`nur"' die Bedeutung eines
% \verb:\relax: oder eines leeren Makros, so wird es nicht
% eingef"ugt, um Kerning und Ligaturbildung nicht zu verhindern.
%
% Die Makros |\active@dq | und |\dq@prtct |, die ein Leerzeichen im
% Namen haben, sind die "`interne"' Versionen des aktiven
% Double\-quote-Makros und eines Makros, das das Argument sch"utzt.
% Werden diese auf ein File geschrieben und wieder eingelesen, so
% werden dann die entsprechenden Makros ohne diese Leerzeichen im
% Namen verwendet.
%    \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 |\dq@prtct | und |\dq@protct|, 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 |\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 |\active@dq | und |\active@dq|.
% F"ur die interne Variante |\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 \verb:\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, also ob ein normales Doublequote 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 des 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 \verb:"x:-Befehle einen Fehler, da noch kein
% einzige 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 f"ur 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 \verb:"A0:--\verb:"FF: kommen.
%
% In "alteren Versionen der Style-Option "`german"' konnte man mit
% \verb:"{}: 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.
%    \begin{macrocode}
\def@dqmacro{}{\dq{}}{\dq{}}
%    \end{macrocode}
%
% Die Definition der Kombinationen, die Umlaute erzeugen, ist
% entsprechend einfach,
%    \begin{macrocode}
\def@dqmacro{a}{\@UMLAUT a}{\@MATHUMLAUT a}
\def@dqmacro{o}{\@UMLAUT o}{\@MATHUMLAUT o}
\def@dqmacro{u}{\@UMLAUT u}{\@MATHUMLAUT u}
\def@dqmacro{A}{\@UMLAUT A}{\@MATHUMLAUT A}
\def@dqmacro{O}{\@UMLAUT O}{\@MATHUMLAUT O}
\def@dqmacro{U}{\@UMLAUT U}{\@MATHUMLAUT U}
%    \end{macrocode}
% genauso wie diejenigen f"ur den Buchstaben~\ss.  Leider verhindern
% die Klammern nach den Token \verb:\ss: und~\verb:\@SS: in dieser
% Definition, die f"ur plain-\TeX\ notwendig sind, da"s nach dem~\ss\
% Ligaturen gebildet werden oder Kerning eingef"ugt werden kann.
% Dies soll in der n"achsten Version verbessert werden.
%    \begin{macrocode}
\def@dqmacro{s}{\ss{}}{\@SS{}}
\def@dqmacro{S}{SS}{SS}
\let@dqmacro{z}{s}
\def@dqmacro{Z}{SZ}{SZ}
%    \end{macrocode}
% Spezielle Kombinationen f"ur Tremas 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}
% wie die Definitionen f"ur die Anf"uhrungszeichen.  Auch hier hat
% man wieder die f"ur plain-\TeX\ notwendigen Klammern, die korrektes
% Kerning und Ligaturbildung nach dem Zeichen verhindern.
%    \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}
%
% Um die Definitionen f"ur die Ausnahmen der Silbentrennung zu
% vereinfachen, wird das |\grmn@dqdisc| verwendet, das alle
% gemeinsamen Code-Teile beinhaltet.
%    \begin{macrocode}
\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~\verb:"c: auch ein~\texttt{k} folgt.  Dies
% ist bis auf die Kombination~\verb:"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{\string"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).}
%
% In den meisten Schriften ist f"ur \texttt{ff} eine Ligatur
% definiert, die auch in Wortfugen bei Ausfall des dritten~`f'
% 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@dqnext}}
%    \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~`f'.  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
%    \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
% Definitionen von weiteren Double\-quote-Befehlen zumindest in der
% Protokolldatei erscheinen.  Dann k"onnen gemeldete Fehler, wenn mit
% der Meldung 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 eventuell eine alte
% Definition "uber"-schrieben wird.
%    \begin{macrocode}
\def\grmn@dqredefcheck#1{%
  \immediate\write\m@ne{german: %
    \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 anderen Sprachen}
%
% Die Style-Option "`german"' unterst"utzt die Einbindung von
% Textteilen in deutscher Sprache in Dokumente, die 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}
\def\month@german{\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}
\def\dategerman{\def\today{\number\day.~\month@german
  \space\number\year}}
\def\dateaustrian{\def\today{\number\day.~\ifnum 1=\month
  J\"anner\else \month@german\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-Release vom Dezember~1991 sind alle feststehenden
% Textteile in den Standard-Styles und Style-Optionen durch Makros
% \verb:\...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.
%
% Die folgenden Makros |\captions|\meta{Sprache} definieren alle in
% den \LaTeX-Standard-Styles und \mbox{-Style}-Options verwendeten
% Textteile.
%    \begin{macrocode}
\def\captionsgerman{%
  \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}}
\let\captionsaustrian=\captionsgerman
%    \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.
%
% \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}
\def\extrasgerman{\frenchspacing \uchyph\@ne
  \lefthyphenmin\tw@ \righthyphenmin\tw@}
\def\noextrasgerman{%
  \ifnum\sfcode`\.=\@m \else \noexpand\nonfrenchspacing \fi
  \uchyph\the\uchyph\relax
  \lefthyphenmin\the\lefthyphenmin
  \righthyphenmin\the\righthyphenmin}
\let\extrasaustrian=\extrasgerman
\let\noextrasaustrian=\noextrasgerman
%    \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 \verb:\language: beim Erzeugen
% des Formatfiles zugewiesen worden sein.  Diese Nummern sind f"ur
% jede Sprache in der \textit{control sequence}
% \verb:\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 ausgegeben.
% F"ur die anderen Sprache erscheint diese Meldung nur in der
% Protokolldatei.
%
%    \begin{macrocode}
\@ifundefined{l@USenglish}{%
  \@ifundefined{l@english}{\chardef\l@USenglish=255 }%
                          {\chardef\l@USenglish=\l@english}%
  \wlog{german -- \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
  \wlog{german -- \string\language\space number for UKenglish %
        undefined, default \number\l@english\space used.}%
}{}
%    \end{macrocode}
%    \begin{macrocode}
\@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"germdoc.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.}%
  }%
}{}
%    \end{macrocode}
%    \begin{macrocode}
\@ifundefined{l@austrian}{%
  \chardef\l@austrian=\l@german
  \wlog{german -- \string\language\space number for Austrian %
        undefined, default \number\l@austrian\space used.}%
}{}
%    \end{macrocode}
%    \begin{macrocode}
\@ifundefined{l@french}{%
  \chardef\l@french=255
  \wlog{german -- \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.
%
% \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}.  Dies zwickt sich leider mit der
%   momentanen Definition in `german.sty'.  (TODO!!)
%   Da ich in \cs{selectlanguage} den Leerzeichen-Trick verwende und
%   somit `bibgerman' unver"andert mit German-Style funktionieren
%   sollte, habe ich \cs{original@TeX} wieder in \cs{grmn@originalTeX}
%   umbenannt, bis eine endg"ultige L"osung gefunden ist.}
%    \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 auch
% 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 es
% \cs{select\-language} mit der alten Definition aus \texttt{german.sty}
% Version~2.3.  Dies sollte 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.}
%
% 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.
%
% |\iflanguage| kann sich in sp"ateren Version noch geringf"ugig
% "andern, falls dies im Babel-Paket geschehen sollte.
%
%    \begin{macrocode}
\def\iflanguage#1#2#3{%
  \expandafter\ifx\csname l@#1\endcsname\relax #3%
  \else \ifnum\csname l@#1\endcsname=\language #2%
  \else #3\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 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 sind, mu"s hier |\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}
%
%    \begin{macrocode}
\begingroup \mdqon
\def\x{\endgroup
  \def\originalTeX{\mdqoff \let"\dq \umlauthigh
    \let\3\grmn@original@three
    \selectlanguage{USenglish}}%
  \def\germanTeX{\mdqon \let"\@active@dq \umlautlow
    \let\grmn@original@three\3\let\3\ss
    \selectlanguage{german}}}%
\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
\germanTeX
%    \end{macrocode}
%
%\iffalse
%</!hyphcfg>
%</!driver>
%\fi
% \section{Treiberdatei f"ur die Implementierungsdokumentation}
%
% Die Implementierungsdokumentation sollte man sowohl mit \LaTeXe,
% also der offiziellen \LaTeX-Version, als auch mit der alten
% \LaTeX~2.09-Version formatieren k"onnen.
%
%    \begin{macrocode}
%<+driver>\ifx\documentclass\undefined % LaTeX2e or 2.09?
%<+driver> \documentstyle[newdoc,german]{article}
%<+driver> \ifx\LaTeXe\undefined
%<+driver>  \newcommand{\LaTeXe}{%
%<+driver>   \mbox{\LaTeX\kern.15em$2_{\textstyle\varepsilon}$}}\fi
%<+driver> \newcommand{\emph}[1]{{\em #1}}
%<+driver> \newcommand{\textit}[1]{{\it #1}}
%<+driver> \newcommand{\textbf}[1]{{\bf #1}}
%<+driver> \newcommand{\texttt}[1]{{\tt #1}}
%<+driver> \newcommand{\cs}[1]{{\tt\char`92\relax #1}}
%<+driver> \MakeShortverb{\|}\CodelineIndex
%<+driver>\else
%<+driver> \documentclass[a4paper]{ltxdoc}
%<+driver> \usepackage{german}
%<+driver>\fi
%<+driver>\begin{document}
%<+driver>\DocInput{german.dtx}
%<+driver>\end{document}
%    \end{macrocode}
%
%
% \section{Beispieldatei \texttt{hyphen.cfg} zum Laden der
%          Trennmuster}
%
% In der Dokumentation \texttt{germdoc.tex} zum German-Style sind die
% Schritte zur Installation der Trennmuster genauer erkl"art.  Zur
% Vereinfachung f"ur den Benutzer wird die Beispieldatei
% \texttt{hyphxmpl.cfg} zur Verf"ugung gestellt, die entweder direkt
% oder mit wenigen "Anderungen f"ur die Datei \texttt{hyphen.cfg} f"ur
% \LaTeXe{} verwendet werden kann.
%
%    \begin{macrocode}
%<+hyphcfg>%% ----------------------------------------------
%<+hyphcfg>%% Beispielkonfigurationsdatei fuer: `hyphen.cfg'
%<+hyphcfg>%% Naeheres siehe Dokumentation in `germdoc.tex'.
%<+hyphcfg>%% Copyleft 1995/96 by Bernd Raichle.
%<+hyphcfg>
%<+hyphcfg>\message{== Loading hyphenation patterns:}
%<+hyphcfg>
%<+hyphcfg>\message{us-english}
%<+hyphcfg>\chardef\l@USenglish=\language
%<+hyphcfg>%% british english als "Dialekt"
%<+hyphcfg>\chardef\l@english=\l@USenglish
%<+hyphcfg>\input hyphen
%<+hyphcfg>
%<+hyphcfg>\message{german}
%<+hyphcfg>\newlanguage\l@german \language=\l@german
%<+hyphcfg>\chardef\l@austrian=\l@german
%<+hyphcfg>\input ghyph31
%<+hyphcfg> 
%<+hyphcfg>%% weitere Sprachen nach folgendem Schema:
%<+hyphcfg>% \message{SPRACHE}
%<+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
%<+hyphcfg>\lefthyphenmin=2 \righthyphenmin=3
%<+hyphcfg>\message{done.}
%    \end{macrocode}
%
% Ich hoffe, das Lesen dieser Dokumentation 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.
% Danke im Voraus!
%
% \Finale
%
\endinput
%% End of GERMAN.STY