%%  BibArts 2.6 assists you to write LaTeX texts in arts and humanities.
%%  Copyright (C) 2023  Timo Baumann  bibarts[at]gmx.de  (2023/06/18)
%%
%%  This program is free software; you can redistribute it and/or modify
%%  it under the terms of the GNU General Public License as published by
%%  the Free Software Foundation; either version 2 of the License, or
%%  (at your option) any later version.
%%
%%  This program is distributed in the hope that it will be useful,
%%  but WITHOUT ANY WARRANTY; without even the implied warranty of
%%  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%%  GNU General Public License for more details.
%%
%%  You should have received a copy of the GNU General Public License
%%  along with this program; if not, write to the Free Software
%%  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.



%%  FILES OF THE PACKAGE AND DOCUMENTATION
%%  CTAN mirrors > BibArts > bibarts.zip
%%    README.txt    Version history since 1.3
%%    bibarts.sty   This file (a LaTeX style)
%%    ba-short.pdf  Short documentation (English)
%%    ba-short.tex  Source of ba-short.pdf
%%    bibarts.pdf   Full documentation (German)
%%    bibarts.tex   Source of bibarts.pdf
%%    bibsort.exe   bibarts-bin to create the lists
%%    bibsort.c     Source of bibsort.exe
%%    COPYING       The license of the package

%%  Octets � � � � � � and triplets like ‘ are used in this file.


%%  COMPATIBILITY
%%  Change \DeclareRobustCommand (DRC) into \def before using LaTeX 2.09.
%%  Then, you still NOT have to \protect BibArts-cmds in args of v-cmds.
%%  BibArts 2.6 ONLY has an EMULATION for 1.3 texts:  Keep copies of 1.x?




                         %% INTERNE MINIMALIA %%

%% ~"<`'>:;!? may be active:

\def\grave@ba{\string`}
 {\catcode\grave@ba\~=13%
  \catcode\grave@ba\"=13%
  \catcode\grave@ba\:=13%
  \catcode\grave@ba\;=13%
  \catcode\grave@ba\!=13%
  \catcode\grave@ba\?=13%
  \catcode\grave@ba\'=13%
  \catcode\grave@ba\`=13%
  \catcode\grave@ba\<=13%
  \catcode\grave@ba\>=13%
\gdef\protectchars@active{%
  \ifnum\catcode\grave@ba\~=13\def~{\string~}\fi%
  \ifnum\catcode\grave@ba\"=13\def"{\string"}\fi%
  \ifnum\catcode\grave@ba\:=13\def:{\string:}\fi%
  \ifnum\catcode\grave@ba\;=13\def;{\string;}\fi%
  \ifnum\catcode\grave@ba\!=13\def!{\string!}\fi%
  \ifnum\catcode\grave@ba\?=13\def?{\string?}\fi%
  \ifnum\catcode\grave@ba\'=13\def'{\string'}\fi%
  \ifnum\catcode\grave@ba\`=13\def`{\string`}\fi%
  \ifnum\catcode\grave@ba\<=13\def<{\string<}\fi%
  \ifnum\catcode\grave@ba\>=13\def>{\string>}\fi%
}%
}


\def\typeout@ba#1{{\protectchars@active\typeout{#1}}}

\def\errmessage@ba#1{{\protectchars@active\errmessage{#1.^^J \space. . . . . . . . . . . }}}

\typeout@ba{Style Option BibArts, Version 2.6 [2023] ...}

\def\msg@bafontsubst#1#2{\typeout@ba{{\string#1 ...} is unknown; I'll substitute {\string#2 ...}.}}

\expandafter\ifx\csname bfseries\endcsname\relax\def\bfseries{\bf}\msg@bafontsubst{\bfseries}{\bf}\fi
\expandafter\ifx\csname scshape\endcsname\relax\def\scshape{\sc}\msg@bafontsubst{\scshape}{\sc}\fi
\expandafter\ifx\csname sffamily\endcsname\relax\def\sffamily{\sf}\msg@bafontsubst{\sffamily}{\sf}\fi
\expandafter\ifx\csname slshape\endcsname\relax\def\slshape{\sl}\msg@bafontsubst{\slshape}{\sl}\def\ba@sls{}\else\let\ba@sls=\slshape\fi
\expandafter\ifx\csname itshape\endcsname\relax\def\itshape{\it}\msg@bafontsubst{\itshape}{\it}\def\ba@its{}\else\let\ba@its=\itshape\fi
\expandafter\ifx\csname normalfont\endcsname\relax\def\normalfont{\rm}\msg@bafontsubst{\normalfont}{\rm}\fi
\expandafter\ifx\csname upshape\endcsname\relax
 \def\pupshape{\ifdim\fontdimen\@ne\font=\z@\else\rm\relax\fi}%
 \def\upshape{\protect\pupshape}\msg@bafontsubst{\upshape}{\rm[if it/sl]}\fi




                %% corr for slanted fonts %%

\def\resetcorr@ba{\gdef\bacorr{}\gdef\barefcorr{}}
\resetcorr@ba

\def\bakxxcorr{\bacorr}
\def\baabkcorr{\bacorr}
\def\balistcorr{\bacorr}
\def\bakntsepcorr{\bacorr}
%% \barefcorr remains un-unified

\def\setup@ba#1#2{\let\@bahdtest-{#1{%
   \ifdim\fontdimen\@ne\font=\z@{\ignorespaces #2\ba@textmode\iflasthasdot@ba{\global\let\@bahdtest+}{}}\else
   \if@reportbaup\type@bawarn{Add \string\upshape \space to \string#1}\fi
   {\upshape{\ignorespaces #2\ba@textmode\iflasthasdot@ba{\global\let\@bahdtest+}{}}}\fi}}%
   \iflasthasdot@ba{}{\ifx\@bahdtest+\@bahasdot\fi}}

\def\init@bacorr#1#2#3{\ifdim\lastskip=\hasdotcode@ba\gdef#3{}\else
  {\let\@testa=-\bagetnext@arg#1\endlist@ba
  \ifx\@testa-\makecorrcmd@ba{#2}{#3}\else\gdef#3{}\@bahasdot\fi}\fi}

\def\init@baXcorr#1#2#3{\ifdim\lastskip=\hasdotcode@ba\gdef#3{}\else
  {\let\@testa=-\bagetnext@arg#1\endlist@ba
  \ifx\@testa-\makeXcorrcmd@ba{#2}{#3}\else\gdef#3{}\@bahasdot\fi}\fi}

\def\finddot@ba#1{\ifdim\lastskip=\hasdotcode@ba\let\@testa=+\else
  \bagetnext@arg#1\endlist@ba\fi}

\def\corrrrule@ba{\vrule width 0.1pt height 3pt depth 1pt\kern -0.1pt}
\let\TeXitcorr@ba=\/ 
\def\dofrco@ba@abk{%
  \if@bafrontcorr\ifhmode
  \TeXitcorr@ba \if@showbacorr\ifdim\lastkern=\z@\else\corrrrule@ba\fi\fi
 \fi\fi}
\def\dofrco@ba{\ba@textmode
  \if@bafrontcorr\ifhmode
  \TeXitcorr@ba \if@showbacorr\ifdim\lastkern=\z@\else\corrrrule@ba\fi\fi
 \fi\fi}

\def\@bacorrkern{\kern0.1em\if@showbacorr\corrrrule@ba\fi}
\def\@baXcorrkern{\kern0.1em\if@showbacorr\corrrrule@ba\kern-0.1em\strut\kern0.1em\fi}
\def\@banegkern{\kern-0.1em}

\def\makeXcorrcmd@ba#1#2{{#1{\ifdim\fontdimen\@ne\font=\z@%
  \gdef#2{}\else\gdef#2{\ifdim\fontdimen\@ne\font=\z@\nulskip@ba\strut\@baXcorrkern\fi{}}\fi}}}

\def\makecorrcmd@ba#1#2{{#1{\ifdim\fontdimen\@ne\font=\z@%
  \gdef#2{}\else\gdef#2{\ifdim\fontdimen\@ne\font=\z@\@bacorrkern\nulskip@ba\fi}\fi}}}

\def\@baupcorr{\ifhmode\ifdim\fontdimen\@ne\font=\z@\else\@bacorrkern\nulskip@ba\fi\fi}
\def\pbaupcorr{\iflasthasdot@ba{\nulskip@ba\strut}{\@baupcorr}}
\def\baupcorr{\protect\pbaupcorr}

\def\@badowncorr{\ifhmode\ifdim\fontdimen\@ne\font=\z@\@banegkern\nulskip@ba\fi\fi}
\def\@baendcorr{\ifhmode\ifdim\fontdimen\@ne\font=\z@\else\@banegkern\nulskip@ba\fi\fi}

\def\bagetnext@arg{\afterassignment\do@ba@pt\let\next@ba= }
\def\do@ba@pt{%
  \ifx \next@ba\endlist@ba \let\next@ba\relax
  \else
     \ifx .\next@ba \let\@testa=+\else
        \ifx\egroup\next@ba \else
           \let\@testa=-%
     \fi\fi
     \let\next@ba\bagetnext@arg
  \fi \next@ba}



                %% emphes %%

\def\kxxemph{} %{\itshape}
 
\def\peremph{\normalfont\scshape} %{\upshape}

\def\authoremph{\normalfont\scshape} %{\upshape}

\def\balistnumemph{\sffamily} %{} %{\small\itshape}

\def\arqemph{\normalfont\sffamily} %{\upshape}

\def\edibidemph{\scshape}  %% do not change because of IBIDEM %%



                %% types %%

\def\originalquotetype{\small}  %{\small\itshape}

\def\balisttype{}  %{\slshape}



                %% names and seps for lists %%

\def\killname{$\sim$\kern 0.05em}
\def\femalename{\cap@ba{eadem}}   %%  \vli{\female ...}{...}{...}
\def\malename{\cap@ba{idem}}      %%  \vli{\male ...}{...}{...}


\newif\ifgendering\genderingfalse
\newif\iffemale\femalefalse
\def\female{\global\genderingtrue\global\femaletrue}
\def\male{\global\genderingtrue\global\femalefalse}
\def\Ikillname{\ifgendering 
   \iffemale \femalename \else \malename \fi 
 \else \killname \fi}
\def\Pkillname{\cap@ba{iidem}}


\def\prep@bakntsepcorr{\def\bacorr{\ifdim\fontdimen\@ne\font=\z@\else{\kxxemph{\ifdim\fontdimen\@ne\font=\z@\@bacorrkern\nulskip@ba\fi}}\fi}}
\def\not@bakntsepcorr{\def\bacorr{}}
\def\ntsep{: \bacorr}  %{\ifbashortcite{ }{: }}  %{\bapoint\newsentence}
         %{\ifbashortcite{:\hskip0pt plus 0pt}{: }\bacorr}
\def\ppntsep{{\@kxxbafalse\not@bakntsepcorr\ntsep}}
\def\printntsep{\protect\ppntsep}

\def\nsep{\baslash}  %{, }  %{ / \baupcorr}  %{\upshape{\protect\nolinebreak[3] /\protect\linebreak[3] }}


\def\listlnfnsep{, }

\def\arqsep{, }  %{: }  %{\bapoint\newsentence}




                %% switches %%

\def\pnotaffixhints{\@affixhintsfalse}
\def\notaffixhints{\protect\pnotaffixhints}

\def\paffixhints{\@affixhintstrue}
\def\affixhints{\protect\paffixhints}

\def\pannouncektit{\@heraldktittrue}
\def\announcektit{\protect\pannouncektit}

\def\pnotannouncektit{\@heraldktitfalse}
\def\notannouncektit{\protect\pnotannouncektit}

\def\pshowbacorr{\@showbacorrtrue}
\def\showbacorr{\protect\pshowbacorr}

\def\pnotshowbacorr{\@showbacorrfalse}
\def\notshowbacorr{\protect\pnotshowbacorr}

\def\pnotbafrontcorr{\@bafrontcorrfalse}
\def\notbafrontcorr{\protect\pnotbafrontcorr}

\def\pbafrontcorr{\@bafrontcorrtrue}
\def\bafrontcorr{\protect\pbafrontcorr}

\def\pprinthints{\@printhinttrue}
\def\printhints{\protect\pprinthints}

\def\pnotprinthints{\@printhintfalse}
\def\notprinthints{\protect\pnotprinthints}

\def\pktitaddtok{\@makektitktrue}
\def\ktitaddtok{\protect\pktitaddtok}

\def\pnotktitaddtok{\@makektitkfalse}
\def\notktitaddtok{\protect\pnotktitaddtok}


\def\pkurzaddtoarq{\@kurztoarqtrue}
\def\kurzaddtoarq{\protect\pkurzaddtoarq}

\def\pnotkurzaddtoarq{\@kurztoarqfalse}
\def\notkurzaddtoarq{\protect\pnotkurzaddtoarq}


\def\pibidemize{\@ibidemizetrue}
\def\ibidemize{\protect\pibidemize}

\def\pnotibidemize{\@ibidemizefalse}
\def\notibidemize{\protect\pnotibidemize}

\def\pclearbamem{\clearmem@ba}
\def\clearbamem{\protect\pclearbamem}

\def\pshowbamem{\@bashowmemtrue}
\def\showbamem{\protect\pshowbamem}

\def\pnotshowbamem{\@bashowmemfalse}
\def\notshowbamem{\protect\pnotshowbamem}


\def\pnotwriteidemwarnings{\wriwarn@bafalse}
\def\notwriteidemwarnings{\protect\pnotwriteidemwarnings}

\def\pwriteidemwarnings{\wriwarn@batrue}
\def\writeidemwarnings{\protect\pwriteidemwarnings}


\def\pconferize{\ba@varstringtrue}
\def\conferize{\protect\pconferize}

\def\pnotconferize{\ba@varstringfalse}
\def\notconferize{\protect\pnotconferize}

\def\pexeditnum{\@bamathaufltrue}
\def\exponenteditionnumber{\protect\pexeditnum}

\def\pnotexeditnum{\@bamathauflfalse}
\def\notexponenteditionnumber{\protect\pnotexeditnum}

\def\pprintlpafo{\@prnbapftrue}
\def\printlongpagefolio{\protect\pprintlpafo}

\def\pnotprintlpafo{\@prnbapffalse}
\def\notprintlongpagefolio{\protect\pnotprintlpafo}

\def\pprintlpevo{\@prnbapevotrue}
\def\printlongpervol{\protect\pprintlpevo}

\def\pnotprintlpevo{\@prnbapevofalse}
\def\notprintlongpervol{\protect\pnotprintlpevo}

\def\if@batone#1#2{\ifx\ToneName@ba\encodingdefault{#1}\else{#2}\fi}
\def\ifbatone{\protect\if@batone}
\def\ifbaibidem#1#2{\ifx\isibidem@ba+{#1}\else{#2}\fi}
\def\ifbaperiodical#1#2{\if@perba{#1}\else{#2}\fi}
\def\ifbashortcite#1#2{\if@kxxba{#1}\else{#2}\fi}
\def\ifbaprinthints#1#2{\if@printhint{#1}\else{#2}\fi}
\def\ifbahaspervol#1#2{\ifx\lockpevo@ba+{#1}\else{#2}\fi}

\def\hasdotcode@ba{0.0011pt}
\def\notdotcode@ba{0.0021pt}
\def\@bahasdot{{\nobreak \hskip \hasdotcode@ba}}
\def\@banotdot{{\nobreak \hskip \notdotcode@ba}}
\def\pbahasdot{\@bahasdot}
\def\pbanotdot{\@banotdot}
\def\bahasdot{\protect\pbahasdot}
\def\banotdot{\protect\pbanotdot}
\def\iflasthasdot@ba#1#2{\ifdim\lastskip=\hasdotcode@ba #1\relax\else #2\relax\fi}
\def\pifbahasdot#1#2{\iflasthasdot@ba{{#1}}{{#2}}}
\def\ifbahasdot{\protect\pifbahasdot}
\def\iflastnotdot@ba#1#2{\ifdim\lastskip=\notdotcode@ba #1\relax\else #2\relax\fi}
\def\pbapoint{\iflasthasdot@ba{\nulskip@ba\strut}{\iflastnotdot@ba{\nulskip@ba\strut}{.}}}
\def\bapoint{\protect\pbapoint}

\def\pbadelsb{\ifhmode\ifdim\lastkern=\z@\else\kern-\lastkern\nobreak\fi
   \ifdim\lastskip=\z@\nobreak\else\ifdim\lastskip=\hasdotcode@ba\nobreak\else\ifdim\lastskip=\notdotcode@ba\nobreak\else\hskip-\lastskip\fi\fi\fi\fi}
\def\badelspacebefore{\protect\pbadelsb}

\def\pernosep{\bacorr\nobreak\ }  %{\bastrut\ \bacorr}
\def\pervolshortsep{\ifbaperiodical{\ifbaibidem{, }{\pernosep}}{, }}  %{\bastrut\ \bacorr}
\def\pagefolioshortsep{\bacorr : }  %{\bastrut\ \bacorr}

\def\pwnsn{\@wnsntrue}
\def\warnsamename{\protect\pwnsn}

\def\pnotwnsn{\@wnsnfalse}
\def\notwarnsamename{\protect\pnotwnsn}

\def\@bastrut{\iflasthasdot@ba{\strut}{}\iflastnotdot@ba{\strut}{}}
\def\pbastrut{\protect\@bastrut}
\def\bastrut{\protect\pbastrut}
\def\frompagesep{\bastrut\hskip 1.25em minus 0.25em\bacorr}  %{, }  %{\bacorr; }  %{\bapoint\space ---\nobreak\ }

\def\fromnopagevxxsep{\bapoint}
\def\fromnopagevkcsep{}  %{\bapoint}

\def\fromnopagexrrsep{}
\def\fromnopagearqsep{\bapoint}
\def\fromnopageabksep{}  %{\bapoint}
\def\fromnopagepersep{\bapoint}

  \def\pxrrlo{\bastrut\ \bacorr(}
  \def\pxrrlc{)}
\def\xrrlistopen{\protect\pxrrlo}
\def\xrrlistclose{\protect\pxrrlc}

  \def\parqlo{\bastrut\hskip 1em minus 0.3em\bacorr}
  \def\parqlc{}
\def\arqlistopen{\protect\parqlo}
\def\arqlistclose{\protect\parqlc}

\def\arqsectionopen{\bastrut\ \bacorr $-$ }
\def\arqsectionclose{\bahasdot}
\def\arqsubsectionopen{\bastrut\ \bacorr $-$ }
\def\arqsubsectionclose{\bahasdot}
\def\arqsubsubsectionopen{\bastrut\ \bacorr $-$ }
\def\arqsubsubsectionclose{\bahasdot}

\def\arqsectionbegin{\vskip 4ex plus 1ex minus 1ex\pagebreak[3]\normalsize\bfseries}
\def\arqsubsectionbegin{\vskip 3.5ex plus 0.8ex minus 0.8ex\pagebreak[2]\small\bfseries}
\def\arqsubsubsectionbegin{\vskip 3ex plus 0.6ex minus 0.6ex\pagebreak[2]\footnotesize\bfseries}
\def\arqsectionend{\nopagebreak[3]\vspace{0.5ex}\nopagebreak[3]}
\def\arqsubsectionend{\nopagebreak[3]\vspace{0.5ex}\nopagebreak[3]}
\def\arqsubsubsectionend{\nopagebreak[3]\vspace{0.5ex}\nopagebreak[3]}

  \def\pperlo{\bastrut\ \bacorr $-$ }
  \def\pperlc{}
\def\perlistopen{\protect\pperlo}
\def\perlistclose{\protect\pperlc}

  \def\pabklo{\bastrut\hskip 1.2em minus 0.3em\bacorr}
  \def\pabklc{}
\def\abklistopen{\protect\pabklo}
\def\abklistclose{\protect\pabklc}

\def\abkdefopen{\bacorr\ (}
\def\abkdefclose{)}
\def\defabkopen{\bastrut\ (\bacorr}
\def\defabkclose{\bacorr)}

\def\xrrlistemph{}  %{\itshape}
\def\arqlistemph{\arqemph\relax\normalsize}
\def\perlistemph{\peremph}
\def\abklistemph{\bfseries}  %{\abkemph}




                %% Captions %%


\newif\if@ibidhp\@ibidhpfalse
\newif\if@giep\@giepfalse
\newif\if@fiep\@fiepfalse
\newif\if@eiep\@eiepfalse

\def\psetibid#1#2#3{%\@bsphack
  \def\@testa{#1}%
  \ifx#1g\def\gibidemname{#2#3}\ifx#3.\@gieptrue\else\@giepfalse\fi\fi
  \ifx#1f\def\fibidemname{#2#3}\ifx#3.\@fieptrue\else\@fiepfalse\fi\fi
  \ifx#1e\def\eibidemname{#2#3}\ifx#3.\@eieptrue\else\@eiepfalse\fi\fi
  \ifx\@testa\langcap@ba\ifx#3.\@ibidhptrue\else\@ibidhpfalse\fi\fi
  {\errhelp{Usage:
   ^^J\setibidem{g}{abbr}{.} OR \setibidem{e}{abbr}{.} OR \setibidem{f}{abbr}{.}
   ^^J\setibidem{g}{text}{} OR \setibidem{e}{text}{} OR \setibidem{f}{text}{}}%
  \ifx#1g\else\ifx#1f\else\ifx#1e\else\errorcontextlines=-1%
  \@qqertypeout{setibid}{...}\errmessage@ba{Reject undefined language {#1}}%
  \fi\fi\fi}%
  \def\@testa{}%\@esphack
  }
\def\setibidem{\protect\psetibid}

\def\cap@ba#1{{\csname \langcap@ba#1name\endcsname}}
\def\pbacaptionsgerman{\def\langcap@ba{g}\if@giep\@ibidhptrue\else\@ibidhpfalse\fi}
\def\pbacaptionsfrench{\def\langcap@ba{f}\if@fiep\@ibidhptrue\else\@ibidhpfalse\fi}
\def\pbacaptionsenglish{\def\langcap@ba{e}\if@eiep\@ibidhptrue\else\@ibidhpfalse\fi}
\def\bacaptionsgerman{\protect\pbacaptionsgerman}
\let\bacaptionsngerman=\bacaptionsgerman
\def\bacaptionsfrench{\protect\pbacaptionsfrench}
\def\bacaptionsenglish{\protect\pbacaptionsenglish}

\expandafter\ifx\csname fup\endcsname\relax
\def\pfup#1{\iflasthasdot@ba{}{\@baupcorr}\escb@ba
   \lower-0.75ex\hbox{\scriptsize{\upshape\ignorespaces #1\ba@textmode}}{\@baendcorr}{\kern 0.01pt}}%
\def\fup{\protect\pfup}%
\else
\typeout{\string\fup-command used. I do not redefine.}%
\fi

\expandafter\ifx\csname editor\endcsname\relax
%\def\peditor{\dofrco@ba\setup@ba{\edibidemph}{\cap@ba{editor}}}%
\def\peditor{\cap@ba{editor}}%
\def\editor{\protect\peditor}%
\else
\typeout{\string\editor-command used. I do not redefine.}%
\fi

\expandafter\ifx\csname editors\endcsname\relax
%\def\peditors{\dofrco@ba\setup@ba{\edibidemph}{\cap@ba{editorp}}}%
\def\peditors{\cap@ba{editorp}}%
\def\editors{\protect\peditors}%
\else
\typeout{\string\editors-command used. I do not redefine.}%
\fi

\def\ibidemname@ba{\setup@ba{\edibidemph}{\cap@ba{ibidem}}}


%% \@testb into \sg@ba and DRC in 2.6

\def\pbaplural{\let\sg@ba=+}
\DeclareRobustCommand\baplural{\protect\pbaplural}  %% at the end of __||()[]

\def\pbasingular{\let\sg@ba=.}
\DeclareRobustCommand\basingular{\protect\pbasingular}

{\catcode\grave@ba\;=12\gdef\dopassemi@ba{\ifx;\next@ba \let\sg@ba=+\fi}}
{\catcode\grave@ba\;=13\gdef\doaktsemi@ba{\ifx;\next@ba \let\sg@ba=+\fi}}
\def\kommin@string#1{\getnext@km#1\endlist@ba}
\def\getnext@km{\afterassignment\do@ba@km\let\next@ba= }
\def\do@ba@km{%
  \ifx \next@ba\endlist@ba \let\next@ba\relax
  \else
   \ifx    -\next@ba \let\sg@ba=+\fi
   \ifx    ,\next@ba \let\sg@ba=+\fi
   \ifx  \hy\next@ba \let\sg@ba=+\fi
   \ifx \fhy\next@ba \let\sg@ba=+\fi
   \ifx \phy\next@ba \let\sg@ba=+\fi  %% Re-entered in 2.6:
   \ifx\pfhy\next@ba \let\sg@ba=+\fi  %% Needed if not DRC!
   \ifx   \f\next@ba \let\sg@ba=+\fi
   \ifx  \ff\next@ba \let\sg@ba=+\fi
   \ifx  \pf\next@ba \let\sg@ba=+\fi
   \ifx \pff\next@ba \let\sg@ba=+\fi
   \ifx  \sq\next@ba \let\sg@ba=+\fi
   \ifx \sqq\next@ba \let\sg@ba=+\fi
   \ifx \psq\next@ba \let\sg@ba=+\fi
   \ifx\psqq\next@ba \let\sg@ba=+\fi
   \ifx \basingular\next@ba \basingular\fi
   \ifx \baplural  \next@ba \baplural  \fi
   \ifx\pbasingular\next@ba \basingular\fi
   \ifx\pbaplural  \next@ba \baplural  \fi
   \dopassemi@ba
   \doaktsemi@ba
   \let\next@ba\getnext@km
  \fi \next@ba}

\def\erripfpevo@ba#1{%{ \erri@ba}%
   \ifx#1x\type@bawarn{Empty [] or () at \if@baouter outer \else inner \fi cmd}\else
          \type@bawarn{Empty || or __ at \if@baouter outer \else inner \fi cmd}\fi}

\def\printpf@ba#1#2{\if@pfvba{\errorcontextlines=-1%
  \def\@testa{#2}%
  \let\sg@ba=.%
  \ifx\@testa\@leer \erripfpevo@ba{x}\else
  \ifx\@testa\@leerz\erripfpevo@ba{x}\else
  \if@prnbapf\kommin@string{#2}\fi
  {\if@prnbapf\ifx.\sg@ba\cap@ba{#1}\else\cap@ba{#1p}\fi
   \else{\pagefolioshortsep}\fi
   {\ignorespaces #2}\let\@testa=-\finddot@ba{#2}\ifx\@testa+\@bahasdot\fi}\fi\fi}\fi}

\def\printpevo@ba#1#2{\if@pfvba{\errorcontextlines=-1%
  \def\@testa{#1}%
  \let\sg@ba=.%
  \ifx\@testa\@leer \erripfpevo@ba{}\else
  \ifx\@testa\@leerz\erripfpevo@ba{}\else
  \if@prnbapevo\kommin@string{#1}\fi
  {\if@prnbapevo\ifx.\sg@ba\cap@ba{#2}\else\cap@ba{#2p}\fi
   \else{\pervolshortsep}\fi
   {\ignorespaces #1}\let\@testa=-\finddot@ba{#1}\ifx\@testa+\@bahasdot\fi\gdef\bacorr{}}\fi\fi}\fi}

\def\prints@ba#1#2{{\@herefunctions
  \def\@testa{#2}%
  \def\@testb{#1}%
  \ifx\@testa\@leer \global\let\isibidem@ba=-%
  \else\ifx\@testa\@leerz \global\let\isibidem@ba=-%
  \else{\upshape{%
     \let\@testa=-% 
     \ifx\@testb\@leer {\ignorespaces #2\ba@textmode}\finddot@ba{#2}\else
        \ifx\@testb\@leerz {\ignorespaces #2\ba@textmode}\finddot@ba{#2}\else
           {\ignorespaces #1\ba@textmode}\finddot@ba{#1}\fi\fi
        \ifx\@testa+\@bahasdot\fi \arqsep}}%
  \fi\fi}}

\def\initprintpf@ba#1#2#3{%
  \if@pfvba
   {\@memfunctions\@outsavety\@herefunctions\fillpref@ba{#2}{#3}}%
   {\if@footnote
      \ifx\pmem@ba\pref@ba
         \ifx\isibidem@ba-\printpf@ba{#1}{#3}%
         \else\ifx\lastp@ba+\printpf@ba{#1}{#3}%
              \else\global\let\lookpage@ba=+%
              \fi
         \fi
      \else\printpf@ba{#1}{#3}%
         \if@baouter
            \ifx\isibidem@ba+\ifx\pos@ba1\else\global\let\thisp@ba=+\fi\fi
         \fi
      \fi
      \else\printpf@ba{#1}{#3}%
      \global\let\lastp@ba=-%
      \global\let\pmem@ba=\pref@ba
    \fi}%
  \fi}

\def\initprintpevo@ba#1#2{%
  \if@pfvba
   {\@memfunctions\@outsavety\@herefunctions\fillvolref@ba{#1}}%
   {\if@footnote
      \ifx\volmem@ba\volref@ba
         \ifx\isibidem@ba-\printpevo@ba{#1}{#2}%
         \else\ifx\lastvol@ba+\printpevo@ba{#1}{#2}%
              \else \global\let\onlypevo@ba=-%
              \fi
         \fi
      \else\printpevo@ba{#1}{#2}%
         \fillpmem@ba{}{}%
         \global\let\pfilled@ba=-%
         \if@baouter
            \ifx\isibidem@ba+\ifx\pos@ba1\else\global\let\thisvol@ba=+\fi\fi
         \fi
      \fi
      \global\let\lastvol@ba=-%
      \global\let\volmem@ba=\volref@ba
    \else
      \printpevo@ba{#1}{#2}%
    \fi}%
  \fi}


\def\initprints@ba#1#2{%
   {\@memfunctions\@outsavety\@herefunctions\fillsref@ba{#2}}%
   {\if@footnote
      \ifx\smem@ba\sref@ba
         \ifx\isibidem@ba-\prints@ba{#1}{#2}%
         \else \ifx\lasts@ba+\prints@ba{#1}{#2}\fi
         \fi
      \else\prints@ba{#1}{#2}%
         \if@baouter
            \ifx\isibidem@ba+\ifx\pos@ba1\else\global\let\thiss@ba=+\fi\fi
         \fi
      \fi
    \else\prints@ba{#1}{#2}\fi
    \global\let\lasts@ba=-%
   }\global\let\smem@ba=\sref@ba}

\def\@bapg#1{\initprintpf@ba{isonpage}{p}{#1}}
\def\@baxpg#1{\initprintpf@ba{isonxpage}{p}{#1}}
\def\@bafolio#1{\initprintpf@ba{isonfolio}{f}{#1}}
\def\@baxfolio#1{\initprintpf@ba{isonxfolio}{f}{#1}}


\bacaptionsgerman   %% default
%% German:
\def\ganonymousname{[Anonym]}
\def\geditorname{[\kern 0.04em Hrsg.]\kern 0.02em}
\let\geditorpname=\geditorname
\setibidem{g}{ebd\kern -0.07em}{.}
\def\gidemname{ders\kern -0.04em.\bahasdot}
\def\geademname{dies\kern -0.04em.\bahasdot}
\def\giidemname{diesn\kern -0.07em.\bahasdot}
\def\gvolname{, Bd.\,}
\def\gvolpname{, Bde.\,}
\def\gpername{\ifbaibidem{, Nr.\,}{\pernosep}}
\def\gperpname{\ifbaibidem{, Nr.\,}{\pernosep}}
\def\gisonfolioname{, Bl.\,}
\def\gisonfoliopname{, Bl.\,}
\def\gisonxfolioname{, dort: Bl.\,}
\def\gisonxfoliopname{, dort: Bl.\,}
\def\gisonpagename{, S.\,}
\def\gisonpagepname{, S.\,}
\def\gisonxpagename{, dort: S.\,}
\def\gisonxpagepname{, dort: S.\,}
\def\gabktitlename{Ab\-k\"ur\-zungen}
\def\gbibtitlename{Quellen und Literatur} %% (Bibliographie:)
\def\gvlititlename{Literatur}             %% <- [L]  (Sekundaerliteratur)
\def\gvqutitlename{Gedruckte Quellen}     %% <- [Q]  (Primaerliteratur)
\def\ghinttovliname{[L]}                  %% -> [L] Literatur
\def\ghinttovquname{[Q]}                  %% -> [Q] Gedruckte Quellen
\def\gpertitlename{Zeitschriften}
\def\garqtitlename{Ungedruckte Quellen}
\def\gvkctitlename{Verwendete Kurztitel}
\def\ggrrtitlename{Ortsregister}
\def\gprrtitlename{Personenregister}
\def\gsrrtitlename{Sachregister}
\def\gannouncektitname{\bastrut\ (\kern 0.015em im Folgenden \baupcorr}
  %%{\bapoint\newsentence Fortan: }
\def\gannouncekendname{)}  %%{\bapoint\banotdot}
\def\grefvbegname{(}
\def\grefverbname{siehe}
\def\grefvpagname{S.\,}
\def\grefvfntname{, Anm.\,}
\def\grefvendname{\barefcorr)}
\def\gconfername{\kern -0.03em wie}
\def\gerscheditionname{\teskip Auf{\kern.03em}l.,} %{\teskip Aufl.,}
\def\gerschvolumename{Bd.,}
\def\gerschvolumepname{Bde.,}
\def\gerschnohousename{\oO,} %{ohne Ort,}
\def\gerschnoyearname{\oJ} %.% %{ohne Jahr}
 \def\oD{\protect\poD} \def\poD{o.\kern 0.1em D\kern -0.08em.\bahasdot}
 \def\oO{\protect\poO} \def\poO{o.\kern 0.1em O\kern -0.08em.\bahasdot}
 \def\oJ{\protect\poJ} \def\poJ{o.\kern 0.1em J\kern -0.09em.\bahasdot}
\def\gfolpagename{\badelspacebefore\,f\kern -0.1pt.\bahasdot}
\def\gxfolpagename{\badelspacebefore\,ff\kern -0.1pt.\bahasdot}

\expandafter\ifx\csname f\endcsname\relax
 \def\f{\protect\pf}%
 \def\pf{\cap@ba{folpage}}%
\else
\typeout{\string\f-command used. I do not redefine.}%
\fi

\expandafter\ifx\csname sq\endcsname\relax
 \def\sq{\protect\psq}%
 \def\psq{\cap@ba{folpage}}%
\else
\typeout{\string\sq-command used. I do not redefine.}%
\fi

\expandafter\ifx\csname ff\endcsname\relax
 \def\ff{\protect\pff}%
 \def\pff{\cap@ba{xfolpage}}%
\else
\typeout{\string\ff-command used. I do not redefine.}%
\fi

\expandafter\ifx\csname sqq\endcsname\relax
 \def\sqq{\protect\psqq}%
 \def\psqq{\cap@ba{xfolpage}}%
\else
\typeout{\string\sqq-command used. I do not redefine.}%
\fi

%% French:
\def\fanonymousname{[Anonyme]}
\def\feditorname{(\kern -0.03em \'ed.\kern -0.06em)\kern 0.02em}
\let\feditorpname=\feditorname
\setibidem{f}{ibid\kern -0.07em}{.}
\def\fidemname{le m\^e\-me}
\def\feademname{la m\^e\-me}
\def\fiidemname{les m\^e\-mes}
\def\fvolname{, vol.\,}
\def\fvolpname{, vol.\,}
\def\fpername{\ifbaibidem{, n\fup{o}\,}{\pernosep}}
\def\fperpname{\ifbaibidem{, n\fup{os}\,}{\pernosep}}
\def\fisonfolioname{, folio\nobreak \ }
\def\fisonfoliopname{, folii\nobreak \ }
\def\fisonxfolioname{, l\`a: Folio\nobreak \ }
\def\fisonxfoliopname{, l\`a: Folii\nobreak \ }
\def\fisonpagename{, p.\,}
\def\fisonpagepname{, p.\,}
\def\fisonxpagename{, l\`a: p.\,}
\def\fisonxpagepname{, l\`a: p.\,}
\def\fabktitlename{Ab\-r\'e\-viations}
\def\fbibtitlename{Bibliographie}             %% (Travaux+Sources:)
\def\fvlititlename{Travaux}                   %% <- [T]
\def\fvqutitlename{Sources im\-pri\-m\'ees}   %% <- [S]
\def\fhinttovliname{[T]}                      %% -> [T] Travaux
\def\fhinttovquname{[S]}                      %% -> [S] Sources imprim\'ees
\def\fpertitlename{P\'e\-riodiques}
\def\farqtitlename{Sources in\-\'edi\-tes}
\def\fvkctitlename{Titres ab\-r\'e\-g\'ees}
\def\fgrrtitlename{Registre g\'eo\-graphique}
\def\fprrtitlename{Registre des personnes}
\def\fsrrtitlename{Registre des sujets}
\def\fannouncektitname{\bastrut\ (\kern 0.02em par la suite \baupcorr}
\def\fannouncekendname{)}
\def\frefvbegname{(}
\def\frefverbname{voir}
\def\frefvpagname{p.\,}
\def\frefvfntname{, n.\,}
\def\frefvendname{\barefcorr)}
\def\fconfername{\kern -0.03em op.\ cit.\bahasdot}
\def\ferscheditionname{\fupskip \'edi\-tion,}   %% -> \fordinal=\fordinalf
\def\ferschvolumename{vol.,}
\def\ferschvolumepname{vol.,}
\def\ferschnohousename{s.\kern 0.15em l\kern 0.02em.,}  %% sans lieu
\def\ferschnoyearname{s.\kern 0.13em d.\bahasdot}  %% sans date
\def\ffolpagename{\badelspacebefore\ sq.\bahasdot}
\def\fxfolpagename{\badelspacebefore\ sqq.\bahasdot}

%% English:
\def\eanonymousname{[Anonymous]}
\def\eeditorname{(\kern -0.03em ed.\kern -0.06em)\kern 0.02em}
\def\eeditorpname{(\kern -0.03em eds.\kern -0.08em)\kern 0.02em}
\setibidem{e}{ibidem}{}
\def\eidemname{idem}
\def\eeademname{eadem}
\def\eiidemname{iidem}
\def\evolname{, vol.\,}
\def\evolpname{, vols.\,}
\def\epername{\ifbaibidem{, no.\,}{\pernosep}}
\def\eperpname{\ifbaibidem{, no.\,}{\pernosep}}
\def\eisonfolioname{, folio\nobreak \ }%{, f.\,}
\def\eisonfoliopname{, folii\nobreak \ }
\def\eisonxfolioname{, there: Folio\nobreak \ }
\def\eisonxfoliopname{, there: Folii\nobreak \ }
\def\eisonpagename{, p.\,}
\def\eisonpagepname{, pp.\,}
\def\eisonxpagename{, there: p.\,}
\def\eisonxpagepname{, there: pp.\,}
\def\eabktitlename{Abbreviations}
\def\ebibtitlename{Bibliography}          %% (Literature+Sources:)
\def\evlititlename{Literature}            %% <- [L]  (Secondary Literature)
\def\evqutitlename{Published Documents}   %% <- [D]  (Primary Literature)
\def\ehinttovliname{[L]}                  %% -> [L] Literature
\def\ehinttovquname{[D]}                  %% -> [D] Printed Sources
\def\epertitlename{Periodicals}
\def\earqtitlename{Unpublished Documents}
\def\evkctitlename{Shortened References}
\def\egrrtitlename{Geographical index}
\def\eprrtitlename{Person index}
\def\esrrtitlename{Subject index}
\def\eannouncektitname{\bastrut\ (\kern -0.02em cited as \baupcorr}  %henceforth
\def\eannouncekendname{)}
\def\erefvbegname{[\nobreak \hskip 1pt plus 0pt}
\def\erefverbname{see}
\def\erefvpagname{p.\,}
\def\erefvfntname{, n.\,}
\def\erefvendname{\nobreak \hskip 1pt plus 0pt\barefcorr]}
\def\econfername{\kern -0.05em cf.\bahasdot}
\def\eerscheditionname{\fupskip edition,}
\def\eerschvolumename{vol.,}
\def\eerschvolumepname{vols.,}
\def\eerschnohousename{n.\kern 0.15em p.,}  %% no place
\def\eerschnoyearname{n.\kern 0.13em d.\bahasdot}  %% no date
\def\efolpagename{\badelspacebefore\,f\kern -0.1pt.\bahasdot}
\def\exfolpagename{\badelspacebefore\,ff\kern -0.1pt.\bahasdot}

\def\pnewsentence{{\ifnum\sfcode\grave@ba\.=3000\spacefactor3000\@leerz\fi\@leerz}}
\def\newsentence{\protect\pnewsentence}
\def\spacefactorMMM@ba{\if@unusedbib\else\ifhmode\ifnum\sfcode\grave@ba\.=3000\spacefactor3000\fi\fi\fi}
\def\spacefactorM@ba{\if@unusedbib\else\ifhmode\ifnum\sfcode\grave@ba\.=3000\spacefactor1000\fi\fi\fi}

%%

\def\ba@textmode{\ifmmode $\type@bawarn{Set forgotten \string$}\fi}


\def\@herefunctions{%
   \errorcontextlines=-1% 
   \def\onlyout##1{}%     %% Genauso in \@hereRfunctions.
   \def\onlyhere##1{##1}% %% Dito.
   \def\onlyvoll##1{##1}% %% Umgekehrt in \@hereRfunctions.
   \def\onlykurz##1{}%    %% Dito.
   \def\sort##1{}%
   \def\bago{}%
   \def\verb{\errmessage{verbatim is forbidden inside BibArts args}}%
}


%%


\def\@outsavety{%         %% not protect \nsep %%
  \protectchars@active%
  \def\newpage{\protect\newpage}%
  %% del \frq \flq \frqq \flqq in 2.6
  \def\"{\string\"}%
   \def\ddot{\protect\ddot}%
  \def\.{\string\.}%
   \def\dot{\protect\dot}%
  \def\={\string\=}%
   \def\bar{\protect\bar}%
    \def\vec{\protect\vec}%
  \def\^{\string\^}%
   \def\hat{\protect\hat}%
  \def\'{\string\'}%
   \def\acute{\protect\acute}%
  \def\`{\string\`}%
   \def\grave{\protect\grave}%
  \def\~{\string\~}%
   \def\tilde{\protect\tilde}%
  \def\P{\protect\P}%
  \def\S{\protect\S}%
  \def\aa{\protect\aa}%
  \def\ae{\protect\ae}%
  \def\AA{\protect\AA}%
  \def\AE{\protect\AE}%
  \def\b{\protect\b}%
  \def\c{\protect\c}%
  \def\d{\protect\d}%
  \def\H{\protect\H}%
  \def\i{\protect\i}%
  \def\j{\protect\j}%
  \def\l{\protect\l}%
  \def\L{\protect\L}%
  \def\o{\protect\o}%
  \def\O{\protect\O}%
 \def\ss{\protect\ss}%
 \def\3{\string\3}%
 \def\newhyss{\protect\newhyss}%
 \def\NEWHYSS{\protect\NEWHYSS}%
 \def\oldhyss{\protect\oldhyss}%
 \def\OLDHYSS{\protect\OLDHYSS}%
 \def\oldhyc{\protect\oldhyc}%
 \def\OLDHYC{\protect\OLDHYC}%
 \def\oldhyf{\protect\oldhyf}%
 \def\OLDHYF{\protect\OLDHYF}%
 \def\oldhyl{\protect\oldhyl}%
 \def\OLDHYL{\protect\OLDHYL}%
 \def\oldhym{\protect\oldhym}%
 \def\OLDHYM{\protect\OLDHYM}%
 \def\oldhyn{\protect\oldhyn}%
 \def\OLDHYN{\protect\OLDHYN}%
 \def\oldhyp{\protect\oldhyp}%
 \def\OLDHYP{\protect\OLDHYP}%
 \def\oldhyr{\protect\oldhyr}%
 \def\OLDHYR{\protect\OLDHYR}%
 \def\oldhyt{\protect\oldhyt}%
 \def\OLDHYT{\protect\OLDHYT}%
 \def\ck{\protect\ck}%
 \def\CK{\protect\CK}%
  \def\k{\protect\k}%
  \def\r{\protect\r}%
   \def\mathring{\protect\mathring}%
  \def\t{\protect\t}%
  \def\u{\protect\u}%
   \def\breve{\protect\breve}%
  \def\v{\protect\v}%
   \def\check{\protect\check}%
  %%\def\|{\string\|}%  %% \fnsymbol ? %%
  \def\,{\string\,}%
  \def\*{\string\*}%
  \def\@{\string\@}%
  \def\-{\string\-}%
  \def\_{\string\_}%
  \def\${\string\$}%
  \def\\{\string\\}%
    \def\{{\string\{}%
    \def\}{\string\}}%
  \def\leavevmode{\protect\leavevmode}%
  \def\rlap{\protect\rlap}%
  \def\llap{\protect\llap}%
  \def\nobreak{\protect\nobreak}%
  \def\mathhexbox{\protect\mathhexbox}%
   \def\authoremph{\protect\authoremph}%
    \def\cal{\protect\cal}%
    \def\mit{\protect\mit}%
    \def\footnotesize{\protect\footnotesize}%
    \def\huge{\protect\huge}%
    \def\Huge{\protect\Huge}%
    \def\large{\protect\large}%
    \def\Large{\protect\Large}%
    \def\LARGE{\protect\LARGE}%
    \def\scriptsize{\protect\scriptsize}%
    \def\small{\protect\small}%
    \def\tiny{\protect\tiny}%
    \def\normalsize{\protect\normalsize}%
  %\def\label##1{}%
  \def\label{\protect\label}%  %% 2.09/2e? %%
  \def\index{\protect\index}%
  \def\glossary{\protect\glossary}%
  \def\Alpha{\protect\Alpha}%
  \def\Beta{\protect\Beta}%
  \def\Epsilon{\protect\Epsilon}%
  \def\Zeta{\protect\Zeta}%
  \def\Eta{\protect\Eta}%
  \def\Iota{\protect\Iota}%
  \def\Kappa{\protect\Kappa}%
  \def\Mu{\protect\Mu}%
  \def\Nu{\protect\Nu}%
  \def\Rho{\protect\Rho}%
  \def\Tau{\protect\Tau}%
  \def\Chi{\protect\Chi}%
  \def\Omicron{\protect\Omicron}%
  \def\omicron{\protect\omicron}%
  \def\backslash{\protect\backslash}%
  \def\sz{\protect\sz}%
  \def\SZ{\protect\SZ}%
  \def\selectlanguage{\protect\selectlanguage}%
  \def\sethyphenation{\protect\sethyphenation}%
  \def\frac{\protect\frac}%
  \def\nosort{\protect\nosort}%
  \def\hy{\protect\hy}%
  \def\fhy{\protect\fhy}%
  \def\bastrut{\protect\bastrut}%
}


%%


%% Only single-line-eintries in .AUX-Files (LaTeX 2.09):
\expandafter\ifx\csname GenericError\endcsname\relax
  \typeout@ba{* Redefine \string\@ctrerr \space to get single-line entries in .aux-file.}%
  \def\@ctrerr{{\errorcontextlines=-1\errmessage{Counter too large (alph/Alph/fnsymbol)}}}%
\fi


\def\@outfunctions{%
  \errorcontextlines=-1%
  \def\protect{\noexpand\noexpand\noexpand}%
  \def\protect@onlyout{\protect}%
  \def\par{}%  %% reduce errmsgs
  \if@unusedbib\def\setn@ba{{}{}{-}}\fi%
  \def\onlyhere{\protect\onlyhere}%
  \def\onlyout{\protect\onlyout}%
  \def\onlyvoll{\protect\onlyvoll}%
  \def\onlykurz{\protect\onlykurz}%
  \def\sechere##1##2{\onlyhere{##2}\onlyout{##1}}%
   \def\kurz{\if@baouter\protect\outkurz\else\protect\delkurz\fi}%
   \def\ktit{\protect\ktit}%
  \def\vauthor{\protect\vauthor}%
  \def\midvauthor{\protect\midvauthor}%
  \def\kauthor{\protect\kauthor}%
  \def\midkauthor{\protect\midkauthor}%
  \def\addtovli{\protect\shadowv}%
  \def\addtovqu{\protect\shadowv}%
  \def\addtokli{\protect\shadowk}%
  \def\addtokqu{\protect\shadowk}%
  \def\vli{\protect\printonlyvli}%
  \def\vqu{\protect\printonlyvqu}%
  \def\kli{\protect\printonlykli}%
  \def\kqu{\protect\printonlykqu}%
  \def\printonlyvli{\protect\printonlyvli}%
  \def\printonlyvqu{\protect\printonlyvqu}%
  \def\printonlykli{\protect\printonlykli}%
  \def\printonlykqu{\protect\printonlykqu}%
  \def\xaddtovli{\protect\shadowv}%
  \def\xaddtovqu{\protect\shadowv}%
  \def\xaddtokli{\protect\shadowk}%
  \def\xaddtokqu{\protect\shadowk}%
  \def\xvli{\protect\xprintonlyvli}%
  \def\xvqu{\protect\xprintonlyvqu}%
  \def\xkli{\protect\xprintonlykli}%
  \def\xkqu{\protect\xprintonlykqu}%
  \def\xprintonlyvli{\protect\xprintonlyvli}%
  \def\xprintonlyvqu{\protect\xprintonlyvqu}%
  \def\xprintonlykli{\protect\xprintonlykli}%
  \def\xprintonlykqu{\protect\xprintonlykqu}%
  \def\per{\protect\printonlyper}%
  \def\abkper{\protect\printonlyper}%
  \def\fillper{\protect\shadowtwo}%
  \def\arq{\protect\printonlyarq}%
  \def\fillarq{\protect\shadowtwo}%
  \def\fillgrr{\protect\shadowtwo}%
  \def\fillprr{\protect\shadowtwo}%
  \def\fillsrr{\protect\shadowtwo}%
  \def\abk{\protect\printonlyabk}%
  \def\defabk{\protect\printonlydefabk}%
  \def\abkdef{\protect\printonlyabkdef}%
  \def\addtoper{\protect\shadowo}%
  \def\addtoarq{\protect\shadowt}%
  \def\addtoabk{\protect\shadowone}%
  \def\addtodefabk{\protect\shadowtwo}%
  \def\addtoabkdef{\protect\shadowtwo}%
  \def\addtogrr{\protect\shadowone}%
  \def\addtoprr{\protect\shadowone}%
  \def\addtosrr{\protect\shadowone}%
  \def\printonlyper{\protect\printonlyper}%
  \def\printonlyarq{\protect\printonlyarq}%
  \def\printonlyabk{\protect\printonlyabk}%
  \def\printonlydefabk{\protect\printonlydefabk}%
  \def\printonlyabkdef{\protect\printonlyabkdef}%
  \def\female{\protect\female}%
  \def\male{\protect\male}%
  \def\sort{\protect\sort}%
  \def\bago{\protect\bago}%
  \def\bahasdot{\protect\bahasdot}%
  \def\bacorr{\protect\bacorr}%
  \def\verb{\errmessage{verbatim is forbidden inside BibArts args}}%
 %% new in 2.6:
 \def\input{\protect\input}%
 \def\mdqon{\protect\mdqon}%
 \def\mdqoff{\protect\mdqoff}%
 \def\shorthandon{\protect\shorthandon}%
 \def\shorthandoff{\protect\shorthandoff}%
 \def\hyphenrules{\protect\hyphenrules}%
}


%%


\def\@memfunctions{%
 \errorcontextlines=-1%
 \def\protect{\noexpand\noexpand\noexpand}%
 \def\kurz{\protect\kurz}%
 \def\ktit{\protect\ktit}%
 \def\addtovli{\protect\addtovli}%
 \def\addtovqu{\protect\addtovqu}%
 \def\addtokli{\protect\addtokli}%
 \def\addtokqu{\protect\addtokqu}%
 \def\printonlyvli{\protect\printonlyvli}%
 \def\printonlyvqu{\protect\printonlyvqu}%
 \def\printonlykli{\protect\printonlykli}%
 \def\printonlykqu{\protect\printonlykqu}%
 \def\vli{\protect\vli}%
 \def\vqu{\protect\vqu}%
 \def\kli{\protect\kli}%
 \def\kqu{\protect\kqu}%
 \def\xaddtovli{\protect\xaddtovli}%
 \def\xaddtovqu{\protect\xaddtovqu}%
 \def\xaddtokli{\protect\xaddtokli}%
 \def\xaddtokqu{\protect\xaddtokqu}%
 \def\xprintonlyvli{\protect\xprintonlyvli}%
 \def\xprintonlyvqu{\protect\xprintonlyvqu}%
 \def\xprintonlykli{\protect\xprintonlykli}%
 \def\xprintonlykqu{\protect\xprintonlykqu}%
 \def\xvli{\protect\xvli}%
 \def\xvqu{\protect\xvqu}%
 \def\xkli{\protect\xkli}%
 \def\xkqu{\protect\xkqu}%
 \def\per{\protect\per}%
 \def\abkper{\protect\abkper}%
 \def\fillper{\protect\fillper}%
 \def\arq{\protect\arq}%
 \def\fillarq{\protect\fillarq}%
 \def\fillgrr{\protect\fillgrr}%
 \def\fillprr{\protect\fillprr}%
 \def\fillsrr{\protect\fillsrr}%
 \def\abk{\protect\abk}%
 \def\abkdef{\protect\abkdef}%
 \def\defabk{\protect\defabk}%
 \def\addtoper{\protect\addtoper}%
 \def\addtoarq{\protect\addtoarq}%
 \def\addtoabk{\protect\addtoabk}%
 \def\addtoabkdef{\protect\addtoabkdef}%
 \def\addtodefabk{\protect\addtodefabk}%
 \def\addtogrr{\protect\addtogrr}%
 \def\addtoprr{\protect\addtoprr}%
 \def\addtosrr{\protect\addtosrr}%
 \def\printonlyper{\protect\printonlyper}%
 \def\printonlyarq{\protect\printonlyarq}%
 \def\printonlyabk{\protect\printonlyabk}%
 \def\printonlyabkdef{\protect\printonlyabkdef}%
 \def\printonlydefabk{\protect\printonlydefabk}%
 \def\onlyhere{\protect\onlyhere}%
 \def\onlyout{\protect\onlyout}%
 \def\onlyvoll{\protect\onlyvoll}%
 \def\onlykurz{\protect\onlykurz}%
 \def\vauthor{\protect\vauthor}%
 \def\midvauthor{\protect\midvauthor}%
 \def\kauthor{\protect\kauthor}%
 \def\midkauthor{\protect\midkauthor}%
 \def\female{}%
 \def\male{}%
 \def\sort{\protect\sort}%  %% Nur wirksam in \protec@scr %%
 \def\bahasdot{}%
 \def\banotdot{}%
 \def\bago{}%
}


%%


%% inner only-cmds are identical on lists,
%% because v-cmds are changed to k-cmds:

\def\@reprintIfunctions{%
   \def\onlyout##1{##1}%
   \def\onlyhere##1{}%
   \def\onlyvoll##1{}%
   \def\onlykurz##1{##1}%
}


\def\@hereRfunctions{%
   \def\onlyout##1{}%       %% Genauso in \@herefunctions
   \def\onlyhere##1{##1}%   %% Genauso in \@herefunctions
   \def\onlyvoll##1{}%      %% Umgekehrt in \@herefunctions
   \def\onlykurz##1{##1}%   %% Umgekehrt in \@herefunctions
   \def\vauthor##1##2{\kauthor{##2}}%        %% Vgl. \@hereFfunctions %%
   \def\midvauthor##1##2{\kauthor{##2}{\nsep}\ignorespaces}%
   \def\v@uthor##1##2{\kauthor{##1}}%
   \def\m@dvauthor##1##2{\kauthor{##1}{\nsep}\ignorespaces}%
   \def\sort##1{}%
}


\def\@hereFfunctions{%
   \def\vauthor##1##2{\kauthor{##2}}%        %% Vgl. \@hereRfunctions %%
   \def\midvauthor##1##2{\midkauthor{##2}}%
}


%%


                %% commands for users %%


\def\pBibArts{{\upshape{B\kern -.7pt\lower .5ex\hbox{i}\kern -1.45pt\lower -.285ex\hbox{\itshape{b}}\kern -2.5pt\lower .5ex\hbox{A}\kern -2.6pt\lower -.6ex\hbox{r}\kern -1.4pt\lower .2ex\hbox{t}\kern -1.4pt\lower -.303ex\hbox{s}}}}
\def\BibArts{\protect\pBibArts}

\def\bago{\command@misplace{\bago}}

\def\onlyhere{\command@misplace{\onlyhere}}
\def\onlyout{\command@misplace{\onlyout}}
\def\onlyvoll{\command@misplace{\onlyvoll}}
\def\onlykurz{\command@misplace{\onlykurz}}
\def\nosort{}
\expandafter\ifx\csname sort\endcsname\relax
 \def\sort{\command@misplace{\sort}}%
 \else \typeout@ba{ \string\sort\space is already defined ...
   ^^J \space I *only* change its local definition inside BibArts' arguments.}%
\fi
\def\ktit{{\errhelp{
   ^^JUse `\ktit{short-title}' only in the last argument of ...v..-cmds
   ^^Jto mark a part of the full-cited title (for being the short-title),
   ^^Je.g. \vli{Herbert} {Smith} {The \ktit{Story}, \ersch{Paris}{1977}}[22].
   ^^JIf you want to cite Smith's Story again, you may use the short-title
   ^^Jlater as last argument of a ...k..-cmd, e.g. \kli{Smith} {Story}[37].
   ^^JThe use of \ktit - and ...k.. - is necessary to set IBIDEM (in footnotes).^^J}%
   \errmessage@ba{Misplaced \string\ktit-cmd}}}
\def\kurz#1{\unskip{\cap@ba{announcektit}}\if@kurztoarq{\@initaddtoarq[]{}{#1}}\fi{\@herefunctions\setup@ba{\arqemph}{#1}}{\cap@ba{announcekend}}}
\def\kurz@ktit#1{\unskip\type@bawarn{\string\kurz\space and \string\ktit\space used}}
\def\outkurz#1{\unskip{} [{#1\ba@textmode}]}
\def\delkurz#1{\unskip}

\def\starktit#1{\onlyvoll{\ktit{#1}}}
\def\vollout#1{\onlyvoll{\onlyout{#1}}}
\def\vollhere#1{\onlyvoll{\onlyhere{#1}}}
\def\sechere#1#2{\onlyout{#1}\onlyhere{#2}}
\def\onlybakey#1{}

\def\protmva#1#2{\dofrco@ba\@printvname{#1}{\bastrut\ }{#2}{0}{0}{\nsep}\ignorespaces}
\def\midvauthor{\protect\protmva}

\def\protva#1#2{\dofrco@ba\@printvname{#1}{\bastrut\ }{#2}{0}{0}}
\def\vauthor{\protect\protva}

\def\ntvauthor#1#2{\protect@onlyout\vauthor{#1}{#2}\protect\ntsepnta}

\def\protmv@#1#2{\dofrco@ba\@printvname{#1}{\listlnfnsep}{#2}{1}{1}{\nsep}\ignorespaces}
\def\m@dvauthor{\protect\protmv@}

\def\protv@#1#2{\dofrco@ba\@printvname{#1}{\listlnfnsep}{#2}{1}{1}}
\def\v@uthor{\protect\protv@}

\def\protmka#1{\dofrco@ba\@printkname{#1}{0}{\nsep}\ignorespaces}
\def\midkauthor{\protect\protmka}

\def\protka#1{\dofrco@ba\@printkname{#1}{0}}
\def\kauthor{\protect\protka}

\def\ntkauthor#1{\protect@onlyout\kauthor{#1}\protect\ntsepnta}

\def\protect@onlyout{}
\def\ntsepnta{\printntsep\ignorespaces}

\def\printcatcode#1{\the\catcode\grave@ba #1{}}  %% {} new in 2.6
%% arg e.g. ! or \!


%%


                %% internal %%

\expandafter\ifx\csname z@skip\endcsname\relax
\def\allowbr@ba{{\hskip 0pt plus 0pt}}%
\def\nulskip@ba{{\nobreak \hskip 0pt plus 0pt}}%
\else
\def\allowbr@ba{{\hskip \z@skip}}%
\def\nulskip@ba{{\nobreak \hskip \z@skip}}%
\fi

\def\pbaslash{{\nobreak \hskip 0.24em plus 0.08em\lower -0.26ex\hbox{%
   \normalfont\scriptsize /}\penalty-\@m\hskip .2em plus 0.08em}}
\def\baslash{\protect\pbaslash}

