path: root/language/romanian/RomanianTeX/romanian.dtx

% \iffalse meta-comment %% ROMANIAN.DTX 1.3R <29.10.1996> %%
%<*!driver>
%    \begin{macrocode}
 %%
 %% This file is part of the Romanian TeX system.
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% Romanian TeX, version 1.3R <29.10.1996>               %%
 %% (C) 1994-1996 Adrian Rezus [adriaan@{sci,cs}.kun.nl]  %%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\RomanianTeX{Romanian\TeX\/}%                         %%
\def\RomanianTeXname{Romanian TeX}%                       %%
\def\RomanianTeXid{1.3R}%                                 %%
\def\RomanianTeXversion{1996/10/29 v1.3R}%                %%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% Revision 1.3R [1996/]:[11/03]..[11/07][11/09]..[11/12]%%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%    \end{macrocode}
% ---------------- start of docstrip archive file --------------------
%
% \fi
% \CheckSum{2271}
%
% \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}
%
% \originalTeX
% \title{Romanian \TeX{} 1.3R\thanks{%
%    This file is accompanied by
%	a \LaTeXe{} \emph{installation module}
%		(file \texttt{romanian.ins}),
%	the Romanian \emph{hyphenation patterns}
%		(file \texttt{rohyphen.tex}),
%		version 1.1 of October 29, 1996, and
%	the \emph{end-user documentation}
%		(file \texttt{romanian.doc}).
%    [A table of contents for the current release of \RomanianTeX{}
%    can be found in the file \texttt{manifest[.romanian].txt}.]
%    Like its predecessors (essentially:
%	\texttt{romanian.tex}, version 1.2 of December 21, 1994 and
%	\texttt{romanian.sty}, version 1.2R of June 7, 1995),
%    the present design of \RomanianTeX{} is based on the
%    German \TeX{} style implementation [see
%	\texttt{german.dtx}, version 2.5c of May 1st, 1996,
%	   \copyright{}~1995--1996 Bernd Raichle and DANTE e.V.,
%	\texttt{german.sty}
%	   \copyright{}~1991--1996 Bernd Raichle and DANTE e.V., and
%	\texttt{german.tex}
%	   \copyright{}~1987--1990 Hubert Partl].
%    \RomanianTeX{} 1.3R is a \emph{multi-lingual} \TeX{} system.
%    In particular, if set in German \TeX{}-mode, \RomanianTeX{}
%    emulates entirely the German \TeX{} (current version), and,
%    unlike in previous versions, a bi-lingual -- German/Romanian --
%    \RomanianTeX{} configuration does not require \texttt{german.sty}
%    any more. As expected, like the German \TeX{}, \RomanianTeX{} 
%    is \emph{not} compatible with the \textsc{babel}\, system
%    [\copyright{}~1989--1995 Johannes~L. Braams], and -- on
%    specific installations using short file-name conventions -- 
%    one should take similar precautions as regards possible 
%    file-name conflicts.}}
% \date{October 29, 1996}
% \author{Adrian Rezu\c{s}\thanks{%
%    E-mail: \texttt{adriaan@cs.kun.nl}}}
% \maketitle
%
% \StopEventually{}
%
% \begin{abstract}
% This document describes the \RomanianTeX{} package, version 
% 1.3R. \RomanianTeX{} is a \emph{multi-lingual} environment 
% for type-setting Romanian texts with Plain \TeX, \LaTeX{}~2.09 
% and/or \LaTeXe{}. Its implementation strategy is similar to
% the design of the German \TeX{} [v2.5c |<1.05.1996>| and older]: 
% \RomanianTeX{} allows the input of the Romanian diacritics and
% quotes by analogous double quote macros. As a multi-lingual
% \TeX{} system, if set in `originalTeX', `germanTeX' or `frenchTeX'
% mode, \RomanianTeX{} emulates the original (US/UK) English, 
% German or French \TeX{}, resp.\ (In particular, a bi-lingual 
% -- German/Romanian -- \TeX{} configuration does \emph{not} 
% require \texttt{german.sty} any more.) 
% \end{abstract}
% \vfill\eject
%
% \tableofcontents
% \vfill\eject
%
% \ifx\emergencystretch\undefined \else
%    \setlength{\emergencystretch}{2em}
% \fi
% \hbadness=2000
%
% \section{Package identification}
%
% In order to function properly, the macro-code of \RomanianTeX{}
% must be loaded only \emph{once} in a \TeX{} system. 
%
% \subsection{The file banner}
%
% The file banner declares, at the very beginning, several 
% \emph{global} identifiers for the \RomanianTeX{} package. 
% The print-names 
%
% |\RomanianTeX|,                   % TeX print-name
%
% |\RomanianTeXname|,               % ASCII print-name
%
% |\RomanianTeXid|,                 % ASCII: |<version>|
%
% |\RomanianTeXversion|             % ASCII: |<date>| + |<version>|
% \par\noindent
% are exported in every file using \texttt{romanian.sty} and can be 
% changed globally. 
%
% \subsection{The internal self-identifier}
%  
% Internally, any specific \RomanianTeX{} macro-construct is
% identified by a |\csname|-prefix, a |<system-self-id>|
% (current value: \texttt{ro@}). 
%
% This `non-public' feature of the package is meant to avoid 
% |\csname| name-conflicts with other \TeX{} internals and/or 
% other packages.
%
% \subsection{The self-identifty test}
%
% The self-identity test is performed upon system initialization;
% if \RomanianTeX{} is not yet loaded, the rest of the file is 
% going to be processed:
%
%    \begin{macrocode}
\expandafter\ifx\csname romanianTeX\endcsname\relax
  \else \romanianTeX \expandafter\endinput
\fi
%    \end{macrocode}
%
% \subsection{Broadcast package identity}
%
% Upon loading, \RomanianTeX{} identifies itself. Since the package 
% may function as a `style option' for Plain \TeX{}, as well as for 
% different \LaTeX{}-versions, this is done by a |\message| command.
%
%    \begin{macrocode}
\message{\RomanianTeXname, \RomanianTeXversion.}
%    \end{macrocode}
%
% \subsection{\LaTeXe{} package identification}
%
% \LaTeXe{} declares \RomanianTeX{} as a `package'. Other
% packages could possibly test the command |\ProvidesPackage| 
% only for \texttt{undefined}, so we must prevent the fact that
% |\ProvidesPackage| might have the meaning |\relax| at this 
% point (by a local test, within a group construct).
%
%    \begin{macrocode}
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname ProvidesPackage\endcsname\relax\else
\ProvidesPackage{romanian}[\RomanianTeXversion Package Romanian TeX]
\fi
%    \end{macrocode}
%
% \section{Accessing \TeX{} internals}
%
% As expected, \RomanianTeX{} controls the \TeX{} internals by
% changing the \textit{category code} of the |@|-symbol to 
% the `letter'-category. On completing the required modifications 
% in the underlying \TeX{} behavior, \RomanianTeX{} reverts to
% the `public' \TeX{} control, by disallowing |@|-|<csname>|'s.
%
% While in control of the \TeX{} internals, we must be also able 
% to load \RomanianTeX{} with a simple |\input| command (in Plain
% \TeX{}, for instance). So the \textit{category code} of the
% |@|-symbol must be saved \emph{before} performing the change
% to the `letter'-category.
%
%    \begin{macrocode}
\chardef\atcode=\catcode`\@ % save_current_category_code_of |@|
\catcode`\@=11 %            % \makeatletter
%    \end{macrocode}
%
% \section{Compatibility macros}
%
% \subsection{Low-level macros}
%
% As \RomanianTeX{} macros must be possibly usable outside a
% \LaTeX{}-environment, we must re-define some \LaTeX{}-macros.
%
% \subsubsection{The test for `undefined'}
%
% We shall need later the test-command |\@ifundefined| (not in 
% Plain \TeX{}). The discriminating action of this macro is encoded 
% by using explicit \emph{selectors} (actually \emph{projections} 
% \textbf{first} and \textbf{second}, see below).
%
%    \begin{macrocode}
\expandafter\ifx\csname @ifundefined\endcsname\relax
  \def\@ifundefined#1{%
    \expandafter\ifx\csname #1\endcsname\relax
      \expandafter\ro@DQfirst\else\expandafter\ro@DQsecond\fi}
\fi
%    \end{macrocode}
%
% \subsubsection{The selectors}
%
% These selectors are made into \RomanianTeX{} specific macros, by
% using the global |<system-self-id>| (i.e., the |\ro@|-prefix):
%
%    \begin{macrocode}
\def\ro@DQfirst#1#2{#1}
\def\ro@DQsecond#1#2{#2}
%    \end{macrocode}
%
% \subsection{Compatibility macros for NFSS~2}
%
% In what follows, we assume that the NFSS~2 is present whenever 
% the command |\DeclareTextSymbol| is defined:
% 
%    \begin{macrocode}
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname DeclareTextSymbol\endcsname\relax \else
%    \end{macrocode}
%
% Otherwise, we must learn to live with what we have got\ldots
%
% \subsubsection{NFSS~2 macro emulations}
%
% \RomanianTeX{} would yield poor results with older versions of
% \LaTeXe{} and/or NFSS~2. The following piece of macro-code is 
% self-explanatory: if the command |\ProvideTextCommandDefault|
% is not currently available, we are in the worst possible case
% and will strongly recommend system-updating!
%
%    \begin{macrocode}
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname ProvideTextCommandDefault\endcsname\relax
  \immediate\write17{}
  \immediate\write17{%
!! This LaTeX2e-system requires updating.}
  \immediate\write17{!!}
  \immediate\write17{}
\fi
%    \end{macrocode}
%
% The NFSS~2 allows a font parameter |\fontencoding|.
% We also assume that the command |\providecommand| is available.
%
% We emulate next a few NFSS~2 macros for environments in need of them.
% 
% |\UseTextSymbol{|\meta{encoding}|}{|\meta{symbol}|}|
% is used for the encoding-dependent font-selection with NFSS~2:
%
%    \begin{macrocode}
\@ifundefined{UseTextSymbol}{%
  \def\UseTextSymbol#1#2{{\fontencoding{#1}\selectfont #2}}
}{}
%    \end{macrocode}
% |\UseTextAccent{|\meta{encoding}|}{|\meta{accent}|}{|\meta{base}|}|
% choses an accent symbol from a font with a given encoding, 
% resp.\ with one diverging from its actual encoding.
%
%    \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}
% By |\ProvideTextCommand{|\meta{csname}|}{|\meta{encoding}|}[|^^A
% \meta{number}|][|\meta{default}|]{|\meta{def}|}| 
% one defines a command applying only to a given encoding, 
% just in case it is not yet defined for this encoding.
%
%    \begin{macrocode}
\@ifundefined{ProvideTextCommand}{%
  \def\ProvideTextCommand#1#2{% misses \RobustTextCommand{#1}{ etc. }
    \expandafter\providecommand\csname #2\string#1\endcsname}%
}{}
%    \end{macrocode}
% |\ProvideTextCommandDefault{|\meta{command}|}{|\meta{def}|}|
% yields a default definition for all those encodings for which no
% explicit definition is available.
%
%    \begin{macrocode}
\@ifundefined{ProvideTextCommandDefault}{%
  \def\ProvideTextCommandDefault#1{%
    \ProvideTextCommand{#1}{U}}%
}{}
%    \end{macrocode}
% |\DeclareTextCompositeCommand{|\meta{command}|}{|^^A
% \meta{encoding}|}{|\meta{char}|}{|\meta{def}|}| 
% enables an easy way of defining the diacritics-input.
%
% The following definition relies on \LaTeXe{}/NFSS~2-internals.
%
%    \begin{macrocode}
\@ifundefined{DeclareTextCompositeCommand}{%
  \def\DeclareTextCompositeCommand#1#2#3#4{% a `dummy' text composite
    \DeclareTextComposite{#1}{#2}{#3}{`\Z}%  redefine the command 
    \expandafter\def\csname\expandafter\string\csname
         #2\endcsname\string#1-\string#3\endcsname##1##2{#4}}%
}{}
%    \end{macrocode}
%
% \subsubsection{Macros for text symbols}
%
% We establish the \texttt{OT1}-defaults for the accents and symbols
% used later:
%
% |\"|,                 % accent: German, French,
%
% |\^|,                 % accent: Romanian, French,
%
% |\c|,                 % accent: Romanian, French,
%
% |\u|,                 % accent: Romanian,
%
% |\i|,                 % symbol: Romanian, German, French,
%
% |\ss|,                % symbol: German.
%
%    \begin{macrocode}
\ProvideTextCommandDefault{\"}{\UseTextAccent{OT1}{\"}} % GF
\ProvideTextCommandDefault{\^}{\UseTextAccent{OT1}{\^}} % RF
\ProvideTextCommandDefault{\c}{\UseTextAccent{OT1}{\c}} % RF
\ProvideTextCommandDefault{\u}{\UseTextAccent{OT1}{\u}} % R
\ProvideTextCommandDefault{\i}{\UseTextSymbol{OT1}\i}   % RGF
\ProvideTextCommandDefault{\ss}{\UseTextSymbol{OT1}\ss} % G
%    \end{macrocode}
%
% We provide also symbolic names for symbols used in the macros 
% for double quotes. As ever, the defaults are taken from the 
% fonts with a~\texttt{OT1} encoding.
%
% The macro-encoding for
% \romanianTeX "`\ldots"' \originalTeX and {\glq}\ldots{\grq}:
%
%    \begin{macrocode}
\@ifundefined{textquotedblleft}{%
  \ProvideTextCommandDefault{\textquotedblleft}{%
    \UseTextSymbol{OT1}\textquotedblleft}%
  \DeclareTextSymbol{\textquotedblleft}{OT1}{92}% or: ...{OT1}{``}
%    \end{macrocode}
%
%    \begin{macrocode}
  \DeclareTextSymbol{\textquotedblleft}{T1}{16}%
}{}
\@ifundefined{textquotedblright}{%
  \ProvideTextCommandDefault{\textquotedblright}{%
    \UseTextSymbol{OT1}\textquotedblright}%
  \DeclareTextSymbol{\textquotedblright}{OT1}{`\"}% or: ...{OT1}{''}
%    \end{macrocode}
%
%    \begin{macrocode}
  \DeclareTextSymbol{\textquotedblright}{T1}{17}%
}{}
\@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}
%
% The macro-encoding for the French quotes 
% \romanianTeX ">\ldots"< \originalTeX and {\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}
%
% The most important double/single quote macros have been thereby defined.
%
%    \begin{macrocode}
\fi
%    \end{macrocode}
%
% \section{Low-level commands}
%
% \RomanianTeX{} uses low-level \TeX{} commands for the implementation 
% of the double quote mechanism, the specific Romanian diacritics, 
% the trema's, the German \emph{Uml\"aute}, etc. Some of them might
% be useful for the end-user.
%
% We must be able to distinguish the double quotes usage of \RomanianTeX{}
% from the way of coping with the double quotes in German \TeX{}
% [cf.\ \texttt{german.dtx} resp.\ \texttt{german.sty}, version 2.5c,
% |<1.05.1996>|]. 
%
% \subsection{Protect fragile commands}
%
% \LaTeX{} uses the command |\protect|, in order to protect \emph{fragile}
% commands. This has to be re-defined for Plain \TeX{} only.
%
% If undefined, |\protect| is defined as |\relax|.
%
%    \begin{macrocode}
\expandafter\let\expandafter\protect\csname protect\endcsname
%    \end{macrocode}
%
% \subsection{Local hyphenation}
%
% The command |\allowhyphens| informs \TeX{} about the fact that
% a hyphenable word-part will follow (by a |\penalty|-) and
% that a new one begins (by a |\hskip|-command, introducing a
% \textit{glue}):
%
%    \begin{macrocode}
\def\allowhyphens{\penalty\@M \hskip\z@skip}
%    \end{macrocode}
% \emph{Provisions for the German \TeX{}-mode}. 
% The |\ss|-symbol (used to input a \emph{scharfes es}) corresponds 
% to the symbol with position~|^^Y| in the~\texttt{OT1} encoding.
% So, in order to be able to hyphenate words with |\ss|, it is enough 
% to make its |\lccode| non-null. For a~|\ss| taken from a different 
% font this must be done in a macro file re-defining the font and 
% the~|\ss| command.
%
%    \begin{macrocode}
\lccode`\^^Y=`\^^Y
%    \end{macrocode}
%
% There is no harm done if we leave this active in \RomanianTeX{}.
%
% \subsection{The Romanian/German double quotes}
%
% The Romanian/German double quotes are obtained by box-manipulation
% from their English analogues.
%
% The macro |\set@low@box| lowers its argument (a symbol) at the 
% level of the usual comma:
%
%    \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}
%
% After a box-command, \TeX\ sets the |\spacefactor| to~1000:
% we must save its value:
%
%    \begin{macrocode}
\def\save@sf@q#1{{\ifhmode
  \edef\@SF{\spacefactor\the\spacefactor}\else
  \let\@SF\empty \fi \leavevmode #1\@SF}}
%    \end{macrocode}
%
% \subsection{Uml\"aute and trema's}
%
% The macro |\newumlaut| replaces the original \TeX{}-primitive by a
% construct yielding a better match for the real (German) typography 
% (viz., \emph{Uml\"{a}ute mit etwas tieferen Umlautpunkten}).
% [See \texttt{german.dtx} for details.]
%
%    \begin{macrocode}
\expandafter\ifx\csname roU@D\endcsname\relax
  \csname newdimen\endcsname\roU@D
\fi
\def\newumlaut#1{{\roU@D 1ex%
  {\setbox\z@\hbox{\char127}\dimen@-.45ex\advance\dimen@\ht\z@
  \ifdim 1ex<\dimen@ \fontdimen5\font\dimen@ \fi}%
  \accent127\fontdimen5\font\roU@D #1}\allowhyphens}
%    \end{macrocode}
%
% For trema's, the original \TeX{} |\accent|-primitives are used.
% [See \texttt{german.dtx}.]
%
%    \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{Activating the double quote mechanism}
%
% The macros |\mDQon| and |\mDQoff| are used in order to activate 
% and/or de-activate the double quote mechanism.
%
%    \begin{macrocode}
\def\mDQon{\catcode`\"\active}
\def\mDQoff{\catcode`\"12\relax}
%    \end{macrocode}
%
% The symbolic names for the input notation are as follows:
%
%    \begin{macrocode}
\begingroup \mDQoff
\def\x{\endgroup
  \def\@nUML{\"}%                   normal mode
  \def\@mUML{\ddot}%                math mode (\mathaccent"707F)
  \def\@nBRV{\u}%                   normal mode
  \def\@mBRV{\breve}%               math mode
  \def\@nHAT{\^}%                   normal mode
  \def\@mHAT{\hat}%                 math mode
  \def\@nCDL{\c}%                   normal mode
  \def\@mCDL{\mathchar"7018 }%      math mode
  \def\@SS{\mathchar"7019 }%        math mode (revise)
  \def\DQ{"}}%                      or: \textquotedbl (?)
\x
%    \end{macrocode}
%
% The double quotes are now added to |\dospecials| and |\@sanitize| 
% (this is intended for \TeX{} and/or \LaTeX{}-handling):
%
%    \begin{macrocode}
\begingroup
  \def\do{\noexpand\do\noexpand}%
  \edef\x{\endgroup
    \def\noexpand\dospecials{\dospecials\do\"}}%
\x
%    \end{macrocode}
%
% But |\@sanitize| is defined only for \LaTeX\, so we ask about it:
%
%    \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{Compatibility with other versions}
%
% \emph{Provisions for the German \TeX{}-mode}. 
% The German \TeX{} commands |\3| and |\ck| are obsolete: the next piece
% of macro-code is only maintained for downward-compatibility reasons.
%
%    \begin{macrocode}
\let\ro@original@three=\3 % \3 may be defined/undefined
\def\ck{\penalty\@M\discretionary{k-}{}{c}k\allowhyphens}
%    \end{macrocode}
%
% \section{Romanian [German/French] double quotes}
%
% The typographically `legal' Romanian double quotes are those that 
% are also `legal' in German. We have also the implicit rule of 
% (typographical) taste that `quotes inside quotes' have to be 
% `French'\ldots\, The corresponding (German) single quotes are 
% \emph{not recommended} in Romanian typography. On the other hand, 
% the English double/single quotes are -- as in German, French, etc.
% -- \emph{typographically illegal} in their \emph{left}-variant,
% i.e., if used at the beginning of a word.
%
% The macro-constructs:
%
% |\glqq|, |\grqq|,     % for German/Romanian double quotes
%
% |\flqq|, |\frqq|,     % for French double quotes
%
% |\glq|,  |\grq|,      % for German/Romanian single quotes
%
% |\flq|,  |\frq|,      % for French single quotes
% \par\noindent
% must be defined for the NFSS~2, and so for \LaTeXe{}, as being 
% encoding-dependent.
%
%    \begin{macrocode}
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname DeclareTextSymbol\endcsname\relax
%    \end{macrocode}
%
% \subsection{\ldots~without NFSS~2}
%
% Approximations: macros for the Romanian/German double and single quotes
% \romanianTeX "`\ldots"' \originalTeX and {\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}
%
% Approximations: macros for the French double/single quotes
% \romanianTeX "<\ldots"> \originalTeX and {\flq}\ldots{\frq}.
%
%    \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}
% [See \texttt{german.dtx} for details.]
%
%    \begin{macrocode}
\else
%    \end{macrocode}
%
% \subsection{\ldots~with NFSS~2}
%
% In the newer \LaTeXe{} releases, |\glqq| corresponds to |\quotedblbase|. 
% The definition is extended in a relatively simple way to the 
% \texttt{OT1}-encoded fonts.
%
%    \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}
%
% For |\grqq| there is no \LaTeXe{} counterpart: we use the older version.
% [For the \texttt{T1}-encoding, see details in \texttt{german.dtx}.]
%
%    \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}
%
% Define correspondingly the German/Romanian single quotes
% |\glq| and |\grq|\,\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}
%
%    \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\,and the French quotes (`guillemots'), both double and single:
%
%    \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}
%
% The Romanian/German and the French double/single quote macros have 
% been thereby defined.
%
%    \begin{macrocode}
\fi
%    \end{macrocode}
%
% \section{Uml\"aute and trema's: macros}
%
% The treatement of the macros for trema's and the German 
% \emph{Uml\"aute} must take into account the presence or the
% absence of the NFSS~2.
%
%    \begin{macrocode}
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname DeclareTextSymbol\endcsname\relax
%    \end{macrocode}
%
% \subsection{\ldots~without NFSS~2}
%
% The internal switch-commands |\umlauthigh| and |\umlautlow| are
% defined first for situations without NFSS~2.
%
%    \begin{macrocode}
\def\umlauthigh{\def\"##1{{\accent127 ##1}}}
\def\umlautlow{\def\"{\protect\newumlaut}}
%    \end{macrocode}
%
%    \begin{macrocode}
\else
%    \end{macrocode}
%
% \subsection{\ldots~with NFSS~2}
%
% For situations where the NFSS~2 is available, this is more involved:
%
%    \begin{macrocode}
\def\umlauthigh{\def\ro@OTumlaut##1{{\accent 127 ##1}}}
\def\umlautlow{\def\ro@OTumlaut{\protect\newumlaut}}
\umlauthigh
%    \end{macrocode}
%
% For fonts with a~\texttt{OT1} and a~\texttt{T1} encoding, one can 
% use standard definitions. [\textbf{Note}. Some of the following are
% \emph{not} in \texttt{german.sty}.]
%
%    \begin{macrocode}
\DeclareTextAccent{\"}{T1}{4}
\DeclareTextAccent{\"}{OT1}{127}
\DeclareTextCompositeCommand{\"}{OT1}{a}{\ro@OTumlaut{a}}%  - 
\DeclareTextCompositeCommand{\"}{OT1}{A}{\ro@OTumlaut{A}}%  -
\DeclareTextCompositeCommand{\"}{OT1}{e}{\ro@OTumlaut{e}}%  -
\DeclareTextCompositeCommand{\"}{OT1}{E}{\ro@OTumlaut{E}}%  -
\DeclareTextCompositeCommand{\"}{OT1}{\i}{\ro@OTumlaut{\i}}% -
\DeclareTextCompositeCommand{\"}{OT1}{I}{\ro@OTumlaut{I}}%  -
\DeclareTextCompositeCommand{\"}{OT1}{o}{\ro@OTumlaut{o}}%  +
\DeclareTextCompositeCommand{\"}{OT1}{O}{\ro@OTumlaut{O}}%  +
\DeclareTextCompositeCommand{\"}{OT1}{u}{\ro@OTumlaut{u}}%  +
\DeclareTextCompositeCommand{\"}{OT1}{U}{\ro@OTumlaut{U}}%  +
\DeclareTextComposite{\"}{T1}{a}{228}%  + 
\DeclareTextComposite{\"}{T1}{A}{196}%  -
\DeclareTextComposite{\"}{T1}{e}{235}%  -
\DeclareTextComposite{\"}{T1}{E}{203}%  -
\DeclareTextComposite{\"}{T1}{\i}{239}% -
\DeclareTextComposite{\"}{T1}{I}{207}%  -
\DeclareTextComposite{\"}{T1}{o}{246}%  -
\DeclareTextComposite{\"}{T1}{O}{214}%  -
\DeclareTextComposite{\"}{T1}{u}{252}%  -
\DeclareTextComposite{\"}{T1}{U}{220}%  -
%    \end{macrocode}
%
%    \begin{macrocode}
\fi
%    \end{macrocode}
%
% \section{The Romanian diacritics: macros}
%
% The Romanian \emph{breve-, hat-}, and \emph{cedilla}-macros are 
% treated differently if the NFSS~2 is present or not.
%
%    \begin{macrocode}
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname DeclareTextSymbol\endcsname\relax
%    \end{macrocode}
%
% \subsection{\ldots~without NFSS~2}
%
% The macros are defined first for situations without the NFSS~2.
%
%    \begin{macrocode}
\def\@nBRV{\def\u##1{{\accent21 ##1}}}
\def\@nHAT{\def\^##1{{\accent94 ##1}}}
\def\@nCDL{% cf. \c{#1} in Plain TeX
\def\c##1{{\setbox\z@\hbox{##1}\ifdim\ht\z@=1ex{\accent24 ##1}%
  \else{\ooalign{\unhbox\z@\crcr\hidewidth\char24\hidewidth}}\fi}}}
%    \end{macrocode}
%
%    \begin{macrocode}
\else
%    \end{macrocode}
%
% \subsection{\ldots~with NFSS~2}
%
% For situations with the NFSS~2 is available, one has:
%
%    \begin{macrocode}
\def\@rBRV{\def\ro@OTbrv##1{{\accent 21 ##1}}}
\def\@rHAT{\def\ro@OThat##1{{\accent 94 ##1}}}
\def\@rCDL{% cf. \c{#1} in Plain TeX
\def\ro@OTcdl##1{{\setbox\z@\hbox{##1}\ifdim\ht\z@=1ex{\accent24 ##1}%
  \else{\ooalign{\unhbox\z@\crcr\hidewidth\char24\hidewidth}}\fi}}}
\@rBRV
\@rHAT
\@rCDL
%    \end{macrocode}
%
% For fonts with a~\texttt{OT1} and a~\texttt{T1} encoding,
% one can use standard definitions.
%
%    \begin{macrocode}
\DeclareTextAccent{\u}{T1}{8}
\DeclareTextAccent{\^}{T1}{2}
\DeclareTextAccent{\c}{T1}{11}
\DeclareTextAccent{\u}{OT1}{21}
\DeclareTextAccent{\^}{OT1}{94}
\DeclareTextAccent{\c}{OT1}{24}
\DeclareTextCompositeCommand{\u}{OT1}{a}{\ro@OTbrv{a}}%
\DeclareTextCompositeCommand{\u}{OT1}{A}{\ro@OTbrv{A}}%
\DeclareTextCompositeCommand{\^}{OT1}{a}{\ro@OThat{a}}%
\DeclareTextCompositeCommand{\^}{OT1}{A}{\ro@OThat{A}}%
\DeclareTextCompositeCommand{\^}{OT1}{\i}{\ro@OThat{\i}}%
\DeclareTextCompositeCommand{\^}{OT1}{I}{\ro@OThat{I}}%
\DeclareTextCompositeCommand{\c}{OT1}{s}{\ro@OTcdl{s}}%
\DeclareTextCompositeCommand{\c}{OT1}{S}{\ro@OTcdl{S}}%
\DeclareTextCompositeCommand{\c}{OT1}{t}{\ro@OTcdl{t}}%
\DeclareTextCompositeCommand{\c}{OT1}{T}{\ro@OTcdl{T}}%
\DeclareTextComposite{\u}{T1}{a}{160}
\DeclareTextComposite{\u}{T1}{A}{128}
\DeclareTextComposite{\^}{T1}{a}{226}
\DeclareTextComposite{\^}{T1}{A}{194}
\DeclareTextComposite{\^}{T1}{\i}{238}
\DeclareTextComposite{\^}{T1}{I}{206}
\DeclareTextComposite{\c}{T1}{s}{179}
\DeclareTextComposite{\c}{T1}{S}{147}
\DeclareTextComposite{\c}{T1}{t}{181}
\DeclareTextComposite{\c}{T1}{T}{149}
%    \end{macrocode}
%
%    \begin{macrocode}
\fi
%    \end{macrocode}
%
% \section{The double quote input notation}
%
% The input notation |"<input-symbol>| for diacritics, special
% hyphens, etc., used in \RomanianTeX{} is implemented by the double
% quote \textit{active character}. The active DQ-character reads
% its argument, deciding about the next action to be performed.
%
% \subsection{Warnings and errors reports}
%
% Upon scanning an undefined |"<input-symbol>|-sequence,
% \RomanianTeX{} generates warnings and error reports.
%
%    \begin{macrocode}
\def\DQwarninglevel#1{\chardef\ro@DQwarninglevel=#1\relax}
\DQwarninglevel{1}
%    \end{macrocode}
%
%    \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}
%
% The macros for warnings and error reports are self-explanatory:
%
%    \begin{macrocode}
\def\ro@DQ@error#1{%
  \errhelp{Use `` for a simple double quote character.}%
  \errmessage{romanian: The command \DQ\string#1 is undefined}}
\def\ro@DQ@warning#1{%
   \immediate\write\sixt@@n{romanian: %
       \DQ\string#1 is possibly wrong\on@line.}}
%    \end{macrocode}
%
% \subsection{The defining mechanism for double quote macros}
%
%    \begin{macrocode}
\def\ro@DQ@macro#1#2{%
  \expandafter#1\csname @ro@@\string #2DQ\endcsname}
%    \end{macrocode}
%
%    \begin{macrocode}
\def\def@DQmacro#1#2#3{%
  \ro@DQredefcheck{#1}%
  \ro@DQ@macro\def{#1}{{#2}{#3}}}
%    \end{macrocode}
%
%    \begin{macrocode}
\def\let@DQmacro#1#2{\begingroup
  \ro@DQredefcheck{#1}%
  \edef\x{\endgroup \let
    \ro@DQ@macro\noexpand{#1}\ro@DQ@macro\noexpand{#2}}%
  \x}
%    \end{macrocode}
%
%    \begin{macrocode}
\def\ro@DQredefcheck#1{}
%    \end{macrocode}
%
% \subsection{Macros for the active double quote}
%
% The macro |\@active@DQ| is linked to the active double quote symbol:
%
%    \begin{macrocode}
\def\@active@DQ#1{%
  \ro@DQ@macro\ifx{#1}\relax
    \ifnum\ro@DQwarninglevel>\z@ \ro@DQ@error{#1}\fi
    \expandafter\ro@@normal@DQ
  \else
    \expandafter\ro@@active@DQ
  \fi {#1}}
%    \end{macrocode}
%
% Cope with the hexadecimal \TeX{} input-notation (a do-nothing case):
%
%    \begin{macrocode}
\def\ro@@active@DQ#1{%
  \ro@DQ@macro\ifx{#1}\noexpand
    \expandafter\ro@normal@DQ
  \else
    \expandafter\ro@@@active@DQ
  \fi {#1}}
%    \end{macrocode}
%
% The command |\ro@@normal@DQ| generates two single quotes
% (used in error handling), while |\ro@normal@DQ| is used for
% hexadecimal \TeX{}-input.
%
%    \begin{macrocode}
\def\ro@@normal@DQ#1{``#1}
\def\ro@normal@DQ#1{\DQ #1}
%    \end{macrocode}
%
% \subsection{The protection mechanism}
%
% The protection mechanism is identical with that of German \TeX{}
% and is explained in \texttt{german.dtx}.
%
%    \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}
%
%    \begin{macrocode}
\def\ro@@@active@DQ#1(%
\expandafter\ro@@@@active@DQ\expandafter{\string#1})%
%    \end{macrocode}
%
%    \begin{macrocode}
\def\ro@@@@active@DQ(%
\ifx\protect\relax\else\ifx\protect\empty\else%
\expandafter\expandafter\expandafter\protect%
\fi\fi%
\active@DQ \DQ@prtct )%
%    \end{macrocode}
%
%    \begin{macrocode}
\def\DQ@prtct#1#(\@DQ@prtct)%
\def\@DQ@prtct#1(\string\DQ@prtct{\string#1})%
%    \end{macrocode}
%
%    \begin{macrocode}
\def\DQ@prtct #1{#2}(\string\DQ@prtct{\string#2})%
%    \end{macrocode}
%
%    \begin{macrocode}
\def\active@DQ #1{#2}(\ro@active@@DQ(#2))%
%    \end{macrocode}
%
%    \begin{macrocode}
)%
%    \end{macrocode}
%
%    \begin{macrocode}
\def\active@DQ#1#{\@active@DQ}%
%    \end{macrocode}
%
%    \begin{macrocode}
\def\ro@active@@DQ#1{%
  \csname ro@DQ\ifmmode second\else first\fi
    \expandafter\expandafter\expandafter\expandafter
  \ro@DQ@macro\endcsname{#1}}
%    \end{macrocode}
%
% \subsection{Differential double quote control}
%
% \RomanianTeX{} \emph{specifics}: we introduce a new identifier
% |DQ@mode|; it will be used as a Boolean [a 2-position flag] in
% order to discriminate between the German and the Romanian \TeX{}
% double quote control.
%
%    \begin{macrocode}
\newcount\DQ@mode \DQ@mode=0 % allocate a counter and initialize it
%    \end{macrocode}
%
%    \begin{macrocode}
\def\setRomanianDQ{\DQ@mode=0}
\def\setGermanDQ{\DQ@mode=1}
%    \end{macrocode}
%
% There are obvious discriminators:
%
%    \begin{macrocode}
\def\@R#1#2{\ifnum\DQ@mode=0 #1\else #2\fi}
\def\@G#1#2{\ifnum\DQ@mode=1 #1\else #2\fi}
%    \end{macrocode}
%
% In fact, only one -- |\@R| say -- is actually needed later.
%
% \subsection{The double quote commands}
%
% Most of the |"|-input commands are similar and have the same effect
% in \RomanianTeX{}~\RomanianTeXid~and in the \emph{current version} of
% German \TeX{} [cf.\ \texttt{german.dtx}, v2.5c |<1.05.1996>|].
%
% \subsubsection{The hexadecimal notation}
%
% We handle first the standard \TeX{} hexadecimal double quote input
% notation:
%
%    \begin{macrocode}
\ro@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}
%
% \subsubsection{Inputting the double quotes}
%
% The macro-encoding for the input of the Romanian/German and
% French double quotes \romanianTeX ("`\ldots"' and "<\ldots">)
% \originalTeX is as expected:
%
%    \begin{macrocode}
\def@DQmacro{`}{\glqq{}}{\glqq{}}            % Romanian/German L-DQ
\def@DQmacro{'}{\grqq{}}{\grqq{}}            % Romanian/German R-DQ
\def@DQmacro{<}{\flqq{}}{\flqq{}}            % French L-`guillemots'
\def@DQmacro{>}{\frqq{}}{\frqq{}}            % French R-`guillemots'
%    \end{macrocode}
%
% \subsubsection{The normal double quote input}
%
% In older versions of German and Romanian \TeX{} we could generate
% a normal double quote symbol with |"{}|. This feature is maintained
% on downward-compatibility reasons:
%
%    \begin{macrocode}
\def@DQmacro{}{\DQ{}}{\DQ{}}
%    \end{macrocode}
%
% \subsubsection{Hyphenation auxiliaries}
%
% The special |"|-prefixed symbolic sequences
% \verb:"-:, \verb:"|:, \verb:"":, \verb:"~:, and \verb:"=:
% stand for hyphenation auxiliary commands, allowing us to cope
% (automatically) with local hyphenation exceptions.
%
%    \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}
%
% \subsubsection{Diacritics: Romanian vowels}
%
% The specific input-output mapping of the Romanian/German diacritics 
% on vowels must be as follows. (We document here the case-analysis 
% \RomanianTeX{} \emph{versus} German \TeX{}. 
% The \emph{actual conditional macro-encoding} is summarized in the 
% list appearing at the end of this section.)
%
% For |"a| and |"A| we have, differentially: Romanian \romanianTeX
% "a, "A \emph{versus} German \germanTeX "a, "A; for instance,
% Romanian \romanianTeX \emph{cas"a} [house], \emph{rom"An} 
% [Romanian] and German \germanTeX \emph{sp"at, SP"AT} [late]. 
% \originalTeX (The Romanian upper-case \u{A} and \^{A} are rare
% in print and are \emph{not} macro-encoded in \RomanianTeX{}.)
%
% Analogously, for |"i| and |"I|, one has Romanian \romanianTeX
% "i, "I (e.g., "in, "In [in]) \emph{versus} German/French trema's 
% \germanTeX "i, "I. \originalTeX
%
% On economy reasons, the remaining \emph{Uml\"aute}
% \romanianTeX ("o, "O and "u, "U) \originalTeX and trema's
% \romanianTeX ("e, "E, \originalTeX with |\highumlaut|) can be
% imported as such from the German \TeX{}, although there is no
% need for them in \RomanianTeX{} (except from borrowings, they
% do not occur in Romanian).
%
% \subsubsection{Diacritics: Romanian consonants 1}
%
% Unlike German, Romanian has diacritics on consonants, too:
% Romanian \romanianTeX "s, "S and "t, "T, resp. \originalTeX
% In these cases, German \TeX{} uses the |"|-input for genuine
% purposes.
%
% So |"s| and |"S| are used to get \emph{scharfes es} input-encoding.
% Contrast, e.g., the Romanian \romanianTeX \emph{"stiri, "Stiri} 
% [news] and the German \germanTeX \emph{Stra"se, STRA"SE} [street]. 
% \originalTeX
%
% Moreover, |"z| and |"Z| have no effect in \RomanianTeX{},
% while, in German \TeX{}, they are also supposed to generate
% \emph{scharfes es}, in the form \germanTeX "z and "Z, resp.
% (contrast, for instance, \romanianTeX \emph{"zar, "Zar} [dice]
% and \germanTeX \emph{Stra"ze, STRA"ZE} [street]). \originalTeX
%
% In \RomanianTeX{}, the original German \TeX{} encodings of
% |"s|, |"S|, |"z| and |"Z| are neutralized conditionally.
%
% On the other hand, in German \TeX{}, the |"t|- and |"T|-input
% is used to yield an `automatic' German hyphenation exception.
%
% \subsubsection{German hyphenation exceptions}
%
% The German hyphenation exceptions [cf.\ \texttt{german.dtx}] are 
% handled by a specific mechanism. The next piece of macro-code is 
% used only for the German \TeX{} |DQ@mode|:
%
%    \begin{macrocode}
\def\ro@DQgdsc#1#2{\penalty\@M
  \ifnum\ro@DQwarninglevel>\@ne \ro@DQ@warning{#1}\fi
  \discretionary{#2-}{}{#1}\allowhyphens}
%    \end{macrocode}
%
% The conditional variant must also include a test for Romanian;
% if a \RomanianTeX{} |DQ@mode| is found, the second argument
% (meant to allow German discretionary hyphens) must be discarded,
% and so must be the possible warnings:
%
%    \begin{macrocode}
\def\ro@DQdisc#1#2{%            Romanian-DQ:
\ifnum\DQ@mode=0 #1\relax\else% German-DQ:
  \penalty\@M
  \ifnum\ro@DQwarninglevel>\@ne \ro@DQ@warning{#1}\fi
  \discretionary{#2-}{}{#1}\allowhyphens
\fi}
%    \end{macrocode}
%
% The \RomanianTeX{} handles the German hyphenation exceptions
% conditionally, with |\ro@DQdisc|.
%
% We have, for instance, the genuine German hyphenation exception
% [k-k], [K-K], from input |"ck|, |"CK|, but nothing to do in the
% case of Romanian (and in German math-mode). 
%
% Further, except for |"t| and |"T| (see below), the remaining cases
% (|"l|, |"L|, |"m|, |"M|, |"n|, |"N|, |"p|, |"P|,|"r|, |"R| and |"F|)
% are similar, and the original German \TeX{} macro-code can be also
% used in \RomanianTeX{} (with the discriminating |\ro@DQdisc|-macro).
%
% Finally, the special lower-case German \texttt{ff}-ligatures require
% a specific mechanism, |\def@DQmacro{f}{\ro@DQdiscff}{f}|, where:
%
%    \begin{macrocode}
\def\ro@DQdiscff{\penalty\@M
  \ifnum\ro@DQwarninglevel>\@ne \ro@DQ@warning f\fi
  \afterassignment\ro@DQinsertff \let\ro@DQnextff= }
\def\ro@DQinsertff{%
  \if f\ro@DQnextff
    \expandafter\ro@DQfirst\else\expandafter\ro@DQsecond\fi
  {\relax\discretionary{ff-}{f}{ff}\allowhyphens}{f\ro@DQnext}}
%    \end{macrocode}
%
%    \begin{macrocode}
\let\ro@DQnextff=f
%    \end{macrocode}
% [See \texttt{german.dtx} for explanations.]
% As there is no \emph{ff} in Romanian (except from borrowings),
% this piece of macro-code is useless in \RomanianTeX{} and we
% may either decide to neutralize it conditionally or leave it
% as it is, with no harm done.
%
% \emph{Note}. The \TeX{} math-mode ignores the exceptional German hyphens.
%
% \subsubsection{Diacritics: Romanian consonants 2}
%
% However, |"t| and |"T| are supposed to yield \romanianTeX "t and "T
% \originalTeX resp.\ under a \RomanianTeX{} DQ-r\'egime. In this
% case, in place of the original German \TeX{} macro-code, we have a
% differential treatement:
% Romanian \romanianTeX "t, "T, as, e.g., in \emph{"tara, "Tara} 
% [the country] \originalTeX \emph{versus} the genuine German 
% hyphenation exception [tt-t], [TT-T].
%
% This can be encoded by using \emph{both} the |\@R|-discriminator
% \emph{and} the \emph{original} German \TeX{} |\grmn@DQdisc| (called
% here |\ro@DQgdsc|).
%
% \subsection{The actual DQ-translation}
%
% We can now display the \emph{actual} |"|-translation map:
%
% \subsubsection{Vowels}
%
%    \begin{macrocode}
\def\@nDQ@a{\@R{\@nBRV a}{\@nUML a}}          % "a: \u{a}  | \"{a}
\def\@mDQ@a{\@R{\@mBRV a}{\@mUML a}}          % "a: \u{a}  | \"{a}
\def\@nDQ@A{\@R{\@nHAT a}{\@nUML A}}          % "A: \^{a}  | \"{A}
\def\@mDQ@A{\@R{\@mHAT a}{\@mUML A}}          % "A: \^{a}  | \"{A}
%    \end{macrocode}
%    \begin{macrocode}
\def@DQmacro{a}{\@nDQ@a}{\@mDQ@a}             % "a: \u{a}  | \"{a}
\def@DQmacro{A}{\@nDQ@A}{\@mDQ@A}             % "A: \^{a}  | \"{A}
%    \end{macrocode}
%
%    \begin{macrocode}
\def@DQmacro{e}{\highumlaut e}{\@mUML e}      % "e: \"{e}  | \"{e}
\def@DQmacro{E}{\highumlaut E}{\@mUML E}      % "e: \"{E}  | \"{E}
%    \end{macrocode}
%
%    \begin{macrocode}
\def\@nDQ@i{\@R{\@nHAT{\i}}{\highumlaut{\i}}} % "i: \^{\i} | \"{\i}
\def\@mDQ@i{\@R{\@mHAT\imath}{\@mUML\imath}}  % "i: \^{\i} | \"{\i}
\def\@nDQ@I{\@R{\@nHAT I}{\highumlaut I}}     % "I: \^{I}  | \"{I}
\def\@mDQ@I{\@R{\@mHAT I}{\@mUML I}}          % "I: \^{I}  | \"{I}
%    \end{macrocode}
%    \begin{macrocode}
\def@DQmacro{i}{\@nDQ@i}{\@mDQ@i}             % "i: \^{\i} | \"{\i}
\def@DQmacro{I}{\@nDQ@I}{\@mQQ@I}             % "I: \^{I}  | \"{I}
%    \end{macrocode}
%
%    \begin{macrocode}
\def@DQmacro{o}{\@nUML o}{\@mUML o}           % "o: \"{o}  | \"{o}
\def@DQmacro{O}{\@nUML O}{\@mUML O}           % "O: \"{O}  | \"{O}
%    \end{macrocode}
%
%    \begin{macrocode}
\def@DQmacro{u}{\@nUML u}{\@mUML u}           % "u: \"{u}  | \"{u}
\def@DQmacro{U}{\@nUML U}{\@mUML U}           % "U: \"{U}  | \"{U}
%    \end{macrocode}
%
% \subsubsection{Consonants}
%
%    \begin{macrocode}
\def@DQmacro{c}{\ro@DQdisc ck}{c}             % "ck: ck    | [k-k]
\def@DQmacro{C}{\ro@DQdisc CK}{C}             % "CK: ck    | [K-K]
%    \end{macrocode}
%
%    \begin{macrocode}
\def@DQmacro{f}{\ro@DQdiscff}{f}              % "ff: [ff-f]| [ff-f]
\def@DQmacro{F}{\ro@DQdisc F{FF}}{F}          % "FF: FF    | [FF-F]
%    \end{macrocode}
%
%    \begin{macrocode}
\def@DQmacro{l}{\ro@DQdisc l{ll}}{l}          % "ll: ll    | [ll-l]
\def@DQmacro{L}{\ro@DQdisc L{LL}}{L}          % "LL: LL    | [LL-L]
\def@DQmacro{m}{\ro@DQdisc m{mm}}{m}          % similar
\def@DQmacro{M}{\ro@DQdisc M{MM}}{M}          % similar
\def@DQmacro{n}{\ro@DQdisc n{nn}}{n}          % similar
\def@DQmacro{N}{\ro@DQdisc N{NN}}{N}          % similar
\def@DQmacro{p}{\ro@DQdisc p{pp}}{p}          % similar
\def@DQmacro{P}{\ro@DQdisc P{PP}}{P}          % similar
\def@DQmacro{r}{\ro@DQdisc r{rr}}{r}          % similar
\def@DQmacro{R}{\ro@DQdisc R{RR}}{R}          % similar
%    \end{macrocode}
%
%    \begin{macrocode}
\def\@nDQ@s{\@R{\@nCDL s}{\ss{}}}             % "s: \c{s}  | \ss
\def\@mDQ@s{\@R{\@mCDL s}{\@SS{}}}            % "s: \c{s}  | \ss
\def\@nDQ@S{\@R{\@nCDL S}{SS}}                % "S: \c{S}  | SS
\def\@mDQ@S{\@R{\@mCDL S}{SS}}                % "S: \c{S}  | SS
%    \end{macrocode}
%    \begin{macrocode}
\def@DQmacro{s}{\@nDQ@s}{\@mDQ@s}             % "s: \c{s}  | \ss
\def@DQmacro{S}{\@nDQ@S}{\@mDQ@S}             % "S: \c{S}  | SS
%    \end{macrocode}
%
%    \begin{macrocode}
\def\@nDQ@t{\@R{\@nCDL t}{\ro@DQgdsc t{tt}}}  % "t: \c{t}  | [tt-t]
\def\@mDQ@t{\@R{\@mCDL t}{t}}                 % "t: \c{t}  | t
\def\@nDQ@T{\@R{\@nCDL T}{\ro@DQgdsc T{TT}}}  % "T: \c{T}  | [TT-T]
\def\@mDQ@T{\@R{\@mCDL T}{T}}                 % "T: \c{T}  | T
%    \end{macrocode}
%    \begin{macrocode}
\def@DQmacro{t}{\@nDQ@t}{\@mDQ@t}             % "t: \c{t}  | [tt-t]
\def@DQmacro{T}{\@nDQ@T}{\@mDQ@T}             % "T: \c{T}  | [TT-T]
%    \end{macrocode}
%
%    \begin{macrocode}
\def\@nDQ@z{\@R{z}{\ss{}}}                    % "z: z      | \ss
\def\@mDQ@z{\@R{z}{\@SS{}}}                   % "z: z      | \ss
\def\@nDQ@Z{\@R{Z}{SZ}}                       % "Z: Z      | SZ
\def\@mDQ@Z{\@R{Z}{SZ}}                       % "Z: Z      | SZ
%    \end{macrocode}
%    \begin{macrocode}
\def@DQmacro{z}{\@nDQ@z}{\@mDQ@z}             % "z: z      | \ss
\def@DQmacro{Z}{\@nDQ@Z}{\@mDQ@Z}             % "Z: Z      | SZ
%    \end{macrocode}
%
% \subsection{Re-defining the DQ-commands}
%
%    \begin{macrocode}
\def\ro@DQredefcheck#1{%
  \immediate\write\m@ne{romanian: %
    \ro@DQ@macro\ifx{#1}\relax \else re\fi
    defining DQ-command for `\string#1'\on@line.}}%
%    \end{macrocode}
% [See \texttt{german.dtx}.]
%
% \section{Support for other languages}
%
% This section copes with material which is by now standard in
% the \LaTeX{}-world. The interested reader will fruitfully consult
% \texttt{german.dtx} or any other similar macro-package (as, e.g.,
% the \textsc{babel}-system), if (s)he is not already aware of the
% way the language-dependent features (date, caption display, etc.)
% should work in \LaTeX{}.
%
% \subsection{Dates}
%
% \subsubsection{The English date}
%
%    \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}
%
% \subsubsection{The Romanian date}
%
%    \begin{macrocode}
\def\month@romanian{\ifcase\month \or
  ianuarie\or februarie\or martie\or aprilie\or
  mai\or iunie\or iulie\or august\or 
  septembrie\or octombrie\or noiembrie\or decembrie\fi}
\def\dateromanian{\def\today{\number\day~\month@romanian
  \space\number\year}}
%    \end{macrocode}
%
% \subsubsection{The German and Austrian dates}
%
%    \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}
%
% \subsubsection{The French date}
%
%    \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{Captions}
%
% \subsubsection{English captions}
%
%    \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}
%
% \subsubsection{Romanian captions}
%
%    \begin{macrocode}
\def\captionsromanian{%                       % Variants:
\def\prefacename{Prefa\c{t}\u{a}}%            %
  \def\refname{Bibliografie}%                 % Trimiteri bibliografice
  \def\abstractname{Rezumat}%                 % Sumar 
  \def\bibname{Bibliografie}%                 %
  \def\chaptername{Capitolul}%                % [essay.sty]: {}
  \def\appendixname{Anex\u{a}}%               % Apendix
  \def\contentsname{Cuprins}%                 % Tabla de materii
  \def\listfigurename{Lista de figuri}%       % Indice de figuri
  \def\listtablename{Lista de tabele}%        % Tabele
  \def\indexname{Indice}%                     % 
  \def\figurename{Figura}%                    % 
  \def\tablename{Tabelul}%                    %
  \def\partname{Partea}%                      % 
  \def\enclname{anexe}%                       % con\c{t}ine anexe
  \def\ccname{Copie pentru}%                  % 
  \def\headtoname{C\u{a}tre}%                 %		
  \def\pagename{pagina}%                      % pag., p.
  \def\seename{vezi}%                         % a se vedea, v.
  \def\alsoname{vezi de asemenea}}%           % vezi \c{s}i
%    \end{macrocode}
%
% Note that, for \texttt{essay.sty} (a \RomanianTeX{} style option 
% based on Lamport's \texttt{book.sty}), the |\chaptername| must be
% \emph{nil}.
%
% The variant-label \emph{Trimiteri bibliografice} for the
% |\refname|-field looks obsolete, but most people from the
% humanities would use it preferentially, in place of the
% bare \emph{Bibliografie}, translated \emph{ad hoc}, yet 
% incorrectly, from English/French. 
%
% Finally, the noun \emph{Lista} in the |\listfigurename| and
% |\listtablename| fields may also appear without a definite 
% article (i.e., as \emph{List\u{a}}) in current Romanian prints.
%
% \subsubsection{German captions}
%
%    \begin{macrocode}
\def\captionsgerman{%                         % Variants:
  \def\prefacename{Vorwort}%                  %
  \def\refname{Literatur}%                    % Bibliographie
  \def\abstractname{Zusammenfassung}%         %
  \def\bibname{Literaturverzeichnis}%         % Bibliographie
  \def\chaptername{Kapitel}%                  %
  \def\appendixname{Anhang}%                  %
  \def\contentsname{Inhaltsverzeichnis}%      % Inhalt
  \def\listfigurename{Abbildungsverzeichnis}% %
  \def\listtablename{Tabellenverzeichnis}%    %
  \def\indexname{Index}%                      %
  \def\figurename{Abbildung}%                 %
  \def\tablename{Tabelle}%                    % Tafel
  \def\partname{Teil}%                        %
  \def\enclname{Anlage(n)}%                   % Beilage(n)
  \def\ccname{Verteiler}%                     % Kopien an
  \def\headtoname{An}%                        %
  \def\pagename{Seite}%                       % S.
  \def\seename{siehe}%                        % s.
  \def\alsoname{siehe auch}}                  %
\let\captionsaustrian=\captionsgerman
%    \end{macrocode}
%
% \subsubsection{French captions}
%
%    \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{Other language-dependent parameters}
%
% \subsubsection{English}
%
%    \begin{macrocode}
\def\extrasUSenglish{}
\let\noextrasUSenglish=\extrasUSenglish
\let\extrasenglish=\extrasUSenglish
\let\noextrasenglish=\extrasenglish
%    \end{macrocode}
%
% \subsubsection{Romanian}
%
%    \begin{macrocode}
\def\extrasromanian{\frenchspacing \uchyph\@ne
  \lefthyphenmin\tw@ \righthyphenmin\tw@}
\def\noextrasromanian{%
  \ifnum\sfcode`\.=\@m \else \noexpand\nonfrenchspacing \fi
  \uchyph\the\uchyph\relax
  \lefthyphenmin\the\lefthyphenmin
  \righthyphenmin\the\righthyphenmin}
%    \end{macrocode}
%
% \subsubsection{German}
%
%    \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}
%
% \subsubsection{French}
%
%    \begin{macrocode}
\def\extrasfrench{\frenchspacing}
\def\noextrasfrench{%
  \ifnum\sfcode`\.=\@m \else \noexpand\nonfrenchspacing \fi}
%    \end{macrocode}
%
% \subsection{Language identifiers: default values}
% 
%    \begin{macrocode}
\@ifundefined{l@USenglish}{%
  \@ifundefined{l@english}{\chardef\l@USenglish=255 }%
                          {\chardef\l@USenglish=\l@english}%
  \wlog{romanian: \string\language\space number for US English %
        undefined, default \number\l@USenglish\space used.}%
}{}
%    \end{macrocode}
%
%    \begin{macrocode}
\@ifundefined{l@english}{%
  \chardef\l@english=\l@USenglish
  \wlog{romanian: \string\language\space number for UK English %
        undefined, default \number\l@english\space used.}%
}{}
%    \end{macrocode}
%
%    \begin{macrocode}
\@ifundefined{l@romanian}{%
  \chardef\l@romanian=255 %
    \message{romanian: \string\language\space number for Romanian %
             undefined, default \number\l@romanian\space used.}%
}{}
%    \end{macrocode}
%
%    \begin{macrocode}
\@ifundefined{l@german}{%
  \@ifundefined{l@austrian}{%
    \chardef\l@german=255 %
    \wlog{romanian: \string\language\space number for German %
          undefined, default \number\l@german\space used.}%
}{%
    \chardef\l@german=\l@austrian
    \wlog{romanian: \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{romanian: \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{romanian: \string\language\space number for French %
        undefined, default \number\l@french\space used.}%
}{}
%    \end{macrocode}
%
% \subsection{Language selection macros}
%
%    \begin{macrocode}
\def\ro@originalTeX{}
%    \end{macrocode}
%
%    \begin{macrocode}
\def\languagename{}
%    \end{macrocode}
%
%    \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
    \ro@originalTeX
    \edef\languagename{#1}%
    \edef\ro@originalTeX{\csname noextras#1\endcsname
                      \def\noexpand\ro@originalTeX{}}%
    \csname date#1\endcsname
    \csname captions#1\endcsname
    \csname extras#1\endcsname\relax
    \csname bibs#1\endcsname % for `bibgerm': must disappear!
    \language \csname l@#1\endcsname\relax
  \fi}
%    \end{macrocode}
%
%    \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}
%
%    \begin{macrocode}
\def\p@selectlanguage{\selectlanguage}
%    \end{macrocode}
%
%    \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{Compatibility with \protect\TeX~2}
%
%    \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}
%
%    \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{Activating/de-activating the language setting}
%
%    \begin{macrocode}
\begingroup \mDQon
\def\x{\endgroup
  \def\originalTeX{\mDQoff \let"\DQ \umlauthigh
    \let\3\ro@original@three
    \selectlanguage{USenglish}}%
  \def\romanianTeX{\mDQon \let"\@active@DQ \umlautlow
    \setRomanianDQ % \DQ@mode=0
    \let\ro@original@three\3\let\3\ss
    \selectlanguage{romanian}}%
  \def\germanTeX{\mDQon \let"\@active@DQ \umlautlow
    \setGermanDQ   % \DQ@mode=1
    \let\ro@original@three\3\let\3\ss
    \selectlanguage{german}}%
  \def\frenchTeX{\mDQoff \let"\DQ \umlauthigh
    \let\3\ro@original@three
    \selectlanguage{french}}}%
\x
%    \end{macrocode}
%
% The modification job is done. We return to the `public' \TeX{} world
% (by setting |@| to category code `other', from the initially saved 
% |\atcode|):
%
%    \begin{macrocode}
\catcode`\@=\atcode          % restore_previous_category_code_of |@|
%    \end{macrocode}
% and initialize \RomanianTeX{}:
%
%    \begin{macrocode}
\romanianTeX
%    \end{macrocode}
%
%\iffalse
%</!driver>
%\fi
%
% \section{A driver for the macro-code documentation}
%
% The following piece of code should generate the documentation
% of the \RomanianTeX{} macro-code (in \texttt{.dvi}-form), from
% \texttt{romanian.dtx}, if passed through \emph{Romanian} \LaTeXe{}.
%
%    \begin{macrocode}
%<+driver>\ifx\documentclass\undefined % test: LaTeX2e or LaTeX 2.09?
%<+driver>\typeout{^^JUse a Romanian LateX2e installation!}
%<+driver>\typeout{^^JAborting (fake LaTeX 2.09 article):^^J}
%<+driver> \documentstyle[]{article}
%<+driver>\else % do the job with (Romanian) LaTeX2e, if possible:
%<+driver> \documentclass[a4paper]{ltxdoc}
%<+driver> \usepackage{romanian}
%<+driver>\fi
%<+driver>\begin{document}
%<+driver>\ifx\documentclass\undefined \relax % farniente...
%<+driver>\else % do the job, as required:
%<+driver>\DocInput{romanian.dtx}
%<+driver>\fi   % reach an end, anyway:
%<+driver>\end{document}
%    \end{macrocode}
%
% \Finale
\endinput
%% End of file ROMANIAN.DTX