%  biblio.cd
%  Anders G S Svensson

%  Source: biblio.nw
%          $Revision: 1.1 $
%          $Date: 1996/02/23 01:01:48 $

\usecarrot{cite,environ,xr}

\def\biblio@begin@{\par
   \readcxr \opencxr
   \@settodimen@\leftskip\wd{\citetag{\biblio@widest@}}%
   \advance\leftskip by \bibindent\relax
   \parindent\z@
   \biblio@bibliodefs@}

\let\biblio@widest@\@empty@
\def\bibindent{2em}
\def\bibsep{12pt plus 1pt minus 1pt}

\def\biblio@entry@begin@#1{\par
   \penalty-100
   \@settodimen@\@d@\wd{\citetag{#1}}%
   \setbox\@b@=\hbox{\citetag\biblio@widest@}%
   \ifdim\@d@>\wd\@b@ \gdef\biblio@widest@{#1}\fi
   \leavevmode\llap{\hbox to \leftskip{\citetag{#1}\hss}}%
   \parskip\bibsep\relax}

\def\biblio@end@{\par
   \writecxr{\gdef\noexpand\biblio@widest@{\biblio@widest@}}}
\def\abbrev{\@ifnextchar@[\biblio@def@\biblio@ref@}
\def\biblio@def@[#1]#2{%
   \def\@tmp@{#1}\definexr{@abbrev@#2@}{\@meaning@\@tmp@}{@abbrev@}}
\def\biblio@ref@#1{\refxr{@abbrev@#1@}}

\let\@abbrev@tag\@echo@

{\catcode`\/=13
 \catcode`\|=13
 \catcode`\*=13
 \catcode`\#=13
 \catcode`\%=6

 \gdef\biblio@bibliodefs@{
    \catcode`\/=13 \catcode`\|=13 \catcode`\*=13 \catcode`\#=13
    \def/{\@ifnextchar@{\noexpand/}{\biblio@slash@}{\biblio@it@}}
    \def|{\@ifnextchar@{\noexpand|}{\biblio@bar@}{\biblio@bf@}}
    \def*{\@ifnextchar@{\noexpand*}{\biblio@star@}{\biblio@ref@}}
    \let#\bibentry
    \biblio@contplus@ \let\\\biblio@newline@}

 \xdef\biblio@contplus@{\let\noexpand\+\noexpand\biblio@contline@}

 \gdef\biblio@it@%1/{{\it \let/\biblio@slash@ %1}\@ifnextchar@.{}{\@ifnextchar@,{}{\/}}}
 \gdef\biblio@bf@%1|{{\bf \let|\biblio@bar@ %1}}
}
\def\biblio@slash@#1{/}\def\biblio@bar@#1{|}\def\biblio@star@{*}
\def\biblio@newline@{\hfil\break}
\def\biblio@contline@{\biblio@newline@\hbox to 1em{\hfil}}
\def\bibentry{\@ifnextchar@[\biblio@entry@\biblio@entry@noopt@}
\def\biblio@entry@[#1]#2{\citedef{#2}{#1}%
   \biblio@entry@begin@{#1}\ignorespaces}
\def\biblio@entry@noopt@#1{%
   \@Warning@{Missing biblio label: #1}%
   \biblio@entry@[?]{#1}}

\DeclareOption{numeric}
   {\usecarrot{counter}
    \newcounter{bibentry}
    \def\biblio@entry@[#1]#2{\biblio@entry@noopt@{#2}}
    \def\biblio@entry@noopt@#1{%
       \stepcounter{bibentry}%
       \citedef{#2}{\thebibentry}%
       \biblio@entry@begin@\thebibentry}}

\DeclareOption{block}
   {\newgroup*{biblio}{\biblio@begin@}{\biblio@end@}}

\DeclareOption{environ}
   {\newgroup{biblio}{\biblio@begin@}{\biblio@end@}}

\IfOption{block}{}{\Option{environ}}

% Local Variables:
% mode:TeX
% End: