path: root/tex/context/base/mkxl/bibl-tra.mkxl

%D \module
%D   [       file=bibl-tra,
%D        version=2009.08.22,
%D          title=\CONTEXT\ Publication Module,
%D       subtitle=Publications,
%D         author=Taco Hoekwater,
%D           date=\currentdate,
%D      copyright={Public Domain}]
%C
%C Donated to the public domain.

%D This is really obsolete in \LMTX. For now I keep it but it will either go
%D away. The code is not upgraded, we only deal with macro protection. I will
%D only update the bits that annoy me in grepping for possible optimizations.

% % % % watch out ... bibl-tra-new.mkiv is work in progress % % % %

% % % % mlbibtex also supports context and we can run that instead of bibtex % % % %

%D This module has been adapted to \MKIV\ by Hans Hagen so if things go wrong, he is
%D to blame. The changes concern references and lists but teh rendering itself is
%D unchanged. Future versions might provide variants as we have plans for an
%D upgrade.
%D
%D We use a still somewhat experimental extension to the list mechanism. Eventually
%D the bibtex module will use the bibl loader and access the data by means of lpath
%D expressions. In that case we don't need to process the bibliography but still
%D need to track usage as done here.
%D
%D A bit ongoing: make more local macros prefixed with bib, i.e. the bib namespace
%D is reserved.

%D Todo: commandhandler

\writestatus{loading}{ConTeXt Bibliography Support / BibTeX}

\definefilesynonym[bib][obsolete]

\registerctxluafile{bibl-tra}{}