\expandafter\ifx\csname inputlineno\endcsname\relax
   \typeout@ba{Install missing count \string\inputlineno: Can't handle file line numbers.}%
   \newcount\inputlineno\inputlineno=-1\fi

\def\line@ba{\the\inputlineno}
\def\lang@ba{\the\language}
\def\erri@ba{\ifnum\catcode\grave@ba\?=13\string?\string?\else??\fi}
\def\setn@ba{{\thepage}\if@footnote{\@thefnmark}{@}\else{}{}\fi}
%% if new in 2.6:
\def\catq@ba{\if@footnote\fntdqcat@ba\else\the\catcode\grave@ba\"\fi}
\def\fntdqcat@ba{-1}

{\catcode\grave@ba\%=12\gdef\commentch@ba{%}}

\def\@leer{}
\def\@leerz{ }  %% \ifx %%

\newif\if@affixhints\@affixhintsfalse
\newif\if@kurztoarq\@kurztoarqtrue 
\newif\if@reportbaup\@reportbauptrue
\newif\if@bafrontcorr\@bafrontcorrtrue
\newif\if@showbacorr\@showbacorrfalse
\newif\if@bamathaufl\@bamathauflfalse
\newif\if@heraldktit\@heraldktittrue
\newif\if@baouter\@baoutertrue
\newif\if@rheraldktit\@rheraldktittrue
\newif\if@printhint\@printhinttrue
\newif\if@footnote\@footnotefalse
\newif\if@makektitk\@makektitktrue
\newif\if@ibidemize\@ibidemizetrue
\newif\ifwriwarn@ba\wriwarn@bafalse
\newif\if@bashowmem\@bashowmemfalse
\newif\ifba@varstring\ba@varstringfalse
\newif\if@allowconferize\@allowconferizetrue
\newif\if@prnbapf\@prnbapftrue
\newif\if@prnbapevo\@prnbapevotrue
\newif\if@pfvba
\newif\if@perba
\newif\if@kxxba
\newif\if@vxxbalist\@vxxbalistfalse
\newif\if@balist\@balistfalse
\newif\if@wnsn\@wnsntrue


\def\makeibid@ba{%
   \if@bashowmem
   \if@footnote
        \protec@scr{^^J SHOWBAMEM on input line \line@ba \space in}%  
      \if@baminipage
        \protec@scr{Minipage-FNT \thempfootnote:}\else
        \protec@scr{FNT \thefootnote:}\fi
                 \protec@scr{^^J -- outer: \space \tmemo@ba}%
                 \protec@scr{^^J ---------- inner: \space \tmemi@ba}%
      \if@baouter\protec@scr{^^J -- o-ref: \space \tref@ba ^^J}\else
                 \protec@scr{^^J ---------- i-ref: \space \tref@ba ^^J}\fi
   \fi\fi
               \global\let\isibidem@ba=-%
    \if@baouter\global\let\lookpage@ba=-\fi
    \if@footnote \if@baouter\makethiso@ba\else\makethisi@ba\fi
       \if@baouter
          \ifx\lastto@ba+%
             \ifx\tmemo@ba\tref@ba \global\let\isibidem@ba=+%
                 \ifx\thisti@ba-\global\let\thisti@ba=+\fi
             \else
                 \filltmemi@ba{}{}{}{}%
                 \ifx\thisti@ba+\global\let\thisti@ba=.\fi
             \fi          
          \fi
       \else
          \ifx\lastti@ba+%
             \ifx\tmemi@ba\tref@ba \global\let\isibidem@ba=+\fi
          \fi
       \fi    
    \fi}

\def\makelast@ba{%
  \if@footnote
    \global\let\pmem@ba=\pref@ba
    \global\let\volmem@ba=\volref@ba
    \if@baouter
      \global\let\tmemo@ba=\tref@ba
      \global\let\lastto@ba=+%
      \global\let\nmem@ba=\nref@ba
    \else
      \global\let\tmemi@ba=\tref@ba
      \global\let\lastti@ba=+%
    \fi
  \fi}


%%%  You may comment out changes to footnote numbers from here ...

\expandafter\ifx\csname @footnotemark\endcsname\relax
\else
\let\ba@footnmark=\@footnotemark
\def\@footnotemark{\ifhmode{\nobreak \hskip 0.04em plus 0.01em}\else\leavevmode\fi\ba@footnmark}%
\fi

%%%  ... up to here.


\let\lastto@ba=+   %% \vli{A}{B+}{\ktit{C}} and \kli{B+}{C} in first fnt %%
\def\makethiso@ba{%
  \ifx\thisto@ba+\ifx\tmemo@ba\tref@ba\else\global\let\thisto@ba=.\fi\fi
  \ifx\thisto@ba-\global\let\thisto@ba=+\fi
  \ifx\pos@ba1\global\let\pos@ba=2\fi
  \ifx\pos@ba0\global\let\pos@ba=1\fi}

\let\lastti@ba=+
\def\makethisi@ba{%
  \ifx\thisti@ba+\ifx\tmemi@ba\tref@ba\else\global\let\thisti@ba=.\fi\fi
  \ifx\thisti@ba-\global\let\thisti@ba=+\fi}

\def\@bafnttextindent{0.1em}  %% fnt=mpfnt

\let\lastn@ba=-
\expandafter\ifx\csname @footnotetext\endcsname\relax
\type@bawarn{No footnote numbers}%
\else
\let\ba@footnotetext=\@footnotetext
\long\def\@footnotetext#1{\ba@footnotetext{%
   \global\let\thisto@ba=-%
   \global\let\thisti@ba=-%
   \global\let\thisp@ba=-%
   \global\let\thisvol@ba=-%
   \global\let\thiss@ba=-%
   \global\let\thisn@ba=-%
   \global\let\pos@ba=0%
   \edef\fntdqcat@ba{\the\catcode\grave@ba\"}%  %% new in 2.6
    \kern\@bafnttextindent \nulskip@ba
    {\@footnotetrue\ignorespaces #1\nulskip@ba\ba@textmode}%
   \global\let\lastto@ba=\thisto@ba
   \global\let\lastti@ba=\thisti@ba
   \global\let\lastp@ba=\thisp@ba
   \global\let\lastvol@ba=\thisvol@ba
   \global\let\lasts@ba=\thiss@ba
   \global\let\lastn@ba=\thisn@ba}%
   \ifx\pos@ba0{\@footnotetrue\fillvolref@ba{}}\fi}
\fi

\expandafter\ifx\csname @mpfootnotetext\endcsname\relax
\type@bawarn{No minipage-footnote numbers}%
\else
\let\ba@mpfootnotetext=\@mpfootnotetext
\long\def\@mpfootnotetext#1{\ba@mpfootnotetext{%
   \global\let\thisto@ba=-%
   \global\let\thisti@ba=-%
   \global\let\thisp@ba=-%
   \global\let\thisvol@ba=-%
   \global\let\thiss@ba=-%
   \global\let\thisn@ba=-%
   \global\let\pos@ba=0%
   \edef\fntdqcat@ba{\the\catcode\grave@ba\"}%  %% new in 2.6
    \kern\@bafnttextindent \nulskip@ba
    {\@footnotetrue\ignorespaces #1\nulskip@ba\ba@textmode}%
   \global\let\lastto@ba=\thisto@ba
   \global\let\lastti@ba=\thisti@ba
   \global\let\lastp@ba=\thisp@ba
   \global\let\lastvol@ba=\thisvol@ba
   \global\let\lasts@ba=\thiss@ba
   \global\let\lastn@ba=\thisn@ba}%
   \ifx\pos@ba0{\@footnotetrue\fillvolref@ba{}}\fi}
\fi


\newif\if@baminipage\@baminipagefalse
\newif\if@bainnerminipage\@bainnerminipagefalse

\let\ba@minipg=\minipage
\def\minipage{\if@baminipage\@bainnerminipagetrue
   %% no \fillvolref@ba{}! %%
  \else
   \savemem@ba\clearmem@ba
   \global\let\lastto@ba=+%
   \global\let\lastti@ba=+%
   %\global\let\lastp@ba=-%
   %\global\let\lastvol@ba=-%
   %\global\let\lasts@ba=-%
   \global\let\lastn@ba=-%
   \global\let\pfilled@ba=-%
   \global\let\pevofilled@ba=-%
  \fi
  \global\@baminipagetrue\ba@minipg}

\let\ba@endminipg=\endminipage
\def\endminipage{\if@bainnerminipage\else
   \restoremem@ba\global\@baminipagefalse\fi
   \ba@endminipg}

\def\savemem@ba{%
   \global\let\Stmemo@ba=\tmemo@ba
   \global\let\Stmemi@ba=\tmemi@ba
   \global\let\Stref@ba=\tref@ba
   \global\let\Snmem@ba=\nmem@ba
   \global\let\Snref@ba=\nref@ba
   \global\let\Spmem@ba=\pmem@ba
   \global\let\Spref@ba=\pref@ba
   \global\let\Svolmem@ba=\volmem@ba
   \global\let\Svolref@ba=\volref@ba
   \global\let\Ssmem@ba=\smem@ba
   \global\let\Ssref@ba=\sref@ba
   \global\let\Slastto@ba=\lastto@ba
   \global\let\Slastti@ba=\lastti@ba
   \global\let\Slastp@ba=\lastp@ba
   \global\let\Slastvol@ba=\lastvol@ba
   \global\let\Slasts@ba=\lasts@ba
   \global\let\Slastn@ba=\lastn@ba
   \global\let\Spfilled@ba=\pfilled@ba
   \global\let\Svolfilled@ba=\pevofilled@ba
   }

\def\restoremem@ba{%
   \global\let\tmemo@ba=\Stmemo@ba    \global\let\Stmemo@ba\relax
   \global\let\tmemi@ba=\Stmemi@ba    \global\let\Stmemi@ba\relax
   \global\let\tref@ba=\Stref@ba      \global\let\Stref@ba\relax
   \global\let\nmem@ba=\Snmem@ba      \global\let\Snmem@ba\relax
   \global\let\nref@ba=\Snref@ba      \global\let\Snref@ba\relax
   \global\let\pmem@ba=\Spmem@ba      \global\let\Spmem@ba\relax
   \global\let\pref@ba=\Spref@ba      \global\let\Spref@ba\relax
   \global\let\volmem@ba=\Svolmem@ba  \global\let\Svolmem@ba\relax
   \global\let\volref@ba=\Svolref@ba  \global\let\Svolref@ba\relax
   \global\let\smem@ba=\Ssmem@ba      \global\let\Ssmem@ba\relax
   \global\let\sref@ba=\Ssref@ba      \global\let\Ssref@ba\relax
   \global\let\lastto@ba=\Slastto@ba  \global\let\Slastto@ba\relax
   \global\let\lastti@ba=\Slastti@ba  \global\let\Slastti@ba\relax
   \global\let\lastp@ba=\Slastp@ba    \global\let\Slastp@ba\relax
   \global\let\lastvol@ba=\Slastvol@ba\global\let\Slastvol@ba\relax
   \global\let\lasts@ba=\Slasts@ba    \global\let\Slasts@ba\relax
   \global\let\lastn@ba=\Slastn@ba    \global\let\Slastn@ba\relax
   \global\let\pfilled@ba=\Spfilled@ba\global\let\Spfilled@ba\relax
   \global\let\pevofilled@ba=\Svolfilled@ba\global\let\Svolfilled@ba\relax
   }



\def\anon@ba{\nulskip@ba\setup@ba{\authoremph}{\cap@ba{anonymous}}}

\def\@printvname#1#2#3#4#5{{\upshape
     \let\@testa=-%
   \def\@testd{#1}%
   \def\@testb{#3}%
     \def\@testc{\male}%
      \ifx\@testd\@testc\def\@testd{}\fi
      \ifx\@testb\@testc\def\@testb{}\fi
     \def\@testc{\female}%
      \ifx\@testd\@testc\def\@testd{}\fi
      \ifx\@testb\@testc\def\@testb{}\fi
   \ifx\@testd\@leer\ifx\@testb\@leer\anon@ba\fi\fi
   \ifx\@testd\@leerz\ifx\@testb\@leer\anon@ba\fi\fi
   \ifx\@testd\@leer\ifx\@testb\@leerz\anon@ba\fi\fi
   \ifx\@testd\@leerz\ifx\@testb\@leerz\anon@ba\fi\fi
   \ifx\@testd\@leer\else\ifx\@testd\@leerz\else
      \ifnum #4=1%
         \ifx\@testb\@leer\setup@ba{\authoremph}{#1}\ifnum #5=1\finddot@ba{#1}\fi\else\ifx\@testb\@leerz\setup@ba{\authoremph}{#1}\ifnum #5=1\finddot@ba{#1}\fi\else\setup@ba{\authoremph}{#1}{#2}\fi\fi  %% no \underline{#1#2}
      \else\ifx\@testb\@leer{\ignorespaces #1\ba@textmode}\ifnum #5=1\finddot@ba{#1}\fi\else\ifx\@testb\@leerz{\ignorespaces #1\ba@textmode}\ifnum #5=1\finddot@ba{#1}\fi\else
         {\ignorespaces #1#2\ba@textmode}\fi\fi
      \fi
   \fi\fi
   \ifx\@testb\@leer\else\ifx\@testb\@leerz\else
      \ifnum #4=0\setup@ba{\authoremph}{#3}\ifnum #5=1\finddot@ba{#3}\fi\else{\ignorespaces #3\ba@textmode}\ifnum #5=1\finddot@ba{#3}\fi\fi
   \fi\fi
   \ifx\@testa+\@bahasdot\fi}}

\def\@printkname#1#2{{%
     \let\@testa=-%
   \def\@testd{#1}%
   \ifx\@testd\@leer\anon@ba\else
      \ifx\@testd\@leerz\anon@ba\else
         \setup@ba{\authoremph}{#1}\ifnum #2=1\finddot@ba{#1}\fi\fi\fi
   \ifx\@testa+\@bahasdot\fi}}


\newbox\testbox@ba

\def\@printlastarg#1#2#3{{%
  \setbox\testbox@ba=\hbox{#3{\ignorespaces #1#2\ba@textmode}}%
  \ifdim\ht\testbox@ba=0pt%
    \if@kxxba
      \gdef\bacorr{}%
    \fi
  \else
    {\if@kxxba
       \prep@bakntsepcorr
     \else
       \not@bakntsepcorr
     \fi
     \ntsep
    }{\unhbox\testbox@ba}%
    \if@kxxba\else \if@vxxbalist\else
      \setbox\testbox@ba=\hbox{#3{#2}}%
      \ifdim\ht\testbox@ba=0pt%
        \let\@testa=-\finddot@ba{#1}\ifx\@testa+\@bahasdot\fi
      \fi
    \fi\fi
    \if@kxxba
       \let\@testa=-\finddot@ba{#1}%
        \ifx\@testa+\@bahasdot\gdef\bacorr{}\fi
       \let\@testb+%
       \do@banohint{\let\@testb-}%
      \ifx\@testb+%
        \@bastrut
        \ifx\@testa-{\bacorr}\fi
        \makecorrcmd@ba{}{\bacorr}%
      \else
        \ifx\@testa-\makecorrcmd@ba{\kxxemph}{\bacorr}\else
           \gdef\bacorr{}\fi
      \fi
    \else
      \if@vxxbalist
        \init@bacorr{#1}{}{\bacorr}%
      \else
        \gdef\bacorr{}%
      \fi
    \fi
  \fi}}


\def\@printoptarg#1#2{{%
   \def\@testb{#2}%
   \setbox\testbox@ba=\hbox{\ignorespaces #1\ba@textmode}%
   \ifdim\ht\testbox@ba=0pt\else
       \ifx\@testb\@leer\@bastrut\ \else  %% space before *{...}
         {#2}\fi  %% #2 is \nsep at \x...
     {\unhbox\testbox@ba}%
     \let\@testa=-\finddot@ba{#1}\ifx\@testa+\@bahasdot\fi
   \fi}}


\newif\ifreprint@ba\reprint@bafalse
\newif\if@baktit\@baktitfalse
\def\@nobaktit#1{\if@baktit\else \ifmem@baouter\else
   {\errorcontextlines=-1\@qqertypeout{...v#1}{(inner ...v#1-cmd)}%
   \errhelp{
   ^^JIf you use a ...v#1-cmd inside the last arg of a ...v..-cmd, it is necessary
   ^^Jto use \ktit{...} to mark a part of the inner title as short title, because,
   ^^Jon the v-lists, I transform inner full titles into shortened titles. On the
   ^^Jlist, I've inserted `??' as inner short title. (In case of an inner \vli, or
   ^^J\vqu, the inner full title will also be printed separately on the v..-list.)
   ^^JAlso \vli[p{TEXT}]{}{}*{\ktit{..}}{...} without \ktit in TEXT is forbidden.^^J}%
   \errmessage@ba{Missing \string\ktit{...} in *inner* ...v#1-cmd}}\fi\fi}

\def\@initvprintonly#1#2#3#4#5#6#7#8{{%    %%  #1 == li, qu  %%  
  \resetcorr@ba
  {\@memfunctions\@outsavety\@hereRfunctions\@hereFfunctions\fillnref@ba{#4}}%
  \if@footnote\global\let\isibidem@ba=-\warn@baname{v#1}{#2}%
    \if@baouter
      \global\let\nmem@ba=\nref@ba
    \fi
  \fi
  %%%%
  \let\ifmem@baouter=\if@baouter 
                  \@baouterfalse
  \let\@firstherald=\if@heraldktit
                      \@heraldktitfalse
      \ifmem@baouter{\filltmemo@ba{}{}{}{}}\else{\filltmemi@ba{}{}{}{}}\fi
  \def\@testa{#6}%
  \def\execute@ktit{\@nobaktit{#1}}%
                      \@baktitfalse
  \def\ktit##1{\global\@baktittrue
     \def\kurz{\kurz@ktit}%
     \ba@varlabel{#4}{#5}{##1}%
     \if@footnote
        {\@memfunctions\@outsavety\@hereRfunctions\@hereFfunctions
         \ifmem@baouter\filltmemo@ba{#1}{#4}{#5}{##1}\global\let\lastto@ba=+%
         \else         \filltmemi@ba{#1}{#4}{#5}{##1}\global\let\lastti@ba=+%
         \fi}%
     \fi
     \if@makektitk{\@initaddtok{#4}{#5}{##1}{#1}{{\nsep}{#8}{v}}{1}}\fi
     \ifreprint@ba
        \ifmem@baouter
         \gdef\execute@ktit{{\@kxxbatrue\@kprintonly{#1}{#2}{#4}{#5}{##1}{#7}}}%
        \fi
     \else
        \ifmem@baouter
         \gdef\execute@ktit{{\@firstherald\if@rheraldktit
           \cap@ba{announcektit}\@rootponly{#1}{#4}*{#5}{##1}{#7}%
             \do@banohint{{\bacorr}}\cap@ba{announcekend}\fi\fi}}%
        \fi
     \fi ##1\ba@textmode}%
    \ifreprint@ba
       {\setbox\testbox@ba=\hbox{#2\relax #3\relax #4\relax #5\relax #6\relax
         \if@baktit
         \global\let\gargc@ba=\execute@ktit
         \else \gdef\gargc@ba{\@kxxbatrue\@kprintonly{#1}{#2}{#4}{#5}{\erri@ba}{#7}}%
           {\errorcontextlines=-1%
            \errhelp{See the number of the line where the error comes from ...}%
            \errmessage@ba{Missing \string\ktit{...} in *inner* ...v#1-cmd}}%
         \fi}%
        {\@hereRfunctions\gargc@ba}%   %% <-> \@rootponly %%
         %% see \@reprintIfunctions %%
        \global\let\gargc@ba=\relax
       }%
    \else
       \ifx\@testa\@leer{\@vprintonly{#1}{#2}{#3}{#4}{#5}{}{}{#7}}\else
        \ifx\@testa\@leerz{\@vprintonly{#1}{#2}{#3}{#4}{#5}{}{}{#7}}\else
                            {\@vprintonly{#1}{#2}{#3}{#4}{#5}{#6}{\execute@ktit}{#7}}\fi\fi
    \fi
 }\if@footnote \if@baouter\makethiso@ba\else\makethisi@ba\fi \fi}


\def\clearmem@ba{{\@footnotetrue\filltmemo@ba{}{}{}{}\filltmemi@ba{}{}{}{}%
   \fillpmem@ba{}{}\fillvolmem@ba{}\fillnmem@ba{}%
   \fillvolref@ba{}}}

\def\filltmemo@ba#1#2#3#4{\if@footnote
\global\edef\tmemo@ba{{#1}{#2}{#3}{#4}}\fi}
{\@footnotetrue\filltmemo@ba{}{}{}{}}

\def\filltmemi@ba#1#2#3#4{\if@footnote
\global\edef\tmemi@ba{{#1}{#2}{#3}{#4}}\fi}
{\@footnotetrue\filltmemi@ba{}{}{}{}}

\def\filltref@ba#1#2#3#4{\if@footnote
\global\edef\tref@ba{{#1}{#2}{#3}{#4}}\fi}
{\@footnotetrue\filltref@ba{}{}{}{}}

\def\fillnmem@ba#1{\if@footnote
\global\edef\nmem@ba{#1}\fi}
{\@footnotetrue\fillnmem@ba{}}

\def\fillnref@ba#1{\if@footnote
\global\edef\nref@ba{#1}\fi}
{\@footnotetrue\fillnref@ba{}}

\def\errmsg@bawarn#1#2#3{{\errorcontextlines=-1\type@bawarn{...#1}%
  \protec@scr{ \space\space\space [#2] overwrites `{\nref@ba}',}%
  \protec@scr{ \space\space\space but the foregoing #3.^^J^^J}}}

\def\wrimsg@bawarn#1{\ifwriwarn@ba{#1}\{{\nref@ba}\}\penalty\@m \ \fi}

\def\warn@baname#1#2{%
  %%%%
  \if@baouter
     \ifx\thisn@ba+\ifx\nmem@ba\nref@ba\else\global\let\thisn@ba=.\fi\fi
     \ifx\thisn@ba-\global\let\thisn@ba=+\fi
  \fi
  %%%%
  {\if@wnsn
   \def\@testa{#2}%
   \ifx\isibidem@ba-%
      \ifx\nmem@ba\nref@ba\ifx\lastn@ba+%
         \ifx\@testa\@leer
            \ifx\nmem@ba\@leer\else\ifx\nmem@ba\@leerz\else
               \ifwriwarn@ba{$\bullet$\penalty\@m \ }\fi
               \if@baouter \type@bawarn{...#1 repeats first author's lastname}%
               \else       \type@bawarn{Inner ...#1 repeats author's lastname}%
               \fi
               \protec@scr{ \space\space\space `{\nmem@ba}'. Change to `...#1[m,f,p]'??^^J}%
            \fi\fi
         \else
            \wrimsg@bawarn{\boldmath$\heartsuit$}%
         \fi
      \fi\fi
      \ifx\@testa\@leer\else
         \ifx\lastn@ba-%
            \wrimsg@bawarn{\boldmath$\nabla$}%
            \errmsg@bawarn{#1}{#2}{footnote contains no authors (or is missed)}\fi
         \ifx\lastn@ba+\ifx\nmem@ba\nref@ba\else
            \wrimsg@bawarn{$\spadesuit$}%
            \errmsg@bawarn{#1}{#2}{lastname is `{\nmem@ba}'}\fi\fi
         \ifx\lastn@ba.%
            \wrimsg@bawarn{$\clubsuit$}%
            \errmsg@bawarn{#1}{#2}{footnote contains different authors}\fi
      \fi
   \fi
  \fi}%
  %%%%
  \global\let\lastn@ba=+}

\def\fillpmem@ba#1#2{\if@footnote
\global\edef\pmem@ba{{#1}{#2}}\fi}
{\@footnotetrue\fillpmem@ba{}{}}

\def\fillpref@ba#1#2{\if@footnote
\global\edef\pref@ba{{#1}{#2}}\fi}
{\@footnotetrue\fillpref@ba{}{}}

\def\fillvolmem@ba#1{\if@footnote
\global\edef\volmem@ba{#1}\fi}
{\@footnotetrue\fillvolmem@ba{}}

\def\fillvolref@ba#1{\if@footnote
\global\edef\volref@ba{#1}\fi}
{\@footnotetrue\fillvolref@ba{}}

\def\fillsmem@ba#1{\if@footnote
\global\edef\smem@ba{#1}\fi}
{\@footnotetrue\fillsmem@ba{}}

\def\fillsref@ba#1{\if@footnote
\global\edef\sref@ba{#1}\fi}
{\@footnotetrue\fillsref@ba{}}


\def\@vprintonly#1#2#3#4#5#6#7#8{{%
   \@herefunctions
   \def\@testa{#2}%
   \ifx\@testa\@leer         \@printvname{#3}{\bastrut\ }{#4}{0}{1}%
                             \@printoptarg{#5}{#8}%
   \else\oletter@ba{v#1}{#2}{\@printoptarg{#5}{#8}}%
   \fi           %%  #1 == li, qu  %%
   \@printlastarg{#6}{#7}{}\@heraldktitfalse}}


\def\@initprinthint#1{\if@printhint
  {\setbox\testbox@ba=\hbox{\cap@ba{hinttov#1}}%
     \if@affixhints \nobreak\ \else \ \fi
   \ifdim\ht\testbox@ba=0pt{[]}\else
     \unhbox\testbox@ba\fi}\fi}
  %% \cap@ba{hinttovli} \cap@ba{hinttovqu} %%

\def\@initkprintonly#1#2#3#4#5#6{\if@ibidemize\else\clearmem@ba\fi
   \resetcorr@ba
   {\@memfunctions\@outsavety\@herefunctions\filltref@ba{#1}{#3}{#4}{#5}\fillnref@ba{#3}}%
   \makeibid@ba
   \if@footnote\warn@baname{k#1}{#2}\fi
   \ifx\isibidem@ba-{\@herefunctions
        \ifreprint@ba\@reprintIfunctions\fi
   \@kprintonly{#1}{#2}{#3}{#4}{#5}{#6}}%
   \else\ibidemname@ba
   \fi
   \makelast@ba}


\def\getoletter@ba#1{\let\next@ba=#1}

\def\oletter@ba#1#2#3{{%
   \def\oarga@ba{}%
   \let\oargb@ba=\strut
   \setbox\testbox@ba=\hbox{\expandafter\getoletter@ba #2\relax
   \ifx\next@ba m\getom@ba #2\fi
   \ifx\next@ba f\getof@ba #2\fi
   \ifx\next@ba p\getop@ba #2\fi
  \ifx\next@ba m\else \ifx\next@ba f\else \ifx\next@ba p\else
     \global\let\oarga@ba=\erri@ba
     \errorcontextlines=-1\@qqerrmsg{...#1}{Bad syntax IN your [#2]-Arg.}%
     \errmessage@ba{You only may use [m], [f], [p], [m{...}], [f{...}], OR [p{...}] there}\fi\fi\fi}%
     {\oarga@ba}\ifx\oargb@ba\strut{#3}\else{\oargb@ba}\fi
   \global\let\oarga@ba=\relax \global\let\oargb@ba=\relax}}
  
\def\setoa@ba#1{\global\def\oarga@ba{\setup@ba{\edibidemph}{\cap@ba{#1}}}}

\def\geto@ba#1#2{\setoa@ba{#1}%
  {\def\@testa{#2}%
   \ifx\@testa\@leer
    \global\def\oargb@ba{#2}%
   \else
    \global\def\oargb@ba{\@bastrut #2}%
   \fi}}

\def\getom@ba m{\@ifnextchar\bgroup{\geto@ba{idem}}{\setoa@ba{idem}}}
\def\getof@ba f{\@ifnextchar\bgroup{\geto@ba{eadem}}{\setoa@ba{eadem}}}
\def\getop@ba p{\@ifnextchar\bgroup{\geto@ba{iidem}}{\setoa@ba{iidem}}}


\def\@kprintonly#1#2#3#4#5#6{{%
   \makeXcorrcmd@ba{\kxxemph}{\bacorr}%
   \def\@testa{#2}%
   \ifx\@testa\@leer \@printkname{#3}{1}\@printoptarg{#4}{#6}%
   \else        \oletter@ba{k#1}{#2}{\@printoptarg{#4}{#6}}%
   \fi}%
   \@printlastarg{#5}{}{\kxxemph}%
   \if@allowconferize
      \ifba@varstring\ \ba@varref{#3}{#4}{#5}%
      \else \@initprinthint{#1}%
      \fi
   \else    \@initprinthint{#1}%    %%  #1 == li, qu  %%
   \fi}


\def\@rootponly#1#2*#3#4#5{{%
   \makeXcorrcmd@ba{\kxxemph}{\bacorr}%
   \@hereRfunctions
   \@printkname{#2}{1}%
   \@printoptarg{#3}{#5}%
   {\@kxxbatrue\@printlastarg{#4}{}{\kxxemph}}%
   \@initprinthint{#1}}}   %%  #1 == li, qu  %%


%%


\def\next@ba{}

\def\pfilled@baon{\if@pfvba\if@footnote\global\let\pfilled@ba=+\fi\fi}
\def\@balocalvolon{\if@pfvba\if@footnote\@balocalvoltrue\fi\fi}
\def\@balocalpgon{\if@pfvba\if@footnote\@balocalpgtrue\fi\fi}
\def\pevofilled@baon{\if@pfvba\if@footnote\global\let\pevofilled@ba=+\fi\fi}

\def\getk@bapg#1]{\@bapg{#1}\bk@bapg}
\def\getxk@bapg#1]{\@baxpg{#1}\bk@bapg}
\def\getkf@bapg#1){\@bafolio{#1}\bk@bapg}
\def\getxkf@bapg#1){\@baxfolio{#1}\bk@bapg}
\def\getvolno@ba#1|{\initprintpevo@ba{#1}{vol}\ak@bapg}
\def\getperno@ba#1_{\initprintpevo@ba{#1}{per}\ak@bapg}

\def\xk@bapg{\afterassignment\getxkch@bapg\let\next@ba= }
\def\getxkch@bapg{%
   \ifx\next@ba[\let\next@ba=\getxk@bapg
         \pfilled@baon
   \else
      \ifx\next@ba(\let\next@ba=\getxkf@bapg
         \pfilled@baon
      \else
        \if@pfvba{ \erri@ba}{\errorcontextlines-1%
         \@qqertypeout{*[n]- or *(n)}{... at the end of an \if@baouter outer \else inner \fi BibArts command.}%
           \errhelp{^^JThe * at the end of a BibArts cmd has to be followed
            ^^Jby [PageNum] or (FolioNum) without a space before.
            ^^JNote, that *|n| and *_n_ do not exist. An outer *[n] or *(n) may define
            ^^Ja special page/folio inside an inner [Begin-End] or (Begin-End) array.}%
         \errmessage@ba{The * is not directly followed by [n] or (n)}}\fi
   \fi\fi
   \pknext@ba}

\def\lessinnerinfoerr@ba#1{\type@bawarn{No #1 in INNER ibidem-series}}

\def\lessouterinfoerr@ba#1#2#3#4#5{{ \erri@ba}{\errorcontextlines-1%
   \@qqertypeout{#2}{Automatic IBIDEM-setting in \if@baminipage minipage \fi footnote:}%
   \errhelp{
   ^^JYour last BibArts command has had a #1 as #2-number,
   ^^Jbut the command here has none. The titles are the same. I set IBIDEM,
   ^^Jbut did you want to cite the whole #5? Later, you may type
   ^^J`passim', or what you've forgotten, as #2-number. (Then, you
   ^^Jmay put your whole BibArts-\cmd in {#4\cmd...}.) 
   ^^JOr switch off IBIDEM: Set \clearbamem in front of your BibArts command.^^J}%
   \errmessage@ba{Same outer title, before with :#3:, has now no #1}}}

\def\do@banohint#1{\if@printhint\else\ifba@varstring\else #1\fi\fi}

\def\makeendcorr@ba{\ifx\isibidem@ba-%
  \ifx\next@ba,\else\ifx\next@ba.\else\ifx\next@ba\strut\else
    \ifx\next@ba[\else\ifx\next@ba(\else\ifx\next@ba*\else\ifx\next@ba|\else\ifx\next@ba_\else
       \if@kxxba\do@banohint{{\bacorr}}\fi
    \fi\fi\fi\fi\fi
  \fi\fi\fi
  \ifx\next@ba.%
    \ifdim\lastskip=\notdotcode@ba
      \if@kxxba\if@printhint\else{\bacorr}\@banotdot\fi\fi
    \fi
  \fi
  \fi
  \ifx\next@ba.\else
     \spacefactorM@ba
  \fi}

\let\pfilled@ba=-
\let\pevofilled@ba=-

\let\@bainnernewvol=-
\let\@bainnernewpg=-
\newif\if@balocalvol\@balocalvolfalse
\newif\if@balocalpg\@balocalpgfalse
\newif\if@bapglock\@bapglockfalse

\def\ak@bapg{\afterassignment\getakch@bapg\let\next@ba= }
\def\getakch@bapg{%
   \ifx\last@ba-\makeendcorr@ba\fi
   \global\let\last@ba=+%
   \@bapglockfalse
   %%%
   \ifx\lockpevo@ba-\ifx\next@ba|\else\ifx\next@ba_\else
     \if@pfvba
       \if@footnote
         \ifx\isibidem@ba+\ifx\pevofilled@ba+%
           \ifx\volref@ba\@leer
           \else
             \if@baouter
               \lessouterinfoerr@ba{vol/no}{|n|- or _n_}{{pervol}{\volref@ba}}{\notprintlongpervol}{series}%
               \fillvolref@ba{}%
             \fi
           \fi
         \fi\fi
         \if@baouter
           \fillvolmem@ba{}%
         \else
           \fillvolref@ba{}%
         \fi
         \global\let\pevofilled@ba=-%
       \fi
     \fi
   \fi\fi\fi
   %%%
   \ifx\next@ba[%
      \@balocalpgon
      \let\next@ba=\getk@bapg
      \pfilled@baon
   \else
   \ifx\next@ba(%
      \@balocalpgon
      \let\next@ba=\getkf@bapg
      \pfilled@baon
   \else
   \ifx\next@ba*%
      \@balocalpgon
      \if@baouter\else
        \type@bawarn{Your * is at the end of an INNER cmd}%
        \typeout@ba{ \space\space Use *[PageNum] or *(FolioNum) only at the end of OUTER BibArts cmds.}\fi
      \let\next@ba=\xk@bapg
   \else
   \ifx\next@ba|%
      \@balocalvolon
      \@bapglocktrue
      \ifx\lockpevo@ba-\if@pfvba\global\let\lockpevo@ba=+\fi
        \let\next@ba=\getvolno@ba \if@pfvba\global\let\onlypevo@ba=+\fi
      \fi
      \pevofilled@baon
   \else
   \ifx\next@ba_%
      \@balocalvolon
      \@bapglocktrue
      \ifx\lockpevo@ba-\if@pfvba\global\let\lockpevo@ba=+\fi
        \let\next@ba=\getperno@ba \if@pfvba\global\let\onlypevo@ba=+\fi
      \fi 
      \pevofilled@baon
   \else
      %%%
      \if@pfvba
        \if@footnote
          \ifx\isibidem@ba+%
            \ifx\pfilled@ba+%
              \if@baouter
                 \lessouterinfoerr@ba{page/folio}{[n]- or (n)}{\pref@ba}{\notprintlongpagefolio}{document}%
              \fi
              \ifx\lockpevo@ba-%
               \fillvolmem@ba{}%
                 \global\let\pevofilled@ba=-%
              \fi
            \fi
          \fi
          \if@baouter
            \fillpref@ba{}{}%
          \else
            \fillpmem@ba{}{}%
          \fi
          \global\let\pfilled@ba=-%
        \fi
      \fi
      %%%
      \if@pfvba
        \ifx\next@ba.%
           \ifx\isibidem@ba+%
             \ifx\onlypevo@ba-%
               \if@ibidhp\let\next@ba=\relax\spacefactorMMM@ba\fi
             \fi
          \fi
        \else
          \spacefactorM@ba \@bastrut
          \ifx\onlypevo@ba-\if@baouter\else\ifx\isibidem@ba+\if@ibidhp\@bahasdot\fi\fi\fi\fi
        \fi
      \fi
      %%%
   \fi\fi\fi\fi\fi
   %%% ONLY SCREEN-MESSAGES MAY FOLLOW HERE:
    \if@pfvba\if@footnote
      \if@baouter
      \else
          \if@balocalvol\global\let\@bainnernewvol=+%
          \else\ifx\isibidem@ba-%
                        \global\let\@bainnernewvol=-%
          \fi  \fi
          \if@balocalpg \global\let\@bainnernewpg=+%
          \else\ifx\isibidem@ba-%
                        \global\let\@bainnernewpg=-%
          \fi  \fi
        \ifx\isibidem@ba+%
          \if@balocalvol
          \else
            \ifx\@bainnernewvol+%
              \lessinnerinfoerr@ba{|n| or _n_}%
            \fi
          \fi
          \if@balocalpg
          \else
            \ifx\@bainnernewpg+%
              \if@bapglock
              \else
                \lessinnerinfoerr@ba{[n] or (n)}%
              \fi
            \fi
          \fi
        \fi
      \fi
    \fi\fi
    %%%
   \pknext@ba}  %% ||__ %%

\def\bk@bapg{\afterassignment\getbkch@bapg\let\next@ba= }
\def\getbkch@bapg{%
   \ifx\next@ba.\if@ibidhp
         \ifx\lookpage@ba+\let\next@ba=\relax\spacefactorMMM@ba\fi
   \fi \else \spacefactorM@ba
    \if@balist\else\@bastrut\fi
   \fi
   \pknext@ba}  %% []()*[]*() %%

\def\pknext@ba{%
   \if@pfvba
      \ifx.\next@ba
         \iflasthasdot@ba{\strut\let\next@ba\relax}{}%
         \iflastnotdot@ba{\strut\let\next@ba\relax}{}%
         \spacefactorMMM@ba
      \fi
   \else \if@filesw \if@nobreak\ifvmode\nobreak\fi\fi \fi
      \if@unusedbib\ignorespaces\else\@esphack\fi
   \fi
   \next@ba}

\def\pkcheck@ba{%
   \global\let\last@ba=-%
   \global\let\onlypevo@ba=-%
   \global\let\lockpevo@ba=-%
   \if@unusedbib\@pfvbafalse\fi
   \ak@bapg}
\def\pvcheck@ba{%
   \global\let\isibidem@ba=-%
   \global\let\lookpage@ba=-%
   \pkcheck@ba}


%%


\def\checkNvrun@AbcDe#1{\@kxxbafalse\@perbafalse\@ifnextchar[{\Check@LocalvArg{#1}}{\Check@LocalvArg{#1}[]}}

\def\Check@LocalvArg#1[#2]{\@ifnextchar\bgroup{\Check@ObligatoryvArgA{#1}[#2]}%
   {\Check@ObligatoryvArgA{#1}[#2]{\erri@ba}}}

\def\Check@ObligatoryvArgA#1[#2]#3{\@ifnextchar\bgroup{\Check@ObligatoryvArgB{#1}[#2]{#3}}%
   {{\errorcontextlines=-1\@qqerrhlp{#1}%
     \Check@ObligatoryvArgB{#1}[#2]{#3}{\erri@ba}%
     \errmessage@ba{#1 - CONTINUE - : \space Missing author's \ifx\erri@ba #3firstname(s) and \fi lastname as \ifx\erri@ba #3{a1}\fi{a2}}}}}

\def\Check@ObligatoryvArgB#1[#2]#3#4{\@ifnextchar *{\Check@OptionalvStar{#1}[#2]{#3}{#4}}%
   {\Check@OptionalvArg{#1}[#2]{#3}{#4}*{}}}

\def\Check@OptionalvStar#1[#2]#3#4*{\@ifnextchar\bgroup{\Check@OptionalvArg{#1}[#2]{#3}{#4}*}%
   {\Check@OptionalvArg{#1}[#2]{#3}{#4}*{\erri@ba}}}
 
\def\Check@OptionalvArg#1[#2]#3#4*#5{\@ifnextchar\bgroup{\Check@ObligatoryLastvArg{#1}[#2]{#3}{#4}*{#5}}%
   {{\errorcontextlines=-1\@qqerrmsg{#1}{Registered lastname (a2): {#4}}%
     \Check@ObligatoryLastvArg{#1}[#2]{#3}{#4}*{#5}{\erri@ba}%
     \errmessage@ba{#1: \space Missing OBLIGATORY Arg3 (LastArg). \space You may choose,
                 ^^J \space when you fix the problem later: \space Type a full-cited title as {a3},
                 ^^J \space OR set `*'-option, and type supplements and a full title as *{op}{a3}}}}}

\def\Check@ObligatoryLastvArg#1[#2]#3#4*#5#6{\csname @#1\endcsname[#2]{#3}{#4}*{#5}{#6}\pvcheck@ba}




\def\checkNkrun@AbCd#1{\@kxxbatrue\@perbafalse\@ifnextchar[{\Check@LocalkArg{#1}}{\Check@LocalkArg{#1}[]}}

\def\Check@LocalkArg#1[#2]{\@ifnextchar\bgroup{\Check@ObligatorykArgA{#1}[#2]}%
   {{\errorcontextlines=-1\@qqerrhlp{#1}%
     \Check@ObligatorykArgA{#1}[#2]{\erri@ba}%
     \errmessage@ba{#1 - CONTINUE - :
                 ^^J \space Missing even author's lastname as {a1}}}}}

\def\Check@ObligatorykArgA#1[#2]#3{\@ifnextchar *{\Check@OptionalkStar{#1}[#2]{#3}}%
   {\Check@OptionalkArg{#1}[#2]{#3}*{}}}

\def\Check@OptionalkStar#1[#2]#3*{\@ifnextchar\bgroup{\Check@OptionalkArg{#1}[#2]{#3}*}%
   {\Check@OptionalkArg{#1}[#2]{#3}*{\erri@ba}}}

\def\Check@OptionalkArg#1[#2]#3*#4{\@ifnextchar\bgroup{\Check@ObligatoryLastkArg{#1}[#2]{#3}*{#4}}%
   {{\errorcontextlines=-1\@qqerrmsg{#1}{Registered lastname (a1): {#3}}%
     \Check@ObligatoryLastkArg{#1}[#2]{#3}*{#4}{\erri@ba}%
     \errmessage@ba{#1: \space Missing OBLIGATORY Arg2 (LastArg). \space You may choose,
                 ^^J \space when you fix the problem later: \space Type a short-cited title as {a2},
                 ^^J \space OR set `*'-option, and type supplements and a short title as *{op}{a2}}}}}

\def\Check@ObligatoryLastkArg#1[#2]#3*#4#5{\csname @#1\endcsname[#2]{#3}*{#4}{#5}\pkcheck@ba}


%%


\def\type@bawarn#1{\typeout@ba{ \space BibArts Warning: #1 on input line \line@ba.}}

\def\protec@scr#1{{\@outsavety\@memfunctions\message{#1}}}

\def\@qqertypeout#1#2{%
   \typeout@ba{^^J \space ** Arg(s) of BibArts' #1-command: Error around line \line@ba!}%
   \protec@scr{    \space\space\space\space #2}%
   \typeout@ba{    \space <H><return> \space for immediate help,
               ^^J \space <return> \space\space\space\space to continue.}}

\def\command@misplace#1{\type@bawarn{\string#1\space was ignored: You've used it 
   ^^J\space\space\space\space outside the args of ....li, ....qu, ...per, or ...arq}}

\def\@qqerrhlp#1{\errhelp{%
   ^^JTeX reports errors by SETTING UP in quoting your text - AFTER the error.
   ^^JIn case of footnotes, TeX reports only the end of the last footnote-line.
   ^^JIf TeX quotes nothing HERE, you've forgotten to type an/some argument(s).^^J
   ^^J...v..-commands have syntax ...v..{a1}{a2}{a3} , or ...v..{a1}{a2}*{op}{a3}
   ^^J...k..-commands have syntax ...k..{a1}{a2} , or ...k..{a1}*{op}{a2}
   ^^J -- you may use an op-Arg as [m,f,p] after ...v..- or ...k...commands --
   ^^J...per-commands have syntax ...per {periodical revue name}
   ^^J...arq-commands have syntax ...arq {source-doc} {archive-abbrev./shelfmark}^^J
   ^^JAdd numbers as |volume| and/or [page] or (folio) immediate after the last arg.^^J
   ^^JI've inserted arg(s) for that/those you probably have forgotten to type
   ^^Jbehind your #1-command. I put `??' into that/those arg(s).
   ^^JThat should fix the problem for the moment. <return> to continue.^^J}}

\def\@fqerrhlp#1{\errhelp{%
   ^^JCommands \addtogrr, \addtosrr, and \addtoprr have ONE {arg} . Their
   ^^Jfill...-commands have syntax e.g. \fillgrr{arg} {additional text to arg} ;
   ^^Jand \per{arg} could also be filled in the list with \fillper{arg} {add} :
   ^^J{arg} always should be identical to the ONE {arg} of the base command.
   ^^JAbbreviation definitions are ...abkdef{arg}{def} and ...defabk{def}{arg}
   ^^Jto write out \abk{a.b.c.} ; no fill-commands exist for abbreviations.
   ^^JIn case of \arq{document/paper} {archive/shelfmark} , only the second arg
   ^^Jgoes to the list - where \arqsection{s1} {s2} could create a heading:
   ^^Js1 should BEGIN with the same characters as does {archive/shelfmark},
   ^^Jbut s1 should have NOT ALL the characters of {archive/shelfmark}
   ^^J(e.g. \arq{X to Y} {PRO~1} and \arqsection{PRO} {Public Record Office} ).
   ^^J\fillarq{PRO~1} {Name of the file} could FILL the second arg of \arq.^^J
   ^^JI've inserted default-arg(s) for that/those you probably have forgotten
   ^^Jto type behind your #1-command. You have to fix that problem later.
   ^^J<return> to continue.^^J}}

\def\@qqerrmsg#1#2{\@qqerrhlp{#1}\@qqertypeout{#1}{#2}}
\def\@fqerrmsg#1{\@fqerrhlp{#1}\@qqertypeout{#1}{...}}


%%


                 %% full citations (v-cmds) %%


\def\shadowv{\@bsphack\@pfvbafalse\checkNvrun@AbcDe{shadowv}}  %% ... \@shadowv


\DeclareRobustCommand\vli{\dofrco@ba\@pfvbatrue\leavevmode\checkNvrun@AbcDe{vli}}  %% ... \@vli

\DeclareRobustCommand\vqu{\dofrco@ba\@pfvbatrue\leavevmode\checkNvrun@AbcDe{vqu}}  %% ... \@vqu


\DeclareRobustCommand\printonlyvli{\dofrco@ba\@pfvbatrue\checkNvrun@AbcDe{printonlyvli}}  %% ... \@printonlyvli

\DeclareRobustCommand\printonlyvqu{\dofrco@ba\@pfvbatrue\checkNvrun@AbcDe{printonlyvqu}}  %% ... \@printonlyvqu


\DeclareRobustCommand\addtovli{\@bsphack\@pfvbafalse\checkNvrun@AbcDe{addtovli}}  %% ... \@addtovli

\DeclareRobustCommand\addtovqu{\@bsphack\@pfvbafalse\checkNvrun@AbcDe{addtovqu}}  %% ... \@addtovqu



\DeclareRobustCommand\xvli{\dofrco@ba\@pfvbatrue\leavevmode\checkNvrun@AbcDe{xvli}}  %% ... \@xvli

\DeclareRobustCommand\xvqu{\dofrco@ba\@pfvbatrue\leavevmode\checkNvrun@AbcDe{xvqu}}  %% ... \@xvqu


\DeclareRobustCommand\xprintonlyvli{\dofrco@ba\@pfvbatrue\checkNvrun@AbcDe{xprintonlyvli}}  %% ... \@xprintonlyvli

\DeclareRobustCommand\xprintonlyvqu{\dofrco@ba\@pfvbatrue\checkNvrun@AbcDe{xprintonlyvqu}}  %% ... \@xprintonlyvqu


\DeclareRobustCommand\xaddtovli{\@bsphack\@pfvbafalse\checkNvrun@AbcDe{xaddtovli}}  %% ... \@xaddtovli

\DeclareRobustCommand\xaddtovqu{\@bsphack\@pfvbafalse\checkNvrun@AbcDe{xaddtovqu}}  %% ... \@xaddtovqu




                           %% Internal %%


\def\@shadowv[#1]#2#3*#4#5{}


\def\@vli[#1]#2#3*#4#5{\@addtovli[]{#2}{#3}*{#4}{#5}\@printonlyvli[#1]{#2}{#3}*{#4}{#5}}

\def\@vqu[#1]#2#3*#4#5{\@addtovqu[]{#2}{#3}*{#4}{#5}\@printonlyvqu[#1]{#2}{#3}*{#4}{#5}}


\def\@xvli[#1]#2#3*#4#5{\@xaddtovli[]{#2}{#3}*{#4}{#5}\@xprintonlyvli[#1]{#2}{#3}*{#4}{#5}}

\def\@xvqu[#1]#2#3*#4#5{\@xaddtovqu[]{#2}{#3}*{#4}{#5}\@xprintonlyvqu[#1]{#2}{#3}*{#4}{#5}}


\def\@printonlyvli[#1]#2#3*#4#5{\@initvprintonly{li}{#1}{#2}{#3}{#4}{#5}{}{false}}

\def\@printonlyvqu[#1]#2#3*#4#5{\@initvprintonly{qu}{#1}{#2}{#3}{#4}{#5}{}{false}}


\def\@xprintonlyvli[#1]#2#3*#4#5{\@initvprintonly{li}{#1}{#2}{#3}{#4}{#5}{\nsep}{true}}

\def\@xprintonlyvqu[#1]#2#3*#4#5{\@initvprintonly{qu}{#1}{#2}{#3}{#4}{#5}{\nsep}{true}}


\def\@addtovli[#1]#2#3*#4#5{\@initaddtovli{#2}{#3}{#4}{#5}{{\nsep}{false}}}

\def\@addtovqu[#1]#2#3*#4#5{\@initaddtovqu{#2}{#3}{#4}{#5}{{\nsep}{false}}}


\def\@xaddtovli[#1]#2#3*#4#5{\@initaddtovli{#2}{#3}{#4}{#5}{{\nsep}{true}}}

\def\@xaddtovqu[#1]#2#3*#4#5{\@initaddtovqu{#2}{#3}{#4}{#5}{{\nsep}{true}}}


\def\@initaddtovli#1#2#3#4#5{\if@filesw {\let\thepage\relax
   \@outsavety\@outfunctions
   \edef\@tempa{\write\@auxout{\commentch@ba\string
   \literentry{#2}{#1}{#3}{#4}{#5{}}{\setn@ba}[\catq@ba][\lang@ba](line \line@ba)}}%
   \expandafter}\@tempa \fi}

\def\@initaddtovqu#1#2#3#4#5{\if@filesw {\let\thepage\relax
   \@outsavety\@outfunctions
   \edef\@tempa{\write\@auxout{\commentch@ba\string
   \quellentry{#2}{#1}{#3}{#4}{#5{}}{\setn@ba}[\catq@ba][\lang@ba](line \line@ba)}}%
   \expandafter}\@tempa \fi}


\def\literentry#1#2#3#4#5#6[#7][#8](#9){}

\def\quellentry#1#2#3#4#5#6[#7][#8](#9){}


%%


                      %% shortened citations %%


\def\shadowk{\@bsphack\@pfvbafalse\checkNkrun@AbCd{shadowk}}  %% ... \@shadowk


\DeclareRobustCommand\kli{\dofrco@ba\@pfvbatrue\leavevmode\checkNkrun@AbCd{kli}}  %% ... \@kli

\DeclareRobustCommand\kqu{\dofrco@ba\@pfvbatrue\leavevmode\checkNkrun@AbCd{kqu}}  %% ... \@kqu


\DeclareRobustCommand\printonlykli{\dofrco@ba\@pfvbatrue\checkNkrun@AbCd{printonlykli}}  %% ... \@printonlykli

\DeclareRobustCommand\printonlykqu{\dofrco@ba\@pfvbatrue\checkNkrun@AbCd{printonlykqu}}  %% ... \@printonlykqu


\DeclareRobustCommand\addtokli{\@bsphack\@pfvbafalse\checkNkrun@AbCd{addtokli}}  %% ... \@addtokli

\DeclareRobustCommand\addtokqu{\@bsphack\@pfvbafalse\checkNkrun@AbCd{addtokqu}}  %% ... \@addtokqu



\DeclareRobustCommand\xkli{\dofrco@ba\@pfvbatrue\leavevmode\checkNkrun@AbCd{xkli}}  %% ... \@xkli

\DeclareRobustCommand\xkqu{\dofrco@ba\@pfvbatrue\leavevmode\checkNkrun@AbCd{xkqu}}  %% ... \@xkqu


\DeclareRobustCommand\xprintonlykli{\dofrco@ba\@pfvbatrue\checkNkrun@AbCd{xprintonlykli}}  %% ... \@xprintonlykli

\DeclareRobustCommand\xprintonlykqu{\dofrco@ba\@pfvbatrue\checkNkrun@AbCd{xprintonlykqu}}  %% ... \@xprintonlykqu


\DeclareRobustCommand\xaddtokli{\@bsphack\@pfvbafalse\checkNkrun@AbCd{xaddtokli}}  %% ... \@xaddtokli

\DeclareRobustCommand\xaddtokqu{\@bsphack\@pfvbafalse\checkNkrun@AbCd{xaddtokqu}}  %% ... \@xaddtokqu




                           %% Internal %%


\def\@shadowk[#1]#2*#3#4{}


\def\@kli[#1]#2*#3#4{\@addtokli[]{#2}*{#3}{#4}\@printonlykli[#1]{#2}*{#3}{#4}}

\def\@kqu[#1]#2*#3#4{\@addtokqu[]{#2}*{#3}{#4}\@printonlykqu[#1]{#2}*{#3}{#4}}


\def\@xkli[#1]#2*#3#4{\@xaddtokli[]{#2}*{#3}{#4}\@xprintonlykli[#1]{#2}*{#3}{#4}}

\def\@xkqu[#1]#2*#3#4{\@xaddtokqu[]{#2}*{#3}{#4}\@xprintonlykqu[#1]{#2}*{#3}{#4}}


\def\@printonlykli[#1]#2*#3#4{\@initkprintonly{li}{#1}{#2}{#3}{#4}{}}

\def\@printonlykqu[#1]#2*#3#4{\@initkprintonly{qu}{#1}{#2}{#3}{#4}{}}


\def\@xprintonlykli[#1]#2*#3#4{\@initkprintonly{li}{#1}{#2}{#3}{#4}{\nsep}}

\def\@xprintonlykqu[#1]#2*#3#4{\@initkprintonly{qu}{#1}{#2}{#3}{#4}{\nsep}}


\def\@addtokli[#1]#2*#3#4{\@initaddtok{#2}{#3}{#4}{li}{{\nsep}{false}{k}}{0}}

\def\@addtokqu[#1]#2*#3#4{\@initaddtok{#2}{#3}{#4}{qu}{{\nsep}{false}{k}}{0}}


\def\@xaddtokli[#1]#2*#3#4{\@initaddtok{#2}{#3}{#4}{li}{{\nsep}{true}{k}}{0}}

\def\@xaddtokqu[#1]#2*#3#4{\@initaddtok{#2}{#3}{#4}{qu}{{\nsep}{true}{k}}{0}}


\def\@initaddtok#1#2#3#4#5#6{\if@filesw {\let\thepage\relax
   \@outsavety\@outfunctions \ifnum#6=1\@hereFfunctions\fi
   \edef\@tempa{\write\@auxout{\commentch@ba\string
   \vkcitentry{#1}{#2}{#3}{#4}{#5}{\setn@ba}[\catq@ba][\lang@ba](line \line@ba)}}%
   \expandafter}\@tempa \fi}


\def\vkcitentry#1#2#3#4#5#6[#7][#8](#9){}

%%


                 %% periodicals and archive sources %%


\def\checkNonerun@a#1{\@kxxbafalse\@perbatrue\@ifnextchar\bgroup{\Check@perArg{#1}}{%
   {\errorcontextlines=-1\@qqerrmsg{#1}{...}%
   \Check@perArg{#1}{\erri@ba}%
   \errmessage@ba{#1: Missing Arg (periodical revue name)}}}}

\def\Check@perArg#1#2{\csname @#1\endcsname{#2}\pkcheck@ba}


\def\checkNtworun@ab#1{\@kxxbafalse\@perbafalse\@ifnextchar[{\Check@LocalarqArg{#1}}{\Check@LocalarqArg{#1}[]}}

\def\Check@LocalarqArg#1[#2]{\@ifnextchar\bgroup{\Check@arqArga{#1}[#2]}{%
   {\Check@arqArga{#1}[#2]{\erri@ba}}}}

\def\Check@arqArga#1[#2]#3{\@ifnextchar\bgroup{\Check@arqArgb{#1}[#2]{#3}}{%
   {\errorcontextlines=-1\@qqerrmsg{#1}{Registered doc (a1): {#3}}%
   \Check@arqArgb{#1}[#2]{#3}{\erri@ba}%
   \errmessage@ba{#1: Missing second Arg (archive abbrev./shelfmark [title])}}}}

\def\Check@arqArgb#1[#2]#3#4{\csname @#1\endcsname[#2]{#3}{#4}\pkcheck@ba}


\def\checkNrun@one#1{\@ifnextchar\bgroup{\Check@oneArg{#1}}{%
   {\errorcontextlines=-1\@fqerrmsg{#1}%
    \Check@oneArg{#1}{}\errmessage@ba{#1: \space Missing Arg}}}}

\def\Check@oneArg#1#2{\csname @#1\endcsname{#2}}


\def\checkNrun@two#1{\@ifnextchar\bgroup{\Check@FirstOfTwoArgs{#1}}{%
   {\Check@FirstOfTwoArgs{#1}{}}}}

\def\Check@FirstOfTwoArgs#1#2{\@ifnextchar\bgroup{\Check@SecondOfTwoArgs{#1}{#2}}{%
   {\errorcontextlines=-1\@fqerrmsg{#1}%
    \Check@SecondOfTwoArgs{#1}{#2}{\erri@ba}{\@outsavety\@memfunctions\errmessage@ba{#1: \space Missing 2nd Arg (after `#2')}}}}}

\def\Check@SecondOfTwoArgs#1#2#3{\csname @#1\endcsname{#2}{#3}}


\def\shadowone{\checkNrun@one{shadowone}} %% \@shadowone %%
\def\shadowtwo{\checkNrun@two{shadowtwo}} %% \@shadowtwo %%

\def\shadowo{\@bsphack\@pfvbafalse\checkNonerun@a{shadowo}}  %% \@shadowo
\def\shadowt{\@bsphack\@pfvbafalse\checkNtworun@ab{shadowt}}  %% \@shadowt

\DeclareRobustCommand\per{\dofrco@ba\@pfvbatrue\leavevmode\checkNonerun@a{per}}  %% \@per
\DeclareRobustCommand\arq{\dofrco@ba\@pfvbatrue\leavevmode\checkNtworun@ab{arq}}  %% \@arq

\DeclareRobustCommand\printonlyper{\dofrco@ba\@pfvbatrue\checkNonerun@a{printonlyper}}  %% \@printonlyper
\DeclareRobustCommand\printonlyarq{\dofrco@ba\@pfvbatrue\checkNtworun@ab{printonlyarq}}  %% \@printonlyarq

\DeclareRobustCommand\addtoper{\@bsphack\@pfvbafalse\checkNonerun@a{addtoper}}  %% \@addtoper
\DeclareRobustCommand\addtoarq{\@bsphack\@pfvbafalse\checkNtworun@ab{addtoarq}}  %% \@addtoarq


                           %% Internal %%

\def\@shadowo#1{}
\def\@shadowt[#1]#2#3{}

\def\@shadowone#1{\@bsphack\if@unusedbib\ignorespaces\else\@esphack\fi}
\def\@shadowtwo#1#2{\@bsphack\if@unusedbib\ignorespaces\else\@esphack\fi}

\def\@per#1{\@addtoper{#1}\@printonlyper{#1}}
\def\@arq[#1]#2#3{\@initaddtoarq[\ifx#1\@leer\else\lbrack #1\rbrack\space\space\fi]{#2}{#3}\@printonlyarq[#1]{#2}{#3}}

\def\@printonlyper#1{\if@ibidemize\else\clearmem@ba\fi
   \resetcorr@ba
   {\@memfunctions\@outsavety\@herefunctions\filltref@ba{per}{#1}{}{}\fillnref@ba{}}%
   \makeibid@ba
   \nulskip@ba
   \ifx\isibidem@ba-{\@herefunctions\setup@ba{\peremph}{#1}}%
     \let\@testa=-\finddot@ba{#1}%
     \ifx\@testa+\@bahasdot\fi
   \else
     \ibidemname@ba
   \fi
   \makelast@ba}

\def\@printonlyarq[#1]#2#3{\if@ibidemize\else\clearmem@ba\fi
   \resetcorr@ba
   {\@memfunctions\@outsavety\@herefunctions\filltref@ba{arq}{#3}{}{}\fillnref@ba{}}%
   \makeibid@ba
   \nulskip@ba
   \initprints@ba{#1}{#2}%
   \ifx\isibidem@ba-{\@herefunctions\setup@ba{\arqemph}{#3}}%
     \let\@testa=-\finddot@ba{#3}%
     \ifx\@testa+\@bahasdot\fi
   \else
     \ibidemname@ba
   \fi
   \makelast@ba}

\def\@addtoper#1{\if@filesw {\let\thepage\relax
   \@outsavety\@outfunctions
   \edef\@tempa{\write\@auxout{\commentch@ba\string
   \perioentry{#1}{}{{}{}{}{}}{\setn@ba}[\catq@ba][\lang@ba](line \line@ba)}}%
   \expandafter}\@tempa \fi}

\DeclareRobustCommand\fillper{\checkNrun@two{fillper}}
\def\@fillper#1#2{\@bsphack \if@filesw {\let\thepage\relax
   \@outsavety\@outfunctions
   \edef\@tempa{\write\@auxout{\commentch@ba\string
   \perioentry{#1}{#2}{{\perlistopen}{\perlistclose}{}{}}{{}{}{-}}[\catq@ba][\lang@ba](line \line@ba)}}%
   \expandafter}\@tempa \fi
   \if@unusedbib\ignorespaces\else\@esphack\fi}

\def\@addtoarq[#1]#2#3{\@initaddtoarq[]{#2}{#3}}

\def\@initaddtoarq[#1]#2#3{\if@filesw {\let\thepage\relax
   \@outsavety\@outfunctions
   \edef\@tempa{\write\@auxout{\commentch@ba\string
   \archqentry{#3}{}{{}{}{}{}}{\setn@ba}[\catq@ba][\lang@ba](line \line@ba)    
    \space\commentch@ba\commentch@ba \space
    \if@unusedbib (u) \space \else \if@footnote\if@baminipage (mpf) \else (f) \fi \space \fi\fi
    #1#2 \commentch@ba\commentch@ba}}%
   \expandafter}\@tempa \fi}

\DeclareRobustCommand\fillarq{\checkNrun@two{fillarq}}
\def\@fillarq#1#2{\@bsphack \if@filesw {\let\thepage\relax
   \@outsavety\@outfunctions
   \edef\@tempa{\write\@auxout{\commentch@ba\string
   \archqentry{#1}{#2}{{\arqlistopen}{\arqlistclose}{}{}}{{}{}{-}}[\catq@ba][\lang@ba](line \line@ba)}}%
   \expandafter}\@tempa \fi
   \if@unusedbib\ignorespaces\else\@esphack\fi}

\DeclareRobustCommand\arqsection{\checkNrun@aBC{arqsection}}
\DeclareRobustCommand\arqsubsection{\checkNrun@aBC{arqsubsection}}
\DeclareRobustCommand\arqsubsubsection{\checkNrun@aBC{arqsubsubsection}}

\def\checkNrun@aBC#1{\@ifnextchar[{\Check@optionOfarqsec{#1}}%
   {\Check@optionOfarqsec{#1}[]}}

\def\Check@optionOfarqsec#1[#2]{\@ifnextchar\bgroup{\Check@FirstOfarqsec{#1}[#2]}{%
   {\Check@FirstOfarqsec{#1}[#2]{}}}}

\def\Check@FirstOfarqsec#1[#2]#3{\@ifnextchar\bgroup{\Check@SecondOfarqsec{#1}[#2]{#3}}{%
   {\errorcontextlines=-1\@fqerrmsg{#1}%
    \Check@SecondOfarqsec{#1}[#2]{#3}{\erri@ba}{\@outsavety\@memfunctions\errmessage@ba{#1: \space Missing 2nd Arg}}}}}

\def\Check@SecondOfarqsec#1[#2]#3#4{\csname @#1\endcsname{#2}{#3}{#4}}


\def\@arqsection#1#2#3{\@arqcontent{#2}{#3}{\arqsectionopen}{\arqsectionclose}{1}{#1}}
\def\@arqsubsection#1#2#3{\@arqcontent{#2}{#3}{\arqsubsectionopen}{\arqsubsectionclose}{2}{#1}}
\def\@arqsubsubsection#1#2#3{\@arqcontent{#2}{#3}{\arqsubsubsectionopen}{\arqsubsubsectionclose}{3}{#1}}
\def\@arqcontent#1#2#3#4#5#6{\@bsphack \if@filesw {\let\thepage\relax
   \@outsavety\@outfunctions
   \edef\@tempa{\write\@auxout{\commentch@ba\string
   \archqentry{#1}{#2}{{#3}{#4}{#5}{#6}}{{}{}{-}}[\catq@ba][\lang@ba](line \line@ba)}}%
   \expandafter}\@tempa \fi
   \if@unusedbib\ignorespaces\else\@esphack\fi}


\def\perioentry#1#2#3#4[#5][#6](#7){}
\def\archqentry#1#2#3#4[#5][#6](#7){}


%%


                          %% abbreviations %%

\def\abkemph{\sffamily}
\def\dofrco@baabk{\ba@textmode
   \if@bafrontcorr{\abkemph{\ifdim\fontdimen\@ne\font=\z@\dofrco@ba@abk\fi}}\fi}

\def\next@printabk{\afterassignment\@makeendabk\let\next@ba= }
\def\@makeendabk{\ifx\next@ba,%
  \else\ifx\next@ba.%
    \iflasthasdot@ba{\strut\let\next@ba\relax}{}%
    \iflastnotdot@ba{\strut\let\next@ba\relax\bacorr}{}%
    \spacefactorMMM@ba
  \else\ifx\next@ba\strut
    \nulskip@ba\strut\let\next@ba\relax
  \else\nulskip@ba\strut\bacorr\fi\fi\fi
  \next@ba}
\def\@abk#1{\@initaddtoabk{#1}\@printonlyabk{#1}%
   \let\@testa=-\finddot@ba{#1}%
   \ifx\@testa+\@bahasdot\fi
   \next@printabk}
\DeclareRobustCommand\abk{\dofrco@baabk\leavevmode\resetcorr@ba\checkNrun@one{abk}} %% \@abk %%

\def\@printonlyabk#1{{\@herefunctions\printfirstarg@ba{\abkemph}{#1}{abk...}}%
  \init@baXcorr{#1}{\abkemph}{\bacorr}}

\def\@cprintonlyabk#1{\@printonlyabk{#1}%
   \let\@testa=-\finddot@ba{#1}%
   \ifx\@testa+\@bahasdot\fi
   \next@printabk}
\DeclareRobustCommand\printonlyabk{\dofrco@baabk\resetcorr@ba\checkNrun@one{cprintonlyabk}} %% \@cprintonlyabk %%

\def\@addtoabk#1{\@initaddtoabk{#1}}
\DeclareRobustCommand\addtoabk{\checkNrun@one{addtoabk}} %% \@addtoabk %%

\def\@abkdef#1#2{\@initabkdef{#1}{#2}\@printonlyabkdef{#1}{#2}} 
\DeclareRobustCommand\abkdef{\dofrco@baabk\leavevmode\resetcorr@ba\checkNrun@two{abkdef}} %% \@abkdef %%

\def\@defabk#1#2{\@initabkdef{#2}{#1}\@printonlydefabk{#1}{#2}}
\DeclareRobustCommand\defabk{\ba@textmode\leavevmode\resetcorr@ba\checkNrun@two{defabk}} %% \@defabk %%

\def\@printonlyabkdef#1#2{\@printonlyabk{#1}\strut
   {\@herefunctions\@banonumtrue\printsecondarg@ba{\abkdefopen}{#2}{\abkdefclose}{\abkemph}}\next@printabk}
\DeclareRobustCommand\printonlyabkdef{\dofrco@baabk\resetcorr@ba\checkNrun@two{printonlyabkdef}} %% \@printonlyabkdef %%


\newif\if@ba@newLTX\@ba@newLTXfalse
\def\pndefabk{\@ba@newLTXfalse}
\def\negcorrdefabk{\protect\pndefabk}
\def\pnndefabk{\@ba@newLTXtrue}
\def\notnegcorrdefabk{\protect\pnndefabk}

\def\@printonlydefabk#1#2{{\@herefunctions\ignorespaces #1}\nulskip@ba\strut
   {\abkemph{\ifdim\fontdimen\@ne\font=\z@\gdef\bacorr{\@baupcorr}\else
            \if@ba@newLTX\gdef\bacorr{}\else\gdef\bacorr{\@badowncorr}\fi\fi}}%
   {\let\@testa=-\finddot@ba{#1}%
    \ifx\@testa+\@bahasdot\fi
   }%
   {\defabkopen}\@printonlyabk{#2}%
   {\let\@testa=-\finddot@ba{#2}%
    \ifx\@testa+\@bahasdot
      {\defabkclose}\gdef\bacorr{}%
    \else
      \setbox\testbox@ba=\hbox{\def\corrrrule@ba{}\defabkclose}%
      \ifdim\ht\testbox@ba=0pt%
        \def\bacorr{}{\defabkclose}%
      \else
        {\defabkclose}\gdef\bacorr{}%
      \fi
    \fi
   }\spacefactorM@ba\next@printabk}

\DeclareRobustCommand\printonlydefabk{\ba@textmode\resetcorr@ba\checkNrun@two{printonlydefabk}} %% \@printonlydefabk %%

\def\@addtoabkdef#1#2{\@initabkdef{#1}{#2}}
\DeclareRobustCommand\addtoabkdef{\checkNrun@two{addtoabkdef}} %% \@addtoabkdef %%

\def\@addtodefabk#1#2{\@initabkdef{#2}{#1}}
\DeclareRobustCommand\addtodefabk{\checkNrun@two{addtodefabk}} %% \@addtodefabk %%

\def\@initabkdef#1#2{\if@unusedbib\else\@bsphack\fi
   \if@filesw {\let\thepage\relax
   \@outsavety\@outfunctions
   \edef\@tempa{\write\@auxout{\commentch@ba\string
   \abkrzentry{#1}{#2}{{\abklistopen}{\abklistclose}{}{}}{\setn@ba}[\catq@ba][\lang@ba](line \line@ba)}}%
   \expandafter}\@tempa
   \if@nobreak\ifvmode\nobreak\fi\fi \fi
   \if@unusedbib\ignorespaces\else\@esphack\fi}

\def\@initaddtoabk#1{\if@unusedbib\else\@bsphack\fi
   \if@filesw {\let\thepage\relax
   \@outsavety\@outfunctions
   \edef\@tempa{\write\@auxout{\commentch@ba\string
   \abkrzentry{#1}{}{{}{}{}{}}{\setn@ba}[\catq@ba][\lang@ba](line \line@ba)}}%
   \expandafter}\@tempa
   \if@nobreak\ifvmode\nobreak\fi\fi \fi
   \if@unusedbib\ignorespaces\else\@esphack\fi}

\def\@abkper#1{\@addtoabk{#1}\checkNonerun@a{per}{#1}}  %% \@per %%
\DeclareRobustCommand\abkper{\dofrco@ba\@pfvbatrue\leavevmode\checkNrun@one{abkper}}  %% \@abkper %%

\def\abkrzentry#1#2#3#4[#5][#6](#7){}



\def\@addtogrr#1{\@initaddtoreg{\geogrentry}{#1}{}{\setn@ba}}
\DeclareRobustCommand\addtogrr{\checkNrun@one{addtogrr}} %% \@addtogrr %%

\def\@addtoprr#1{\@initaddtoreg{\persrentry}{#1}{}{\setn@ba}}
\DeclareRobustCommand\addtoprr{\checkNrun@one{addtoprr}} %% \@addtoprr %%

\def\@addtosrr#1{\@initaddtoreg{\subjrentry}{#1}{}{\setn@ba}}
\DeclareRobustCommand\addtosrr{\checkNrun@one{addtosrr}} %% \@addtosrr %%


\def\@fillgrr#1#2{\@initaddtoreg{\geogrentry}{#1}{#2}{{}{}{-}}}
\DeclareRobustCommand\fillgrr{\checkNrun@two{fillgrr}} %% \@fillgrr %%

\def\@fillprr#1#2{\@initaddtoreg{\persrentry}{#1}{#2}{{}{}{-}}}
\DeclareRobustCommand\fillprr{\checkNrun@two{fillprr}} %% \@fillprr %%

\def\@fillsrr#1#2{\@initaddtoreg{\subjrentry}{#1}{#2}{{}{}{-}}}
\DeclareRobustCommand\fillsrr{\checkNrun@two{fillsrr}} %% \@fillsrr %%


\def\@initaddtoreg#1#2#3#4{\if@unusedbib\else\@bsphack\fi
   \if@filesw {\let\thepage\relax
   \@outsavety\@outfunctions
   \edef\@tempa{\write\@auxout{\commentch@ba\string
   #1{#2}{#3}{{\xrrlistopen}{\xrrlistclose}{}{}}{#4}[\catq@ba][\lang@ba](line \line@ba)}}%
   \expandafter}\@tempa
   \if@nobreak\ifvmode\nobreak\fi\fi \fi
   \if@unusedbib\ignorespaces\else\@esphack\fi}


\def\geogrentry#1#2#3#4[#5][#6](#7){}
\def\persrentry#1#2#3#4[#5][#6](#7){}
\def\subjrentry#1#2#3#4[#5][#6](#7){}

%%


                         %% lists %%

\expandafter\ifx\csname MakeUppercase\endcsname\relax
\def\uc@ba{\uppercase}%
\else
\def\uc@ba{\MakeUppercase}%
\fi

\expandafter\ifx\csname @mkboth\endcsname\relax
\def\bamarkboth#1{}%
\else
\def\bamarkboth#1{\@mkboth{\uc@ba{\cap@ba{#1}}}{\uc@ba{\cap@ba{#1}}}}%
\fi

\def\titleline@ba#1#2{{\csname #2\endcsname*{\cap@ba{#1title}}\relax}}
\def\contents@ba#1#2#3{\expandafter\ifx\csname #2\endcsname\relax
   {\errorcontextlines=-1\@qqertypeout{print#1title}{...}%
    \errhelp{Your [OptArg] is unknown.}%
    \errmessage@ba{Undefined title size}}%
   \else\addcontentsline{toc}{#2}{\cap@ba{#1title}}\fi
   \bamarkboth{#1title}{#3}}
\def\printlist@ba#1#2#3{{\csname @print#2#3list\endcsname{#1}}}

\def\title@ba#1[#2]{\titleline@ba{#1}{#2}\contents@ba{#1}{#2}{}}
\def\Check@batitle#1#2{\@ifnextchar[{\title@ba{#1}}{\title@ba{#1}[#2]}}

\def\balist@ba#1#2#3[#4]{\if@oldba\else\titleline@ba{#3}{#4}\contents@ba{#3}{#4}{}\fi \printlist@ba{#1}{#2}{#3}}
\def\Check@balist#1#2#3#4{\@ifnextchar[{\balist@ba{#1}{#2}{#3}}{\balist@ba{#1}{#2}{#3}[#4]}}

\def\batwocoltopskip{10pt}
\def\dotcbalist@ba#1#2#3[#4]{\twocolumn[\titleline@ba{#3}{#4}%
  \if@bibsorthead \vskip \batwocoltopskip\else\if@bibsortspace\vskip \batwocoltopskip\fi\fi]\relax
  \contents@ba{#3}{#4}{\thispagestyle{plain}}\printlist@ba{#1}{#2}{#3}}
\def\tcbalist@ba#1#2#3#4[#5]{{%
  #2{\if@twocolumn\dotcbalist@ba{#1}{#3}{#4}[#5]\clearpage
     \else        \dotcbalist@ba{#1}{#3}{#4}[#5]\onecolumn
     \fi}}}
\def\Check@tcbalist#1#2#3#4#5{\@ifnextchar[{\tcbalist@ba{#1}{#2}{#3}{#4}}{\tcbalist@ba{#1}{#2}{#3}{#4}[#5]}}


\def\printabktitle{\ba@textmode\Check@batitle{abk}{subsection}}
\def\printarqtitle{\ba@textmode\Check@batitle{arq}{subsection}}
\def\printbibtitle{\ba@textmode\Check@batitle{bib}{section}}
\def\printgrrtitle{\ba@textmode\Check@batitle{grr}{subsection}}
\def\printpertitle{\ba@textmode\Check@batitle{per}{subsection}}
\def\printprrtitle{\ba@textmode\Check@batitle{prr}{subsection}}
\def\printsrrtitle{\ba@textmode\Check@batitle{srr}{subsection}}
\def\printvkctitle{\ba@textmode\Check@batitle{vkc}{subsection}}
\def\printvlititle{\ba@textmode\Check@batitle{vli}{subsection}}
\def\printvqutitle{\ba@textmode\Check@batitle{vqu}{subsection}}


\def\@balistnumemph{\normalfont\balistnumemph\relax\upshape}
\def\@baloopspace{\def\ {\penalty\@m\hskip 0.25em plus 0.2em minus 0.1em}}
\def\@baindexlist{%
  \def\first@baidx##1{\leavevmode
    {\@baloopspace\@balistnumemph{{\frompagesep}##1}}\ignorespaces}%
  \def\follo@baidx##1{{\@baloopspace\@balistnumemph{##1}}\ignorespaces}}

\newif\if@banonum\@banonumfalse

\def\@printnumvlilist#1{\resetcorr@ba{\@vxxbalisttrue\@kxxbafalse\def\literentry{\@listventry}\@baindexlist\@balist{vli}{#1}}}
 \def\printnumvlilist{\ba@textmode\@printnumvlilist{\@baitemdefs}}

\def\@printvlilist#1{\resetcorr@ba{\@vxxbalisttrue\@kxxbafalse\@banonumtrue\def\literentry{\@listventry}\@balist{vli}{#1}}}
 \def\printvlilist{\ba@textmode\@printvlilist{\@baitemdefs}}


\def\@printnumvqulist#1{\resetcorr@ba{\@vxxbalisttrue\@kxxbafalse\def\quellentry{\@listventry}\@baindexlist\@balist{vqu}{#1}}}
 \def\printnumvqulist{\ba@textmode\@printnumvqulist{\@baitemdefs}}

\def\@printvqulist#1{\resetcorr@ba{\@vxxbalisttrue\@kxxbafalse\@banonumtrue\def\quellentry{\@listventry}\@balist{vqu}{#1}}}
 \def\printvqulist{\ba@textmode\@printvqulist{\@baitemdefs}}


\def\@printnumperlist#1{\resetcorr@ba{\def\perioentry{\@perioentry}\@baindexlist\@balist{per}{#1}}}
 \def\printnumperlist{\ba@textmode\@printnumperlist{\@baitemdefs}}

\def\@printperlist#1{\resetcorr@ba{\@banonumtrue\def\perioentry{\@perioentry}\@balist{per}{#1}}}
 \def\printperlist{\ba@textmode\@printperlist{\@baitemdefs}}


\def\@printnumarqlist#1{\resetcorr@ba{\def\archqentry{\@archqentry}\@baindexlist\@balist{arq}{#1}}}
 \def\printnumarqlist{\ba@textmode\@printnumarqlist{\@baitemdefs}}

\def\@printarqlist#1{\resetcorr@ba{\@banonumtrue\def\archqentry{\@archqentry}\@balist{arq}{#1}}}
 \def\printarqlist{\ba@textmode\@printarqlist{\@baitemdefs}}


\def\@printabklist#1{{\@banonumtrue\def\abkrzentry{\@abkrzentry}%
  \@balist{abk}{#1}}}
 \def\printabklist{\ba@textmode\@printabklist{\@baitemdefs}}

\def\@printnumabklist#1{\resetcorr@ba{\def\abkrzentry{\@abkrzentry}%
  \@baindexlist
  \@balist{abk}{#1}}}
 \def\printnumabklist{\ba@textmode\@printnumabklist{\@baitemdefs}}


\def\@printvkclist#1{\resetcorr@ba{\@kxxbatrue\@banonumtrue\def\vkcitentry{\@vkcitentry}%
  \@balist{vkc}{#1}}}
 \def\printvkclist{\ba@textmode\@printvkclist{\@baitemdefs}}

\def\@printnumvkclist#1{\resetcorr@ba{\@kxxbatrue\def\vkcitentry{\@vkcitentry}%
  \@baindexlist
  \@balist{vkc}{#1}}}
 \def\printnumvkclist{\ba@textmode\@printnumvkclist{\@baitemdefs}}


\def\@printgrrlist#1{\resetcorr@ba{\@banonumtrue\def\geogrentry{\@baTWOentry}%
  \@balist{grr}{#1}}}
 \def\printgrrlist{\ba@textmode\@printgrrlist{\@baitemdefs}}

\def\@printnumgrrlist#1{\resetcorr@ba{\def\geogrentry{\@baTWOentry}%
  \@baindexlist
  \@balist{grr}{#1}}}
 \def\printnumgrrlist{\ba@textmode\@printnumgrrlist{\@baitemdefs}}


\def\@printprrlist#1{\resetcorr@ba{\@banonumtrue\def\persrentry{\@baTWOentry}%
  \@balist{prr}{#1}}}
 \def\printprrlist{\ba@textmode\@printprrlist{\@baitemdefs}}

\def\@printnumprrlist#1{\resetcorr@ba{\def\persrentry{\@baTWOentry}%
  \@baindexlist
  \@balist{prr}{#1}}}
 \def\printnumprrlist{\ba@textmode\@printnumprrlist{\@baitemdefs}}


\def\@printsrrlist#1{\resetcorr@ba{\@banonumtrue\def\subjrentry{\@baTWOentry}%
  \@balist{srr}{#1}}}
 \def\printsrrlist{\ba@textmode\@printsrrlist{\@baitemdefs}}

\def\@printnumsrrlist#1{\resetcorr@ba{\def\subjrentry{\@baTWOentry}%
  \@baindexlist
  \@balist{srr}{#1}}}
 \def\printnumsrrlist{\ba@textmode\@printnumsrrlist{\@baitemdefs}}


\def\printnumvli{\ba@textmode\Check@balist{\@baonecoldefs}{num}{vli}{subsection}}
\def\printnumvqu{\ba@textmode\Check@balist{\@baonecoldefs}{num}{vqu}{subsection}}
\def\printnumper{\ba@textmode\Check@balist{\@baonecoldefs}{num}{per}{subsection}}
\def\printnumarq{\ba@textmode\Check@balist{\@baonecoldefs}{num}{arq}{subsection}}

\def\printvli{\ba@textmode\Check@balist{\@baonecoldefs}{}{vli}{subsection}}
\def\printvqu{\ba@textmode\Check@balist{\@baonecoldefs}{}{vqu}{subsection}}
\def\printper{\ba@textmode\Check@balist{\@baonecoldefs}{}{per}{subsection}}
\def\printarq{\ba@textmode\Check@balist{\@baonecoldefs}{}{arq}{subsection}}

\def\printabk{\ba@textmode\Check@tcbalist{\@batwocoldefs}{\footnotesize}{}{abk}{subsection}}
\def\printnumabk{\ba@textmode\Check@tcbalist{\@batwocoldefs}{\footnotesize}{num}{abk}{subsection}}

\def\printvkc{\ba@textmode\Check@tcbalist{\@batwocoldefs}{\small}{}{vkc}{subsection}}
\def\printnumvkc{\ba@textmode\Check@tcbalist{\@batwocoldefs}{\small}{num}{vkc}{subsection}}

\def\printgrr{\ba@textmode\Check@tcbalist{\@batwocoldefs}{\small}{}{grr}{subsection}}
\def\printnumgrr{\ba@textmode\Check@tcbalist{\@batwocoldefs}{\small}{num}{grr}{subsection}}

\def\printprr{\ba@textmode\Check@tcbalist{\@batwocoldefs}{\small}{}{prr}{subsection}}
\def\printnumprr{\ba@textmode\Check@tcbalist{\@batwocoldefs}{\small}{num}{prr}{subsection}}

\def\printsrr{\ba@textmode\Check@tcbalist{\@batwocoldefs}{\small}{}{srr}{subsection}}
\def\printnumsrr{\ba@textmode\Check@tcbalist{\@batwocoldefs}{\small}{num}{srr}{subsection}}



\def\info@emptyba#1{\typeout@ba{BibArts Warning: No ...entries in \jobname.#1 on input line \line@ba.}%
    {\item{}\BibArts: File \jobname.#1 was empty. Did you start
     \LaTeX\ only once\string? Or did you forget to command
     \string`bibsort \jobname\string'\string?}}


\def\ignore@unused#1{\type@bawarn{Can't `addto' \string#1}}


\def\@reprintfunctions{%
   \def\onlyhere##1{}%
   \def\onlyout##1{##1}%
   \def\onlyvoll##1{##1}%
   \def\onlykurz##1{}%
   \def\ktit##1{##1\ba@textmode}%
   \@fileswfalse%  %% not influences \label, \index, \glossary %%
   \def\sort##1{}%
}


\def\language@barep#1#2{%
   \ifnum\language=#1%
   \else\typeout@ba{BibArts list line \line@ba: Reproduce hyphenation #1 as in LaTeX file #2.}%
        \language=#1%
   \fi}

\def\activech@barep#1#2{
   \ifnum\catcode\grave@ba\"=#1%
   \else\typeout@ba{^^JBibArts warning for page \thepage\space (entry from LaTeX file #2): " troubles!
                 ^^J \space\space I can't reproduce DOUBLEQUOTE in line \line@ba\space of the current BibArts file.
                 ^^J \space\space The catcode of that character has been #1 in your LaTeX file, instead
                 ^^J \space\space of \the\catcode\grave@ba\", which is - and remains - the value here in the BibArts list.
                 ^^J \space\space If you use [n]german.sty: DID YOU START bibsort USING OPTION -x ??
                 ^^J \space\space If you've used e.g. \string\"a instead of "a there, you may ignore that warning.
                 ^^J}%
   \fi}


%% babel-shorthand... new in 2.6:
\def\bagermanTeX#1{%
  \expandafter\ifx\csname AfterBabelLanguage\endcsname\relax
   \expandafter\ifx\csname  ngermanTeX\endcsname\relax\else \ngermanTeX{#1}\message{(new)}\fi
   \expandafter\ifx\csname   germanTeX\endcsname\relax\else  \germanTeX{#1}\message{(old)}\fi
  \else \shorthandon{"}{#1}\message{\string=\string\shorthandon{\string"}}%
  \fi}
\def\baoriginalTeX#1{%
  \expandafter\ifx\csname AfterBabelLanguage\endcsname\relax
   \expandafter\ifx\csname  originalTeX\endcsname\relax\else \originalTeX{#1}\fi
  \else \shorthandoff{"}{#1}\message{\string=\string\shorthandoff{\string"}}%
  \fi}


\newif\if@baaddx\@baaddxfalse
\def\addxadd@ba#1#2#3{\def\nsep{#1}\relax\csname @baaddx#2\endcsname}

\def\first@baidx#1{\ignorespaces}
\def\follo@baidx#1{\ignorespaces}

\def\@listventry#1#2#3#4#5#6[#7][#8](#9){%
   \addxadd@ba#5\relax\relax\relax
   \language@barep{#8}{#9}%
   \activech@barep{#7}{#9}%
   \gdef\bacorr{}%
   \item{}\@printvname{#1}{\listlnfnsep}{#2}{1}{1}%
 \if@baaddx\@printoptarg{#3}{\nsep}\else\@printoptarg{#3}{}\fi
   {\reprint@batrue \@printlastarg{#4}{}{}}\if@banonum{\fromnopagevxxsep}\fi\@reportbaupfalse\ignorespaces}

\def\@vkcitentry#1#2#3#4#5#6[#7][#8](#9){\@reprintIfunctions
   \addxadd@ba#5\relax\relax\relax
   \language@barep{#8}{#9}%
   \activech@barep{#7}{#9}%
   \makeXcorrcmd@ba{\kxxemph}{\bacorr}%
   \item{}\@printkname{#1}{1}%
   \if@baaddx\@printoptarg{#2}{\nsep}\else\@printoptarg{#2}{}\fi
   \@printlastarg{#3}{}{\kxxemph}\@initprinthint{#4}%
   \if@banonum{\fromnopagevkcsep}\fi
   \@reportbaupfalse\ignorespaces}


\def\printfirstarg@ba#1#2#3{{\nulskip@ba
   \setbox\testbox@ba=\hbox{#1{\ignorespaces #2\ba@textmode}}%
   \ifdim\ht\testbox@ba=0pt{\erri@ba}\type@bawarn{Empty ...#3}\else{\unhbox\testbox@ba}\fi}}

\def\printsecondarg@ba#1#2#3#4{{%
   \setbox\testbox@ba=\hbox{\ignorespaces #2\ba@textmode}%
   \ifdim\ht\testbox@ba=0pt{#4{\ifdim\fontdimen\@ne\font=\z@\gdef\bacorr{}\fi}}\else
   {#1}{\unhbox\testbox@ba}%
       \init@bacorr{#2}{}{\bacorr}%
   {#3}\if@banonum\spacefactorM@ba\else
         \setbox\testbox@ba=\hbox{#3}%
         \ifdim\ht\testbox@ba=0pt\else
           \init@bacorr{#3}{}{\bacorr}%
         \fi
       \fi
   \fi}}

\def\addTadd@ba#1#2#3#4{\def\@baopen{#1}\relax\def\@baclose{#2}}
\def\addAadd@ba#1#2#3#4{%
   \ifx#31\arqsectionbegin\relax\fi
   \ifx#32\arqsubsectionbegin\relax\fi
   \ifx#33\arqsubsubsectionbegin\relax\fi
   \def\@baopen{#1}\relax\def\@baclose{#2}}
\def\addBadd@ba#1#2#3#4{%
   \ifx#31\arqsectionend\relax\fi
   \ifx#32\arqsubsectionend\relax\fi
   \ifx#33\arqsubsubsectionend\relax\fi}

\def\@baTWOentry#1#2#3#4[#5][#6](#7){%
   \addTadd@ba#3\relax\relax\relax\relax
   \language@barep{#6}{#7}%
   \activech@barep{#5}{#7}%
   \item{}\printfirstarg@ba{\xrrlistemph}{#1}{.rr}%
      \init@bacorr{#1}{\xrrlistemph}{\bacorr}%
        \printsecondarg@ba{\@baopen}{#2}{\@baclose}{\xrrlistemph}%
   \if@banonum{\fromnopagexrrsep}\fi \@reportbaupfalse\ignorespaces}

\def\@archqentry#1#2#3#4[#5][#6](#7){{%
   \addAadd@ba#3%
   \language@barep{#6}{#7}%
   \activech@barep{#5}{#7}%
   \item{}\printfirstarg@ba{\arqlistemph}{#1}{arq}%
      \init@bacorr{#1}{\arqlistemph}{\bacorr}%
        \printsecondarg@ba{\@baopen}{#2}{\@baclose}{\arqlistemph}%
   \if@banonum{\fromnopagearqsep}\addBadd@ba#3\relax\else
     \ifdim\lastskip=\hasdotcode@ba\addBadd@ba#3\relax\@bahasdot\else
     \addBadd@ba#3\relax\fi
   \fi}%
   \@reportbaupfalse\ignorespaces}

\def\@perioentry#1#2#3#4[#5][#6](#7){%
   \addTadd@ba#3\relax\relax\relax\relax
   \language@barep{#6}{#7}%
   \activech@barep{#5}{#7}%
   \item{}\printfirstarg@ba{\perlistemph}{#1}{per}%
      \init@bacorr{#1}{\perlistemph}{\bacorr}%
        \printsecondarg@ba{\@baopen}{#2}{\@baclose}{\perlistemph}%
   \if@banonum{\fromnopagepersep}\fi \@reportbaupfalse\ignorespaces}

\def\@abkrzentry#1#2#3#4[#5][#6](#7){%
   \addTadd@ba#3\relax\relax\relax\relax
   \language@barep{#6}{#7}%
   \activech@barep{#5}{#7}%
   \item{}\printfirstarg@ba{\abklistemph}{#1}{abk...}%
      \init@bacorr{#1}{\abklistemph}{\bacorr}%
        \printsecondarg@ba{\@baopen}{#2}{\@baclose}{\abklistemph}%
   \if@banonum{\fromnopageabksep}\fi \@reportbaupfalse\ignorespaces}

\def\bamyitemdefs#1{\@bsphack\def\@baitemdefs{#1}\@esphack}
\def\batwocolitemdefs{\def\@baitemdefs{\@batwocoldefs}}
\def\@batwocoldefs{\parsep 0ex \itemsep 0pt \parskip 0pt \lineskip 0pt \rightskip 1cm minus 1cm}
\def\baonecolitemdefs{\def\@baitemdefs{\@baonecoldefs}}
\def\@baonecoldefs{\parsep 0ex \itemsep -.5ex}
\def\notbaitemdefs{\def\@baitemdefs{}}
\notbaitemdefs

\def\listparm@ba{}
\def\@balist#1#2{\message{ \string<\string< #1\string:}%
   {\errorcontextlines=-1\catcode\grave@ba\@=11\balisttype{}%
   \@herefunctions\@reprintfunctions\@rheraldktitfalse
   \@allowconferizefalse \genderingfalse \@balisttrue
   %%%
   \gdef\listparm@ba{#2}%
   %%%
   \if@bibsortspace
       \let\bibsortpreparespace\do@bibsortspace
   \fi
   %%%
   \if@bibsorthead
       \let\bibsortpreparexspace\do@bibsortspace
     \if@twocolumn
       \let\bibsortpreparehead\do@twocolumnbsh
       {\edef\@testa{\listparm@ba}%
        \ifx\@testa\@batwocoldefs
        \else
         \type@bawarn{Set TWOcolitemdefs (TWOcol+heads)}%
         \gdef\listparm@ba{\@batwocoldefs}%
        \fi}%
     \else
       \let\bibsortpreparehead\do@onecolumnbsh
       {\edef\@testa{\listparm@ba}%
        \ifx\@testa\@batwocoldefs
         \type@bawarn{Reject TWOcolitemdefs (ONEcol+heads)}%
         \gdef\listparm@ba{}%
        \fi}%
     \fi
   \fi
   %%%
   \sloppy\begin{description}
     \listparm@ba\relax
     \gdef\@bibsortvers{[OLD]}%
     \@input{\jobname.#1}
     \def\@noitemerr{\info@emptyba{#1}\gdef\@bibsortvers{-}}
   \end{description}\fussy}\checkversion@ba\message{\string>\string> }}

\def\typeversion@ba{{\def\@testa{[OLD]}%
   \ifx\@bibsortvers\@testa\type@bawarn{Input file created by outdated bibsort}\fi
   \typeout@ba{ \space Version of bibsort is \ifx\@bibsortvers\@testa older than \else \@bibsortvers\space instead \fi 2.6 (version of bibarts.sty).}}}

\def\checkversion@ba{{\def\@testa{2.6}\def\@testb{-}%
  \ifx\@bibsortvers\@testa\else\ifx\@bibsortvers\@testb\else
  \typeversion@ba\fi\fi}}

\def\@hereUfunctions{%
   \def\par{}%
   \def\vli{\addtovli}%
   \def\vqu{\addtovqu}%
   \def\kli{\addtokli}%
   \def\kqu{\addtokqu}%
   \def\printonlyvli{\ignore@unused{\printonlyvli}\shadowv}%
   \def\printonlyvqu{\ignore@unused{\printonlyvqu}\shadowv}%
   \def\printonlykli{\ignore@unused{\printonlykli}\shadowk}%
   \def\printonlykqu{\ignore@unused{\printonlykqu}\shadowk}%
   \def\xvli{\xaddtovli}%
   \def\xvqu{\xaddtovqu}%
   \def\xkli{\xaddtokli}%
   \def\xkqu{\xaddtokqu}%
   \def\xprintonlyvli{\ignore@unused{\xprintonlyvli}\shadowv}%
   \def\xprintonlyvqu{\ignore@unused{\xprintonlyvqu}\shadowv}%
   \def\xprintonlykli{\ignore@unused{\xprintonlykli}\shadowk}%
   \def\xprintonlykqu{\ignore@unused{\xprintonlykqu}\shadowk}%
   \def\per{\addtoper}%
   \def\abkper{\addtoper}%
   \def\arq{\addtoarq}%
   \def\abk{\ignore@unused{\abk}\shadowone}%
   \def\addtoabk{\ignore@unused{\addtoabk}\shadowone}%
   \def\abkdef{\addtoabkdef}%
   \def\defabk{\addtodefabk}%
   \def\printonlyper{\ignore@unused{\printonlyper}\shadowo}%
   \def\printonlyarq{\ignore@unused{\printonlyarq}\shadowt}%
   \def\printonlyabk{\ignore@unused{\printonlyabk}\shadowone}%
   \def\printonlyabkdef{\ignore@unused{\printonlyabkdef}\shadowtwo}%
   \def\printonlydefabk{\ignore@unused{\printonlydefabk}\shadowtwo}%
}

\newif\if@unusedbib\@unusedbibfalse

\expandafter\ifx\csname newenvironment\endcsname\relax
\else\newenvironment{unused}{\@unusedbibtrue\@hereUfunctions\ignorespaces}{}\fi


%%


                      %% hyphenation setting %%


\expandafter\ifx\csname language\endcsname\relax
   \typeout@ba{Install missing count \string\language: Hyphenation features will probably not work.}%
   \newcount\language
\fi

\def\psethyphenation#1{\@bsphack\sethyphen@ba{#1}{You've called \string\sethyphenation{#1}.}%
  \if@unusedbib\ignorespaces\else\@esphack\fi}  %% if new in 2.6
\def\sethyphenation{\protect\psethyphenation}

\def\sethyphen@ba#1#2{%
   \expandafter \ifx\csname l@#1\endcsname\relax
   {\errhelp{
     ^^JI will not set `#1' hyphenation,
     ^^Jbecause that `[LanguageName]' is no preloaded feature.
     ^^JYou have to fix that later: <return>.^^J
    }%
    \errorcontextlines=-1\@qqertypeout{sethyphenation}{#2}%
    \errmessage@ba{Language-name `#1' is undefined. (Old VALUE remains valid: \lang@ba)}%
   }%
   \else \ifnum255=\csname l@#1\endcsname
   {\errhelp{
    ^^JLanguage `#1' is defined, but as hyphenation 255.
    ^^JThat probably is an error-value for a not preloaded feature.
    ^^JI myself will NOT set \language= 255.^^J
    }%
    \errorcontextlines=-1\@qqertypeout{sethyphenation}{#2}%
    \errmessage@ba{No `#1' hyphenation. (Old VALUE remains valid: \lang@ba)}%
   }%
   \else\language=\csname l@#1\endcsname
   \fi
   \fi}

\def\Check@originalquote[#1]{\begin{quote}\originalquotetype{}\ifx #1\erri@ba\else
   \sethyphen@ba{#1}{You've called \string\begin{originalquote}[#1].}\fi}

\expandafter\ifx\csname newenvironment\endcsname\relax
\else\newenvironment{originalquote}{\def\bakorr@fnr{{\vskip\topsep}{\vskip\partopsep}}%
   \@ifnextchar[{\Check@originalquote}{\Check@originalquote[\erri@ba]}}{\end{quote}\pagebreak[2]}%
\fi


%%


                    %% cross-references %%


%% No italics-corr on 2.09: %%
\expandafter\ifx\csname ba@its\endcsname\relax
\def\prepare@baref{}%
\else
\def\prepare@baref{\gdef\barefcorr{}%
   \def\itshape{\ba@its\makecorrcmd@ba{}{\barefcorr}}%
   \def\slshape{\ba@sls\makecorrcmd@ba{}{\barefcorr}}%
}%
\fi

\def\insref@ba#1{{%
   \def\@testa{#1}%
   \ifx\@testa\@leerz\else\ifx\@testa\@leer\else
      {\ignorespaces #1}\penalty\@m \ \fi\fi}}

\def\ba@ref[#1]#2{{\gdef\barefcorr{}%
      \cap@ba{refvbeg}\insref@ba{#1}\cap@ba{refvpag}%
   \expandafter\ifx\csname r@baf.#2\endcsname\relax
     {\prepare@baref\pageref{#2}}\else
     {\prepare@baref\pageref{baf.#2}}\cap@ba{refvfnt}{\prepare@baref\ref{baf.#2}}\fi
      \cap@ba{refvend}}}
\def\pbaref{\@ifnextchar[{\ba@ref}{\ba@ref[\cap@ba{refverb}]}}
\def\baref{\protect\pbaref}

\def\ba@label#1{\@bsphack
   \if@footnote
     \@ifundefined{r@#1}{}{\@warning{Label \string`#1\string' multiply defined [BibArts]}}%
       \if@baminipage{\let\@currentlabel=\thempfootnote\label{baf.#1}}%
       \else         {\let\@currentlabel=\thefootnote  \label{baf.#1}}%
       \fi
   \else             {\let\@currentlabel=\@leer        \label{#1}}%
   \fi
   \@esphack}
\def\pbalabel{\ba@label}
\def\balabel{\protect\pbalabel}


%%

\def\ba@varref#1#2#3{%
   \makevarstring@ba{#1}{#2}{#3}\ba@ref[\cap@ba{confer}]{\insvarstring@ba}}

\def\ba@varlabel#1#2#3{\ifba@varstring\if@filesw\if@allowconferize
   \makevarstring@ba{#1}{#2}{#3}\ba@label{\insvarstring@ba}\fi\fi\fi}

 %%  \newlabel at \conferize
 %% ------------------------
 %%   (X   \l \L \o \O \ss's  [X = l, L, o, O, ss]
 %%   )    \^
 %%   *    \"
 %%   [    \`
 %%   ]    \'
 %%   +    \c
 %%   -    \~
 %%   oe   \oe
 %%   OE   \OE
 %%   ae   \ae
 %%   AE   \AE
 %%   a    \aa
 %%   A    \AA
 %%   i    \i
 %%   j    \j


\newif\if@bains@lab
\newcount\count@ba

\def\reset@allbalabvars{%
   \global\let\bavar@xA=\@leer
   \global\let\bavar@xB=\@leer
   \global\let\bavar@xC=\@leer
   \global\let\bavar@xD=\@leer
   \global\let\bavar@xE=\@leer
   \global\let\bavar@xF=\@leer
   \global\let\bavar@xG=\@leer
   \global\let\bavar@xH=\@leer
   \global\let\bavar@xI=\@leer
   \global\let\bavar@xJ=\@leer
   \global\let\bavar@xK=\@leer
   \global\let\bavar@xL=\@leer
   \global\let\bavar@yA=\@leer
   \global\let\bavar@yB=\@leer
   \global\let\bavar@yC=\@leer
   \global\let\bavar@yD=\@leer
   \global\let\bavar@yE=\@leer
   \global\let\bavar@yF=\@leer
   \global\let\bavar@yG=\@leer
   \global\let\bavar@yH=\@leer
   \global\let\bavar@yI=\@leer
   \global\let\bavar@yJ=\@leer
   \global\let\bavar@yK=\@leer
   \global\let\bavar@yL=\@leer
   \global\let\bavar@zA=\@leer
   \global\let\bavar@zB=\@leer
   \global\let\bavar@zC=\@leer
   \global\let\bavar@zD=\@leer
   \global\let\bavar@zE=\@leer
   \global\let\bavar@zF=\@leer
   \global\let\bavar@zG=\@leer
   \global\let\bavar@zH=\@leer
   \global\let\bavar@zI=\@leer
   \global\let\bavar@zJ=\@leer
   \global\let\bavar@zK=\@leer
   \global\let\bavar@zL=\@leer
   \global\let\bavar@zM=\@leer
   \global\let\bavar@zN=\@leer
   \global\let\bavar@zO=\@leer
   \global\let\bavar@zP=\@leer
   \global\let\bavar@zQ=\@leer
   \global\let\bavar@zR=\@leer
   \global\let\bavar@zS=\@leer
   \global\let\bavar@zT=\@leer
   \global\let\bavar@zU=\@leer
   \global\let\bavar@zV=\@leer
   \global\let\bavar@zW=\@leer
   \global\let\bavar@zX=\@leer
   }

\def\makevarstring@ba#1#2#3{%
   \reset@allbalabvars
  {\@hereRfunctions
    \def\SS{{SS}}%     %% \ 
    \def\aa{{\r{a}}}%  %%   > avoid [T1] errors
    \def\AA{{\r{A}}}%  %% /
    \def\onlybakey{}%  %% add arg to keyword
   \ifba@varstring           \@bains@labtrue
   \getnext@baA#1\endlist@ba \@bains@labtrue
   \getnext@baB#2\endlist@ba \@bains@labtrue
   \getnext@baC#3\endlist@ba\fi}}

\def\endlist@ba{\endlist@ba}

\def\getnext@baA{\afterassignment\doba@labA\let\next@ba= }
\def\getnext@baB{\afterassignment\doba@labB\let\next@ba= }
\def\getnext@baC{\afterassignment\doba@labC\let\next@ba= }


\def\refch@ba#1#2{\let\next@ba=#2\csname savn@bavar#1\endcsname}
\def\refop@ba#1{\refch@ba{#1}{(}}


\def\sonderz@banext#1{%
   \ifx     \ck\next@ba \refch@ba{#1}{c}\refch@ba{#1}{k}\fi
   \ifx     \CK\next@ba \refch@ba{#1}{C}\refch@ba{#1}{K}\fi
   \ifx    \hyc\next@ba \refch@ba{#1}{c}\fi
   \ifx \oldhyc\next@ba \refch@ba{#1}{c}\fi
   \ifx    \HYC\next@ba \refch@ba{#1}{C}\fi
   \ifx \OLDHYC\next@ba \refch@ba{#1}{C}\fi
   \ifx    \hyl\next@ba \refch@ba{#1}{l}\fi
   \ifx \oldhyl\next@ba \refch@ba{#1}{l}\fi
   \ifx    \HYL\next@ba \refch@ba{#1}{L}\fi
   \ifx \OLDHYL\next@ba \refch@ba{#1}{L}\fi
   \ifx    \hym\next@ba \refch@ba{#1}{m}\fi
   \ifx \oldhym\next@ba \refch@ba{#1}{m}\fi
   \ifx    \HYM\next@ba \refch@ba{#1}{M}\fi
   \ifx \OLDHYM\next@ba \refch@ba{#1}{M}\fi
   \ifx    \hyn\next@ba \refch@ba{#1}{n}\fi
   \ifx \oldhyn\next@ba \refch@ba{#1}{n}\fi
   \ifx    \HYN\next@ba \refch@ba{#1}{N}\fi
   \ifx \OLDHYN\next@ba \refch@ba{#1}{N}\fi
   \ifx    \hyp\next@ba \refch@ba{#1}{p}\fi
   \ifx \oldhyp\next@ba \refch@ba{#1}{p}\fi
   \ifx    \HYP\next@ba \refch@ba{#1}{P}\fi
   \ifx \OLDHYP\next@ba \refch@ba{#1}{P}\fi
   \ifx    \hyr\next@ba \refch@ba{#1}{r}\fi
   \ifx \oldhyr\next@ba \refch@ba{#1}{r}\fi
   \ifx    \HYR\next@ba \refch@ba{#1}{R}\fi
   \ifx \OLDHYR\next@ba \refch@ba{#1}{R}\fi
   \ifx    \hyt\next@ba \refch@ba{#1}{t}\fi
   \ifx \oldhyt\next@ba \refch@ba{#1}{t}\fi
   \ifx    \HYT\next@ba \refch@ba{#1}{T}\fi
   \ifx \OLDHYT\next@ba \refch@ba{#1}{T}\fi
   \ifx    \hyf\next@ba \refch@ba{#1}{f}\fi
   \ifx \oldhyf\next@ba \refch@ba{#1}{f}\fi
   \ifx    \HYF\next@ba \refch@ba{#1}{F}\fi
   \ifx \OLDHYF\next@ba \refch@ba{#1}{F}\fi
   \ifx\oldhyss\next@ba \refop@ba{#1}\refch@ba{#1}{s}\refch@ba{#1}{s}\fi
   \ifx\OLDHYSS\next@ba \refch@ba{#1}{S}\refch@ba{#1}{S}\fi
   \ifx\newhyss\next@ba \refop@ba{#1}\refch@ba{#1}{s}\refch@ba{#1}{s}\fi
   \ifx\NEWHYSS\next@ba \refch@ba{#1}{S}\refch@ba{#1}{S}\fi
   \ifx   \hyss\next@ba \refop@ba{#1}\refch@ba{#1}{s}\refch@ba{#1}{s}\fi
   \ifx   \HYSS\next@ba \refch@ba{#1}{S}\refch@ba{#1}{S}\fi
   \ifx     \ss\next@ba \refop@ba{#1}\refch@ba{#1}{s}\refch@ba{#1}{s}\fi
   \ifx     \SS\next@ba \refch@ba{#1}{S}\refch@ba{#1}{S}\fi
   \ifx     \sz\next@ba \refop@ba{#1}\refch@ba{#1}{s}\refch@ba{#1}{z}\fi
   \ifx     \SZ\next@ba \refch@ba{#1}{S}\refch@ba{#1}{Z}\fi
   \ifx      \3\next@ba \refop@ba{#1}\refch@ba{#1}{s}\refch@ba{#1}{s}\fi
   \ifx\oe\next@ba \refch@ba{#1}{o}\refch@ba{#1}{e}\fi
   \ifx\OE\next@ba \refch@ba{#1}{O}\refch@ba{#1}{E}\fi
   \ifx\ae\next@ba \refch@ba{#1}{a}\refch@ba{#1}{e}\fi
   \ifx\AE\next@ba \refch@ba{#1}{A}\refch@ba{#1}{E}\fi
   \ifx\aa\next@ba \refch@ba{#1}{a}\fi
   \ifx\AA\next@ba \refch@ba{#1}{A}\fi
   \ifx \o\next@ba \refop@ba{#1}\refch@ba{#1}{o}\fi
   \ifx \O\next@ba \refop@ba{#1}\refch@ba{#1}{O}\fi
   \ifx \l\next@ba \refop@ba{#1}\refch@ba{#1}{l}\fi
   \ifx \L\next@ba \refop@ba{#1}\refch@ba{#1}{L}\fi
   \ifx \i\next@ba \refch@ba{#1}{i}\fi
   \ifx \j\next@ba \refch@ba{#1}{j}\fi 
   \ifx \"\next@ba \refch@ba{#1}{*}\fi
   \ifx \`\next@ba \refch@ba{#1}{[}\fi
   \ifx \'\next@ba \refch@ba{#1}{]}\fi
   \ifx \^\next@ba \refch@ba{#1}{)}\fi
   \ifx \~\next@ba \ifnum\catcode\grave@ba\-=12\refch@ba{#1}{-}\fi \fi
   \ifx \c\next@ba \ifnum\catcode\grave@ba\+=12\refch@ba{#1}{+}\fi \fi
}


 {\catcode\grave@ba\~=12%
  \catcode\grave@ba\"=12%
  \catcode\grave@ba\:=12%
  \catcode\grave@ba\;=12%
  \catcode\grave@ba\!=12%
  \catcode\grave@ba\?=12%
  \catcode\grave@ba\'=12%
  \catcode\grave@ba\`=12%
  \catcode\grave@ba\<=12%
  \catcode\grave@ba\>=12%
\global\def\prepnumplussonder@ba#1{%
   \ifx "\next@ba \else\ifx .\next@ba \else\ifx ,\next@ba \else\ifx /\next@ba \else
   \ifx *\next@ba \else\ifx [\next@ba \else\ifx ]\next@ba \else\ifx |\next@ba \else
   \ifx -\next@ba \else\ifx =\next@ba \else\ifx +\next@ba \else\ifx (\next@ba \else
   \ifx )\next@ba \else\ifx @\next@ba \else
   \ifx ~\next@ba \else\ifx :\next@ba \else\ifx ;\next@ba \else\ifx !\next@ba \else
   \ifx ?\next@ba \else\ifx `\next@ba \else\ifx '\next@ba \else
   \ifx <\next@ba \else\ifx >\next@ba \else
      \ifcat 1\next@ba \relax \csname savn@bavar#1\endcsname
      \else \sonderz@banext{#1}%
      \fi
   \fi\fi
   \fi\fi\fi
   \fi\fi\fi\fi
   \fi\fi
   \fi\fi\fi\fi
   \fi\fi\fi\fi
   \fi\fi\fi\fi}%
}

\def\analyselabeltext@ba#1{%
  \expandafter\ifx \csname next@ba\endcsname\relax \else
   \ifx \onlyvoll \next@ba \@bains@labfalse \count@ba0 \else
     \ifx \onlyout \next@ba \@bains@labfalse \count@ba0 \else
       \ifx \vauthor \next@ba \@bains@labfalse \count@ba0 \else
         \ifx \midvauthor \next@ba \@bains@labfalse \count@ba0 \else
           \ifx \starktit \next@ba \@bains@labfalse \count@ba0 \else
             \ifx \vollout \next@ba \@bains@labfalse \count@ba0 \else
               \ifx \vollhere \next@ba \@bains@labfalse \count@ba0 \else
                 \ifx \sechere \next@ba \@bains@labfalse \count@ba0 \else
                   \ifx \sort \next@ba \@bains@labfalse \count@ba0
   \fi\fi\fi\fi\fi\fi\fi\fi\fi
   \if@bains@lab
      \ifcat A\next@ba \relax \csname savn@bavar#1\endcsname
      \else \prepnumplussonder@ba{#1}%
      \fi
   \else
      \ifx \bgroup\next@ba \advance\count@ba by 1 \else
         \ifx \egroup\next@ba \advance\count@ba by -1
            \ifnum 0=\count@ba  \@bains@labtrue
      \fi\fi\fi
   \fi
  \fi}

\def\doba@labA{%
  \ifx\next@ba\endlist@ba \let\next@ba\@leer
  \else  \ifx\bavar@xL\@leer \analyselabeltext@ba{A}\fi
     \let\next@ba\getnext@baA
  \fi \next@ba}

\def\doba@labB{%
  \ifx\next@ba\endlist@ba \let\next@ba\@leer
  \else  \ifx\bavar@yL\@leer \analyselabeltext@ba{B}\fi
     \let\next@ba\getnext@baB
  \fi \next@ba}

\def\doba@labC{%
  \ifx\next@ba\endlist@ba \let\next@ba\@leer
  \else  \ifx\bavar@zX\@leer \analyselabeltext@ba{C}\fi
     \let\next@ba\getnext@baC
  \fi \next@ba}

\def\savn@bavarA{%
   \ifx\bavar@xA\@leer \global\let\bavar@xA=\next@ba \else
   \ifx\bavar@xB\@leer \global\let\bavar@xB=\next@ba \else
   \ifx\bavar@xC\@leer \global\let\bavar@xC=\next@ba \else
   \ifx\bavar@xD\@leer \global\let\bavar@xD=\next@ba \else
   \ifx\bavar@xE\@leer \global\let\bavar@xE=\next@ba \else
   \ifx\bavar@xF\@leer \global\let\bavar@xF=\next@ba \else
   \ifx\bavar@xG\@leer \global\let\bavar@xG=\next@ba \else
   \ifx\bavar@xH\@leer \global\let\bavar@xH=\next@ba \else
   \ifx\bavar@xI\@leer \global\let\bavar@xI=\next@ba \else
   \ifx\bavar@xJ\@leer \global\let\bavar@xJ=\next@ba \else
   \ifx\bavar@xK\@leer \global\let\bavar@xK=\next@ba \else
   \ifx\bavar@xL\@leer \global\let\bavar@xL=\next@ba
   \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}

\def\savn@bavarB{%
   \ifx\bavar@yA\@leer \global\let\bavar@yA=\next@ba \else
   \ifx\bavar@yB\@leer \global\let\bavar@yB=\next@ba \else
   \ifx\bavar@yC\@leer \global\let\bavar@yC=\next@ba \else
   \ifx\bavar@yD\@leer \global\let\bavar@yD=\next@ba \else
   \ifx\bavar@yE\@leer \global\let\bavar@yE=\next@ba \else
   \ifx\bavar@yF\@leer \global\let\bavar@yF=\next@ba \else
   \ifx\bavar@yG\@leer \global\let\bavar@yG=\next@ba \else
   \ifx\bavar@yH\@leer \global\let\bavar@yH=\next@ba \else
   \ifx\bavar@yI\@leer \global\let\bavar@yI=\next@ba \else
   \ifx\bavar@yJ\@leer \global\let\bavar@yJ=\next@ba \else
   \ifx\bavar@yK\@leer \global\let\bavar@yK=\next@ba \else
   \ifx\bavar@yL\@leer \global\let\bavar@yL=\next@ba
   \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}

\def\savn@bavarC{%
   \ifx\bavar@zA\@leer \global\let\bavar@zA=\next@ba \else
   \ifx\bavar@zB\@leer \global\let\bavar@zB=\next@ba \else
   \ifx\bavar@zC\@leer \global\let\bavar@zC=\next@ba \else
   \ifx\bavar@zD\@leer \global\let\bavar@zD=\next@ba \else
   \ifx\bavar@zE\@leer \global\let\bavar@zE=\next@ba \else
   \ifx\bavar@zF\@leer \global\let\bavar@zF=\next@ba \else
   \ifx\bavar@zG\@leer \global\let\bavar@zG=\next@ba \else
   \ifx\bavar@zH\@leer \global\let\bavar@zH=\next@ba \else
   \ifx\bavar@zI\@leer \global\let\bavar@zI=\next@ba \else
   \ifx\bavar@zJ\@leer \global\let\bavar@zJ=\next@ba \else
   \ifx\bavar@zK\@leer \global\let\bavar@zK=\next@ba \else
   \ifx\bavar@zL\@leer \global\let\bavar@zL=\next@ba \else
   \ifx\bavar@zM\@leer \global\let\bavar@zM=\next@ba \else
   \ifx\bavar@zN\@leer \global\let\bavar@zN=\next@ba \else
   \ifx\bavar@zO\@leer \global\let\bavar@zO=\next@ba \else
   \ifx\bavar@zP\@leer \global\let\bavar@zP=\next@ba \else
   \ifx\bavar@zQ\@leer \global\let\bavar@zQ=\next@ba \else
   \ifx\bavar@zR\@leer \global\let\bavar@zR=\next@ba \else
   \ifx\bavar@zS\@leer \global\let\bavar@zS=\next@ba \else
   \ifx\bavar@zT\@leer \global\let\bavar@zT=\next@ba \else
   \ifx\bavar@zU\@leer \global\let\bavar@zU=\next@ba \else
   \ifx\bavar@zV\@leer \global\let\bavar@zV=\next@ba \else
   \ifx\bavar@zW\@leer \global\let\bavar@zW=\next@ba \else
   \ifx\bavar@zX\@leer \global\let\bavar@zX=\next@ba
   \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}

\def\spendother@ba#1{%
   \ifx 1#11\fi
   \ifx 2#12\fi
   \ifx 3#13\fi
   \ifx 4#14\fi
   \ifx 5#15\fi
   \ifx 6#16\fi
   \ifx 7#17\fi
   \ifx 8#18\fi
   \ifx 9#19\fi
   \ifx 0#10\fi
   \ifx [#1[\fi   %% \`  %%
   \ifx ]#1]\fi   %% \'  %%
   \ifx (#1(\fi   %% \o \O \l \L \ss \hyss ... %%
   \ifx )#1)\fi   %% \^  %%
   \ifx *#1*\fi   %% \"  %%
   \ifx +#1+\fi   %% \c  %%
   \ifx -#1-\fi   %% \~  %%
   }%

\def\spendletter@ba#1{%
   \ifx a#1a\fi
   \ifx b#1b\fi
   \ifx c#1c\fi
   \ifx d#1d\fi
   \ifx e#1e\fi
   \ifx f#1f\fi
   \ifx g#1g\fi
   \ifx h#1h\fi
   \ifx i#1i\fi
   \ifx j#1j\fi
   \ifx k#1k\fi
   \ifx l#1l\fi
   \ifx m#1m\fi
   \ifx n#1n\fi
   \ifx o#1o\fi
   \ifx p#1p\fi
   \ifx q#1q\fi
   \ifx r#1r\fi
   \ifx s#1s\fi
   \ifx t#1t\fi
   \ifx u#1u\fi
   \ifx v#1v\fi
   \ifx w#1w\fi
   \ifx x#1x\fi
   \ifx y#1y\fi
   \ifx z#1z\fi
   \ifx A#1A\fi
   \ifx B#1B\fi
   \ifx C#1C\fi
   \ifx D#1D\fi
   \ifx E#1E\fi
   \ifx F#1F\fi
   \ifx G#1G\fi
   \ifx H#1H\fi
   \ifx I#1I\fi
   \ifx J#1J\fi
   \ifx K#1K\fi
   \ifx L#1L\fi
   \ifx M#1M\fi
   \ifx N#1N\fi
   \ifx O#1O\fi
   \ifx P#1P\fi
   \ifx Q#1Q\fi
   \ifx R#1R\fi
   \ifx S#1S\fi
   \ifx T#1T\fi
   \ifx U#1U\fi
   \ifx V#1V\fi
   \ifx W#1W\fi
   \ifx X#1X\fi
   \ifx Y#1Y\fi
   \ifx Z#1Z\fi
   }%

\def\spendchar@ba#1{\ifcat#1A\spendletter@ba{#1}\else\spendother@ba{#1}\fi}

\def\insvarstring@ba{%
            \ifx \bavar@xA\@leer \else
   \spendchar@ba \bavar@xA
            \ifx \bavar@xB\@leer \else
   \spendchar@ba \bavar@xB
            \ifx \bavar@xC\@leer \else
   \spendchar@ba \bavar@xC
            \ifx \bavar@xD\@leer \else
   \spendchar@ba \bavar@xD
            \ifx \bavar@xE\@leer \else
   \spendchar@ba \bavar@xE
            \ifx \bavar@xF\@leer \else
   \spendchar@ba \bavar@xF
            \ifx \bavar@xG\@leer \else
   \spendchar@ba \bavar@xG
            \ifx \bavar@xH\@leer \else
   \spendchar@ba \bavar@xH
            \ifx \bavar@xI\@leer \else
   \spendchar@ba \bavar@xI
            \ifx \bavar@xJ\@leer \else
   \spendchar@ba \bavar@xJ
            \ifx \bavar@xK\@leer \else
   \spendchar@ba \bavar@xK
            \ifx \bavar@xL\@leer \else
   \spendchar@ba \bavar@xL
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
   .%
            \ifx \bavar@yA\@leer \else
   \spendchar@ba \bavar@yA
            \ifx \bavar@yB\@leer \else
   \spendchar@ba \bavar@yB
            \ifx \bavar@yC\@leer \else
   \spendchar@ba \bavar@yC
            \ifx \bavar@yD\@leer \else
   \spendchar@ba \bavar@yD
            \ifx \bavar@yE\@leer \else
   \spendchar@ba \bavar@yE
            \ifx \bavar@yF\@leer \else
   \spendchar@ba \bavar@yF
            \ifx \bavar@yG\@leer \else
   \spendchar@ba \bavar@yG
            \ifx \bavar@yH\@leer \else
   \spendchar@ba \bavar@yH
            \ifx \bavar@yI\@leer \else
   \spendchar@ba \bavar@yI
            \ifx \bavar@yJ\@leer \else
   \spendchar@ba \bavar@yJ
            \ifx \bavar@yK\@leer \else
   \spendchar@ba \bavar@yK
            \ifx \bavar@yL\@leer \else
   \spendchar@ba \bavar@yL
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
   .%
            \ifx \bavar@zA\@leer \else
   \spendchar@ba \bavar@zA
            \ifx \bavar@zB\@leer \else
   \spendchar@ba \bavar@zB
            \ifx \bavar@zC\@leer \else
   \spendchar@ba \bavar@zC
            \ifx \bavar@zD\@leer \else
   \spendchar@ba \bavar@zD
            \ifx \bavar@zE\@leer \else
   \spendchar@ba \bavar@zE
            \ifx \bavar@zF\@leer \else
   \spendchar@ba \bavar@zF
            \ifx \bavar@zG\@leer \else
   \spendchar@ba \bavar@zG
            \ifx \bavar@zH\@leer \else
   \spendchar@ba \bavar@zH
            \ifx \bavar@zI\@leer \else
   \spendchar@ba \bavar@zI
            \ifx \bavar@zJ\@leer \else
   \spendchar@ba \bavar@zJ
            \ifx \bavar@zK\@leer \else
   \spendchar@ba \bavar@zK
            \ifx \bavar@zL\@leer \else
   \spendchar@ba \bavar@zL
            \ifx \bavar@zM\@leer \else
   \spendchar@ba \bavar@zM
            \ifx \bavar@zN\@leer \else
   \spendchar@ba \bavar@zN
            \ifx \bavar@zO\@leer \else
   \spendchar@ba \bavar@zO
            \ifx \bavar@zP\@leer \else
   \spendchar@ba \bavar@zP
            \ifx \bavar@zQ\@leer \else
   \spendchar@ba \bavar@zQ
            \ifx \bavar@zR\@leer \else
   \spendchar@ba \bavar@zR
            \ifx \bavar@zS\@leer \else
   \spendchar@ba \bavar@zS
            \ifx \bavar@zT\@leer \else
   \spendchar@ba \bavar@zT
            \ifx \bavar@zU\@leer \else
   \spendchar@ba \bavar@zU
            \ifx \bavar@zV\@leer \else
   \spendchar@ba \bavar@zV
            \ifx \bavar@zW\@leer \else
   \spendchar@ba \bavar@zW
            \ifx \bavar@zX\@leer \else
   \spendchar@ba \bavar@zX
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
   }


%%


                       %% ... %%


\def\ncn@ersch#1{{\csname #1erschnohousename\endcsname}}
\def\nyn@ersch#1{{\csname #1erschnoyearname\endcsname}}

{\catcode\grave@ba\>=12%
\gdef\@@ersch#1|#2|[#3]#4#5{\nulskip@ba
   {\def\@testa{#2}%
   \ifx\@testa\@leer \else
   \ifx\@testa\@leerz\else
         {\ignorespaces #2}\kern -0.1em\penalty\@m \
         \ifnum#2>1{\csname #1erschvolumepname\endcsname}\else
                   {\csname #1erschvolumename\endcsname}\fi \penalty-\@m \
   \fi\fi}%
   \nulskip@ba{\def\@testa{#3}\def\@testb{#4}%
   \if@bamathaufl
      \ifx\@testb\@leer \ncn@ersch{#1}\ \else
      \ifx\@testb\@leerz\ncn@ersch{#1}\ \else
            {\ignorespaces #4\ba@textmode}\
      \fi\fi
      \ifx\@testa\@leer \else \ifx\@testa\@leerz \else
         \kern  -0.4pt\fup{#3}\kern 0.4pt\nulskip@ba
      \fi\fi
   \else
      \ifx\@testa\@leer \else \ifx\@testa\@leerz \else
         {\csname #1ordinal\endcsname{#3\ba@textmode}}%
         {\setbox\testbox@ba=\hbox{\ignorespaces\csname #1erscheditionname\endcsname}%
           \ifdim\ht\testbox@ba=0pt\else{\unhbox\testbox@ba}\fi}\
      \fi\fi
      \ifx\@testb\@leer \ncn@ersch{#1}\ \else
      \ifx\@testb\@leerz\ncn@ersch{#1}\ \else
            {\ignorespaces #4\ba@textmode}\
      \fi\fi
   \fi}%
   {\def\@testa{#5}%
   \ifx\@testa\@leer \nyn@ersch{#1}\else
   \ifx\@testa\@leerz\nyn@ersch{#1}\else
         {\ignorespaces #5\ba@textmode}%
   \fi\fi}}%
}
\def\@ersch#1|#2|{\@ifnextchar[{\@@ersch{#1}|#2|}{\@@ersch{#1}|#2|[]}}
\def\persch#1{\leavevmode\ba@textmode\@ifnextchar|{\@ersch{#1}}{\@ersch{#1}||}}
\def\ersch{\protect\persch{\langcap@ba}}

\def\peordinal#1{{\errorcontextlines=-1\leavevmode \count@ba #1\relax
        \ifnum\count@ba\string<0 \count@ba -\count@ba\fi
  \loop \ifnum\count@ba\string>999 \advance\count@ba -1000\repeat
  \loop \ifnum\count@ba\string>99 \advance\count@ba -100\repeat
  \loop \ifnum\count@ba\string>29 \advance\count@ba -10\repeat
        \ifnum\count@ba\string>19 \advance\count@ba -20\fi
  {\ignorespaces #1}\kern 0.8pt%
  \fup{\ifcase\number\count@ba th\or
  \kern -1.4pt st\or nd\or rd\or \kern -0.7pt th\or th\or th\or th\or th\or th\or th\or  %% 1-10
  \kern -1.4pt th\or th\or th\or \kern -0.7pt th\else th\fi \kern 0.2pt}\nulskip@ba}}  %% 11-14
\def\eordinal{\protect\peordinal}


\def\pfordinal#1#2{{\errorcontextlines=-1\leavevmode \count@ba #2\relax
        \ifnum\count@ba\string<0 \count@ba -\count@ba\fi
  \loop \ifnum\count@ba\string>1019 \advance\count@ba -1000\repeat
  \loop \ifnum\count@ba\string>119 \advance\count@ba -100\repeat
  \loop \ifnum\count@ba\string>19 \advance\count@ba -10\repeat
  {\ignorespaces #2}\kern 0.8pt%
  \fup{\ifcase\number\count@ba e\or
  \kern -1.4pt{#1}\kern 0.2pt \or e\or \kern -0.3pt e\or \kern -0.7pt e\or \kern -0.3pt e\or e\or e\or e\or e\or e\or  %% 1-10
  \kern -1.4pt               e\or e\or \kern -0.3pt e\or \kern -0.7pt e\or \kern -0.3pt e\else e\fi}\nulskip@ba}}  %% 11-14
\def\fordinalf{\protect\pfordinal{re}}
\def\fordinalm{\protect\pfordinal{er}}
\let\fordinal=\fordinalf  %\let\fordinal=\fordinalm

\def\pgordinal#1{{\ignorespaces #1.}\nulskip@ba}
\def\gordinal{\protect\pgordinal}

\expandafter\ifx\csname pteskip\endcsname\relax
 \def\pteskip{\nobreak \hskip 0.2em plus 0.1em minus 0.05em}%
\fi
 \def\teskip{\protect\pteskip}

\expandafter\ifx\csname pfupskip\endcsname\relax
 \def\pfupskip{\nobreak \hskip 0.2em plus 0.1em minus 0.05em}%
\fi
 \def\fupskip{\protect\pfupskip}


%%


\def\next@hy{}
\def\txen@hy{}

%% new in 2.6:
\def\Foct@ba{}


%% new in 2.6:
\def\dokern@ba#1{\let\letr@ba\relax \baletter@arg#1\endlist@ba
 {\let\next@hy\letr@ba \kernlttr@ba}}

\def\baletter@arg{\afterassignment\do@ba@ltr\let\nltr@ba= }

\def\do@ba@ltr{%
 \ifx \nltr@ba\endlist@ba \let\nltr@ba\relax
 \else
  \ifx \letr@ba\relax \ifx \nltr@ba\bgroup \else \let\letr@ba\nltr@ba \fi \fi
  \let\nltr@ba\baletter@arg
 \fi \nltr@ba}


{\catcode\grave@ba\<=12%
\gdef\only@sc@ba#1{{\setbox\testbox@ba=\hbox{p}%
 \ifdim\dp\testbox@ba<0.2ex{#1}\fi}}%
}

\def\ifdqko@ba#1#2{\if@newhyko \ifx\fromdq@ba+{#1}\else{#2}\fi \else{#2}\fi}

\def\kernlttr@ba{%
  \if@newhyko  %% new in 2.6:
 \ifx\next@hy \AE\Akern@ba\fi
 \ifx\next@hy \ae\akern@ba\fi
 \ifx\next@hy a\akern@ba\fi
 \ifx\next@hy t\tkern@ba\fi
  \fi
 \ifx\next@hy A\Akern@ba\fi  % incl {A@}
 \ifx\next@hy V\Vkern@ba\fi
 \ifx\next@hy W\ifdqko@ba{\Akern@ba}{\Wkern@ba}\fi  %% 2.6: "W=\AA
 \ifx\next@hy T\Tkern@ba\fi
 \ifx\next@hy v\vkern@ba\fi
 \ifx\next@hy w\ifdqko@ba{\akern@ba}{\wkern@ba}\fi  %% 2.6: "w=\aa
 \ifx\next@hy X\Xkern@ba\fi
 \ifx\next@hy Y\Ykern@ba\fi
 \ifx\next@hy y\ykern@ba\fi
 \ifx\next@hy x\xkern@ba\fi
}

\def\acckorr@hy#1{%
 \dokern@ba{#1}%
 \if@newhyko\nulskip@ba\fi  %% new in 2.6 (err-fix)
 \txen@hy{#1}}

\def\accentnum@hy#1 #2{%
 \dokern@ba{#2}%
 \if@newhyko\nulskip@ba\fi  %% new in 2.6 (symmetry)
 \accent #1 #2}

\def\oldg@ba{\dq@prtct}

%% changed in 2.6:
\def\aktacckorr@hy#1{{\def\@testa{#1}%
 \ifx \@testa\oldg@ba \else
  \type@bawarn{\string\hy\string\active@dq: No \string\dq@prtct\space follows}\fi}%
 \def\txen@hy{\active@dq #1}%
 \acckorr@hy}

\def\getarg@hy{\afterassignment\nextarg@hy\let\txen@hy= }

%% changed in 2.6:
\def\nextarg@hy{\ifx \txen@hy\accent \let\txen@hy\accentnum@hy \fi
 \bgroup \txen@hy}

\def\gonext@hy{\let\txen@hy=\next@hy \let\next@hy=\acckorr@hy}
\def\goact@hy{\let\next@hy=\aktacckorr@hy}  %% changed in 2.6


\def\UTFviiiName@ba{utf8}
\def\ToneName@ba{T1}

%% extracted in 2.6:
\def\Akern@ba{\kern -0.06em}
\def\ak@sc@ba{\kern -0.03em}
\def\akern@ba{\only@sc@ba{\ak@sc@ba}}
\def\Tkern@ba{\kern -0.1em}
\def\tk@sc@ba{\kern -0.03em}
\def\tkern@ba{\only@sc@ba{\tk@sc@ba}}
\def\Vkern@ba{\kern -0.1em}
\def\vkern@ba{\kern -0.04em}
\def\Wkern@ba{\kern -0.1em}
\def\wkern@ba{\kern -0.04em}
\def\Xkern@ba{\kern -0.06em}
\def\xkern@ba{\kern -0.04em}
\def\Ykern@ba{\kern -0.12em}
\def\ykern@ba{\kern -0.04em}
\def\lqkern@ba{\kern 0.04em}
\def\qsbkern@ba{\kern 0.04em}
\def\glqkern@ba{\qsbkern@ba}
\def\rqkern@ba{\kern 0.04em}
\def\grqkern@ba{\rqkern@ba}
\def\srbkern@ba{\kern -0.04em}
\def\crbkern@ba{\kern -0.05em}

\def\act@ba#1{\catcode\grave@ba#1=13}

{\act@ba{\`}%
 \act@ba{\'}%
 \gdef\dohyxhk@ba{%
  \ifx\next@hy `\lqkern@ba\fi
  \ifx\next@hy '\rqkern@ba\fi
 }%
}

{\catcode\grave@ba\"=13%
 \catcode\grave@ba\`=12%
 \catcode\grave@ba\'=12%
 %%% new in 2.6:
 \catcode\grave@ba\>=12%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 %%%
 \gdef\batriplet@hy{\let\Foct@ba\next@hy \let\next@hy\doUTFhyT@ba}%
 \gdef\doUTFhyT@ba#1#2{%
  \ifx\Foct@ba �%
   \ifx #1�%
    \ifx #2�\Ykern@ba\fi  % 1E8E \.Y
    \ifx #2�\ykern@ba\fi  % 1E8F \.y
   \fi
   \ifx #1�%
    \ifx #2�\Ykern@ba\fi  % 1EF2 \`Y 
    \ifx #2�\ykern@ba\fi  % 1EF3 \`y
   \fi
   \ifx #1�%
    \ifx #2�\tkern@ba\fi  % 1E6D \d t
   \fi
  \fi
  \ifx\Foct@ba �%
   \ifx #1�%
    \ifx #2�\lqkern@ba\fi  % 2018
    \ifx #2�\rqkern@ba\fi  % 2019
    \ifx #2�\qsbkern@ba\fi % 201A
   \fi
  \fi
  %%
  \nulskip@ba \Foct@ba #1#2}%
 %%%
 \gdef\badoublet@hy{\let\Foct@ba\next@hy \let\next@hy\doUTFhyD@ba}%
 \gdef\doUTFhyD@ba#1{%
  \ifx\Foct@ba �%
   \ifx #1�\Akern@ba\fi  % 00C0 \`A
   \ifx #1�\akern@ba\fi  % 00E0 \`a
   \ifx #1�\Akern@ba\fi  % 00C1 \'A
   \ifx #1�\akern@ba\fi  % 00E1 \'a
   \ifx #1�\Akern@ba\fi  % 00C2 \^A
   \ifx #1�\akern@ba\fi  % 00E2 \^a
   \ifx #1�\Akern@ba\fi  % 00C3 \~A
   \ifx #1�\akern@ba\fi  % 00E3 \~a
   \ifx #1�\Akern@ba\fi  % 00C4 \"A
   \ifx #1�\akern@ba\fi  % 00E4 \"a
   \ifx #1�\Akern@ba\fi  % 00C5 \r A
   \ifx #1�\akern@ba\fi  % 00E5 \r a
   \ifx #1�\Akern@ba\fi  % 00C6 \AE
   \ifx #1�\akern@ba\fi  % 00E6 \ae
   \ifx #1�\Ykern@ba\fi  % 00DD \'Y
   \ifx #1�\ykern@ba\fi  % 00FD \'y
   \ifx #1�\ykern@ba\fi  % 00FF \"y
  \fi
  \ifx\Foct@ba �%
   \ifx #1�\Akern@ba\fi  % 01CD \v A
   \ifx #1�\akern@ba\fi  % 01CE \v a
   \ifx #1�\Akern@ba\fi  % 01E2 \=\AE
   \ifx #1�\akern@ba\fi  % 01E3 \=\ae
  \fi
  \ifx\Foct@ba �%
   \ifx #1�\Akern@ba\fi  % 0100 \=A
   \ifx #1�\akern@ba\fi  % 0101 \=a
   \ifx #1�\Akern@ba\fi  % 0102 \u A
   \ifx #1�\akern@ba\fi  % 0103 \u a
   \ifx #1�\Akern@ba\fi  % 0104 \k A
   \ifx #1�\akern@ba\fi  % 0105 \k a
  \fi
  \ifx\Foct@ba �%
   \ifx #1�\Tkern@ba\fi  % 021A \textcommabelow T
   \ifx #1�\tkern@ba\fi  % 021B \textcommabelow t
   \ifx #1�\Ykern@ba\fi  % 0232 \=Y
   \ifx #1�\ykern@ba\fi  % 0233 \=y
  \fi
  \ifx\Foct@ba �%
   \ifx #1�\Tkern@ba\fi  % 0162 \c T
   \ifx #1�\tkern@ba\fi  % 0163 \c t
   \ifx #1�\Tkern@ba\fi  % 0164 \v T
   \ifx #1�\tkern@ba\fi  % 0165 \v t
   \ifx #1�\Wkern@ba\fi  % 0174 \^W
   \ifx #1�\wkern@ba\fi  % 0175 \^w
   \ifx #1�\Ykern@ba\fi  % 0178 \"Y
   \ifx #1�\Ykern@ba\fi  % 0176 \^Y
   \ifx #1�\ykern@ba\fi  % 0177 \^y
  \fi
  %%
  \nulskip@ba \Foct@ba #1}%
 %%%
\gdef\hykorr@hy{%
 \let\fromdq@ba=-%
 \let\ttdq@ba=-%
 \if@hyko
  %% new in 2.6
    \expandafter\ifx\csname next@hy\endcsname\relax
  \if@balist\type@bawarn{Empty object after \string\hy\space or \string\fhy}\fi
    \else
  \if@newhyko
   {\setbox\testbox@ba=\hbox{i}%
    \ifdim\wd\testbox@ba>.4em\global\let\ttdq@ba=+\fi}%
  \fi
   \ifx\ttdq@ba-%
  \kernlttr@ba
 \ifx\next@hy "\let\fromdq@ba=+\gonext@hy\fi
 \ifx\next@hy \newumlaut\gonext@hy\fi
 \ifx\next@hy \active@dq\goact@hy \fi
 \ifx\next@hy \bgroup   \let\next@hy=\getarg@hy\fi
 \ifx\next@hy \accent\let\next@hy=\accentnum@hy\fi
 \ifx\next@hy \"\gonext@hy\fi
 \ifx\next@hy \.\gonext@hy\fi
 \ifx\next@hy \=\gonext@hy\fi
 \ifx\next@hy \^\gonext@hy\fi
 \ifx\next@hy \'\gonext@hy\fi
 \ifx\next@hy \`\gonext@hy\fi
 \ifx\next@hy \~\gonext@hy\fi
 \ifx\next@hy \b\gonext@hy\fi  \ifx\next@hy \pb\gonext@hy\fi
 \ifx\next@hy \c\gonext@hy\fi  \ifx\next@hy \pc\gonext@hy\fi
 \ifx\next@hy \d\gonext@hy\fi  \ifx\next@hy \pd\gonext@hy\fi
 \ifx\next@hy \H\gonext@hy\fi
 \ifx\next@hy \k\gonext@hy\fi
 \ifx\next@hy \r\gonext@hy\fi
 \ifx\next@hy \u\gonext@hy\fi
 \ifx\next@hy \v\gonext@hy\fi
 \ifx\next@hy `\lqkern@ba\fi
 \ifx\next@hy '\rqkern@ba\fi
 \ifx\next@hy \glq\glqkern@ba\fi  \ifx\next@hy \@glq\glqkern@ba\fi
 \ifx\next@hy ]\srbkern@ba\fi
 \ifx\next@hy )\kern -0.04em\fi
 \ifx\next@hy \}\crbkern@ba\fi  \ifx\next@hy \@rb\crbkern@ba\fi
  %% new in 2.6:
   \fi
   \if@newhyko\ifx\ttdq@ba-%
  \ifx\next@hy \AA\Akern@ba\fi
  \ifx\next@hy \aa\akern@ba\fi
  \ifx\next@hy \lq\lqkern@ba\fi
  \ifx\next@hy \textquoteleft\lqkern@ba\fi
  \ifx\next@hy \rq\rqkern@ba\fi
  \ifx\next@hy \textquoteright\rqkern@ba\fi
  \ifx\next@hy \grq\grqkern@ba\fi  \ifx\next@hy \@grq\grqkern@ba\fi
  \ifx\next@hy \quotesinglbase\qsbkern@ba\fi
  \ifx\next@hy \rbrack\srbkern@ba\fi
  \ifx\next@hy \textcommabelow\gonext@hy\fi
  \ifx\next@hy \grmn@active@dq@\gonext@hy\fi
  \ifx\next@hy \t\gonext@hy\fi
  \ifx\next@hy \newtie\gonext@hy\fi
  \ifx\next@hy \capitaltie\gonext@hy\fi
  \ifx\next@hy \capitalnewtie\gonext@hy\fi
  \ifx\next@hy \capitalacute\gonext@hy\fi
  \ifx\next@hy \capitalbreve\gonext@hy\fi
  \ifx\next@hy \capitalcaron\gonext@hy\fi
  \ifx\next@hy \capitalcedilla\gonext@hy\fi
  \ifx\next@hy \capitalcircumflex\gonext@hy\fi
  \ifx\next@hy \capitaldieresis\gonext@hy\fi
  \ifx\next@hy \capitaldotaccent\gonext@hy\fi
  \ifx\next@hy \capitalgrave\gonext@hy\fi
  \ifx\next@hy \capitalhungarumlaut\gonext@hy\fi
  \ifx\next@hy \capitalmacron\gonext@hy\fi
  \ifx\next@hy \capitalogonek\gonext@hy\fi
  \ifx\next@hy \capitalring\gonext@hy\fi
  \ifx\next@hy \capitaltilde\gonext@hy\fi
  \dohyxhk@ba
   \fi\fi
    \fi
 \if@newhyko\ifx\ttdq@ba-\ifx\inputencodingname\UTFviiiName@ba
   \ifx\next@hy �\badoublet@hy\fi  % 195
   \ifx\next@hy �\badoublet@hy\fi  % 196
   \ifx\next@hy �\badoublet@hy\fi  % 197
   \ifx\next@hy �\badoublet@hy\fi  % 199
   \ifx\next@hy �\badoublet@hy\fi  % 200
   \ifx\next@hy �\batriplet@hy\fi  % 225
   \ifx\next@hy �\batriplet@hy\fi  % 226
 \fi\fi\fi
  %%
 \fi
 \nulskip@ba\next@hy}%
}

\def\after@hy{\afterassignment\hykorr@hy\let\next@hy= }

\newif\if@hyko\@hykotrue

\def\phyko{\@hykotrue}
\def\hyko{\protect\phyko}

\def\pnothyko{\@hykofalse}
\def\nothyko{\protect\pnothyko}


%% new in 2.6:
\typeout@ba{ **^^J 2.6 extents the kerning of \string\hy\space and \string\fhy. \space Use \string\notnewhyko\space to reject.}

\newif\if@newhyko\@newhykotrue

\def\pnewhyko{\@newhykotrue}
\def\newhyko{\protect\pnewhyko}

\def\pnotnewhyko{\@newhykofalse}
\def\notnewhyko{\protect\pnotnewhyko}

\typeout@ba{ 2.6 extents specials of \string\abra\space and \string\fabra. \space Use \string\notnewabra\space to reject.^^J **}

\newif\if@newabra\@newabratrue

\def\pnewabra{\@newabratrue}
\def\newabra{\protect\pnewabra}

\def\pnotnewabra{\@newabrafalse}
\def\notnewabra{\protect\pnotnewabra}


\def\phy{\leavevmode\nulskip@ba\ifmmode\hbox{-}\else\discretionary{-}{}{-}\fi\after@hy}
%\def\phy{\leavevmode\nulskip@ba\ifmmode\hbox{-}\else\discretionary{-}{}{-}\fi\nulskip@ba}
\def\pfhy{\leavevmode\nulskip@ba\hbox{-}\after@hy}
%\def\pfhy{\leavevmode\nulskip@ba\hbox{-}\nulskip@ba}

\DeclareRobustCommand\hy{\protect\phy}    %% DRC in 2.6 for
\DeclareRobustCommand\fhy{\protect\pfhy}  %% .toc \MakeUppercase


%%


\def\te{.\protect\pteskip}

\def\pko{\ifhmode\nobreak\hskip -0.07em plus 0em\fi}
\def\ko{\protect\pko}

\expandafter\ifx\csname omicron\endcsname\relax\def\omicron{o}\fi

\def\pbasimgl{\normalfont} %{\normalfont\rule[.3ex]{.02em}{.5ex}\kern-.02em}
\def\basimgreeklatin{\protect\pbasimgl}
\expandafter\ifx\csname Alpha\endcsname\relax\def\Alpha{\mbox{\basimgreeklatin A}}\fi
\expandafter\ifx\csname Beta\endcsname\relax\def\Beta{\mbox{\basimgreeklatin B}}\fi
\expandafter\ifx\csname Epsilon\endcsname\relax\def\Epsilon{\mbox{\basimgreeklatin E}}\fi
\expandafter\ifx\csname Zeta\endcsname\relax\def\Zeta{\mbox{\basimgreeklatin Z}}\fi
\expandafter\ifx\csname Eta\endcsname\relax\def\Eta{\mbox{\basimgreeklatin H}}\fi
\expandafter\ifx\csname Iota\endcsname\relax\def\Iota{\mbox{\basimgreeklatin I}}\fi
\expandafter\ifx\csname Kappa\endcsname\relax\def\Kappa{\mbox{\basimgreeklatin K}}\fi
\expandafter\ifx\csname Mu\endcsname\relax\def\Mu{\mbox{\basimgreeklatin M}}\fi
\expandafter\ifx\csname Nu\endcsname\relax\def\Nu{\mbox{\basimgreeklatin N}}\fi
\expandafter\ifx\csname Omicron\endcsname\relax\def\Omicron{\mbox{\basimgreeklatin O}}\fi
\expandafter\ifx\csname Rho\endcsname\relax\def\Rho{\mbox{\basimgreeklatin P}}\fi
\expandafter\ifx\csname Tau\endcsname\relax\def\Tau{\mbox{\basimgreeklatin T}}\fi
\expandafter\ifx\csname Chi\endcsname\relax\def\Chi{\mbox{\basimgreeklatin X}}\fi


%%


                     %% German word division %%


%% A very old replacement for \ss, IF no sharp S exists, e.g. in \scshape: %%
\expandafter\ifx\csname sz\endcsname\relax
\def\sz{{sz}}%
\else
\typeout{\string\sz-command used. I do not redefine.}%
\fi

\expandafter\ifx\csname SZ\endcsname\relax
\def\SZ{{SZ}}%
\else
\typeout{\string\SZ-command used. I do not redefine.}%
\fi

%%

%% A sharp S which ALWAYS splits s-s (to be used between vovels, e.g. %%
%% au\oldhyss er).  Use YOUR sharp S at OTHER positions (e.g. da\ss): %%
\def\oldhyss{\penalty\@M\discretionary{s-}{s}{\ss}\protect\nulskip@ba}
\def\OLDHYSS{\penalty\@M\discretionary{S-}{S}{\SS}\protect\nulskip@ba}


{\catcode\grave@ba\>=12%
\gdef\@newhyss#1{{%
  \def\@testa{#1}%
  \def\@testb{\SS}%
  \ifx\@testa\@testb
    {\OLDHYSS}%
  \else
    \setbox\testbox@ba=\hbox{#1}%
    \ifdim\ht\testbox@ba>1.4ex
      {\ss}%       %% split as def in \language %%
    \else
      {\oldhyss}%  %% INVISIBLE in \showhyphens %%
    \fi
  \fi}}%
}

%% A sharp S which splits s-s ONLY in small caps; ELSE %%
%% as \language says (-\ss ?). For use between vovels: %%
\def\newhyss{\protect\@newhyss{\ss}}
\def\NEWHYSS{\protect\@newhyss{\SS}}


%% In Old German (=Old Austrian ?) hyphenation, %% 
%% \hyss splits as \oldhyss;  ELSE as \newhyss: %%
\def\hyss{\expandafter\ifx\csname l@german\endcsname\relax \newhyss\else \ifnum\language=\l@german\oldhyss\else\newhyss\fi \fi}
\def\HYSS{\expandafter\ifx\csname l@german\endcsname\relax \NEWHYSS\else \ifnum\language=\l@german\OLDHYSS\else\NEWHYSS\fi \fi}

%%

\def\hycons@ba#1#2{\penalty\@M\discretionary{#1-}{}{#2}\protect\nulskip@ba}
\def\HYCONS@BA#1#2{\penalty\@M\discretionary{#1-}{}{#2}\protect\nulskip@ba}

\def\hyvari@ba#1#2{\expandafter\ifx\csname l@german\endcsname\relax {#1}\else \ifnum\language=\l@german \csname oldhy#2\endcsname \else {#1}\fi \fi}
\def\HYVARI@BA#1#2{\expandafter\ifx\csname l@german\endcsname\relax {#1}\else \ifnum\language=\l@german \csname OLDHY#2\endcsname \else {#1}\fi \fi}


%% "Inside-c in front of k": %%
\def\oldhyc{\hycons@ba{k}{c}}   %% always old:  Dru\oldhyc ker
\def\OLDHYC{\HYCONS@BA{K}{C}}
   \def\hyc{\hyvari@ba{c}{c}}   %% spells new in ngerman, naustrian
   \def\HYC{\HYVARI@BA{C}{C}}


%% "Triple consonant in front of vovel": %%
\def\oldhyl{\hycons@ba{ll}{l}}  %% always old:  Scha\oldhyl leistung
\def\OLDHYL{\HYCONS@BA{LL}{L}}
   \def\hyl{\hyvari@ba{ll}{l}}  %% spells new in ngerman, naustrian
   \def\HYL{\HYVARI@BA{LL}{L}}

\def\oldhym{\hycons@ba{mm}{m}}  %% Sta\oldhym mutter
\def\OLDHYM{\HYCONS@BA{MM}{M}}
   \def\hym{\hyvari@ba{mm}{m}}
   \def\HYM{\HYVARI@BA{MM}{M}}

\def\oldhyn{\hycons@ba{nn}{n}}  %% Ke\oldhyn nummer
\def\OLDHYN{\HYCONS@BA{NN}{N}}
   \def\hyn{\hyvari@ba{nn}{n}}
   \def\HYN{\HYVARI@BA{NN}{N}}

\def\oldhyp{\hycons@ba{pp}{p}}  %% Ste\oldhyp pullover
\def\OLDHYP{\HYCONS@BA{PP}{P}}
   \def\hyp{\hyvari@ba{pp}{p}}
   \def\HYP{\HYVARI@BA{PP}{P}}

\def\oldhyr{\hycons@ba{rr}{r}}  %% Sta\oldhyr rahmen
\def\OLDHYR{\HYCONS@BA{RR}{R}}
   \def\hyr{\hyvari@ba{rr}{r}}
   \def\HYR{\HYVARI@BA{RR}{R}}

\def\oldhyt{\hycons@ba{tt}{t}}  %% Schri\oldhyt tempo
\def\OLDHYT{\HYCONS@BA{TT}{T}}
   \def\hyt{\hyvari@ba{tt}{t}}
   \def\HYT{\HYVARI@BA{TT}{T}}

\def\oldhyf{\hycons@ba{ff}{f}}  %% Sto\oldhyf figur
\def\OLDHYF{\HYCONS@BA{FF}{F}}
   \def\hyf{\hyvari@ba{ff}{f}}
   \def\HYF{\HYVARI@BA{FF}{F}}


%%


%% Dummy for systems with parameter stack size=60 %%
\expandafter\ifx\csname footnotetext\endcsname\relax
\else
{\setbox\testbox@ba=\hbox{\footnotetext{\printonlyvli{}{}{}}}}\clearmem@ba
\fi


%% new in 2.6:
\def\pabrao{[}  %{(}
\def\abraopen{\protect\pabrao}
\def\pabrac{]}  %{)}
\def\abraclose{\protect\pabrac}


\def\escb@ba{\ifvmode\leavevmode
  \if@newabra\else\lower -1ex\hbox{\strut}\fi  %% 2.6: repro old err
 \else\nulskip@ba\fi}

%% new in 2.6:
\newif\if@abradone
\def\up@abra{\ifmmode\else\upshape\fi}
\def\hm@abra#1{\ifmmode{#1}\else\hbox{#1}\fi}

%% DRC in 2.6 for .toc-\uppercase:
\def\pabra#1{\@abra{#1}\allowbr@ba}
\DeclareRobustCommand\abra{\protect\pabra}

\def\pfabra#1{\@abra{#1}\nulskip@ba}
\DeclareRobustCommand\fabra{\protect\pfabra}

%% direct use since 2.6:
\def\pfbabbrack#1{\@babbrack{#1}\nulskip@ba}
\def\pbabbrack#1{\@babbrack{#1}\allowbr@ba}
\def\@babbrack#1{\escb@ba{\up@abra
   \lower 0.25ex\hbox{\tiny \abraopen}\hm@abra{#1}%
   \lower 0.25ex\hbox{\tiny \abraclose}\kern 0.02em{}}\global\@abradonetrue}
\DeclareRobustCommand\fbabbrack{\protect\pfbabbrack}
\DeclareRobustCommand\babbrack{\protect\pbabbrack}

\def\pfbambrack#1{\@bambrack{#1}\nulskip@ba}
\def\pbambrack#1{\@bambrack{#1}\allowbr@ba}
\def\@bambrack#1{\iflasthasdot@ba{}{\@baupcorr}\escb@ba{\up@abra
   \lower -0.5ex\hbox{\lower 1.5pt\hbox{\tiny \abraopen}}\hm@abra{#1}%
   \lower -0.5ex\hbox{\lower 1.5pt\hbox{\tiny \abraclose}}\kern 0.02em{}}\global\@abradonetrue}
\DeclareRobustCommand\fbambrack{\protect\pfbambrack}
\DeclareRobustCommand\bambrack{\protect\pbambrack}

\def\pfbatbrack#1{\@batbrack{#1}\nulskip@ba}
\def\pbatbrack#1{\@batbrack{#1}\allowbr@ba}
\def\@batbrack#1{\iflasthasdot@ba{}{\@baupcorr}\escb@ba{\up@abra
   \lower -1.4ex\hbox{\lower 3pt\hbox{\tiny \abraopen}}\hm@abra{#1}%
   \lower -1.4ex\hbox{\lower 3pt\hbox{\tiny \abraclose}}}{\@baendcorr}\kern 0.02em{}\global\@abradonetrue}
\DeclareRobustCommand\fbatbrack{\protect\pfbatbrack}
\DeclareRobustCommand\batbrack{\protect\pbatbrack}

\def\pfbanbrack#1{\unk@abra{#1}\nulskip@ba}
\def\pbanbrack#1{\unk@abra{#1}\allowbr@ba}
\def\unk@abra#1{\iflasthasdot@ba{}{\@baupcorr}\ifvmode\leavevmode\else\nulskip@ba\fi
   {\up@abra {\abraopen}{#1}{\abraclose}}\global\@abradonetrue}
\DeclareRobustCommand\fbanbrack{\protect\pfbanbrack}
\DeclareRobustCommand\banbrack{\protect\pbanbrack}

%% mod in 2.6:
{\catcode\grave@ba\"=12%
 \gdef\dqch@ba{"}%
 \expandafter\ifx\csname dq\endcsname\relax
  \gdef\dq{"}\fi
 \catcode\grave@ba\"=13%
 \gdef\Xdqch@ba{"}%
}

\def\dq@ba{\dq}
%% new in 2.6:
\def\pdq@ba{\grmn@active@dq@}
\def\lq@ba{\lq}
\def\rq@ba{\rq}

%% mod in 2.6:
{\catcode\grave@ba\"=13%
 \catcode\grave@ba\'=12%
 \catcode\grave@ba\`=12%
 \gdef\c@ba{'}%
 \gdef\cc@ba{''}%
 \gdef\grqq@baA{"'}%
 \gdef\grqq@baB{\grmn@active@dq@ '}%
 \gdef\grqq@baC{\active@dq\dq@prtct{'}}%
 \gdef\grqq@baD{\active@dq\dq@prtct{'@}}%
 \gdef\o@ba{`}%
 \gdef\oo@ba{``}%
 \gdef\glqq@baA{"`}%
 \gdef\glqq@baB{\grmn@active@dq@ `}%
 \gdef\glqq@baC{\active@dq\dq@prtct{`}}%
 \gdef\glqq@baD{\active@dq\dq@prtct{`@}}%
 \catcode\grave@ba\'=13%
 \catcode\grave@ba\`=13%
 \gdef\xc@ba{'}%
 \gdef\xcc@ba{''}%
 \gdef\xgrqq@baA{"'}%
 \gdef\xgrqq@baB{\grmn@active@dq@ '}%
 \gdef\xgrqq@baC{\active@dq\dq@prtct{'}}%
 \gdef\xgrqq@baD{\active@dq\dq@prtct{'@}}%
 \gdef\xo@ba{`}%
 \gdef\xoo@ba{``}%
 \gdef\xglqq@baA{"`}%
 \gdef\xglqq@baB{\grmn@active@dq@ `}%
 \gdef\xglqq@baC{\active@dq\dq@prtct{`}}%
 \gdef\xglqq@baD{\active@dq\dq@prtct{`@}}%
}

%% mod in 2.6:
{\catcode\grave@ba\"=13%
 \catcode\grave@ba\<=12%
 \catcode\grave@ba\>=12%
 \gdef\ba@ds{<<}%
 \gdef\ba@db{>>}%
 \gdef\flqq@baA{"<}%
 \gdef\flqq@baB{\grmn@active@dq@ <}%
 \gdef\flqq@baC{\active@dq\dq@prtct{<}}%
 \gdef\flqq@baD{\active@dq\dq@prtct{<@}}%
 \gdef\frqq@baA{">}%
 \gdef\frqq@baB{\grmn@active@dq@ >}%
 \gdef\frqq@baC{\active@dq\dq@prtct{>}}%
 \gdef\frqq@baD{\active@dq\dq@prtct{>@}}%
 \catcode\grave@ba\<=13%
 \catcode\grave@ba\>=13%
 \gdef\xba@ds{<<}%
 \gdef\xflqq@baA{"<}%
 \gdef\xflqq@baB{\grmn@active@dq@ <}%
 \gdef\xflqq@baC{\active@dq\dq@prtct{<}}%
 \gdef\xflqq@baD{\active@dq\dq@prtct{<@}}%
 \gdef\xba@db{>>}%
 \gdef\xfrqq@baA{">}%
 \gdef\xfrqq@baB{\grmn@active@dq@ >}%
 \gdef\xfrqq@baC{\active@dq\dq@prtct{>}}%
 \gdef\xfrqq@baD{\active@dq\dq@prtct{>@}}%
}

%% new in 2.6 (babel "X; {} for [activeacute,activegrave,catalan,ngerman]):
{\catcode\grave@ba\>=12%
 \gdef\isdqX@ba#1#2#3{{\setbox\testbox@ba=\hbox{#3{}}%
  \ifdim\ht\testbox@ba>1.4ex\unk@abra{#2{}}\else{#1{#2{}}}\fi}}%
}

%% new in 2.6:
{\act@ba{\!}\gdef\xaz@ba{!}}
{\act@ba{\?}\gdef\xfz@ba{?}}
{\act@ba{\;}\gdef\xsp@ba{;}}
{\act@ba{\:}\gdef\xdp@ba{:}}

%% UTF8 new in 2.6:
{\act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \act@ba{\�}%
 \gdef\UTFlq@ba{‘}%     %% 2018 \textquoteleft {`}
 \gdef\UTFdlq@ba{‘‘}% %% 2018 2018 {``}
 \gdef\UTFrq@ba{’}%     %% 2019 \textquoteright {'}
 \gdef\UTFdrq@ba{’’}% %% 2019 2019 {''}
 \gdef\UTFglq@ba{‚}%    %% 201A \quotesinglbase {,}
 \gdef\UTFgrqq@ba{“}%   %% 201C \textquotedblleft {``}
 \gdef\UTFrqq@ba{”}%    %% 201D \textquotedblright {''}
 \gdef\UTFglqq@ba{„}%   %% 201E \quotedblbase {,,}
 \gdef\UTFellip@ba{…}%  %% 2026 \textellipsis {\dots}
 \gdef\UTFflqq@ba{«}%    %% 00AB \guillemetleft 
 \gdef\UTFfrqq@ba{»}%    %% 00BB \guillemetright
 \gdef\UTFflq@ba{‹}%    %% 2039 \guilsinglleft
 \gdef\UTFfrq@ba{›}%    %% 203A \guilsinglright
 \gdef\UTFmin@ba{‐}%    %% 2010 -
 \gdef\UTFmm@ba{‐‐}%  %% 2010 2010 {--}
 \gdef\UTFmmm@ba{‐‐‐}%  %% {---}
 \gdef\UTFnbm@ba{‑}%    %% 2011 \mbox{-}
 \gdef\UTFena@ba{‒}%    %% 2012 \textendash
 \gdef\UTFenb@ba{–}%    %% 2013 \textendash
 \gdef\UTFema@ba{—}%    %% 2014 \textemdash
 \gdef\UTFemb@ba{―}%    %% 2015 \textemdash
}

%% moved and renamed in 2.6:
\def\ba@ok{,}
\def\ba@op{.}
\def\ba@mm{$-$}
\def\ba@om{-}
\def\ba@dm{--}
\def\ba@tm{---}
\def\ba@glq{\glq}
\def\ba@@glq{\@glq}     %%
\def\ba@grq{\grq}
\def\ba@@grq{\@grq}     %% german.sty 2.4a, 12 Apr 1991
\def\ba@glqq{\glqq}
\def\ba@@glqq{\@glqq}   %%
\def\ba@grqq{\grqq}
\def\ba@@grqq{\@grqq}   %%
\def\ba@gflqq{\flqq}
\def\ba@@gflqq{\@flqq}  %%
\def\ba@gflq{\flq}
\def\ba@@gflq{\@flq}    %%
\def\ba@gfrqq{\frqq}
\def\ba@@gfrqq{\@frqq}  %%
\def\ba@gfrq{\frq}
\def\ba@@gfrq{\@frq}    %%
\def\ba@tp{...}
\def\ba@dots{\dots}

%% new in 2.6:
\def\hy@ba{\hy}
\def\phy@ba{\phy}  %% Needed if not DRC!
\def\ba@bm{\mbox{-}}
\def\ba@dk{,,}
\def\ba@tflqq{\guillemetleft}
\def\ba@oflqq{\guillemotleft}
\def\ba@tfrqq{\guillemetright}
\def\ba@ofrqq{\guillemotright}
\def\ba@tflq{\guilsinglleft}
\def\ba@tfrq{\guilsinglright}
\def\ba@tql{\textquoteleft}
\def\ba@tqr{\textquoteright}
\def\ba@qsb{\quotesinglbase}
\def\ba@tlqq{\textquotedblleft}
\def\ba@tqrr{\textquotedblright}
\def\ba@tgqq{\quotedblbase}
\def\ba@ellip{\textellipsis}
\def\ba@FBellip{\FBtextellipsis}  %% babel-french
\def\ba@endash{\textendash}
\def\ba@emdash{\textemdash}

\def\UTFabra@ba#1#2{\ifx\inputencodingname\UTFviiiName@ba #1{#2}\else
  \unk@abra{#2}\fi}

\def\UTFtabra@ba#1#2{\ifx\inputencodingname\UTFviiiName@ba 
  \ifmmode \unk@abra{#2}\else #1{#2}\fi \else
  \unk@abra{#2}\fi}

\def\tabra@ba#1#2{\ifmmode \unk@abra{#2}\else #1{#2}\fi}

\def\mate@ba#1#2{\ifmmode \unk@abra{#1}\else{#2}\fi}

\def\if@banewgerm#1#2{\expandafter\ifx\csname @flqq\endcsname\relax\if@batone{#1}{#2}\else{#2}\fi}


\def\@abra#1{{\errorcontextlines=-1%
 \def\@testa{#1}%
 \global\@abradonefalse  %% new in 2.6
 \ifx\@testa\oo@ba \moo@abra{\oo@ba}\fi
 \ifx\@testa\xoo@ba\moo@abra{\xoo@ba}\fi
 \ifx\@testa\cc@ba \mcc@abra{\cc@ba}\fi
 \ifx\@testa\xcc@ba\mcc@abra{\xcc@ba}\fi
 \ifx\@testa\grqq@baC \rqq@abra{\grqq@baC}\fi
 \ifx\@testa\xgrqq@baC\rqq@abra{\xgrqq@baC}\fi
 \ifx\@testa\glqq@baC \lqq@abra{\glqq@baC}\fi
 \ifx\@testa\xglqq@baC\lqq@abra{\xglqq@baC}\fi
 \ifx\@testa\o@ba  \o@abra{\o@ba}\fi
 \ifx\@testa\xo@ba \o@abra{\xo@ba{}}\fi
 \ifx\@testa\c@ba \mc@abra{\c@ba}\fi
 \ifx\@testa\xc@ba\mc@abra{\xc@ba{}}\fi
 \ifx\@testa\ba@ok \dot@abra{\ba@ok}\fi
 \ifx\@testa\ba@op \dot@abra{\ba@op}\fi
 \ifx\@testa\ba@mm \mxm@abra{\ifmmode{-}\else{\ba@mm}\fi}\fi
 \ifx\@testa\ba@om \m@abra{\ba@om}\fi
 \ifx\@testa\ba@dm \tabra@ba{\mm@abra}{\ba@dm}\fi
 \ifx\@testa\ba@tm \tabra@ba{\mmm@abra}{\ba@tm}\fi
 \ifx\@testa\ba@glq \lq@abra{\ba@glq}\fi
 \ifx\@testa\ba@@glq\lq@abra{\ba@@glq}\fi
 \ifx\@testa\ba@grq \rq@abra{\ba@grq}\fi
 \ifx\@testa\ba@@grq\rq@abra{\ba@@grq}\fi
 \ifx\@testa\ba@glqq  \lqq@abra{\ba@glqq}\fi
 \ifx\@testa\ba@@glqq \lqq@abra{\ba@@glqq}\fi
 \ifx\@testa\ba@grqq  \rqq@abra{\ba@grqq}\fi
 \ifx\@testa\ba@@grqq \rqq@abra{\ba@@grqq}\fi
 \ifx\@testa\glqq@baA \isdqX@ba {\lqq@abra} {\glqq@baA} {\glqq@baA}\fi
 \ifx\@testa\xglqq@baA\isdqX@ba {\lqq@abra} {\xglqq@baA}{\xglqq@baA}\fi
 \ifx\@testa\grqq@baA \isdqX@ba {\rqq@abra} {\grqq@baA} {\glqq@baA}\fi
 \ifx\@testa\xgrqq@baA\isdqX@ba {\rqq@abra} {\xgrqq@baA}{\ifnum\catcode\grave@ba\`=13\xglqq@baA\else\glqq@baA\fi}\fi
 \ifx\@testa\dqch@ba\dq@abra{\dqch@ba}\fi
 \ifx\@testa\dq@ba  \dq@abra{\dq@ba}\fi
 \ifx\@testa\pdq@ba \dq@abra{\pdq@ba{}}\fi
 \ifx\@testa\ba@tp  \@babbrack{\kern -0.01em{\ba@tp}\kern -0.03em}\fi
 \ifx\@testa\ba@dots\ddd@abra{\ifmmode\kern -.0075em\fi\ba@dots}\fi
 %% new in 2.6:
 \if@newabra
  \ifx\@testa\UTFlq@ba   \UTFtabra@ba  {\o@abra} {\UTFlq@ba}\fi
  \ifx\@testa\ba@tql \tabra@ba{\o@abra}{\ba@tql}\fi
  \ifx\@testa\UTFrq@ba   \UTFtabra@ba  {\c@abra} {\UTFrq@ba}\fi
  \ifx\@testa\ba@tqr \tabra@ba{\c@abra}{\ba@tqr}\fi
  \ifx\@testa\UTFglq@ba  \UTFtabra@ba{\com@abra} {\UTFglq@ba}\fi
  \ifx\@testa\ba@qsb \tabra@ba{\com@abra}{\ba@qsb}\fi
  \ifx\@testa\UTFgrqq@ba \UTFtabra@ba {\oo@abra} {\UTFgrqq@ba}\fi
  \ifx\@testa\ba@tlqq \tabra@ba{\oo@abra}{\ba@tlqq}\fi
  \ifx\@testa\UTFdlq@ba  \UTFtabra@ba {\oo@abra} {\UTFdlq@ba}\fi
  \ifx\@testa\UTFrqq@ba  \UTFtabra@ba {\cc@abra} {\UTFrqq@ba}\fi
  \ifx\@testa\ba@tqrr \tabra@ba{\cc@abra}{\ba@tqrr}\fi
  %%
  \ifx\@testa\UTFdrq@ba  \UTFtabra@ba {\cc@abra} {\UTFdrq@ba}\fi
  \ifx\@testa\UTFglqq@ba \UTFtabra@ba{\ulqq@abra} {\UTFglqq@ba}\fi
  \ifx\@testa\ba@tgqq \tabra@ba{\ulqq@abra}{\ba@tgqq}\fi
  \ifx\@testa\UTFellip@ba\UTFabra@ba{\dddt@abra} {\UTFellip@ba}\fi
  \ifx\@testa\ba@ellip   \dddt@abra{\ba@ellip}\fi
  \ifx\@testa\ba@FBellip \dddt@abra{\ba@FBellip}\fi
  %%
  \ifx\@testa\ba@gfrqq \smfr@abra{\ba@gfrqq}\fi
  \ifx\@testa\ba@gfrq  \smfr@abra{\ba@gfrq}\fi
  \ifx\@testa\frqq@baA \isdqX@ba {\smfr@abra} {\frqq@baA} {\flqq@baA}\fi
  \ifx\@testa\xfrqq@baA\isdqX@ba {\smfr@abra} {\xfrqq@baA}{\xflqq@baA}\fi
  \ifx\@testa\frqq@baB \smfr@abra{\frqq@baB}\fi
  \ifx\@testa\xfrqq@baB\smfr@abra{\xfrqq@baB}\fi
  \ifx\@testa\frqq@baD \smfr@abra{\frqq@baD}\fi
  \ifx\@testa\xfrqq@baD\smfr@abra{\xfrqq@baD}\fi
  \ifx\@testa\frqq@baC \smfr@abra{\frqq@baC}\fi
  \ifx\@testa\xfrqq@baC\smfr@abra{\xfrqq@baC}\fi
  \ifx\@testa\ba@@gfrqq\smfr@abra{\ba@@gfrqq}\fi
  \ifx\@testa\ba@@gfrq \smfr@abra{\ba@@gfrq}\fi
  %%
  \ifx\@testa\ba@gflqq \smfl@abra{\ba@gflqq}\fi
  \ifx\@testa\ba@gflq  \smfl@abra{\ba@gflq}\fi
  \ifx\@testa\flqq@baA \isdqX@ba {\smfl@abra} {\flqq@baA} {\flqq@baA}\fi
  \ifx\@testa\xflqq@baA\isdqX@ba {\smfl@abra} {\xflqq@baA}{\xflqq@baA}\fi
  \ifx\@testa\flqq@baB \smfl@abra{\flqq@baB}\fi
  \ifx\@testa\xflqq@baB\smfl@abra{\xflqq@baB}\fi
  \ifx\@testa\flqq@baD \smfl@abra{\flqq@baD}\fi
  \ifx\@testa\xflqq@baD\smfl@abra{\xflqq@baD}\fi
  \ifx\@testa\flqq@baC \smfl@abra{\flqq@baC}\fi
  \ifx\@testa\xflqq@baC\smfl@abra{\xflqq@baC}\fi
  \ifx\@testa\ba@@gflqq\smfl@abra{\ba@@gflqq}\fi
  \ifx\@testa\ba@@gflq \smfl@abra{\ba@@gflq}\fi
  %%
  \ifx\@testa\ba@ds \mufl@abra{\ba@ds}\fi
  \ifx\@testa\xba@ds\mufl@abra{\xba@ds}\fi
  \ifx\@testa\UTFflqq@ba \UTFtabra@ba {\ufl@abra} {\UTFflqq@ba}\fi
  \ifx\@testa\ba@tflqq \tabra@ba{\ufl@abra}{\ba@tflqq}\fi
  \ifx\@testa\ba@oflqq \tabra@ba{\ufl@abra}{\ba@oflqq}\fi
  \ifx\@testa\UTFfrqq@ba \UTFtabra@ba {\ufr@abra} {\UTFfrqq@ba}\fi
  \ifx\@testa\ba@tfrqq \tabra@ba{\ufr@abra}{\ba@tfrqq}\fi
  \ifx\@testa\ba@ofrqq \tabra@ba{\ufr@abra}{\ba@ofrqq}\fi
  \ifx\@testa\ba@db \mufr@abra{\ba@db}\fi
  \ifx\@testa\xba@db\mufr@abra{\xba@db}\fi
  \ifx\@testa\UTFflq@ba  \UTFtabra@ba {\ufl@abra} {\UTFflq@ba}\fi
  \ifx\@testa\ba@tflq \tabra@ba{\ufl@abra}{\ba@tflq}\fi
  \ifx\@testa\UTFfrq@ba  \UTFtabra@ba {\ufr@abra} {\UTFfrq@ba}\fi
  \ifx\@testa\ba@tfrq \tabra@ba{\ufr@abra}{\ba@tfrq}\fi
  %%
  \ifx\@testa\lq@ba  \c@abra{\lq@ba}\fi
  \ifx\@testa\rq@ba \mc@abra{\rq@ba}\fi
  \ifx\@testa\hy@ba  \m@abra{\hy@ba}\fi
  \ifx\@testa\phy@ba \m@abra{\phy@ba}\fi
  \ifx\@testa\xaz@ba\unk@abra{\string!}\fi
  \ifx\@testa\xfz@ba\unk@abra{\string?}\fi
  \ifx\@testa\xsp@ba\unk@abra{\string;}\fi
  \ifx\@testa\xdp@ba\unk@abra{\string:}\fi
  %%
  \ifx\@testa\UTFmin@ba \UTFabra@ba{\m@abra}{\UTFmin@ba}\fi
  \ifx\@testa\UTFnbm@ba \UTFabra@ba{\xm@abra}{\UTFnbm@ba}\fi
  \ifx\@testa\ba@bm \xm@abra{\ba@bm}\fi
  \ifx\@testa\UTFmm@ba  \UTFtabra@ba{\mm@abra}{\UTFmm@ba}\fi
  \ifx\@testa\UTFena@ba \UTFtabra@ba{\mm@abra}{\UTFena@ba}\fi
  \ifx\@testa\UTFenb@ba \UTFtabra@ba{\mm@abra}{\UTFenb@ba}\fi
  \ifx\@testa\ba@endash \tabra@ba{\mm@abra}{\ba@endash}\fi
  \ifx\@testa\UTFmmm@ba \UTFtabra@ba{\mmm@abra}{\UTFmmm@ba}\fi
  \ifx\@testa\UTFema@ba \UTFtabra@ba{\mmm@abra}{\UTFema@ba}\fi
  \ifx\@testa\UTFemb@ba \UTFtabra@ba{\mmm@abra}{\UTFemb@ba}\fi
  \ifx\@testa\ba@emdash \tabra@ba{\mmm@abra}{\ba@emdash}\fi
  %%
  \ifx\@testa\ba@dk   \dk@abra{\ba@dk}\fi
  \ifx\@testa\glqq@baB \lqq@abra{\glqq@baB}\fi
  \ifx\@testa\xglqq@baB\lqq@abra{\xglqq@baB}\fi
  \ifx\@testa\glqq@baD \lqq@abra{\glqq@baD}\fi
  \ifx\@testa\xglqq@baD\lqq@abra{\xglqq@baD}\fi
  \ifx\@testa\grqq@baB \rqq@abra{\grqq@baB}\fi
  \ifx\@testa\xgrqq@baB\rqq@abra{\xgrqq@baB}\fi
  \ifx\@testa\grqq@baD \rqq@abra{\grqq@baD}\fi
  \ifx\@testa\xgrqq@baD\rqq@abra{\xgrqq@baD}\fi
  \ifx\@testa\Xdqch@ba\dq@abra{\Xdqch@ba{}}\fi
 \fi
 \if@abradone\else\unk@abra{{}#1{}}\fi}}

%% changed in 2.6:
 \def\oo@abra#1{\@batbrack{\if@batone{\kern  0.04em{#1}\kern -0.06em}  {\kern -0.11em{#1}}}}
 \def\cc@abra#1{\@batbrack{\if@batone{\kern  0.03em{#1}\kern -0.05em}  {\kern  0.01em{#1}\kern -0.12em}}}
  \def\o@abra#1{\@batbrack{\kern -0.02em{#1}\kern -0.02em}}
  \def\c@abra{\o@abra}
 \def\dq@abra#1{\mate@ba{#1}{\@batbrack{\if@batone{\kern -0.043em{#1}\kern -0.06em} {\kern  0.01em{#1}\kern -0.12em}}}}
 \def\lq@abra#1{\mate@ba{#1}{\@babbrack{\if@batone{\kern -0.02em{#1}\if@banewgerm{\kern -0.1034em}{\kern 0.02em}}{\kern -0.02em{#1}\kern 0.02em}}}}
 \def\rq@abra#1{\mate@ba{#1}{\@batbrack{\if@batone{\if@banewgerm{\kern -0.02em}{\kern -0.01em}{#1}\if@banewgerm{\kern -0.02em}{\kern -0.0875em}}  {\kern -0.0075em{#1}\kern -0.09em}}}}
\def\lqq@abra#1{\mate@ba{#1}{\@babbrack{\if@batone{\kern  0.03em{#1}\if@banewgerm{\kern -0.05em}{\kern -0.01em}}  {\kern  0.01em{#1}\kern -0.08em}}}}
\def\rqq@abra#1{\mate@ba{#1}{\@batbrack{\if@batone{\if@banewgerm{\kern  0.04em}{\kern 0.1075em}{#1}\if@banewgerm{\kern -0.06em}{\kern -0.1275em}}  {\kern -0.04em{#1}\kern -0.07em}}}}
%% new in 2.6:
\def\smfr@abra#1{\mate@ba{\strut #1\strut}{\fr@abra{#1}}}  %% \strut with-
\def\smfl@abra#1{\mate@ba{\strut #1\strut}{\fl@abra{#1}}}  %% out braces!
\def\mufl@abra#1{\if@batone{\ifmmode\unk@abra{#1}\else\ufl@abra{#1}\fi}{\unk@abra{#1}}}
\def\mufr@abra#1{\if@batone{\ifmmode\unk@abra{#1}\else\ufr@abra{#1}\fi}{\unk@abra{#1}}}
\def\moo@abra#1{\ifmmode\@batbrack{\if@batone{\kern -0.115em}{\kern -0.11em}{#1}\if@batone{\kern  0.0125em}{}}\else\oo@abra{#1}\fi}
\def\mc@abra#1{\ifmmode\kern -0.0025em\@batbrack{{#1}\kern -0.0025em}\else\c@abra{#1}\fi}
\def\mcc@abra#1{\ifmmode\@batbrack{\if@batone{\kern -0.02em}{\kern -0.0275em}{#1}\kern -0.0175em}\else\cc@abra{#1}\fi}
\def\ulqq@abra#1{\@babbrack{\if@batone{\kern  0.03em{#1}\kern -0.05em}  {\kern  0.01em{#1}\kern -0.08em}}}
\def\dk@abra#1{\mate@ba{#1}{\if@batone{\@babbrack{\kern  0.03em{#1}\kern -0.05em}}{\unk@abra{#1}}}}
\def\ddd@abra#1{\@babbrack{\kern  0.12em{#1}\ifdim\lastkern=\z@\kern\fontdimen3\font\fi\kern -0.08em}}  %% lastkern: babel-french
\def\dddt@abra#1{\mate@ba{#1}{\ddd@abra{#1}}}
\def\com@abra#1{\@babbrack{\if@batone{\kern -0.02em{#1}\kern -0.1034em}{\kern -0.02em{#1}\kern 0.02em}}}
 \def\fl@abra#1{\if@banewgerm{\@bambrack{\kern -0.05125em{#1}\kern 0.0075em}}{\@bambrack{{#1}\kern 0.04em}}}
 \def\fr@abra#1{\if@banewgerm{\@bambrack{\kern 0.025em{#1}\kern -0.07em}}{\@bambrack{\kern 0.04em{#1}}}}
 \def\ufl@abra#1{\if@batone{\@bambrack{\kern -0.05125em{#1}\kern 0.0075em}}{\@bambrack{{#1}\kern 0.04em}}}
 \def\ufr@abra#1{\if@batone{\@bambrack{\kern 0.025em{#1}\kern -0.07em}}{\@bambrack{\kern 0.04em{#1}}}}
 \def\xm@abra#1{\@bambrack{\kern -0.01em{#1}\kern -0.05em}}
\def\mxm@abra#1{\@bambrack{\kern -0.03em{#1}\kern -0.035em}}
  \def\m@abra#1{\ifmmode\mxm@abra{#1}\else\xm@abra{#1}\fi}
 \def\mm@abra#1{\@bambrack{\kern  0.03em{#1}\kern  0.03em}}
\def\mmm@abra{\mm@abra}
\def\dot@abra#1{\@babbrack{\kern -0.02em{#1}\kern -0.02em}}



\def\pbaromannum#1{{\romannumeral #1}}
\def\baromannum{\protect\pbaromannum}

\def\pbaRomannum#1{\uppercase\expandafter{\romannumeral #1}}
\def\baRomannum{\protect\pbaRomannum}


%%


                        %% Layout %%


\def\bakorr@fnr{}    %%{originalquote}%%
\let\fnrbasave=\footnoterule
\def\footnoterule{\bakorr@fnr\vfill\fnrbasave}
%% \vfill INSTEAD OF \flushbottom %%

%\footnotesep=2ex

\def\bibsortargs{unknown (no BibArts list printed yet)}

\def\@baposvskip{\vskip  \baselineskip \vskip  \lineskip}
\def\@banegvskip{\vskip -\baselineskip \vskip -\lineskip}
\newif\if@bibsortspace\@bibsortspacefalse
\newif\if@bibsorthead\@bibsortheadfalse
\def\do@bibsortspace{\@baposvskip\pagebreak[3]}
\def\do@twocolumnbsh#1{\@baposvskip\pagebreak[3]%
  \item{}\rule{5pt}{0pt}\nopagebreak
    \@baposvskip\rule{5pt}{0pt}\pagebreak[3]%    
  \item{}\@banegvskip\@banegvskip\@banegvskip
    {\@baheademph{#1}}\nopagebreak
  }
\def\do@onecolumnbsh#1{%
  \nopagebreak\@baposvskip\@baposvskip\pagebreak[3]\@banegvskip\item{}{\@baheademph{#1}}\nopagebreak
  }
\def\do@nobibsortspace{}
\def\do@nobibsorthead#1{}
\def\@baheademph{\normalfont\large\bfseries\sffamily}

\let\bibsortpreparespace\do@nobibsortspace
\let\bibsortpreparexspace\do@nobibsortspace
\let\bibsortpreparehead\do@nobibsorthead

\def\bibsortspaces{\protect\@bibsortspacetrue\protect\@bibsortheadfalse}
\def\notbibsortspaces{\protect\@bibsortspacefalse\protect\@bibsortheadfalse}
\def\bibsortheads{\protect\@bibsortspacefalse\protect\@bibsortheadtrue}
\def\notbibsortheads{\protect\@bibsortspacefalse\protect\@bibsortheadfalse}

\def\pbafootnoteframe#1{/#1/}
\def\bafootnoteframe{\protect\pbafootnoteframe}
\def\pbapageframe#1{/#1/}
\def\bapageframe{\protect\pbapageframe}



                %% Compatibility to BibArts 3.1 %%

\def\bib{\arq{}}
\def\printonlybib{\printonlyarq{}}
\def\addtobib{\addtoarq{}}
\newif\if@oldba\@oldbafalse
\def\makebar{\typeout@ba{ \space ***** \space That is obviously a file based on BibArts 1.x \space *****
   ^^J \space ***** \space BibArts 2.6 starts compatibility mode for 1.3 \space *****}%
  \def\bibarts{\BibArts}%
  \def\schrift{}%
  \def\barschrift{}%
  \def\indschrift{}%
  \newif\ifbibarts\bibartsfalse
  \newif\iffootnote\footnotefalse
  \def\Kapitell##1{}%
  \def\@Kapitell##1##2{}%
  \def\printind{\ba@textmode\type@bawarn{I use arq-list for 1.3 cmd \string\printind}%
    \Check@tcbalist{\@batwocoldefs}{\bibsortheads
     \def\arqlistemph{}\def\balistnumemph{}%
     \def\earqtitlename{Index}\def\farqtitlename{Index}%
     \def\garqtitlename{Index}\small}{num}{arq}{subsection}}%
  \@oldbatrue}
\def\printind{\errhelp{Forget so set \makebar to switch to BibArts 1.3 compatibility mode?}%
  \@qqertypeout{printind}{Expiring cmd.}\errmessage@ba{\string\printind\space without \string\makebar}}

\def\pstressing#1{\@bsphack\def\authoremph{\upshape\csname #1\endcsname}\@esphack}
 \def\stressing{\protect\pstressing}

\def\gbibmarkname{im Folgenden: }
\def\fbibmarkname{par la suite: }
\def\ebibmarkname{cited as: }
\def\pbibref#1{{#1} {\ba@varstringtrue\ba@varref{}{BIB}{#1}}}
 \def\bibref{\protect\pbibref}
\def\pxbibref#1#2{{#2} {\ba@varstringtrue\ba@varref{}{XBIB}{#1}}}
 \def\xbibref#1#2{\protect\pxbibref{#2}{#1}}
\def\pbibmark#1{{\cap@ba{bibmark}}{#1}{\ba@varstringtrue\ba@varlabel{}{BIB}{#1}}}
 \def\bibmark{\protect\pbibmark}
\def\pxbibmark#1#2{{\cap@ba{bibmark}}{#1}{\ba@varstringtrue\ba@varlabel{}{XBIB}{#2}}}
 \def\xbibmark{\protect\pxbibmark}


\message{Load BibArts\string: End.}

\endinput
