\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{authorindex}[2005/03/22 make index of authors cited in a work]
% \ainame and \aipages determine the format of the author name and the page
% list, respectively, and are to be \renewcommand-ed explicitly by the user.
% \aibibpage and \aifirstpage are styles for pages where works appear in the
% references and where the author is the first author of the work, respectively
\def\ainame#1{#1}
\def\aitop#1{#1}
\def\airep#1{#1}
\def\aifirst#1{#1}
\def\aipages#1{#1}
\def\aibibpage#1{#1}
\def\aifirstpage#1{#1}
% The following stuff can be changed via options to \usepackage
\newcommand\aisize{}
\def\@ainamefmt{}
\def\@aieditors{0}
\def\@aiwhat{pages}
% These Options will be handled directly by LaTeX
\DeclareOption{small}{\renewcommand\aisize{\small}}
\DeclareOption{normal}{\renewcommand\aisize{\normalsize}}
% These Options will go to the perl script and be used to build the .bst file.
\let\aioptions\@gobble
\DeclareOption{editors}{\renewcommand\@aieditors{2}}
\DeclareOption{avoideditors}{\renewcommand\@aieditors{1}}
\DeclareOption{onlyauthors}{\renewcommand\@aieditors{0}}
\DeclareOption{fullname}{\renewcommand\@ainamefmt{{vv }{ll}{, ff}{, jj}}}
\DeclareOption{lastname}{\renewcommand\@ainamefmt{{vv }{ll}}}
\DeclareOption{firstabbrev}{\renewcommand\@ainamefmt{{vv }{ll}{, f.}{, jj}}}
\DeclareOption{all}{\def\@aiwhich{9999}\def\@aitrunc{9999}}
\DeclareOption{onlyfirst}{\def\@aiwhich{1}\def\@aitrunc{1}}
\DeclareOption{miniindex}{\AtBeginDocument{%
    \if@filesw\immediate\write\@auxout{\string\aiinbibflag}\fi}}%
\DeclareOption{nocompress}{\AtBeginDocument{%
    \if@filesw\immediate\write\@auxout{\string\ainocompressflag}\fi}}%