%D The original was developed independantly by Taco Hoekwater while still working
%D for Kluwer Academic publishers (it still used the dutch interface then).
%D Development continued after he left Kluwer, and in Januari 2005, the then already
%D internationalized file was merged with the core distribution by Hans Hagen. The
%D current version is once again by Taco.
%D
%D More documentation and additional resources can be found on the contextgarden:
%D \hyphenatedurl {http://wiki.contextgarden.net//Bibliography}.

%D \subject{DONE (dd/mm/yyyy)}
%D
%D \startitemize
%D \item add author definition (and associated system variable) (26/05/2005)
%D \item add finalnamesep support for Oxford comma (17/09/2005)
%D \item add \type{\insert...} for: doi, eprint, howpublished (19/09/2005)
%D \item allow a defaulted \type{\setupcite} (19/11/2005)
%D \item renamed citation type 'number' to 'serial' (19/11/2005)
%D \item better definition of \type{\inverted...author} (19/11/2005)
%D \item don't reset [numbercommand] in \type {\setuppublication} by default (20/11/2005)
%D \item don't disable other \type {\setuppublication} keys if alternative is present (20/11/2005)
%D \item drop \type{\sanitizeaccents} (20/11/2005)
%D \item added \type{\nocite} and \type{\cite[none]} (21/11/2005)
%D \item added headtext for it  (23/11/2005)
%D \item make \type{\cite[url]} and \type{\cite[doi]} interactive (23/11/2005)
%D \item make right-aligned labels in the list work even when autohang=no
%D \item use 'et al.' instead of 'et.al.'. Pointed out by Peter M\"unster (30/12/2005)
%D \item added headtext for cz (31/12/2005)
%D \item Keep whitespace after \type{\cite} with single argument (31/12/2005)
%D \item Fix broken \type{\cite{}} support (31/12/2005)
%D \item Use \type{\readfile} inside \type{\usepublications} instead of \type{\readsysfile} (12/01/2006)
%D \item Use \type{\currentbibyear} and \type{\currentbibauthor} instead of \type{\YR} and \type{\AU} (05/02/2006)
%D \item Fix compressed version of authoryear style (05/02/2006)
%D \item Rename the clashing data fields \type{\url} and \type{\type} to \type{\biburl} and \type{\bibtype} (05/02/2006)
%D \item Added two french bibl files from Renaud Aubin (06/02/2006)
%D \item Five new bib class and eight extra bib fields, for IEEEtran (07/02/2006)
%D \item French keyword translation, provided by Renaud (08/02/2006)
%D \item fix underscores in undefined keys (22/02/2006)
%D \item Destroy interactivity in labels of the publication list (13/03/2006)
%D \item fix multi-cite list compression (11/4/2006)
%D \item fix \type{\getcitedata} (11/4/2006)
%D \item magic for chapter bibs (18-25/4/2006)
%D \item language setting (25/4/2006)
%D \item use \type{\hyphenatedurl} for \type{\inserturl} (25/4/2006)
%D \item Add \type{\docitation} to \type{\nocite}(26/4/2006)
%D \item patents can have numbers, added to bst files (26/4/2006)
%D \item \type{\docitation} needs a \type{\iftrialtypesetting} (27/4/2006)
%D \item \type{\filllocalpublist}'s loop is bound by definedness, not resolvedness (27/4/2006)
%D \item \type{\setuppublications[monthconversion=]} added (15/5/2006)
%D \item use \type{\undefinedreference} instead of bare question marks (15/5/2006)
%D \item add grouping around \type{\placepublications} commands (16/5/2006)
%D \item fix a bug in \type{\cite{<item>}} (17/5/2006)
%D \item support \type{\cite[authornum]} (18/5/2006)
%D \item make \type{\cite} unexpandable (20/6/2006)
%D \item allow hyperlinks in author\&year combo's
%D       (cite list compression has to be off) (20/6/2006)
%D \item fix duplicate labels for per-chapter style (20/6/2006)
%D \item allow \type{\setupcite[interaction=(start|stop)]}
%D \item fix the item number in the publication list with 'numbering=yes' (22/6/2006)
%D \item make the default criterium for \type{\placepublications} be \type{previous} (23/6/2006)
%D \item fix \type{\normalauthor} and \type{\normalshortauthor} spacing (29/6/2006)
%D \item do not typeset empty arguments to \type{\typesetapublication} (29/6/2006)
%D \item add \type{symbol=none} to \type{\setuplist} in unnumbered
%D       mode to prevent typesetting of bare numbers (29/6/2006)
%D \item remove two incorrect spaces from bibl-num.tex (1/7/2006)
%D \item reset font styles within \type{\cite}, so that font switches
%D       in \type{left} stay in effect (12/7/2006)
%D \item guard added against loading bbl files multiple times (13/7/2006)
%D \item fix \type{\cite[num]} with compression is on. (14/7/2006)
%D \item test \type{\iflocation} before deciding to use the
%D       interactive version of cite (18/7/2006)
%D \item support \type{\setupcite[authoretallimit=1]} (18/7/2006)
%D \item support use of \type{\cite} within titles and captions by
%D       saveguarding the list item extraction and reference placement
%D       code (19/7/2006)
%D \item support \type{\setuppublicationlist[title=\chapter]} (4/8/2006)
%D \item use the expansion of \type{\headtext{pubs}} (4/8/2006)
%D \item hook added for repeated authors in publication list
%D       \type{\setuppublicationlist[artauthorcommand=\mythreeargscommand]}
%D       (4/8/2006)
%D \item make the bracketed arguments of \type{\artauthor}, \type{\author}
%D        and \type{\editor} (bbl commands) optional (4/8/2006)
%D \item the constants \type{sorttype}, \type{compress} and
%D        \type{autohang} have moved to the core (8/8/2006)
%D \item bibtex is now registered as a program to be run by texexec (8/8/2006)
%D \item fix a bug in \type{\setupcite[authoretallimit=1]} (9/8/2006)
%D \item fix a bug inside citations that prevented lastpubsep from ever being
%D       used due to a volatile \type{\commalistsize} (25/8/2006).
%D \item added the possibility of \type{\placepublications[option=continue]}
%D       (6/9/2006)
%D \item Mojca translated Master's Thesis to Masterarbeit (bibl-apa-de.tex)
%D       (12/9/2006)
%D \item Added \type{\setuppublicationlist[maybeyear=off]} by request from
%D       Thomas Schmitz (15/9/2006)
%D \item Removed some spurious spaces pointed out by willi egger (19/9/2006)
%D \item Add configuration of bibtex executable name (4/11/2006)
%D \item Fix numbering=short and numbering=bib (spotted by Matthias W\"achter) (4/11/2006)
%D \item third attempt to get a correct release (5/11/2006)
%D \item fix a few missing dots in bibl-num.tex  (7/12/2006)
%D \item Patch for DOI's by Tobias Burnus (17/4/2007)
%D \item Patch for \type{\insertbiburl} and \type{\insertdoi} for  Tobias Burnus (18/4/2007)
%D \item Added a missing \type{\relax} in \type{\dospecialbibinsert},
%D       that made the space before the {\it et al.} text disappear.  (18/4/2007)
%D \item Attempt to fix percent signs in bbl files. As a side-effect,
%D       this prohibits comments in \tex{startpublication} blocks! (17/4/2008)
%D \item Patch from Matthias W\"achter that allows arbitrary .bst
%D        files to be used with \tex{setupbibtex} (25/9/2008)
%D \item Extended for the new multilingual setups for the Oct 2008 current of ConTeXt (23/10/2008)
%D \item Multilingual setups needed another fix (27/10/2008)
%D \item Two fixes for bibl-apa by Michael Green (27/10/2008)
%D \item Catalan translation of 'References' (10/11/2008)
%D \item 'chapter' -> 'chapitre' in bibl-apa-fr (27/11/2008)
%D \item Run bibtex via os.execute in  mkiv modee (01/12/2008)
%D \item Small correction in bibl-apa's placement of volume
%D       information in articles (05/01/2009)
%D \item Handle multi-author (more than two) cases in \type{\cite}
%D       (02/03/2009)
%D \item Suppress a syntax error in \type{cont-xp} mode. The output is
%D       probably not right, though (02/03/2009)
%D \item Added a \tex{loadmarkfile} at the end, and two new files
%D       from Hans. The \type{t-bib.mkiv} is needed to make the module
%D       work with the new structure code (17/04/2009)
%D \item Added a patch to \type{t-bib.mkiv} from Hans to make the
%D       cross referencing between multiple citations an
%D       bibliographies work (27/04/2009)
%D \item Remove a superfluous \type{\unprotect} in t-bib.mkiv (11/05/2009).
%D \item Patch of incollection in bibl-ams.tex from Xan (08/06/2009).
%D \item Patch of unpublished in bibl-ams.tex from Xan (22/07/2009).
%D \item Modified \type{\bibdogetupsometextprefix} so it works for undefined
%D       language labels, from Hans (13/08/2009).
%D \item Adapt referencing and list insertion to \MKIV. Update some code
%D       to the latest \CONTEXT. Change some names in order to avoid conflicts
%D       with existing core names (like \type {\insertpages}).
%D \item All constants, variables, message etc.\ are now in the core.
%D \item Added key: \type {method} (when \type {global}, previous shown entries are
%D       not shown again, when \type {local} they are repeated).
%D \stopitemize
%D
%D \subject{WISHLIST}
%D
%D \startitemize
%D \item link back from publication list to citation
%D \item export \type {\citation{<cited item>}}
%D \item support mlbibtex
%D \item don't load the whole lot, but filter entries instead
%D \item 9 vs 10, 19 vs 20 ... prevent extra runs when only subtle changes in wd of reference
%D \stopitemize

\unprotect

\def\biblistname{pubs} % for compatibility

\definelist
  [pubs]

\setuplist
  [pubs]
  [\c!state=\v!start,
   \c!criterium=\@@pbcriterium,
   \c!headnumber=\v!always, % needed as we provide our own and need to force
   \c!width=]

\installstructurelistprocessor{pubs:userdata}%
  {\ctxlua{bibtex.hacks.add(structures.lists.uservalue("\currentlist",\currentlistindex,"bibref"),\currentlistindex)}}

\ifdefined\bibtexblock   \else \newinteger\bibtexblock   \fi \bibtexblock\plusone
\ifdefined\bibtexcounter \else \newinteger\bibtexcounter \fi

%D \macros{bibdoif,bibdoifnot,bibdoifelse}
%D
%D Here are a few small helpers that are used a lot in all the typesetting commands
%D (\type{\bibinsert...}) we will encounter later.

\protected\def\bibdoifelse#1%
  {\expandafter\def\expandafter\!!stringa\expandafter{#1}%
   \ifempty\!!stringa
     \expandafter\secondoftwoarguments
   \else
     \expandafter\firstoftwoarguments
   \fi}

\protected\def\bibdoifnot#1%
  {\expandafter\def\expandafter\!!stringa\expandafter{#1}%
   \ifempty\!!stringa
     \expandafter\firstofoneargument
   \else
     \expandafter\gobbleoneargument
   \fi}

\protected\def\bibdoif#1%
  {\expandafter\def\expandafter\!!stringa\expandafter{#1}%
   \ifempty\!!stringa
     \expandafter\gobbleoneargument
   \else
     \expandafter\firstofoneargument
   \fi}

%D Unfortunately, \BIBTEX\ is not the best configurable program around. The names of
%D the commands it parses as well as the \type {.aux} extension to the file name are
%D both hardwired.
%D
%D This means \CONTEXT\ has to write a \LATEX-style auxiliary file, yuk! The good
%D news is that it can be rather short. We'll just ask \BIBTEX\ to output the entire
%D database(s) into the \type {bbl} file.
%D
%D The \type {\bibstyle} command controls how the \type {bbl} file will be sorted.
%D The possibilities are:
%D
%D \startitemize[packed]
%D \item by author (+year, title): cont-au.bst
%D \item by title  (+author, year): cont-ti.bst
%D \item by short key as in abbrev.bst: cont-ab.bst
%D \item not sorted at all: cont-no.bst
%D \stopitemize

\newtoks\everysetupbibtex

\protected\def\setupbibtex
  {\dosingleempty\dosetupbibtex}

\protected\def\dosetupbibtex[#1]%
  {\lettonothing\@@pbdatabase
   \getparameters[\??pb][#1]%
   \the\everysetupbibtex}

\protected\def\installbibtexsorter#1#2%
  {\setvalue{\??pb:\c!sort:#1}{#2}}

\installbibtexsorter\v!no     {no}
\installbibtexsorter\v!author {au}
\installbibtexsorter\v!title  {ti}
\installbibtexsorter\v!short  {ab}
\installbibtexsorter\empty    {no}
\installbibtexsorter\s!default{no}

\def\thebibtexsorter{\executeifdefined{\??pb:\c!sort:\@@pbsort}\@@pbsort}

\appendtoks
   \ifempty\@@pbdatabase\else
     \doifmode{*\v!first}{\ctxlua{bibtex.hacks.process { style="\thebibtexsorter", database="\@@pbdatabase" }}}%
   \fi
\to \everysetupbibtex

\setupbibtex
  [\c!sorttype=\v!cite,
   \c!sort=no]

%D \macros{iftypesetall,ifbibcitecompress}
%D
%D The module needs some new \type{\if} statements.

\newtoks\everysetuppublications

\protected\def\setuppublications
  {\dosingleargument\dosetuppublications}

\protected\def\dosetuppublications[#1]%
  {\getparameters[\??pb][\c!alternative=,#1]%
   \doifsomething\@@pbalternative
     {\readsysfile{bibl-\@@pbalternative.tex}
        {\showmessage\m!publications{6}{bibl-\@@pbalternative}}
        {\showmessage\m!publications{1}{bibl-\@@pbalternative}}%
      \lettonothing\@@pbalternative}%
   \let\setuppublicationlayout\normalsetuppublicationlayout % overloaded in bibl-num ... vadjust needs to be done with option
   \getparameters[\??pb][#1]% as bibl-* can have set things back
   \the\everysetuppublications
   \ignorespaces}

%D We can omit already shown references (\v!global) or use fresh lists each time
%D (\v!local).

\setnewconstant\bibtexoncemode\plusone % 0=disable, 1=local, 2=global

\appendtoks
  \doifelse\@@pbmethod\v!local
    {\bibtexoncemode\plusone}%
    {\bibtexoncemode\plustwo}%
\to \everysetuppublications

%D Cite lists are compressed, if possible. This is set later on.

\newif\ifbibcitecompress\bibcitecompresstrue

\def\@@pbinumbercommand{\executeifdefined{\??pb:\c!numbercommand:\@@pbnumbering}\firstofoneargument}

\setvalue{\??pb:\c!numbercommand:\v!yes  }#1{#1}%
\setvalue{\??pb:\c!numbercommand:\v!no   }#1{}
\setvalue{\??pb:\c!numbercommand:\v!short}#1{\bibgetvars\currentpublicationkey}
\setvalue{\??pb:\c!numbercommand:\v!bib  }#1{\bibgetvarn\currentpublicationkey}

% to be tested
%
% \setvalue{\??pb:\c!numbercommand:\v!short}{\bibgetvars\currentpublicationkey\firstofoneargument}
% \setvalue{\??pb:\c!numbercommand:\v!bib  }{\bibgetvarn\currentpublicationkey\firstofoneargument}

\appendtoks
  \processaction
    [\@@pbrefcommand]
    [\s!default=>\edef\@@citedefault{\@@pbrefcommand},
     \s!unknown=>\edef\@@citedefault{\@@pbrefcommand}]%
\to \everysetuppublications

\protected\def\bibleftnumber#1{#1\hfill~}

%D \macros{usepublications}
%D
%D After discussing it with Thomas Schmitz it became clear that using external
%D references makes no sense as one needs to refer to it in special ways and because
%D similar numbers can be confusing. So, for the moment this is not supported in
%D \MKIV. (So no: see reference [3-5,9] in "some other document")

\protected\def\usepublications[#1]%
  {\processcommalist[#1]\dousepublications}

\protected\def\dousepublications#1%
  {\doonlyonce{#1.\f!bibextension}{\dodousepublications{#1}}}

\pushoverloadmode

\protected\def\dodousepublications#1% brr, this par stuff
  {\enforced\let\par\ignorespaces
   \ifhmode\kern\zeropoint\fi
   \pushcatcodetable
   \setcatcodetable\ctxcatcodes
   \readfile{#1.\f!bibextension}
     {\showmessage\m!publications{4}{#1.\f!bibextension}}
     {\showmessage\m!publications{2}{#1.\f!bibextension}}%
   \popcatcodetable
   \ifhmode\removeunwantedspaces\fi
   \enforced\let\par\normalpar}

\popoverloadmode

%D \macros{setuppublicationlist}
%D
%D This will be the first command in (\BIBTEX-generated) \type {bbl} files. \quote
%D {samplesize} is a sample value (in case of \BIBTEX|-|generated files, this will
%D be the longest \quote {short} key). Here \quote {totalnumber} is the total number
%D of entries that will follow in this file.
%D
%D Both values are only needed for the label calculation if \quote {autohang} is
%D \quote {true}, so by default the command is not even needed, and therefore I saw
%D no need to give it it's own system variable and it just re-uses \type {pb}.

\def\publicationlistparameter#1{\csname\??pv:l:#1\endcsname}

\protected\def\setuppublicationlist
  {\dosingleempty\dosetuppublicationlist}

\protected\def\dosetuppublicationlist[#1]%
  {\getparameters[\??pv:l:][#1]%
   \setuplist[pubs][\c!samplesize={AA99},\c!alternative=a,\c!interaction=,\c!pagenumber=\v!no,#1,\c!command=]}

\protected\def\setuppublicationlayout[#1]#2%
  {\setvalue{\??pv:l:#1}{#2}}

\let\normalsetuppublicationlayout\setuppublicationlayout

\setuppublicationlist
  [\c!title=,
   \c!command=\dospecialbibinsert,
   \c!maybeyear=\v!on]

%D \macros{bibalternative}
%D
%D A nice little shorthand that will be used so we don't have to key in the weird
%D \type {\@@pv} parameter names all the time.

\def\bibalternative#1%
  {\csname\??pv\@@currentalternative#1\endcsname}

%D \macros{simplebibdef,bibcommandlist}
%D
%D \type {\simplebibdef} defines \type {bib@#1}, which in turn will use one argument
%D that is stored in \type {@@pb@#1}.
%D
%D \type {\simplebibdef} also defines \type {bibinsert#1}, which can be used in the
%D argument of \type {\setuppublicationlayout} to fetch one of the \type {@@pb@}
%D data entries. \type {bibinsert#1} then has three arguments: \type {#1} are
%D commands to be executed before the data, \type {#2} are commands to be executed
%D after the data, and \type {#3} are commands to be executed if the data is not
%D found.
%D
%D \type {\bibcommandlist} is the list of commands that is affected by this
%D approach. Later on, it will be used to do a series of assignments from \type {#1}
%D to \type {bib@#1}: e.g \type {\title} becomes \type {\bib@title} when used within
%D a publication.

\newtoks\initializebibdefinitions % we need to prevent clashes

\protected\def\simplebibdef#1% hh: funny expansion ?
  {\expandafter\def\csname bib@#1\endcsname##1%
     {\setvalue{\??pb @#1}{##1}\ignorespaces}%
   \expandafter \appendtoks
     \expandafter\let\csname insert#1\expandafter\endcsname\csname bibinsert#1\endcsname
   \to \initializebibdefinitions
   \expandafter\protected\expandafter\def\csname bibinsert#1\endcsname##1##2##3%
     {\expandafter\bibdoifelse\expandafter{\csname\??pb @#1\endcsname}{##1\csname\??pb @#1\endcsname##2}{##3}}}

\def\bibcommandlist
  {abstract, annotate, arttitle, assignee, bibnumber, bibtype, biburl, chapter, city,
   comment, country, day, dayfiled, doi, edition, eprint, howpublished, isbn, issn,
   issue, journal, keyword, keywords, lastchecked, month, monthfiled, names, nationality,
   note, notes, organization, pages, pubname, pubyear, revision, series, size, thekey,
   title, volume, yearfiled}

\processcommacommand[\bibcommandlist]\simplebibdef

\protected\def\bibinsertdoi#1#2#3% let's see how this fails
  {\bibdoifelse{\@@pb@doi}{#1\expanded{\bibgotoDOI{\@@pb@thekey}{\@@pb@doi}}#2}{#3}}

\protected\def\bibinsertbiburl#1#2#3% let's see how this fails
  {\bibdoifelse{\@@pb@biburl}{#1\expanded{\bibgotoURL{\@@pb@thekey}{\@@pb@biburl}}#2}{#3}}

\protected\def\bibinsertmonth#1#2#3%
  {\bibdoifelse\@@pb@month
     {#1\doifelsenumber\@@pb@month
       {\doifelseconversiondefined\@@pbmonthconversion
          {\convertnumber\@@pbmonthconversion\@@pb@month}{\@@pb@month}}%
          {\@@pb@month}#2}%
     {#3}}

\appendtoks
    \let\inserturl \bibinsertbiburl  % for backward compat.
    \let\inserttype\bibinsertbibtype % for backward compat.
\to\initializebibdefinitions

\protected\def\newbibfield[#1]%
  {\simplebibdef{#1}%
   \edef\bibcommandlist{\bibcommandlist,#1}}

%D \macros{complexbibdef,specialbibinsert}
%D
%D The commands \type {\artauthor}, \type {\author} and \type {\editor} are more
%D complex than the other commands. Their argument lists have this form:
%D
%D \type{\author[junior]{firstnames}[inits]{von}{surname}}
%D
%D (bracketed stuff is optional)
%D
%D And not only that, but there also might be more than one of each of these
%D commands. This is why a special command is needed to insert them, as well as one
%D extra counter for each command.

% todo: instead of \getvalue {bla@num} in specs we should do \bibentrynum {bla} so
% that we can create a better namespace

%D All of these \type {\expandafter}'s and \type {\csnames} make this code look far
%D more complex than it really is. For example, the argument \type {author} defines
%D the macro \type {\bib@author} to do two things: increment the counter \type
%D {\author@num} (let's say to 2) and next store it's arguments in the macro \type
%D {\@@pb@author2}. And it defines \type {\bibinsertauthors} to expand into
%D
%D \starttyping
%D \specialbibinsert{author}{\author@num}{<before>}{<after>}{<not>}
%D \stoptyping

\protected\def\docomplexbibdef#1%
  {\dodoubleempty\dodocomplexbibdef[#1]}

\protected\def\dodocomplexbibdef[#1][#2]#3%
  {\doquadrupleempty\dododocomplexbibdef[#1][#2][#3]}

\protected\def\dododocomplexbibdef[#1][#2][#3][#4]#5#6%
  {\expandafter\increment\csname#1@num\endcsname % todo: bib in name
   \setevalue{\??pb @#1\csname#1@num\endcsname}{{#3}{#5}{#6}{#4}{#2}}\ignorespaces}

\protected\def\complexbibdef#1%
  {\expandafter\newcounter\csname #1@num\endcsname
   \expandafter\def\csname bib@#1\endcsname{\docomplexbibdef{#1}}%
   \expandafter \appendtoks
     \expandafter\let\csname insert#1s\expandafter\endcsname\csname bibinsert#1s\endcsname
   \to \initializebibdefinitions
   \expandafter\def\csname bibinsert#1s\endcsname##1##2##3{\specialbibinsert{#1}{\csname #1@num\endcsname}{##1}{\unskip ##2}{##3}}}

\processcommalist[author,artauthor,editor]\complexbibdef

%D Another level of indirection is needed to control the typesetting of all of these
%D arguments.

\newinteger\etallimitcounter
\newinteger\etaldisplaycounter
\newinteger\todocounter

\protected\def\specialbibinsert#1#2#3#4#5%
  {\bgroup
   \ifnum#2>\zerocount
     \etallimitcounter  =0\bibalternative{#1etallimit}\relax
     \etaldisplaycounter=0\bibalternative{#1etaldisplay}\relax
     \ifnum #2>\etallimitcounter
       \todocounter\etaldisplaycounter
       % just in case ...
	   \ifnum\todocounter>\etallimitcounter
         \todocounter\etallimitcounter
       \fi
     \else
       \todocounter#2\relax
     \fi
     \ifnum\todocounter>\zerocount
       % find the current author list
       \lettonothing\templist
       \dorecurse{#2}
         {\scratchtoks\doubleexpandafter{\csname\??pb @#1\recurselevel\endcsname}%
          \edef\templist{\ifempty\templist\else\templist,\fi\the\scratchtoks}}%
       #3\publicationlistparameter\c!command{#1}{\todocounter}{\templist}#4\relax
     \else
       #5%
     \fi
   \else
     #5%
   \fi
   \egroup}

%D This macro does the hard work of inserting a list of people in the output, with
%D proper regard of all the inbetween strings that can arise depending on length of
%D the list of people.

%D \#1 = type
%D \#2 = number of items to be typeset
%D \#3 = commacommand containing authors

\protected\def\doprocessauthoritem#1#2#3%
  {\advanceby\scratchcounter\plusone
   \ifnum\numexpr\scratchcounter-\plusone\relax<#2\relax
     \publicationlistparameter{#1}#3%
     \ifnum\scratchcounter=#2\relax
       \ifnum\etallimitcounter<\commalistsize\relax
         \bibalternative{#1etaltext}%
       \fi
     \orelse\ifnum\numexpr\scratchcounter+\plusone\relax=#2\relax
        \ifnum\commalistsize>\plustwo
          \bibalternative\c!finalnamesep
        \else
          \bibalternative\c!lastnamesep
        \fi
     \else
       \bibalternative\c!namesep
     \fi
   \fi}

\protected\def\dospecialbibinsert#1#2#3%
  {\getcommacommandsize[#3]%
   \scratchcounter\zerocount
   \processcommacommand[#3]{\doprocessauthoritem{#1}{#2}}}

%D \macros{invertedauthor,normalauthor,invertedshortauthor,normalshortauthor}
%D
%D Just some commands that can be used in \type {\setuppublicationparameters}
%D If you want to write an extension to the styles, you might as well define
%D some of these commands yourself.
%D
%D The argument list has been reordered here, and the meanings are:
%D
%D \startlines
%D \type{#1} firstnames
%D \type{#2} von
%D \type{#3} surname
%D \type{#4} inits
%D \type{#5} junior
%D \stoplines

\protected\def\normalauthor#1#2#3#4#5%
  {\bibdoif{#1}{#1\bibalternative\c!firstnamesep}%
   \bibdoif{#2}{#2\bibalternative\c!vonsep}%
   #3%
   \bibdoif{#5}{\bibalternative\c!surnamesep#5\unskip}}

\protected\def\normalshortauthor#1#2#3#4#5%
  {\bibdoif{#4}{#4\bibalternative\c!firstnamesep}%
   \bibdoif{#2}{#2\bibalternative\c!vonsep}%
   #3%
   \bibdoif{#5}{\bibalternative\c!surnamesep#5\unskip}}

\protected\def\invertedauthor#1#2#3#4#5%
  {\bibdoif{#2}{#2\bibalternative\c!vonsep}%
   #3%
   \bibdoif{#5}{\bibalternative\c!juniorsep#5}%
   \bibdoif{#1}{\bibalternative\c!surnamesep#1\unskip}}

\protected\def\invertedshortauthor#1#2#3#4#5%
  {\bibdoif{#2}{#2\bibalternative\c!vonsep}%
   #3%
   \bibdoif{#5}{\bibalternative\c!juniorsep#5}%
   \bibdoif{#4}{\bibalternative\c!surnamesep#4\unskip}}

%D \macros{clearbibitem,clearbibitemtwo,bibitemdefs}
%D
%D These are used in \type {\typesetapublication} to do initializations and
%D cleanups.

\protected\def\clearbibitem#1{\setvalue{\??pb @#1}{}}%

\protected\def\clearbibitemtwo#1% is this reset really needed? after all we reset the counter and we are local
  {%\dofastrecurse\plusone{\csname#1@num\endcsname}\plusone{\expandafter\let\csname\??pb @#1\recurselevel\undefined}%
   \letvalue{#1@num}\!!zerocount}

\protected\def\bibitemdefs#1%
  {\expandafter\let\csname#1\expandafter\endcsname\csname bib@#1\endcsname}

\protected\def\presetbibvariables % make a fast resetter (toks)
  {\processcommacommand[\bibcommandlist,crossref]\clearbibitem
   \processcommalist   [artauthor,author,editor]\clearbibitemtwo
   \processcommacommand[\bibcommandlist]\bibitemdefs
   \processcommalist   [artauthor,author,editor,crossref]\bibitemdefs}

%D \macros{startpublication}
%D
%D We are coming to the end of this module, to the macros that do typesetting and
%D read the \type {bbl} file.
%D
%D Just a \type {\dosingleempty} is the most friendly of doing this: there need not
%D even be an argument to \type {\startpublication}. Of course, then there is no key
%D either, and it had better be an article (otherwise the layout will be all screwed
%D up).
%D
%D Only specifying the key in the argument is also legal. In storing this stuff into
%D macros, some trickery with token registers is needed to fix the expansion
%D problems. Even so, this appears to not always be 100\% safe, so people are
%D urgently advised to use \ETEX\ instead of traditional \TEX.
%D
%D In \ETEX, all expansion problems are conveniently solved by the primitive \type
%D {\protected}. To put that another way:
%D
%D It's not a bug in this module if it does not appear in \ETEX!
%D
%D Now prohibits comments, so % can be used for urls

\pushoverloadmode

\overloaded \protected\def\startpublication
  {\dosingleempty\dostartpublication}

\overloaded\let\stoppublication\relax

\popoverloadmode

%D This is rather memory hungry; some day i will rewrite this so that we use the
%D database instead.

%D \macros{doifbibreferencefoundelse}
%D
%D Some macros to fetch the information provided by \type {\startpublication}.
%D
%D We can consider a faster variant in the bbl file; we can also consider storing
%D the keys in lua (and then do more in lua) and use calls to fetch the variables.

% hm, we can store at the lua end ...

\protected\def\dostartpublication[#1]%
  {\begingroup
   \doifelseassignment{#1}%
     {\getparameters[\??pb][k=\s!unknown,t=article,n=,s=,a=,y=,o=,u=,#1]}%
     {\getparameters[\??pb][k=#1,t=article,n=,s=,a=,y=,o=,u=]}%
   \ctxlua{bibtex.hacks.register(\!!bs\@@pbk\!!es,\!!bs\@@pbs\!!es)}%
   \catcode\commentasciicode\othercatcode
   \dodostartpublication}

\protected\def\dodostartpublication#1\stoppublication
  {\setxvalue{pbd:\@@pbk}##1{\noexpand\ifcase##1\noexpand\or
     \@@pbk\noexpand\or
     \@@pba\noexpand\or
     \@@pby\noexpand\or
     \@@pbs\noexpand\or
     \@@pbn\noexpand\or
     \@@pbt\noexpand\or
     \@@pbo\noexpand\or
     \@@pbu\noexpand\or
     \normalunexpanded{#1}\noexpand\fi}%
   \endgroup
   \ignorespaces}

\def\bibgetvark#1{\csname pbd:#1\endcsname\plusone  }
\def\bibgetvara#1{\csname pbd:#1\endcsname\plustwo  }
\def\bibgetvary#1{\csname pbd:#1\endcsname\plusthree}
\def\bibgetvars#1{\csname pbd:#1\endcsname\plusfour }
\def\bibgetvarn#1{\csname pbd:#1\endcsname\plusfive }
\def\bibgetvart#1{\csname pbd:#1\endcsname\plussix  }
\def\bibgetvaro#1{\csname pbd:#1\endcsname\plusseven}
\def\bibgetvaru#1{\csname pbd:#1\endcsname\pluseight}
\def\bibgetvard#1{\csname pbd:#1\endcsname\plusnine }

\protected\def\doifelsebibreferencefound#1%
  {\preloadbiblist
   \doifelsedefined{pbd:#1}
     \firstoftwoarguments
     {\showmessage\m!publications{5}{#1,\the\inputlineno}\secondoftwoarguments}}

\let\doifbibreferencefoundelse\doifelsebibreferencefound

%D \macros{bib@crossref}
%D
%D \type {\crossref} is used in database files to point to another entry. Because of
%D this special situation, it has to be defined separately. Since this command will
%D not be seen until at \type {\placepublications}, it may force extra runs. The
%D same is true for \type {\cite} commands inside of publications.

% used in bib self

\protected\def\bib@crossref#1% called via \csname \endcsname
  {\setvalue{\??pb @crossref}{#1}\ignorespaces}

\protected\def\bibinsertcrossref#1#2#3%
  {\bibdoifelse\@@pb@crossref{#1\cite[\@@pb@crossref]#2}{#3}}

\let\insertcrossref\gobblethreearguments

\appendtoks\let\insertcrossref\bibinsertcrossref\to\initializebibdefinitions

%D The next macro is needed because the number command of the publist sometimes
%D needs to fetch something from the current item (like the 'short' key). For this,
%D the ID of the current item is passed in the implict parameter \type
%D {\currentpublicationkey}.

\protected\def\doprocessbibtexentry#1{\typesetapublication{#1}}

\protected\def\typesetpubslist
  {\begingroup
   \startpacked[\v!blank]%
   \preloadbiblist
   % \the\initializebibdefinitions % COMMENTED
   \edef\currentlist{pubs}%
   \ctxlua{bibtex.hacks.reset(\number\bibtexoncemode)}%
   \doifelse{\listparameter\c!criterium}\v!all
     {\showmessage\m!publications{7}{}%
      \ctxlua{bibtex.hacks.filterall()}}
     {\doif{\listparameter\c!criterium}\v!cite
        {\setuplist[pubs][\c!criterium=\v!here]}%
      \strc_lists_place_current
        {pubs}%
        {\listparameter\c!criterium}%
        {}%
        {\listparameter\c!extras}%
        {\listparameter\c!order}}%
        {}%
   \ctxlua{bibtex.hacks.flush("\@@pbsorttype")}%
   \stoppacked
   \endgroup}

\newif\ifinpublist

\protected\def\initializepubslist
  {\def\currentlist{pubs}%
   \edef\@@pbnumbering{\@@pbnumbering}%
   \doifelse\@@pbautohang\v!yes
     {\ifx\@@pbnumbering\v!short
        \setbox\scratchbox\hbox{\@@pbnumbercommand{\listparameter\c!samplesize}}%
      \else
        \doifelse{\listparameter\c!criterium}\v!all
          {\setbox\scratchbox\hbox{\@@pbnumbercommand{\ctxlua{tex.write{bibtex.hacks.nofregistered()}}}}}
          {\determinelistcharacteristics[pubs]%
           \setbox\scratchbox\hbox{\@@pbnumbercommand{\structurelistsize}}}%
      \fi
      \edef\publistnumberbox{\hbox to \the\wd\scratchbox}%
      \expanded{\setuplist[pubs][\c!width=\the\wd\scratchbox,\c!distance=\zeropoint]}%
      \ifx\@@pbnumbering\v!short
        \def\@@pblimitednumber##1{\publistnumberbox{\@@pbnumbercommand{\bibgetvars\currentpublicationkey}}}%
      \orelse\ifx\@@pbnumbering\v!bib
        \def\@@pblimitednumber##1{\publistnumberbox{\@@pbnumbercommand{\bibgetvarn\currentpublicationkey}}}%
      \else
        \def\@@pblimitednumber##1{\publistnumberbox{\@@pbnumbercommand{##1}}}%
      \fi}
     {\doifelsenothing{\listparameter\c!width}
        {\let \publistnumberbox \hbox}
        {\edef\publistnumberbox{\hbox to \listparameter\c!width}}%
      \ifx\@@pbnumbering\v!short
        \def\@@pblimitednumber##1{\publistnumberbox{\@@pbnumbercommand{\bibgetvars\currentpublicationkey}}}%
      \orelse\ifx\@@pbnumbering\v!bib
        \def\@@pblimitednumber##1{\publistnumberbox{\@@pbnumbercommand{\bibgetvarn\currentpublicationkey}}}%
      \else
        \def\@@pblimitednumber##1{\publistnumberbox{\@@pbnumbercommand{##1}}}%
      \fi}%
   \ifx\@@pbnumbering\v!no
     \setuplist[pubs][\c!numbercommand=,\c!symbol=\v!none,\c!textcommand=\outdented]%
   \else
     \setuplist[pubs][\c!numbercommand=\@@pblimitednumber]%
   \fi
   \doifelse{\publicationlistparameter\c!maybeyear}{\v!off}{\def\maybeyear##1{}}{\def\maybeyear##1{##1}}%
   \forgetall}

%D The full list of publications

\protected\def\completepublications
  {\dosingleempty\docompletepublications}

\protected\def\docompletepublications[#1]%
  {\begingroup
   \setuplist[pubs][#1]%
   \edef\currentbibtexsessiontitle{\publicationlistparameter\c!title}%
   \ifempty\currentbibtexsessiontitle
     \normalexpanded{\startnamedsection[\v!chapter][\c!reference=pubs,\c!title={\headtext{pubs}}]}%
   \else
     \normalexpanded{\startnamedsection[\v!chapter][\c!reference=pubs,\c!title={\currentbibtexsessiontitle}]}%
   \fi
   \dodoplacepublications
   \stopnamedsection
   \endgroup}

%D And the portion with the entries only.

\def\bibrefprefix{\number\bibtexblock:}

\protected\def\placepublications
  {\dosingleempty\doplacepublications}

\protected\def\doplacepublications[#1]%
  {\begingroup
   \setuplist[pubs][#1]%
   \dodoplacepublications
   \endgroup}

\protected\def\dodoplacepublications
  {\determinelistcharacteristics[pubs]%
   \initializepubslist
   \doifnot{\namedlistparameter{pubs}\c!option}\v!continue
     {\global\bibtexcounter\zerocount}%
   \inpublisttrue
   \typesetpubslist
   \inpublistfalse
   \global\advanceby\bibtexblock\plusone}

%D \subsubject{What's in a publication}
%D
%D Watch out: here all means all publications in database, so use text when you want
%D text only.

\protected\def\typesetapublication#1%
  {\doifsomething{#1}
     {\doifelse{\namedlistparameter{pubs}\c!criterium}\v!all
        {\doplacepublicationindeed{#1}}%
        {\ctxlua{bibtex.hacks.doifalreadyplaced("#1")}
           {}
           {\doplacepublicationindeed{#1}}}%
      }}

%D For the moment we don't access the data directly but we will do that later when
%D we get away from storing the data and only deal with references.

% we'll define proper handlers later

\protected\def\doplacepublicationindeed#1%
  {\doifelsebibreferencefound{#1}
     {\global\advanceby\bibtexcounter\plusone
      \def\currentpublicationkey{#1}%
      \ctxlua{bibtex.hacks.registerplaced("#1")}%
      \def\currentlist{pubs}%
      \edef\currentlistentrynumber{\number\bibtexcounter}%
      \let\currentlistentrytitle\bibtexpubtext
      \lettonothing\currentlistentrypagenumber
      \strc_lists_apply_renderingsetup}
     {}} % invalid

\protected\def\bibtexpubtext
  {\expanded{\reference[\bibrefprefix\currentpublicationkey]{\number\bibtexcounter}}%
   \strut\dotypesetapublication\currentpublicationkey\strut}

\protected\def\dotypesetapublication#1%
  {\bgroup
   \the\initializebibdefinitions % NEW
   \def\@@currentalternative{:l:}%
   \presetbibvariables
   \lettonothing\biblanguage
   \ignorespaces
   \bibgetvard{#1}%
   \removeunwantedspaces
   \ignorespaces
   \bibalternative{\bibgetvart{#1}}%
   \removeunwantedspaces
   \egroup}

%D An few afterthoughts:

\let\maybeyear\gobbleoneargument
\let\noopsort \gobbleoneargument

%D This is the result of bibtex's `language' field.

\protected\def\setbiblanguage#1#2{\setvalue{\??pb\s!language#1}{#2}}

\protected\def\lang#1%
   {\edef\biblanguage{#1}%
    \ifcsname\??pb\s!language#1\endcsname
      \language[\getvalue{\??pb\s!language#1}]%
    \fi
    \ignorespaces}

%D \subject{Citations}

%D \macros{cite,bibref}
%D
%D The indirection with \type {\dobibref} allows \LATEX\ style \type {\cite}
%D commands with a braced argument (these might appear in included data from the
%D \type {.bib} file).

\pushoverloadmode

\protected\def\cite
  {\strictdoifelsenextoptional\dodocite\dobibref}

\popoverloadmode

\protected\def\dobibref#1%
  {\docite[#1][]}

\protected\def\dodocite[#1]%
  {\strictdoifelsenextoptional{\docite[#1]}{\docite[#1][]}}

\protected\def\docite[#1][#2]%
  {\begingroup
   \doifelsesomething{#2}
     {\dowhatevercite{#1}{#2}}%
     {\donumberedcite{#1}}%
   \endgroup}

\protected\def\dowhatevercite#1#2%
  {\processcommalist[#2]\docitation
   \setupinteraction[\c!style=]%
   \doifelseassignment
     {#1}%
     {\getparameters[LO][\c!alternative=,\c!extras=,#1]%
      \edef\@@currentalternative{\LOalternative}%
      \ifempty\@@currentalternative
        \edef\@@currentalternative{\@@citedefault}%
      \fi
      \ifempty\LOextras
        \setupcite[\@@currentalternative][#1]%
      \else
        \expandafter\ifrelax\csname\??pv\@@currentalternative\c!right\endcsname
          % avoids tail recursion
          \expandafter\lettonothing\csname\??pv\@@currentalternative\c!right\endcsname
        \fi
        \expandafter\ifrelax\csname LOright\endcsname
          \edef\LOextras{{\LOextras\bibalternative\c!right}}%
        \else
          \edef\LOextras{{\LOextras\LOright}}%
        \fi
        \expanded{\setupcite[\@@currentalternative][#1,\c!right=\LOextras]}%
      \fi}%
     {\def\@@currentalternative{#1}}%
   \doifelsevalue{@@pv\@@currentalternative\c!compress}\v!no\bibcitecompressfalse\bibcitecompresstrue
   \getvalue{bib\@@currentalternative ref}[#2]}

\protected\def\donumberedcite#1%
  {\processcommalist[#1]\docitation
   \setupinteraction[\c!style=]%
   \edef\@@currentalternative{\@@citedefault}%
   \doifelsevalue{@@pv\@@currentalternative\c!compress}\v!no\bibcitecompressfalse\bibcitecompresstrue
   \getvalue{bib\@@citedefault ref}[#1]}

%D \macros{nocite}

\pushoverloadmode

\protected\def\nocite[#1]%
  {\processcommalist[#1]\docitation}

\popoverloadmode

%D \macros{setupcite}

\permanent\tolerant\protected\def\setupcite[#1]#*[#2]%
  {\ifparameter#2\or
     \def\dodosetupcite##1{\getparameters[\??pv##1][#2]}%
     \processcommalist[#1]\dodosetupcite
   \else % default case
     \getparameters[\??pv\@@citedefault][#1]%
   \fi}

%D Low-level stuff

\protected\def\getcitedata#1[#2]#*[#3]#*to#4%
  {\bgroup
   \dofetchapublication{#3}%
   \doifelsedefined{\??pb @bib#2}%
     {\xdef#4{\getvalue{\??pb @bib#2}}}%
     {\xdef#4{\getvalue{\??pb @#2}}}%
   \egroup}

\protected\def\dofetchapublication#1%
  {\def\currentpublicationkey{#1}%
   \presetbibvariables
   \ignorespaces\bibgetvard{#1}}

\protected\def\docitation#1%
  {\iftrialtypesetting \else
     \expanded{\writedatatolist[pubs][bibref=#1]}%
   \fi}

\let\addthisref\gobbleoneargument % keep this for compatibility

%D \macros{ixbibauthoryear,thebibauthors,thebibyears}
%D
%D If compression of \type {\cite}'s argument expansion is on, the macros that deal
%D with authors and years call this internal command to do the actual typesetting.
%D
%D Two entries with same author but with different years may be condensed into
%D ``Author (year1,year2)''. This is about the only optimization that makes sense
%D for the (author,year) style of citations (years within one author have to be
%D unique anyway so no need to test for that, and ``Author1, Author2 (year)''
%D creates more confusion than it does good).
%D
%D In the code below, the macro \type {\thebibauthors} holds the names of the
%D alternative author info fields for the current list. This is a commalist, and
%D \type {\thebibyears} holds the (collection of) year(s) that go with this author
%D (possibly as a nested commalist).
%D
%D There had better be an author for all cases, but there does not have to be year
%D info always. \type{\thebibyears} is pre|-|initialized because this makes the
%D insertion macros simpler.
%D
%D In normal \TEX, of course there are expansion problems again.

%D Delegate this to \LUA.

% \let         \ixlastcommand \relax
% \let         \ixsecondcomman\relax
% \let         \ixfirstcommand\relax
% \lettonothing\thebibauthors
% \lettonothing\thebibyears
% \let         \authorcount   \!!zerocount

\lettonothing\currentbibauthor

\protected\def\ixbibauthoryear#1#2#3#4%
  {\bgroup
   \gdef\ixlastcommand{#4}%
   \gdef\ixsecondcommand{#3}%
   \gdef\ixfirstcommand{#2}%
   \glettonothing\thebibauthors
   \glettonothing\thebibyears
   \getcommalistsize[#1]%
   \ifbibcitecompress
     \dorecurse\commalistsize{\xdef\thebibyears{\thebibyears,}}%
     \processcommalist[#1]\docompressbibauthoryear
   \else
     \processcommalist[#1]\donormalbibauthoryear
   \fi
   \egroup
   \dobibauthoryear}

%D \macros{dodobibauthoryear}
%D
%D This macro only has to make sure that the lists \type {\thebibauthors} and \type
%D {\thebibyears} are printed.

\protected\def\dobibauthoryear
  {\scratchcounter\zerocount
   \getcommacommandsize[\thebibauthors]%
   \edef\authorcount{\commalistsize}%
   \expandafter\processcommalist\expandafter[\thebibauthors]\dodobibauthoryear}

\protected\def\dodobibauthoryear#1%
  {\advanceby\scratchcounter\plusone
   \edef\wantednumber{\the\scratchcounter}%
   \getfromcommacommand[\thebibyears][\wantednumber]%
   \expandafter\def\expandafter\currentbibyear\expandafter{\commalistelement}%
   \setcurrentbibauthor{#1}%
   \ifnum\scratchcounter=\plusone
     \ixfirstcommand
   \orelse\ifnum \scratchcounter=\authorcount\relax
     \ixlastcommand
   \else
     \ixsecondcommand
   \fi}

\protected\def\setcurrentbibauthor#1% sensitive for empty entries but I don't want to touch this
  {\getcommacommandsize[#1]%
   \ifcase\commalistsize
    % anonymous?
     \lettonothing\currentbibauthor
   \or
     \def\currentbibauthor{#1}%
   \or
     \expanded{\docurrentbibauthor#1}%
   \else
     \handlemultiplebibauthors{\commalistsize}{#1}%
   \fi}

\newinteger\citescratchcounter

\protected\def\handlemultiplebibauthors#1#2%
  {\citescratchcounter\zerocount
   \lettonothing\currentbibauthor
   \protected\def\bibprocessauthoritem##1%
     {\advanceby\citescratchcounter\plusone
      \ifnum \citescratchcounter=#1\relax
        \edef\currentbibauthor{\currentbibauthor##1}%
      \orelse\ifnum\numexpr\citescratchcounter+\plusone\relax=#1\relax
        \edef\currentbibauthor{\currentbibauthor##1\bibalternative{andtext}}%
      \else
        \edef\currentbibauthor{\currentbibauthor##1\bibalternative{namesep}}%
      \fi}%
     \processcommalist[#2]\bibprocessauthoritem}

\setupcite
  [author,authoryear,authoryears]
  [\c!namesep={, }]

%D This discovery of authoretallimit is not the best one,
%D but it will do for now.

\protected\def\docurrentbibauthor#1,#2%
  {\doifelseempty{#2}
     {\def\currentbibauthor{#1\bibalternative{otherstext}}}
     {\expandafter\ifrelax\csname\??pv\@@currentalternative authoretallimit\endcsname
        \edef\currentbibauthor{#1\bibalternative{andtext}#2}%
      \else
        \edef\currentbibauthor{#1%
        \ifcase0\bibalternative{authoretallimit}\relax\or
        \bibalternative{otherstext}\else\bibalternative{andtext}#2\fi}%
      \fi}}

%D This is not the one Hans made for me, because I need a global
%D edef, and the \type {\robustdoifinsetelse} doesn't listen to
%D \type {\doglobal}.

\pushoverloadmode

    \protected\def\robustaddtocommalist#1#2% {item} \cs
      {\robustdoifelseinset{#1}#2\resetglobal
         {\dodoglobal\xdef#2{\ifempty#2\else#2,\fi#1}}}

\popoverloadmode

%D \macros{donormalbibauthoryear}
%D
%D Now we get to the macros that fill the two lists. The \quote {simple} one really
%D is quite simple.

\protected\def\donormalbibauthoryear#1%
  {\def\myauthor{Xxxxxxxxxx}%
   \def\myyear{0000}%
   \doifelsebibreferencefound{#1}
     {\def\myauthor{{\bibgetvara{#1}}}%
      \def\myyear  {\bibgetvary{#1}}}%
     {}%
   \expandafter\doglobal\expandafter\appendtocommalist\expandafter{\myauthor}\thebibauthors
   \expandafter\doglobal\expandafter\appendtocommalist\expandafter{\myyear  }\thebibyears}

%D \macros{docompressbibauthoryear}
%D
%D So much for the easy parts. Nothing at all will be done if the reference is not
%D found or the reference does not contain author data. No questions marks o.s.s.
%D (to be fixed later).

\protected\def\docompressbibauthoryear#1%
  {\def\myauthor{Xxxxxxxxxx}%
   \def\myyear  {0000}%
   \doifelsebibreferencefound{#1}
     {\xdef\myauthor{\bibgetvara{#1}}%
      \xdef\myyear  {\bibgetvary{#1}}}
     {}%
    \ifempty\myauthor\else
      \checkifmyauthoralreadyexists
      \findmatchingyear
    \fi}

%D Two temporary counters. One of these two can possibly be replaced by \type
%D {\scratchcounter}.

\newinteger\bibitemcounter
\newinteger\bibitemwanted

%D The first portion is simple enough: if this is the very first author it is quite
%D straightforward to add it. \type {\bibitemcounter} and \type {\bibitemwanted} are
%D needed later to insert the year information in the correct item of \type
%D {\thebibyears}.

\protected\def\checkifmyauthoralreadyexists
  {\doifelseemptyvalue{thebibauthors}
     {\global\bibitemwanted \plusone
      \global\bibitemcounter\plusone
      \xdef\thebibauthors{{\myauthor}}}
     {% the next weirdness is because according to \getcommalistsize,
      % the length of \type{[{{},{}}]} is 2.
      \expandafter\getcommalistsize\expandafter[\thebibauthors,]%
      \global\bibitemcounter\numexpr\commalistsize+\minusone\relax
      \global\bibitemwanted \zerocount
      \processcommacommand[\thebibauthors]\docomparemyauthor}}

%D The outer \type {\ifnum} accomplishes the addition of a new author to \type
%D {\thebibauthors}. The messing about with the two counters is again to make sure
%D that \type {\thebibyears} will be updated correctly.If the author {\it was}
%D found, the counters will stay at their present values and everything will be
%D setup properly to insert the year info.

\protected\def\docomparemyauthor#1%
  {\global\advanceby\bibitemwanted \plusone
   \def\mytempc{#1}%
   \ifx\mytempc\myauthor
     \quitcommalist
   \orelse\ifnum\bibitemwanted=\bibitemcounter\relax
     \global\advanceby\bibitemwanted \plusone
     \global\bibitemcounter\bibitemwanted\relax
     \expandafter\doglobal\expandafter\robustaddtocommalist\expandafter{{\myauthor}}\thebibauthors
   \fi}

%D This macro should be clear now.

\protected\def\findmatchingyear
  {\edef\wantednumber{\the\bibitemwanted}%
   \getfromcommacommand[\thebibyears][\wantednumber]%
   \ifempty\commalistelement
     \edef\myyear{{\myyear}}%
   \else
     \edef\myyear{{\commalistelement,\myyear}}%
   \fi
   \edef\newcommalistelement{\myyear}%
   \doglobal\replaceincommalist \thebibyears \wantednumber}

%D \macros{gotobiblink,inbiblink,atbiblink}
%D
%D The final task is looping over that list until a match is found.

%D Beware, we can have cites without reference match.

\protected\def\gotobiblink#1[#2]{\doifelsereferencefound{\bibrefprefix#2}{\goto{#1}[\bibrefprefix#2]}{#1}}
\protected\def\atbiblink    [#1]{\doifelsereferencefound{\bibrefprefix#1}{\at      [\bibrefprefix#1]}{#1}}
\protected\def\inbiblink    [#1]{\doifelsereferencefound{\bibrefprefix#1}{\expanded{\goto{\currentreferencetext}}[\bibrefprefix#1]}{#1}}

%D \macros{bibauthoryearref,bibauthoryearsref,bibauthorref,bibyearref}
%D
%D Now that all the hard work has been done, these are simple. \type
%D {\ixbibauthoryearref} stores the data in the macros \type {\currentbibauthor} and
%D \type {\currentbibyear}.

\protected\def\doifelsebibinteraction
  {\iflocation
     \edef\test{\bibalternative\c!interaction}%
     \ifx\test\v!stop
       \doubleexpandafter\secondoftwoarguments
     \else
       \doubleexpandafter\firstoftwoarguments
     \fi
   \else
     \expandafter\secondoftwoarguments
   \fi}

\let\doifbibinteractionelse\doifelsebibinteraction

\protected\def\bibmaybeinteractive#1#2%
  {\doifelsebibinteraction{\gotobiblink{#2}[#1]}{#2}}

\protected\def\bibauthoryearref[#1]%
 {\ixbibauthoryear{#1}%
    {\bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween
     \bibalternative\v!left{\currentbibyear}\bibalternative\v!right}}
    {\bibalternative\c!pubsep
     \bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween
     \bibalternative\v!left  {\currentbibyear}\bibalternative\v!right}}
    {\bibalternative\c!lastpubsep
     \bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween
     \bibalternative\v!left {\currentbibyear}\bibalternative\v!right}}}

\protected\def\bibauthoryearsref[#1]%
  {\bibalternative\v!left
   \ixbibauthoryear{#1}
     {\bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween{\currentbibyear}}}
     {\bibalternative\c!pubsep
      \bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween{\currentbibyear}}}
     {\bibalternative\c!lastpubsep
      \bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween{\currentbibyear}}}%
   \bibalternative\v!right}

\protected\def\bibauthorref[#1]%
  {\bibalternative\v!left
   \ixbibauthoryear{#1}%
     {\bibmaybeinteractive{#1}{{\currentbibauthor}}}
     {\bibalternative\c!pubsep    \bibmaybeinteractive{#1}{{\currentbibauthor}}}
     {\bibalternative\c!lastpubsep\bibmaybeinteractive{#1}{{\currentbibauthor}}}%
   \bibalternative\v!right}

\protected\def\bibyearref[#1]%
  {\bibalternative\v!left
   \ixbibauthoryear{#1}%
     {\bibmaybeinteractive{#1}{{\currentbibyear}}}
     {\bibalternative\c!pubsep    \bibmaybeinteractive{#1}{{\currentbibyear}}}
     {\bibalternative\c!lastpubsep\bibmaybeinteractive{#1}{{\currentbibyear}}}%
   \bibalternative\v!right}

%D \macros{bibshortref,bibkeyref,bibpageref,bibtyperef,bibserialref}
%D
%D There is hardly any point in trying to compress these. The only thing that needs
%D to be done is making sure that the separations are inserted correctly. And that
%D is what \type {\bibinsertrefsep} does.

\newconditional\firstbibrefsep

\protected\def\bibresetrefsep
  {\settrue\firstbibrefsep}

\protected\def\bibinsertrefsep
  {\ifconditional\firstbibrefsep
     \setfalse\firstbibrefsep
   \else
     \bibalternative\c!pubsep
   \fi}

\protected\def\bibshortref[#1]%
  {\bibalternative\v!left
   \bibresetrefsep\processcommalist[#1]\dobibshortref
   \bibalternative\v!right}

\protected\def\dobibshortref#1%
  {\bibinsertrefsep
   \doifelsebibreferencefound{#1}
     {\gotobiblink{\bibgetvars{#1}}[#1]}
	 {}}

\protected\def\bibserialref[#1]%
  {\bibalternative\v!left
   \bibresetrefsep\processcommalist[#1]\dobibserialref
   \bibalternative\v!right}

\protected\def\dobibserialref#1%
  {\bibinsertrefsep
   \doifelsebibreferencefound{#1}
     {\gotobiblink{\bibgetvarn{#1}}[#1]}
     {}}

\protected\def\bibkeyref[#1]%
  {\bibalternative\v!left
   \bibresetrefsep\processcommalist[#1]\dobibkeyref
   \bibalternative\v!right}

\protected\def\dobibkeyref#1%
  {\bibinsertrefsep
   \gotobiblink{#1}[#1]}

\protected\def\bibgotoDOI#1#2%
  {\doifelsebibinteraction
     {\useURL[bibfooDoi#1][#2]%
      \useURL[bibfoo#1][http://dx.doi.org/#2]%
      \goto{\url[bibfooDoi#1]}[url(bibfoo#1)]}
     {\hyphenatedurl{#2}}}

\protected\def\bibdoiref[#1]%
  {\bibalternative\v!left
   \bibresetrefsep\processcommalist[#1]\dobibdoiref
   \bibalternative\v!right}

\protected\def\dobibdoiref#1%
  {\bibinsertrefsep
   \doifelsebibreferencefound{#1}
     {\expanded{\bibgotoDOI{#1}{\bibgetvaro{#1}}}}
     {}}

\protected\def\biburlref[#1]%
  {\bibalternative\v!left
   \bibresetrefsep\processcommalist[#1]\dobiburlref
   \bibalternative\v!right}

\protected\def\bibgotoURL#1#2%
  {\doifelsebibinteraction
     {\useURL[bibfoo#1][#2]\goto{\url[bibfoo#1]}[url(bibfoo#1)]}
     {\hyphenatedurl{#2}}}

\protected\def\dobiburlref#1%
  {\bibinsertrefsep
   \doifelsebibreferencefound{#1}
     {\expanded{\bibgotoURL{#1}{\bibgetvaru{#1}}}}
     {}}

\protected\def\bibtyperef[#1]%
  {\bibalternative\v!left
   \bibresetrefsep\processcommalist[#1]\dobibtyperef
   \bibalternative\v!right}

\protected\def\dobibtyperef#1%
  {\bibinsertrefsep
   \doifelsebibreferencefound{#1}
     {\gotobiblink{\bibgetvart{#1}}[#1]}
     {}}

\protected\def\bibpageref[#1]%
  {\bibalternative\v!left
   \bibresetrefsep\processcommalist[#1]\dobibpageref
   \bibalternative\v!right}

\protected\def\dobibpageref#1%
  {\bibinsertrefsep
   \doifelsebibinteraction
     {\atbiblink[#1]}
     {{\referencingfalse\at[#1]}}}

\protected\def\bibdataref[#1]%
  {\bibalternative\v!left
   \bibresetrefsep\processcommalist[#1]\dobibdata
   \bibalternative\v!right}

\protected\def\dobibdata#1%
  {\bibinsertrefsep
   \doifelsebibreferencefound{#1}
     {\dotypesetapublication{#1}}
     {}}

\let\bibnoneref\nocite

%D \macros{bibnumref}

\protected\def\bibnumref[#1]%
  {\begingroup
   \bibalternative\v!left
   \penalty\plustenthousand
   \ctxlua{bibtex.hacks.resolve("","\number\bibtexblock","#1")}%
   \bibalternative\v!right
   \endgroup}

\protected\def\dowithbibtexnumrefconnector#1#2%
  {\ifnum#1>\plusone
     \ifnum#2>\plusone
       \ifnum#2=#1\relax
         \bibalternative{lastpubsep}%
       \else
         \bibalternative{pubsep}%
       \fi
     \fi
   \fi}

\protected\def\dowithbibtexnumref#1#2#3#4#5% n, i, prefix block ref
  {\dowithbibtexnumrefconnector{#1}{#2}%
   \def\bibrefprefix{#4:}%
   \inbiblink[#5]}

\protected\def\dowithbibtexnumrefrange#1#2#3#4#5#6#7% n, i, prefix block ref
  {\dowithbibtexnumrefconnector{#1}{#2}%
   \def\bibrefprefix{#4:}%
   \inbiblink[#5]%
   \endash
   \def\bibrefprefix{#6:}%
   \inbiblink[#7]}

%D By request from Sanjoy. This makes it easier to implement \type {\citeasnoun}.

\protected\def\bibauthornumref[#1]%
  {\getcommalistsize[#1]%
   \global\bibitemcounter\commalistsize
   \bibresetrefsep
   \processcommalist[#1]\dobibauthornumref}

\protected\def\dobibauthornumref#1%
  {\bibinsertrefsep
   \doifelsebibreferencefound{#1}
     {\begingroup
      \cite[\c!left=,\c!right=,\c!alternative=\v!author][#1]%
      \bibalternative\c!inbetween
      \cite[num][#1]%
      \endgroup}
     {}}

%D And some defaults are loaded from bibl-apa:

\setuppublications
  [\c!monthconversion=,
   \c!alternative=apa,
   \c!method=\v!global,
  %\c!criterium=\v!previous,
   \c!criterium=\v!cite, % mojca wants this so bother her, not me
   \c!refcommand=num,
   \c!numbercommand=\bibleftnumber]

\protected\def\preloadbiblist
  {\glet\preloadbiblist\relax
   \dousepublications\jobname}

% \appendtoks \preloadbiblist \to \everysetuppublications
% \appendtoks \preloadbiblist \to \everystarttext

\let\ifbibinteractionelse\doifbibinteractionelse

\protect \endinput