\DeclareOption{pages}{\renewcommand\@aiwhat{pages}}
\DeclareOption{biblabels}{\renewcommand\@aiwhat{labels}}
\DeclareOption{withbib}{\AtBeginDocument{%
  \let\@aiobibitem=\@bibitem\let\@aiolbibitem=\@lbibitem%
  \def\@lbibitem[#1]#2{\@aiolbibitem[#1]{#2}%
    \if@filesw{\protected@write\@auxout{}
      {\string\bibpage{#2}{\theaipage}}}\fi\ignorespaces}%
  \def\@bibitem#1{\@aiobibitem{#1}%
    \if@filesw{\protected@write\@auxout{}
      {\string\bibpage{#1}{\theaipage}}}\fi\ignorespaces}}}%
\ExecuteOptions{normal,fullname,all}
\ProcessOptions
% make sure options and filename are  transfered to the perl script.
\expandafter\AtBeginDocument{\if@filesw\immediate{%
    \write\@auxout{%
      \string\aioptions{\@aieditors|\@ainamefmt|\@aiwhich|\@aitrunc|\@aiwhat}}%
    \write\@auxout{\string\aifilename{\jobname.ain}}}%
  \fi%
  \def\aipagetypeorder{\@notprerr}%  Generate error messages when used outside
  \def\aimaxauthors{\@notprerr}%     preamble.
  \def\authorindexstyle{\@notprerr}%
  \def\aisee{\@notprerr}%
  \def\aialso{\@notprerr}%
  \def\aitwosuffix{\@notprerr}%
  \def\ainamefmt{\@notprerr}}
% Define commands to be put in the .aux file and only used by the perl script.
\let\pagetypeorder\@gobble
\let\aiseestring\@gobble
\let\aitwostring\@gobble
\let\ainocompressflag\relax
\let\aiinbibflag\relax
\let\aistyle\@gobble
\let\citationpage\@gobbletwo
\let\bibpage\@gobbletwo
\let\aiexplicit\@gobbletwo
\let\aifilename\@gobble
\let\aialsostrings\@gobbletwo
\let\aibibcite\@gobbletwo
% By default, the numbers that appear in the index are the same that appear on
% the pages. In case this does not suffice for everybody (for example, in a 2 
% volume book, one might want the volume number appear in the index, but not
% in the page numbering) one can redefine this:
\def\theaipage{\thepage}
% determine the relative order of different numbering types (roman, arabic,...)
\def\aipagetypeorder#1{\AtBeginDocument{%
    \if@filesw\immediate\write\@auxout{\string\pagetypeorder{#1}}\fi}}%
% determine string by which first author is cross referenced
\def\aisee#1{\AtBeginDocument{%
    \if@filesw\immediate\write\@auxout{\string\aiseestring{#1}}\fi}}%
% determine string by which first authors are cross referenced
\def\aialso#1#2{\AtBeginDocument{%
    \if@filesw\immediate\write\@auxout{\string\aialsostrings{#1}{#2}}\fi}}%
% determine string for abbreviation of two subsequent pages
\def\aitwosuffix#1{\AtBeginDocument{%
    \if@filesw\immediate\write\@auxout{\string\aitwostring{#1}}\fi}}%
% determines representation of miniindices
\def\aibibindex#1{\{\textbf{#1}\}}
\def\bibindex#1{\ifx\\#1\\\@bsphack\@esphack\else\aibibindex{#1}\fi}
% \authorindexstyle{x} writes \aistyle{x} to the .aux-file. x later will be
% used to select the x.bst as the bibstyle used to generate the author list
% from the database (overriding the generated .bst file).
\def\authorindexstyle#1{\AtBeginDocument{%
  \if@filesw\immediate\write\@auxout{\string\aistyle{#1}}\fi}}
% determine formating and order of names
\def\ainamefmt#1{\def\@ainamefmt{#1}}
% Allow for other max. number of authors apart from 1 and 9999.
% First Argument lets us determine to how many authors to truncate the list.
\def\aimaxauthors{\@ifnextchar[\@aitruncmaxauthors\@aimaxauthors}
\def\@aitruncmaxauthors[#1]#2{\def\@aitrunc{#1}\def\@aiwhich{#2}}
\def\@aimaxauthors#1{\def\@aitrunc{#1}\def\@aiwhich{#1}}
% \aicite behaves similar to cite, but additionally writes for each key given
\def\@aicitey#1{%
  \@for\@citeb:=#1\do
  {\protected@write\@auxout{}%
      {\string\citationpage{\@citeb}{\theaipage}}}}
\def\@aicitex[#1]#2{\@citex[#1]{#2}\@aicitey{#2}}
% \aicite behaves similar to cite, but additionally writes for each key given
\DeclareRobustCommand\aicite{%
  \@ifnextchar [{\@tempswatrue\@aicitex}{\@tempswafalse\@aicitex[]}}%
\let\@oldnocite=\nocite
\def\ainocite#1{\@aicitey{#1}\@oldnocite{#1}}
\def\aionly{\@aicitey}
% \aimention gets authors BibTeX author name format to be included in the
% author index without having any reference of a work of that author.
\def\aimention#1{\@bsphack%
  \protected@write\@auxout{}{\string\aiexplicit{#1}{\theaipage}}\@esphack}
% include author index
\newcommand\printauthorindex{\@input@{\jobname.ain}}
% the theauthorindex environment
\newenvironment{theauthorindex}{%
  \raggedright%
  \setlength{\leftskip}{1em}%
  \setlength{\parindent}{-1em}%
  \def\item[##1]{\par\hspace{0mm}\ainame{##1}}
  \aisize}{\par}
\endinput