Source Browser ?

1%D \module
2%D   [       file=bibl-tra,
3%D        version=2009.08.22,
4%D          title=\CONTEXT\ Publication Module,
5%D       subtitle=Publications,
6%D         author=Taco Hoekwater,
7%D           date=\currentdate,
8%D      copyright={Public Domain}]
9%C
10%C Donated to the public domain.
11
12%D This is really obsolete in \LMTX. For now I keep it but it will either go
13%D away. The code is not upgraded, we only deal with macro protection. I will
14%D only update the bits that annoy me in grepping for possible optimizations.
15
16% % % % watch out ... bibl-tra-new.mkiv is work in progress % % % %
17
18% % % % mlbibtex also supports context and we can run that instead of bibtex % % % %
19
20%D This module has been adapted to \MKIV\ by Hans Hagen so if things go wrong, he is
21%D to blame. The changes concern references and lists but teh rendering itself is
22%D unchanged. Future versions might provide variants as we have plans for an
23%D upgrade.
24%D
25%D We use a still somewhat experimental extension to the list mechanism. Eventually
26%D the bibtex module will use the bibl loader and access the data by means of lpath
27%D expressions. In that case we don't need to process the bibliography but still
28%D need to track usage as done here.
29%D
30%D A bit ongoing: make more local macros prefixed with bib, i.e. the bib namespace
31%D is reserved.
32
33%D Todo: commandhandler
34
35\writestatus{loading}{ConTeXt Bibliography Support / BibTeX}
36
37\definefilesynonym[bib][obsolete]
38
39\registerctxluafile{bibl-tra}{}
40
41%D The original was developed independantly by Taco Hoekwater while still working
42%D for Kluwer Academic publishers (it still used the dutch interface then).
43%D Development continued after he left Kluwer, and in Januari 2005, the then already
44%D internationalized file was merged with the core distribution by Hans Hagen. The
45%D current version is once again by Taco.
46%D
47%D More documentation and additional resources can be found on the contextgarden:
48%D \hyphenatedurl {http://wiki.contextgarden.net//Bibliography}.
49
50%D \subject{DONE (dd/mm/yyyy)}
51%D
52%D \startitemize
53%D \item add author definition (and associated system variable) (26/05/2005)
54%D \item add finalnamesep support for Oxford comma (17/09/2005)
55%D \item add \type{\insert...} for: doi, eprint, howpublished (19/09/2005)
56%D \item allow a defaulted \type{\setupcite} (19/11/2005)
57%D \item renamed citation type 'number' to 'serial' (19/11/2005)
58%D \item better definition of \type{\inverted...author} (19/11/2005)
59%D \item don't reset [numbercommand] in \type {\setuppublication} by default (20/11/2005)
60%D \item don't disable other \type {\setuppublication} keys if alternative is present (20/11/2005)
61%D \item drop \type{\sanitizeaccents} (20/11/2005)
62%D \item added \type{\nocite} and \type{\cite[none]} (21/11/2005)
63%D \item added headtext for it  (23/11/2005)
64%D \item make \type{\cite[url]} and \type{\cite[doi]} interactive (23/11/2005)
65%D \item make right-aligned labels in the list work even when autohang=no
66%D \item use 'et al.' instead of 'et.al.'. Pointed out by Peter M\"unster (30/12/2005)
67%D \item added headtext for cz (31/12/2005)
68%D \item Keep whitespace after \type{\cite} with single argument (31/12/2005)
69%D \item Fix broken \type{\cite{}} support (31/12/2005)
70%D \item Use \type{\readfile} inside \type{\usepublications} instead of \type{\readsysfile} (12/01/2006)
71%D \item Use \type{\currentbibyear} and \type{\currentbibauthor} instead of \type{\YR} and \type{\AU} (05/02/2006)
72%D \item Fix compressed version of authoryear style (05/02/2006)
73%D \item Rename the clashing data fields \type{\url} and \type{\type} to \type{\biburl} and \type{\bibtype} (05/02/2006)
74%D \item Added two french bibl files from Renaud Aubin (06/02/2006)
75%D \item Five new bib class and eight extra bib fields, for IEEEtran (07/02/2006)
76%D \item French keyword translation, provided by Renaud (08/02/2006)
77%D \item fix underscores in undefined keys (22/02/2006)
78%D \item Destroy interactivity in labels of the publication list (13/03/2006)
79%D \item fix multi-cite list compression (11/4/2006)
80%D \item fix \type{\getcitedata} (11/4/2006)
81%D \item magic for chapter bibs (18-25/4/2006)
82%D \item language setting (25/4/2006)
83%D \item use \type{\hyphenatedurl} for \type{\inserturl} (25/4/2006)
84%D \item Add \type{\docitation} to \type{\nocite}(26/4/2006)
85%D \item patents can have numbers, added to bst files (26/4/2006)
86%D \item \type{\docitation} needs a \type{\iftrialtypesetting} (27/4/2006)
87%D \item \type{\filllocalpublist}'s loop is bound by definedness, not resolvedness (27/4/2006)
88%D \item \type{\setuppublications[monthconversion=]} added (15/5/2006)
89%D \item use \type{\undefinedreference} instead of bare question marks (15/5/2006)
90%D \item add grouping around \type{\placepublications} commands (16/5/2006)
91%D \item fix a bug in \type{\cite{<item>}} (17/5/2006)
92%D \item support \type{\cite[authornum]} (18/5/2006)
93%D \item make \type{\cite} unexpandable (20/6/2006)
94%D \item allow hyperlinks in author\&year combo's
95%D       (cite list compression has to be off) (20/6/2006)
96%D \item fix duplicate labels for per-chapter style (20/6/2006)
97%D \item allow \type{\setupcite[interaction=(start|stop)]}
98%D \item fix the item number in the publication list with 'numbering=yes' (22/6/2006)
99%D \item make the default criterium for \type{\placepublications} be \type{previous} (23/6/2006)
100%D \item fix \type{\normalauthor} and \type{\normalshortauthor} spacing (29/6/2006)
101%D \item do not typeset empty arguments to \type{\typesetapublication} (29/6/2006)
102%D \item add \type{symbol=none} to \type{\setuplist} in unnumbered
103%D       mode to prevent typesetting of bare numbers (29/6/2006)
104%D \item remove two incorrect spaces from bibl-num.tex (1/7/2006)
105%D \item reset font styles within \type{\cite}, so that font switches
106%D       in \type{left} stay in effect (12/7/2006)
107%D \item guard added against loading bbl files multiple times (13/7/2006)
108%D \item fix \type{\cite[num]} with compression is on. (14/7/2006)
109%D \item test \type{\iflocation} before deciding to use the
110%D       interactive version of cite (18/7/2006)
111%D \item support \type{\setupcite[authoretallimit=1]} (18/7/2006)
112%D \item support use of \type{\cite} within titles and captions by
113%D       saveguarding the list item extraction and reference placement
114%D       code (19/7/2006)
115%D \item support \type{\setuppublicationlist[title=\chapter]} (4/8/2006)
116%D \item use the expansion of \type{\headtext{pubs}} (4/8/2006)
117%D \item hook added for repeated authors in publication list
118%D       \type{\setuppublicationlist[artauthorcommand=\mythreeargscommand]}
119%D       (4/8/2006)
120%D \item make the bracketed arguments of \type{\artauthor}, \type{\author}
121%D        and \type{\editor} (bbl commands) optional (4/8/2006)
122%D \item the constants \type{sorttype}, \type{compress} and
123%D        \type{autohang} have moved to the core (8/8/2006)
124%D \item bibtex is now registered as a program to be run by texexec (8/8/2006)
125%D \item fix a bug in \type{\setupcite[authoretallimit=1]} (9/8/2006)
126%D \item fix a bug inside citations that prevented lastpubsep from ever being
127%D       used due to a volatile \type{\commalistsize} (25/8/2006).
128%D \item added the possibility of \type{\placepublications[option=continue]}
129%D       (6/9/2006)
130%D \item Mojca translated Master's Thesis to Masterarbeit (bibl-apa-de.tex)
131%D       (12/9/2006)
132%D \item Added \type{\setuppublicationlist[maybeyear=off]} by request from
133%D       Thomas Schmitz (15/9/2006)
134%D \item Removed some spurious spaces pointed out by willi egger (19/9/2006)
135%D \item Add configuration of bibtex executable name (4/11/2006)
136%D \item Fix numbering=short and numbering=bib (spotted by Matthias W\"achter) (4/11/2006)
137%D \item third attempt to get a correct release (5/11/2006)
138%D \item fix a few missing dots in bibl-num.tex  (7/12/2006)
139%D \item Patch for DOI's by Tobias Burnus (17/4/2007)
140%D \item Patch for \type{\insertbiburl} and \type{\insertdoi} for  Tobias Burnus (18/4/2007)
141%D \item Added a missing \type{\relax} in \type{\dospecialbibinsert},
142%D       that made the space before the {\it et al.} text disappear.  (18/4/2007)
143%D \item Attempt to fix percent signs in bbl files. As a side-effect,
144%D       this prohibits comments in \tex{startpublication} blocks! (17/4/2008)
145%D \item Patch from Matthias W\"achter that allows arbitrary .bst
146%D        files to be used with \tex{setupbibtex} (25/9/2008)
147%D \item Extended for the new multilingual setups for the Oct 2008 current of ConTeXt (23/10/2008)
148%D \item Multilingual setups needed another fix (27/10/2008)
149%D \item Two fixes for bibl-apa by Michael Green (27/10/2008)
150%D \item Catalan translation of 'References' (10/11/2008)
151%D \item 'chapter' -> 'chapitre' in bibl-apa-fr (27/11/2008)
152%D \item Run bibtex via os.execute in  mkiv modee (01/12/2008)
153%D \item Small correction in bibl-apa's placement of volume
154%D       information in articles (05/01/2009)
155%D \item Handle multi-author (more than two) cases in \type{\cite}
156%D       (02/03/2009)
157%D \item Suppress a syntax error in \type{cont-xp} mode. The output is
158%D       probably not right, though (02/03/2009)
159%D \item Added a \tex{loadmarkfile} at the end, and two new files
160%D       from Hans. The \type{t-bib.mkiv} is needed to make the module
161%D       work with the new structure code (17/04/2009)
162%D \item Added a patch to \type{t-bib.mkiv} from Hans to make the
163%D       cross referencing between multiple citations an
164%D       bibliographies work (27/04/2009)
165%D \item Remove a superfluous \type{\unprotect} in t-bib.mkiv (11/05/2009).
166%D \item Patch of incollection in bibl-ams.tex from Xan (08/06/2009).
167%D \item Patch of unpublished in bibl-ams.tex from Xan (22/07/2009).
168%D \item Modified \type{\bibdogetupsometextprefix} so it works for undefined
169%D       language labels, from Hans (13/08/2009).
170%D \item Adapt referencing and list insertion to \MKIV. Update some code
171%D       to the latest \CONTEXT. Change some names in order to avoid conflicts
172%D       with existing core names (like \type {\insertpages}).
173%D \item All constants, variables, message etc.\ are now in the core.
174%D \item Added key: \type {method} (when \type {global}, previous shown entries are
175%D       not shown again, when \type {local} they are repeated).
176%D \stopitemize
177%D
178%D \subject{WISHLIST}
179%D
180%D \startitemize
181%D \item link back from publication list to citation
182%D \item export \type {\citation{<cited item>}}
183%D \item support mlbibtex
184%D \item don't load the whole lot, but filter entries instead
185%D \item 9 vs 10, 19 vs 20 ... prevent extra runs when only subtle changes in wd of reference
186%D \stopitemize
187
188\unprotect
189
190\def\biblistname{pubs} % for compatibility
191
192\definelist
193  [pubs]
194
195\setuplist
196  [pubs]
197  [\c!state=\v!start,
198   \c!criterium=\@@pbcriterium,
199   \c!headnumber=\v!always, % needed as we provide our own and need to force
200   \c!width=]
201
202\installstructurelistprocessor{pubs:userdata}%
203  {\ctxlua{bibtex.hacks.add(structures.lists.uservalue("\currentlist",\currentlistindex,"bibref"),\currentlistindex)}}
204
205\ifdefined\bibtexblock   \else \newcount\bibtexblock   \fi \bibtexblock\plusone
206\ifdefined\bibtexcounter \else \newcount\bibtexcounter \fi
207
208%D \macros{bibdoif,bibdoifnot,bibdoifelse}
209%D
210%D Here are a few small helpers that are used a lot in all the typesetting commands
211%D (\type{\bibinsert...}) we will encounter later.
212
213\protected\def\bibdoifelse#1%
214  {\expandafter\def\expandafter\!!stringa\expandafter{#1}%
215   \ifempty\!!stringa
216     \expandafter\secondoftwoarguments
217   \else
218     \expandafter\firstoftwoarguments
219   \fi}
220
221\protected\def\bibdoifnot#1%
222  {\expandafter\def\expandafter\!!stringa\expandafter{#1}%
223   \ifempty\!!stringa
224     \expandafter\firstofoneargument
225   \else
226     \expandafter\gobbleoneargument
227   \fi}
228
229\protected\def\bibdoif#1%
230  {\expandafter\def\expandafter\!!stringa\expandafter{#1}%
231   \ifempty\!!stringa
232     \expandafter\gobbleoneargument
233   \else
234     \expandafter\firstofoneargument
235   \fi}
236
237%D Unfortunately, \BIBTEX\ is not the best configurable program around. The names of
238%D the commands it parses as well as the \type {.aux} extension to the file name are
239%D both hardwired.
240%D
241%D This means \CONTEXT\ has to write a \LATEX-style auxiliary file, yuk! The good
242%D news is that it can be rather short. We'll just ask \BIBTEX\ to output the entire
243%D database(s) into the \type {bbl} file.
244%D
245%D The \type {\bibstyle} command controls how the \type {bbl} file will be sorted.
246%D The possibilities are:
247%D
248%D \startitemize[packed]
249%D \item by author (+year, title): cont-au.bst
250%D \item by title  (+author, year): cont-ti.bst
251%D \item by short key as in abbrev.bst: cont-ab.bst
252%D \item not sorted at all: cont-no.bst
253%D \stopitemize
254
255\newtoks\everysetupbibtex
256
257\protected\def\setupbibtex
258  {\dosingleempty\dosetupbibtex}
259
260\protected\def\dosetupbibtex[#1]%
261  {\let\@@pbdatabase\empty
262   \getparameters[\??pb][#1]%
263   \the\everysetupbibtex}
264
265\protected\def\installbibtexsorter#1#2%
266  {\setvalue{\??pb:\c!sort:#1}{#2}}
267
268\installbibtexsorter\v!no     {no}
269\installbibtexsorter\v!author {au}
270\installbibtexsorter\v!title  {ti}
271\installbibtexsorter\v!short  {ab}
272\installbibtexsorter\empty    {no}
273\installbibtexsorter\s!default{no}
274
275\def\thebibtexsorter{\executeifdefined{\??pb:\c!sort:\@@pbsort}\@@pbsort}
276
277\appendtoks
278   \ifempty\@@pbdatabase\else
279     \doifmode{*\v!first}{\ctxlua{bibtex.hacks.process { style="\thebibtexsorter", database="\@@pbdatabase" }}}%
280   \fi
281\to \everysetupbibtex
282
283\setupbibtex
284  [\c!sorttype=\v!cite,
285   \c!sort=no]
286
287%D \macros{iftypesetall,ifbibcitecompress}
288%D
289%D The module needs some new \type{\if} statements.
290
291\newtoks\everysetuppublications
292
293\protected\def\setuppublications
294  {\dosingleargument\dosetuppublications}
295
296\protected\def\dosetuppublications[#1]%
297  {\getparameters[\??pb][\c!alternative=,#1]%
298   \doifsomething\@@pbalternative
299     {\readsysfile{bibl-\@@pbalternative.tex}
300        {\showmessage\m!publications{6}{bibl-\@@pbalternative}}
301        {\showmessage\m!publications{1}{bibl-\@@pbalternative}}%
302      \let\@@pbalternative\empty}%
303   \let\setuppublicationlayout\normalsetuppublicationlayout % overloaded in bibl-num ... vadjust needs to be done with option
304   \getparameters[\??pb][#1]% as bibl-* can have set things back
305   \the\everysetuppublications
306   \ignorespaces}
307
308%D We can omit already shown references (\v!global) or use fresh lists each time
309%D (\v!local).
310
311\setnewconstant\bibtexoncemode\plusone % 0=disable, 1=local, 2=global
312
313\appendtoks
314  \doifelse\@@pbmethod\v!local
315    {\bibtexoncemode\plusone}%
316    {\bibtexoncemode\plustwo}%
317\to \everysetuppublications
318
319%D Cite lists are compressed, if possible. This is set later on.
320
321\newif\ifbibcitecompress\bibcitecompresstrue
322
323\def\@@pbinumbercommand{\executeifdefined{\??pb:\c!numbercommand:\@@pbnumbering}\firstofoneargument}
324
325\setvalue{\??pb:\c!numbercommand:\v!yes  }#1{#1}%
326\setvalue{\??pb:\c!numbercommand:\v!no   }#1{}
327\setvalue{\??pb:\c!numbercommand:\v!short}#1{\bibgetvars\currentpublicationkey}
328\setvalue{\??pb:\c!numbercommand:\v!bib  }#1{\bibgetvarn\currentpublicationkey}
329
330% to be tested
331%
332% \setvalue{\??pb:\c!numbercommand:\v!short}{\bibgetvars\currentpublicationkey\firstofoneargument}
333% \setvalue{\??pb:\c!numbercommand:\v!bib  }{\bibgetvarn\currentpublicationkey\firstofoneargument}
334
335\appendtoks
336  \processaction
337    [\@@pbrefcommand]
338    [\s!default=>\edef\@@citedefault{\@@pbrefcommand},
339     \s!unknown=>\edef\@@citedefault{\@@pbrefcommand}]%
340\to \everysetuppublications
341
342\protected\def\bibleftnumber#1{#1\hfill~}
343
344%D \macros{usepublications}
345%D
346%D After discussing it with Thomas Schmitz it became clear that using external
347%D references makes no sense as one needs to refer to it in special ways and because
348%D similar numbers can be confusing. So, for the moment this is not supported in
349%D \MKIV. (So no: see reference [3-5,9] in "some other document")
350
351\protected\def\usepublications[#1]%
352  {\processcommalist[#1]\dousepublications}
353
354\protected\def\dousepublications#1%
355  {\doonlyonce{#1.\f!bibextension}{\dodousepublications{#1}}}
356
357\pushoverloadmode
358
359\protected\def\dodousepublications#1% brr, this par stuff
360  {\enforced\let\par\ignorespaces
361   \ifhmode\kern\zeropoint\fi
362   \pushcatcodetable
363   \setcatcodetable\ctxcatcodes
364   \readfile{#1.\f!bibextension}
365     {\showmessage\m!publications{4}{#1.\f!bibextension}}
366     {\showmessage\m!publications{2}{#1.\f!bibextension}}%
367   \popcatcodetable
368   \ifhmode\removeunwantedspaces\fi
369   \enforced\let\par\normalpar}
370
371\popoverloadmode
372
373%D \macros{setuppublicationlist}
374%D
375%D This will be the first command in (\BIBTEX-generated) \type {bbl} files. \quote
376%D {samplesize} is a sample value (in case of \BIBTEX|-|generated files, this will
377%D be the longest \quote {short} key). Here \quote {totalnumber} is the total number
378%D of entries that will follow in this file.
379%D
380%D Both values are only needed for the label calculation if \quote {autohang} is
381%D \quote {true}, so by default the command is not even needed, and therefore I saw
382%D no need to give it it's own system variable and it just re-uses \type {pb}.
383
384\def\publicationlistparameter#1{\csname\??pv:l:#1\endcsname}
385
386\protected\def\setuppublicationlist
387  {\dosingleempty\dosetuppublicationlist}
388
389\protected\def\dosetuppublicationlist[#1]%
390  {\getparameters[\??pv:l:][#1]%
391   \setuplist[pubs][\c!samplesize={AA99},\c!alternative=a,\c!interaction=,\c!pagenumber=\v!no,#1,\c!command=]}
392
393\protected\def\setuppublicationlayout[#1]#2%
394  {\setvalue{\??pv:l:#1}{#2}}
395
396\let\normalsetuppublicationlayout\setuppublicationlayout
397
398\setuppublicationlist
399  [\c!title=,
400   \c!command=\dospecialbibinsert,
401   \c!maybeyear=\v!on]
402
403%D \macros{bibalternative}
404%D
405%D A nice little shorthand that will be used so we don't have to key in the weird
406%D \type {\@@pv} parameter names all the time.
407
408\def\bibalternative#1%
409  {\csname\??pv\@@currentalternative#1\endcsname}
410
411%D \macros{simplebibdef,bibcommandlist}
412%D
413%D \type {\simplebibdef} defines \type {bib@#1}, which in turn will use one argument
414%D that is stored in \type {@@pb@#1}.
415%D
416%D \type {\simplebibdef} also defines \type {bibinsert#1}, which can be used in the
417%D argument of \type {\setuppublicationlayout} to fetch one of the \type {@@pb@}
418%D data entries. \type {bibinsert#1} then has three arguments: \type {#1} are
419%D commands to be executed before the data, \type {#2} are commands to be executed
420%D after the data, and \type {#3} are commands to be executed if the data is not
421%D found.
422%D
423%D \type {\bibcommandlist} is the list of commands that is affected by this
424%D approach. Later on, it will be used to do a series of assignments from \type {#1}
425%D to \type {bib@#1}: e.g \type {\title} becomes \type {\bib@title} when used within
426%D a publication.
427
428\newtoks\initializebibdefinitions % we need to prevent clashes
429
430\protected\def\simplebibdef#1% hh: funny expansion ?
431  {\expandafter\def\csname bib@#1\endcsname##1%
432     {\setvalue{\??pb @#1}{##1}\ignorespaces}%
433   \expandafter \appendtoks
434     \expandafter\let\csname insert#1\expandafter\endcsname\csname bibinsert#1\endcsname
435   \to \initializebibdefinitions
436   \expandafter\protected\expandafter\def\csname bibinsert#1\endcsname##1##2##3%
437     {\expandafter\bibdoifelse\expandafter{\csname\??pb @#1\endcsname}{##1\csname\??pb @#1\endcsname##2}{##3}}}
438
439\def\bibcommandlist
440  {abstract, annotate, arttitle, assignee, bibnumber, bibtype, biburl, chapter, city,
441   comment, country, day, dayfiled, doi, edition, eprint, howpublished, isbn, issn,
   issue, journal, keyword, keywords, lastchecked, month, monthfiled, names, nationality,
443   note, notes, organization, pages, pubname, pubyear, revision, series, size, thekey,
444   title, volume, yearfiled}
445
446\processcommacommand[\bibcommandlist]\simplebibdef
447
448\protected\def\bibinsertdoi#1#2#3% let's see how this fails
449  {\bibdoifelse{\@@pb@doi}{#1\expanded{\bibgotoDOI{\@@pb@thekey}{\@@pb@doi}}#2}{#3}}
450
451\protected\def\bibinsertbiburl#1#2#3% let's see how this fails
452  {\bibdoifelse{\@@pb@biburl}{#1\expanded{\bibgotoURL{\@@pb@thekey}{\@@pb@biburl}}#2}{#3}}
453
\protected\def\bibinsertmonth#1#2#3%
  {\bibdoifelse\@@pb@month
     {#1\doifelsenumber\@@pb@month
       {\doifelseconversiondefined\@@pbmonthconversion
          {\convertnumber\@@pbmonthconversion\@@pb@month}{\@@pb@month}}%
          {\@@pb@month}#2}%
460     {#3}}
461
462\appendtoks
463    \let\inserturl \bibinsertbiburl  % for backward compat.
464    \let\inserttype\bibinsertbibtype % for backward compat.
465\to\initializebibdefinitions
466
467\protected\def\newbibfield[#1]%
468  {\simplebibdef{#1}%
469   \edef\bibcommandlist{\bibcommandlist,#1}}
470
471%D \macros{complexbibdef,specialbibinsert}
472%D
473%D The commands \type {\artauthor}, \type {\author} and \type {\editor} are more
474%D complex than the other commands. Their argument lists have this form:
475%D
476%D \type{\author[junior]{firstnames}[inits]{von}{surname}}
477%D
478%D (bracketed stuff is optional)
479%D
480%D And not only that, but there also might be more than one of each of these
481%D commands. This is why a special command is needed to insert them, as well as one
482%D extra counter for each command.
483
484% todo: instead of \getvalue {bla@num} in specs we should do \bibentrynum {bla} so
485% that we can create a better namespace
486
487%D All of these \type {\expandafter}'s and \type {\csnames} make this code look far
488%D more complex than it really is. For example, the argument \type {author} defines
489%D the macro \type {\bib@author} to do two things: increment the counter \type
490%D {\author@num} (let's say to 2) and next store it's arguments in the macro \type
491%D {\@@pb@author2}. And it defines \type {\bibinsertauthors} to expand into
492%D
493%D \starttyping
494%D \specialbibinsert{author}{\author@num}{<before>}{<after>}{<not>}
495%D \stoptyping
496
497\protected\def\docomplexbibdef#1%
498  {\dodoubleempty\dodocomplexbibdef[#1]}
499
500\protected\def\dodocomplexbibdef[#1][#2]#3%
501  {\doquadrupleempty\dododocomplexbibdef[#1][#2][#3]}
502
503\protected\def\dododocomplexbibdef[#1][#2][#3][#4]#5#6%
504  {\expandafter\increment\csname#1@num\endcsname % todo: bib in name
505   \setevalue{\??pb @#1\csname#1@num\endcsname}{{#3}{#5}{#6}{#4}{#2}}\ignorespaces}
506
507\protected\def\complexbibdef#1%
508  {\expandafter\newcounter\csname #1@num\endcsname
509   \expandafter\def\csname bib@#1\endcsname{\docomplexbibdef{#1}}%
510   \expandafter \appendtoks
511     \expandafter\let\csname insert#1s\expandafter\endcsname\csname bibinsert#1s\endcsname
512   \to \initializebibdefinitions
513   \expandafter\def\csname bibinsert#1s\endcsname##1##2##3{\specialbibinsert{#1}{\csname #1@num\endcsname}{##1}{\unskip ##2}{##3}}}
514
515\processcommalist[author,artauthor,editor]\complexbibdef
516
517%D Another level of indirection is needed to control the typesetting of all of these
518%D arguments.
519
520\newcount\etallimitcounter
521\newcount\etaldisplaycounter
522\newcount\todocounter
523
524\protected\def\specialbibinsert#1#2#3#4#5%
525  {\bgroup
526   \ifnum#2>\zerocount
527     \etallimitcounter  =0\bibalternative{#1etallimit}\relax
528     \etaldisplaycounter=0\bibalternative{#1etaldisplay}\relax
529     \ifnum #2>\etallimitcounter
530       \todocounter\etaldisplaycounter
531       % just in case ...
532	   \ifnum\todocounter>\etallimitcounter
533         \todocounter\etallimitcounter
534       \fi
535     \else
536       \todocounter#2\relax
537     \fi
538     \ifnum\todocounter>\zerocount
539       % find the current author list
540       \let\templist\empty
541       \dorecurse{#2}
542         {\scratchtoks\doubleexpandafter{\csname\??pb @#1\recurselevel\endcsname}%
543          \edef\templist{\ifempty\templist\else\templist,\fi\the\scratchtoks}}%
544       #3\publicationlistparameter\c!command{#1}{\todocounter}{\templist}#4\relax
545     \else
546       #5%
547     \fi
548   \else
549     #5%
550   \fi
551   \egroup}
552
553%D This macro does the hard work of inserting a list of people in the output, with
554%D proper regard of all the inbetween strings that can arise depending on length of
555%D the list of people.
556
557%D \#1 = type
558%D \#2 = number of items to be typeset
559%D \#3 = commacommand containing authors
560
561\protected\def\doprocessauthoritem#1#2#3%
562  {\advance\scratchcounter\plusone
563   \ifnum\numexpr\scratchcounter-\plusone\relax<#2\relax
564     \publicationlistparameter{#1}#3%
565     \ifnum\scratchcounter=#2\relax
566       \ifnum\etallimitcounter<\commalistsize\relax
567         \bibalternative{#1etaltext}%
568       \fi
569     \orelse\ifnum\numexpr\scratchcounter+\plusone\relax=#2\relax
570        \ifnum\commalistsize>\plustwo
571          \bibalternative\c!finalnamesep
572        \else
573          \bibalternative\c!lastnamesep
574        \fi
575     \else
576       \bibalternative\c!namesep
577     \fi
578   \fi}
579
580\protected\def\dospecialbibinsert#1#2#3%
581  {\getcommacommandsize[#3]%
582   \scratchcounter\zerocount
583   \processcommacommand[#3]{\doprocessauthoritem{#1}{#2}}}
584
585%D \macros{invertedauthor,normalauthor,invertedshortauthor,normalshortauthor}
586%D
587%D Just some commands that can be used in \type {\setuppublicationparameters}
588%D If you want to write an extension to the styles, you might as well define
589%D some of these commands yourself.
590%D
591%D The argument list has been reordered here, and the meanings are:
592%D
593%D \startlines
594%D \type{#1} firstnames
595%D \type{#2} von
596%D \type{#3} surname
597%D \type{#4} inits
598%D \type{#5} junior
599%D \stoplines
600
601\protected\def\normalauthor#1#2#3#4#5%
602  {\bibdoif{#1}{#1\bibalternative\c!firstnamesep}%
603   \bibdoif{#2}{#2\bibalternative\c!vonsep}%
604   #3%
605   \bibdoif{#5}{\bibalternative\c!surnamesep#5\unskip}}
606
607\protected\def\normalshortauthor#1#2#3#4#5%
608  {\bibdoif{#4}{#4\bibalternative\c!firstnamesep}%
609   \bibdoif{#2}{#2\bibalternative\c!vonsep}%
610   #3%
611   \bibdoif{#5}{\bibalternative\c!surnamesep#5\unskip}}
612
613\protected\def\invertedauthor#1#2#3#4#5%
614  {\bibdoif{#2}{#2\bibalternative\c!vonsep}%
615   #3%
616   \bibdoif{#5}{\bibalternative\c!juniorsep#5}%
617   \bibdoif{#1}{\bibalternative\c!surnamesep#1\unskip}}
618
619\protected\def\invertedshortauthor#1#2#3#4#5%
620  {\bibdoif{#2}{#2\bibalternative\c!vonsep}%
621   #3%
622   \bibdoif{#5}{\bibalternative\c!juniorsep#5}%
623   \bibdoif{#4}{\bibalternative\c!surnamesep#4\unskip}}
624
625%D \macros{clearbibitem,clearbibitemtwo,bibitemdefs}
626%D
627%D These are used in \type {\typesetapublication} to do initializations and
628%D cleanups.
629
630\protected\def\clearbibitem#1{\setvalue{\??pb @#1}{}}%
631
632\protected\def\clearbibitemtwo#1% is this reset really needed? after all we reset the counter and we are local
633  {%\dofastrecurse\plusone{\csname#1@num\endcsname}\plusone{\expandafter\let\csname\??pb @#1\recurselevel\undefined}%
634   \letvalue{#1@num}\!!zerocount}
635
636\protected\def\bibitemdefs#1%
637  {\expandafter\let\csname#1\expandafter\endcsname\csname bib@#1\endcsname}
638
639\protected\def\presetbibvariables % make a fast resetter (toks)
640  {\processcommacommand[\bibcommandlist,crossref]\clearbibitem
641   \processcommalist   [artauthor,author,editor]\clearbibitemtwo
642   \processcommacommand[\bibcommandlist]\bibitemdefs
643   \processcommalist   [artauthor,author,editor,crossref]\bibitemdefs}
644
645%D \macros{startpublication}
646%D
647%D We are coming to the end of this module, to the macros that do typesetting and
648%D read the \type {bbl} file.
649%D
650%D Just a \type {\dosingleempty} is the most friendly of doing this: there need not
651%D even be an argument to \type {\startpublication}. Of course, then there is no key
652%D either, and it had better be an article (otherwise the layout will be all screwed
653%D up).
654%D
655%D Only specifying the key in the argument is also legal. In storing this stuff into
656%D macros, some trickery with token registers is needed to fix the expansion
657%D problems. Even so, this appears to not always be 100\% safe, so people are
658%D urgently advised to use \ETEX\ instead of traditional \TEX.
659%D
660%D In \ETEX, all expansion problems are conveniently solved by the primitive \type
661%D {\protected}. To put that another way:
662%D
663%D It's not a bug in this module if it does not appear in \ETEX!
664%D
665%D Now prohibits comments, so % can be used for urls
666
667\pushoverloadmode
668
669\overloaded \protected\def\startpublication
670  {\dosingleempty\dostartpublication}
671
672\overloaded\let\stoppublication\relax
673
674\popoverloadmode
675
676%D This is rather memory hungry; some day i will rewrite this so that we use the
677%D database instead.
678
679%D \macros{doifbibreferencefoundelse}
680%D
681%D Some macros to fetch the information provided by \type {\startpublication}.
682%D
683%D We can consider a faster variant in the bbl file; we can also consider storing
684%D the keys in lua (and then do more in lua) and use calls to fetch the variables.
685
686% hm, we can store at the lua end ...
687
688\protected\def\dostartpublication[#1]%
689  {\begingroup
690   \doifelseassignment{#1}%
691     {\getparameters[\??pb][k=\s!unknown,t=article,n=,s=,a=,y=,o=,u=,#1]}%
692     {\getparameters[\??pb][k=#1,t=article,n=,s=,a=,y=,o=,u=]}%
693   \ctxlua{bibtex.hacks.register(\!!bs\@@pbk\!!es,\!!bs\@@pbs\!!es)}%
694   \catcode\commentasciicode\othercatcode
695   \dodostartpublication}
696
697\protected\def\dodostartpublication#1\stoppublication
698  {\setxvalue{pbd:\@@pbk}##1{\noexpand\ifcase##1\noexpand\or
699     \@@pbk\noexpand\or
700     \@@pba\noexpand\or
701     \@@pby\noexpand\or
702     \@@pbs\noexpand\or
703     \@@pbn\noexpand\or
704     \@@pbt\noexpand\or
705     \@@pbo\noexpand\or
706     \@@pbu\noexpand\or
707     \normalunexpanded{#1}\noexpand\fi}%
708   \endgroup
709   \ignorespaces}
710
711\def\bibgetvark#1{\csname pbd:#1\endcsname\plusone  }
712\def\bibgetvara#1{\csname pbd:#1\endcsname\plustwo  }
713\def\bibgetvary#1{\csname pbd:#1\endcsname\plusthree}
714\def\bibgetvars#1{\csname pbd:#1\endcsname\plusfour }
715\def\bibgetvarn#1{\csname pbd:#1\endcsname\plusfive }
716\def\bibgetvart#1{\csname pbd:#1\endcsname\plussix  }
717\def\bibgetvaro#1{\csname pbd:#1\endcsname\plusseven}
718\def\bibgetvaru#1{\csname pbd:#1\endcsname\pluseight}
719\def\bibgetvard#1{\csname pbd:#1\endcsname\plusnine }
720
721\protected\def\doifelsebibreferencefound#1%
722  {\preloadbiblist
723   \doifelsedefined{pbd:#1}
724     \firstoftwoarguments
725     {\showmessage\m!publications{5}{#1,\the\inputlineno}\secondoftwoarguments}}
726
727\let\doifbibreferencefoundelse\doifelsebibreferencefound
728
729%D \macros{bib@crossref}
730%D
731%D \type {\crossref} is used in database files to point to another entry. Because of
732%D this special situation, it has to be defined separately. Since this command will
733%D not be seen until at \type {\placepublications}, it may force extra runs. The
734%D same is true for \type {\cite} commands inside of publications.
735
736% used in bib self
737
738\protected\def\bib@crossref#1% called via \csname \endcsname
739  {\setvalue{\??pb @crossref}{#1}\ignorespaces}
740
741\protected\def\bibinsertcrossref#1#2#3%
742  {\bibdoifelse\@@pb@crossref{#1\cite[\@@pb@crossref]#2}{#3}}
743
744\let\insertcrossref\gobblethreearguments
745
746\appendtoks\let\insertcrossref\bibinsertcrossref\to\initializebibdefinitions
747
748%D The next macro is needed because the number command of the publist sometimes
749%D needs to fetch something from the current item (like the 'short' key). For this,
750%D the ID of the current item is passed in the implict parameter \type
751%D {\currentpublicationkey}.
752
753\protected\def\doprocessbibtexentry#1{\typesetapublication{#1}}
754
755\protected\def\typesetpubslist
756  {\begingroup
757   \startpacked[\v!blank]%
758   \preloadbiblist
759   % \the\initializebibdefinitions % COMMENTED
760   \edef\currentlist{pubs}%
761   \ctxlua{bibtex.hacks.reset(\number\bibtexoncemode)}%
762   \doifelse{\listparameter\c!criterium}\v!all
763     {\showmessage\m!publications{7}{}%
764      \ctxlua{bibtex.hacks.filterall()}}
765     {\doif{\listparameter\c!criterium}\v!cite
766        {\setuplist[pubs][\c!criterium=\v!here]}%
767      \strc_lists_place_current
768        {pubs}%
769        {\listparameter\c!criterium}%
770        {}%
771        {\listparameter\c!extras}%
772        {\listparameter\c!order}}%
773   \ctxlua{bibtex.hacks.flush("\@@pbsorttype")}%
774   \stoppacked
775   \endgroup}
776
777\newif\ifinpublist
778
779\protected\def\initializepubslist
780  {\def\currentlist{pubs}%
781   \edef\@@pbnumbering{\@@pbnumbering}%
782   \doifelse\@@pbautohang\v!yes
783     {\ifx\@@pbnumbering\v!short
784        \setbox\scratchbox\hbox{\@@pbnumbercommand{\listparameter\c!samplesize}}%
785      \else
786        \doifelse{\listparameter\c!criterium}\v!all
787          {\setbox\scratchbox\hbox{\@@pbnumbercommand{\ctxlua{tex.write{bibtex.hacks.nofregistered()}}}}}
788          {\determinelistcharacteristics[pubs]%
789           \setbox\scratchbox\hbox{\@@pbnumbercommand{\structurelistsize}}}%
790      \fi
791      \edef\publistnumberbox{\hbox to \the\wd\scratchbox}%
792      \expanded{\setuplist[pubs][\c!width=\the\wd\scratchbox,\c!distance=\zeropoint]}%
793      \ifx\@@pbnumbering\v!short
794        \def\@@pblimitednumber##1{\publistnumberbox{\@@pbnumbercommand{\bibgetvars\currentpublicationkey}}}%
795      \orelse\ifx\@@pbnumbering\v!bib
796        \def\@@pblimitednumber##1{\publistnumberbox{\@@pbnumbercommand{\bibgetvarn\currentpublicationkey}}}%
797      \else
798        \def\@@pblimitednumber##1{\publistnumberbox{\@@pbnumbercommand{##1}}}%
799      \fi}
800     {\doifelsenothing{\listparameter\c!width}
801        {\let \publistnumberbox \hbox}
802        {\edef\publistnumberbox{\hbox to \listparameter\c!width}}%
803      \ifx\@@pbnumbering\v!short
804        \def\@@pblimitednumber##1{\publistnumberbox{\@@pbnumbercommand{\bibgetvars\currentpublicationkey}}}%
805      \orelse\ifx\@@pbnumbering\v!bib
806        \def\@@pblimitednumber##1{\publistnumberbox{\@@pbnumbercommand{\bibgetvarn\currentpublicationkey}}}%
807      \else
808        \def\@@pblimitednumber##1{\publistnumberbox{\@@pbnumbercommand{##1}}}%
809      \fi}%
810   \ifx\@@pbnumbering\v!no
811     \setuplist[pubs][\c!numbercommand=,\c!symbol=\v!none,\c!textcommand=\outdented]%
812   \else
813     \setuplist[pubs][\c!numbercommand=\@@pblimitednumber]%
814   \fi
815   \doifelse{\publicationlistparameter\c!maybeyear}{\v!off}{\def\maybeyear##1{}}{\def\maybeyear##1{##1}}%
816   \forgetall}
817
818%D The full list of publications
819
820\protected\def\completepublications
821  {\dosingleempty\docompletepublications}
822
823\protected\def\docompletepublications[#1]%
824  {\begingroup
825   \setuplist[pubs][#1]%
826   \edef\currentbibtexsessiontitle{\publicationlistparameter\c!title}%
827   \ifempty\currentbibtexsessiontitle
828     \normalexpanded{\startnamedsection[\v!chapter][\c!reference=pubs,\c!title={\headtext{pubs}}]}%
829   \else
830     \normalexpanded{\startnamedsection[\v!chapter][\c!reference=pubs,\c!title={\currentbibtexsessiontitle}]}%
831   \fi
832   \dodoplacepublications
833   \stopnamedsection
834   \endgroup}
835
836%D And the portion with the entries only.
837
838\def\bibrefprefix{\number\bibtexblock:}
839
840\protected\def\placepublications
841  {\dosingleempty\doplacepublications}
842
843\protected\def\doplacepublications[#1]%
844  {\begingroup
845   \setuplist[pubs][#1]%
846   \dodoplacepublications
847   \endgroup}
848
849\protected\def\dodoplacepublications
850  {\determinelistcharacteristics[pubs]%
851   \initializepubslist
852   \doifnot{\namedlistparameter{pubs}\c!option}\v!continue
853     {\global\bibtexcounter\zerocount}%
854   \inpublisttrue
855   \typesetpubslist
856   \inpublistfalse
857   \global\advance\bibtexblock\plusone}
858
859%D \subsubject{What's in a publication}
860%D
861%D Watch out: here all means all publications in database, so use text when you want
862%D text only.
863
864\protected\def\typesetapublication#1%
865  {\doifsomething{#1}
866     {\doifelse{\namedlistparameter{pubs}\c!criterium}\v!all
867        {\doplacepublicationindeed{#1}}%
868        {\ctxlua{bibtex.hacks.doifalreadyplaced("#1")}
869           {}
870           {\doplacepublicationindeed{#1}}}%
871      }}
872
873%D For the moment we don't access the data directly but we will do that later when
874%D we get away from storing the data and only deal with references.
875
876% we'll define proper handlers later
877
878\protected\def\doplacepublicationindeed#1%
879  {\doifelsebibreferencefound{#1}
880     {\global\advance\bibtexcounter\plusone
881      \def\currentpublicationkey{#1}%
882      \ctxlua{bibtex.hacks.registerplaced("#1")}%
883      \def \currentlist               {pubs}%
884      \edef\currentlistentrynumber    {\number\bibtexcounter}%
885      \let \currentlistentrytitle     \bibtexpubtext
886      \let \currentlistentrypagenumber\empty
887      \strc_lists_apply_renderingsetup}
888     {}} % invalid
889
890\protected\def\bibtexpubtext
891  {\expanded{\reference[\bibrefprefix\currentpublicationkey]{\number\bibtexcounter}}%
892   \strut\dotypesetapublication\currentpublicationkey\strut}
893
894\protected\def\dotypesetapublication#1%
895  {\bgroup
896   \the\initializebibdefinitions % NEW
897   \def\@@currentalternative{:l:}%
898   \presetbibvariables
899   \let\biblanguage\empty
900   \ignorespaces
901   \bibgetvard{#1}%
902   \removeunwantedspaces
903   \ignorespaces
904   \bibalternative{\bibgetvart{#1}}%
905   \removeunwantedspaces
906   \egroup}
907
908%D An few afterthoughts:
909
910\let\maybeyear\gobbleoneargument
911\let\noopsort \gobbleoneargument
912
913%D This is the result of bibtex's `language' field.
914
915\protected\def\setbiblanguage#1#2{\setvalue{\??pb\s!language#1}{#2}}
916
917\protected\def\lang#1%
918   {\edef\biblanguage{#1}%
919    \ifcsname\??pb\s!language#1\endcsname
920      \language[\getvalue{\??pb\s!language#1}]%
921    \fi
922    \ignorespaces}
923
924%D \subject{Citations}
925
926%D \macros{cite,bibref}
927%D
928%D The indirection with \type {\dobibref} allows \LATEX\ style \type {\cite}
929%D commands with a braced argument (these might appear in included data from the
930%D \type {.bib} file).
931
932\pushoverloadmode
933
934\protected\def\cite
935  {\strictdoifelsenextoptional\dodocite\dobibref}
936
937\popoverloadmode
938
939\protected\def\dobibref#1%
940  {\docite[#1][]}
941
942\protected\def\dodocite[#1]%
943  {\strictdoifelsenextoptional{\docite[#1]}{\docite[#1][]}}
944
945\protected\def\docite[#1][#2]%
946  {\begingroup
947   \doifelsesomething{#2}
948     {\dowhatevercite{#1}{#2}}%
949     {\donumberedcite{#1}}%
950   \endgroup}
951
952\protected\def\dowhatevercite#1#2%
953  {\processcommalist[#2]\docitation
954   \setupinteraction[\c!style=]%
955   \doifelseassignment
956     {#1}%
957     {\getparameters[LO][\c!alternative=,\c!extras=,#1]%
958      \edef\@@currentalternative{\LOalternative}%
959      \ifempty\@@currentalternative
960        \edef\@@currentalternative{\@@citedefault}%
961      \fi
962      \ifempty\LOextras
963        \setupcite[\@@currentalternative][#1]%
964      \else
965        \expandafter\ifrelax\csname \??pv \@@currentalternative\c!right\endcsname
966          % avoids tail recursion
967          \expandafter\let\csname \??pv \@@currentalternative\c!right\endcsname\empty
968        \fi
969        \expandafter\ifrelax\csname LOright\endcsname
970          \edef\LOextras{{\LOextras\bibalternative\c!right}}%
971        \else
972          \edef\LOextras{{\LOextras\LOright}}%
973        \fi
974        \expanded{\setupcite[\@@currentalternative][#1,\c!right=\LOextras]}%
975      \fi}%
976     {\def\@@currentalternative{#1}}%
977   \doifelsevalue{@@pv\@@currentalternative\c!compress}\v!no\bibcitecompressfalse\bibcitecompresstrue
978   \getvalue{bib\@@currentalternative ref}[#2]}
979
980\protected\def\donumberedcite#1%
981  {\processcommalist[#1]\docitation
982   \setupinteraction[\c!style=]%
983   \edef\@@currentalternative{\@@citedefault}%
984   \doifelsevalue{@@pv\@@currentalternative\c!compress}\v!no\bibcitecompressfalse\bibcitecompresstrue
985   \getvalue{bib\@@citedefault ref}[#1]}
986
987%D \macros{nocite}
988
989\pushoverloadmode
990
991\protected\def\nocite[#1]%
992  {\processcommalist[#1]\docitation}
993
994\popoverloadmode
995
996%D \macros{setupcite}
997
998\permanent\tolerant\protected\def\setupcite[#1]#*[#2]%
999  {\ifparameter#2\or
1000     \def\dodosetupcite##1{\getparameters[\??pv##1][#2]}%
1001     \processcommalist[#1]\dodosetupcite
1002   \else % default case
1003     \getparameters[\??pv\@@citedefault][#1]%
1004   \fi}
1005
1006%D Low-level stuff
1007
1008\protected\def\getcitedata#1[#2]#*[#3]#*to#4%
1009  {\bgroup
1010   \dofetchapublication{#3}%
1011   \doifelsedefined{\??pb @bib#2}%
1012     {\xdef#4{\getvalue{\??pb @bib#2}}}%
1013     {\xdef#4{\getvalue{\??pb @#2}}}%
1014   \egroup}
1015
1016\protected\def\dofetchapublication#1%
1017  {\def\currentpublicationkey{#1}%
1018   \presetbibvariables
1019   \ignorespaces\bibgetvard{#1}}
1020
1021\protected\def\docitation#1%
1022  {\iftrialtypesetting \else
1023     \expanded{\writedatatolist[pubs][bibref=#1]}%
1024   \fi}
1025
1026\let\addthisref\gobbleoneargument % keep this for compatibility
1027
1028%D \macros{ixbibauthoryear,thebibauthors,thebibyears}
1029%D
1030%D If compression of \type {\cite}'s argument expansion is on, the macros that deal
1031%D with authors and years call this internal command to do the actual typesetting.
1032%D
1033%D Two entries with same author but with different years may be condensed into
1034%D ``Author (year1,year2)''. This is about the only optimization that makes sense
1035%D for the (author,year) style of citations (years within one author have to be
1036%D unique anyway so no need to test for that, and ``Author1, Author2 (year)''
1037%D creates more confusion than it does good).
1038%D
1039%D In the code below, the macro \type {\thebibauthors} holds the names of the
1040%D alternative author info fields for the current list. This is a commalist, and
1041%D \type {\thebibyears} holds the (collection of) year(s) that go with this author
1042%D (possibly as a nested commalist).
1043%D
1044%D There had better be an author for all cases, but there does not have to be year
1045%D info always. \type{\thebibyears} is pre|-|initialized because this makes the
1046%D insertion macros simpler.
1047%D
1048%D In normal \TEX, of course there are expansion problems again.
1049
1050%D Delegate this to \LUA.
1051
1052% \let\ixlastcommand   \relax
1053% \let\ixsecondcomman  \relax
1054% \let\ixfirstcommand  \relax
1055% \let\thebibauthors   \empty
1056% \let\thebibyears     \empty
1057% \let\authorcount     \!!zerocount
1058
1059\let\currentbibauthor\empty
1060
1061\protected\def\ixbibauthoryear#1#2#3#4%
1062  {\bgroup
1063   \gdef\ixlastcommand  {#4}%
1064   \gdef\ixsecondcommand{#3}%
1065   \gdef\ixfirstcommand {#2}%
1066   \glet\thebibauthors  \empty
1067   \glet\thebibyears    \empty
1068   \getcommalistsize[#1]%
1069   \ifbibcitecompress
1070     \dorecurse\commalistsize{\xdef\thebibyears{\thebibyears,}}%
1071     \processcommalist[#1]\docompressbibauthoryear
1072   \else
1073     \processcommalist[#1]\donormalbibauthoryear
1074   \fi
1075   \egroup
1076   \dobibauthoryear}
1077
1078%D \macros{dodobibauthoryear}
1079%D
1080%D This macro only has to make sure that the lists \type {\thebibauthors} and \type
1081%D {\thebibyears} are printed.
1082
1083\protected\def\dobibauthoryear
1084  {\scratchcounter\zerocount
1085   \getcommacommandsize[\thebibauthors]%
1086   \edef\authorcount{\commalistsize}%
1087   \expandafter\processcommalist\expandafter[\thebibauthors]\dodobibauthoryear}
1088
1089\protected\def\dodobibauthoryear#1%
1090  {\advance\scratchcounter\plusone
1091   \edef\wantednumber{\the\scratchcounter}%
1092   \getfromcommacommand[\thebibyears][\wantednumber]%
1093   \expandafter\def\expandafter\currentbibyear\expandafter{\commalistelement}%
1094   \setcurrentbibauthor{#1}%
1095   \ifnum\scratchcounter=\plusone
1096     \ixfirstcommand
1097   \orelse\ifnum \scratchcounter=\authorcount\relax
1098     \ixlastcommand
1099   \else
1100     \ixsecondcommand
1101   \fi}
1102
1103\protected\def\setcurrentbibauthor#1% sensitive for empty entries but I don't want to touch this
1104  {\getcommacommandsize[#1]%
1105   \ifcase\commalistsize
1106    % anonymous?
1107     \let\currentbibauthor\empty
1108   \or
1109     \def\currentbibauthor{#1}%
1110   \or
1111     \expanded{\docurrentbibauthor#1}%
1112   \else
1113     \handlemultiplebibauthors{\commalistsize}{#1}%
1114   \fi}
1115
1116\newcount\citescratchcounter
1117
1118\protected\def\handlemultiplebibauthors#1#2%
1119  {\citescratchcounter\zerocount
1120   \let\currentbibauthor\empty
1121   \protected\def\bibprocessauthoritem##1%
1122     {\advance\citescratchcounter\plusone
1123      \ifnum \citescratchcounter=#1\relax
1124        \edef\currentbibauthor{\currentbibauthor##1}%
1125      \orelse\ifnum\numexpr\citescratchcounter+\plusone\relax=#1\relax
1126        \edef\currentbibauthor{\currentbibauthor##1\bibalternative{andtext}}%
1127      \else
1128        \edef\currentbibauthor{\currentbibauthor##1\bibalternative{namesep}}%
1129      \fi}%
1130     \processcommalist[#2]\bibprocessauthoritem}
1131
1132\setupcite
1133  [author,authoryear,authoryears]
1134  [\c!namesep={, }]
1135
1136%D This discovery of authoretallimit is not the best one,
1137%D but it will do for now.
1138
1139\protected\def\docurrentbibauthor#1,#2%
1140  {\doifelseempty{#2}
1141     {\def\currentbibauthor{#1\bibalternative{otherstext}}}
1142     {\expandafter\ifrelax\csname\??pv\@@currentalternative authoretallimit\endcsname
1143        \edef\currentbibauthor{#1\bibalternative{andtext}#2}%
1144      \else
1145        \edef\currentbibauthor{#1%
1146        \ifcase0\bibalternative{authoretallimit}\relax\or
1147        \bibalternative{otherstext}\else\bibalternative{andtext}#2\fi}%
1148      \fi}}
1149
1150%D This is not the one Hans made for me, because I need a global
1151%D edef, and the \type {\robustdoifinsetelse} doesn't listen to
1152%D \type {\doglobal}.
1153
1154\pushoverloadmode
1155
1156    \protected\def\robustaddtocommalist#1#2% {item} \cs
1157      {\robustdoifelseinset{#1}#2\resetglobal
1158         {\dodoglobal\xdef#2{\ifempty#2\else#2,\fi#1}}}
1159
1160\popoverloadmode
1161
1162%D \macros{donormalbibauthoryear}
1163%D
1164%D Now we get to the macros that fill the two lists. The \quote {simple} one really
1165%D is quite simple.
1166
1167\protected\def\donormalbibauthoryear#1%
1168  {\def\myauthor{Xxxxxxxxxx}%
1169   \def\myyear{0000}%
1170   \doifelsebibreferencefound{#1}
1171     {\def\myauthor{{\bibgetvara{#1}}}%
1172      \def\myyear  {\bibgetvary{#1}}}%
1173     {}%
1174   \expandafter\doglobal\expandafter\appendtocommalist\expandafter{\myauthor}\thebibauthors
1175   \expandafter\doglobal\expandafter\appendtocommalist\expandafter{\myyear  }\thebibyears}
1176
1177%D \macros{docompressbibauthoryear}
1178%D
1179%D So much for the easy parts. Nothing at all will be done if the reference is not
1180%D found or the reference does not contain author data. No questions marks o.s.s.
1181%D (to be fixed later).
1182
1183\protected\def\docompressbibauthoryear#1%
1184  {\def\myauthor{Xxxxxxxxxx}%
1185   \def\myyear  {0000}%
1186   \doifelsebibreferencefound{#1}
1187     {\xdef\myauthor{\bibgetvara{#1}}%
1188      \xdef\myyear  {\bibgetvary{#1}}}
1189     {}%
1190    \ifempty\myauthor\else
1191      \checkifmyauthoralreadyexists
1192      \findmatchingyear
1193    \fi}
1194
1195%D Two temporary counters. One of these two can possibly be replaced by \type
1196%D {\scratchcounter}.
1197
1198\newcount\bibitemcounter
1199\newcount\bibitemwanted
1200
1201%D The first portion is simple enough: if this is the very first author it is quite
1202%D straightforward to add it. \type {\bibitemcounter} and \type {\bibitemwanted} are
1203%D needed later to insert the year information in the correct item of \type
1204%D {\thebibyears}.
1205
1206\protected\def\checkifmyauthoralreadyexists
1207  {\doifelseemptyvalue{thebibauthors}
1208     {\global\bibitemwanted \plusone
1209      \global\bibitemcounter\plusone
1210      \xdef\thebibauthors{{\myauthor}}}
1211     {% the next weirdness is because according to \getcommalistsize,
1212      % the length of \type{[{{},{}}]} is 2.
1213      \expandafter\getcommalistsize\expandafter[\thebibauthors,]%
1214      \global\bibitemcounter\numexpr\commalistsize+\minusone\relax
1215      \global\bibitemwanted \zerocount
1216      \processcommacommand[\thebibauthors]\docomparemyauthor}}
1217
1218%D The outer \type {\ifnum} accomplishes the addition of a new author to \type
1219%D {\thebibauthors}. The messing about with the two counters is again to make sure
1220%D that \type {\thebibyears} will be updated correctly.If the author {\it was}
1221%D found, the counters will stay at their present values and everything will be
1222%D setup properly to insert the year info.
1223
1224\protected\def\docomparemyauthor#1%
1225  {\global\advance\bibitemwanted \plusone
1226   \def\mytempc{#1}%
1227   \ifx\mytempc\myauthor
1228     \quitcommalist
1229   \orelse\ifnum\bibitemwanted=\bibitemcounter\relax
1230     \global\advance\bibitemwanted \plusone
1231     \global\bibitemcounter\bibitemwanted\relax
1232     \expandafter\doglobal\expandafter\robustaddtocommalist\expandafter{{\myauthor}}\thebibauthors
1233   \fi}
1234
1235%D This macro should be clear now.
1236
1237\protected\def\findmatchingyear
1238  {\edef\wantednumber{\the\bibitemwanted}%
1239   \getfromcommacommand[\thebibyears][\wantednumber]%
1240   \ifempty\commalistelement
1241     \edef\myyear{{\myyear}}%
1242   \else
1243     \edef\myyear{{\commalistelement,\myyear}}%
1244   \fi
1245   \edef\newcommalistelement{\myyear}%
1246   \doglobal\replaceincommalist \thebibyears \wantednumber}
1247
1248%D \macros{gotobiblink,inbiblink,atbiblink}
1249%D
1250%D The final task is looping over that list until a match is found.
1251
1252%D Beware, we can have cites without reference match.
1253
1254\protected\def\gotobiblink#1[#2]{\doifelsereferencefound{\bibrefprefix#2}{\goto{#1}[\bibrefprefix#2]}{#1}}
1255\protected\def\atbiblink    [#1]{\doifelsereferencefound{\bibrefprefix#1}{\at      [\bibrefprefix#1]}{#1}}
1256\protected\def\inbiblink    [#1]{\doifelsereferencefound{\bibrefprefix#1}{\expanded{\goto{\currentreferencetext}}[\bibrefprefix#1]}{#1}}
1257
1258%D \macros{bibauthoryearref,bibauthoryearsref,bibauthorref,bibyearref}
1259%D
1260%D Now that all the hard work has been done, these are simple. \type
1261%D {\ixbibauthoryearref} stores the data in the macros \type {\currentbibauthor} and
1262%D \type {\currentbibyear}.
1263
1264\protected\def\doifelsebibinteraction
1265  {\iflocation
1266     \edef\test{\bibalternative\c!interaction}%
1267     \ifx\test\v!stop
1268       \doubleexpandafter\secondoftwoarguments
1269     \else
1270       \doubleexpandafter\firstoftwoarguments
1271     \fi
1272   \else
1273     \expandafter\secondoftwoarguments
1274   \fi}
1275
1276\let\doifbibinteractionelse\doifelsebibinteraction
1277
1278\protected\def\bibmaybeinteractive#1#2%
1279  {\doifelsebibinteraction{\gotobiblink{#2}[#1]}{#2}}
1280
1281\protected\def\bibauthoryearref[#1]%
1282 {\ixbibauthoryear{#1}%
1283    {\bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween
1284     \bibalternative\v!left{\currentbibyear}\bibalternative\v!right}}
1285    {\bibalternative\c!pubsep
1286     \bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween
1287     \bibalternative\v!left  {\currentbibyear}\bibalternative\v!right}}
1288    {\bibalternative\c!lastpubsep
1289     \bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween
1290     \bibalternative\v!left {\currentbibyear}\bibalternative\v!right}}}
1291
1292\protected\def\bibauthoryearsref[#1]%
1293  {\bibalternative\v!left
1294   \ixbibauthoryear{#1}
1295     {\bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween{\currentbibyear}}}
1296     {\bibalternative\c!pubsep
1297      \bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween{\currentbibyear}}}
1298     {\bibalternative\c!lastpubsep
1299      \bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween{\currentbibyear}}}%
1300   \bibalternative\v!right}
1301
1302\protected\def\bibauthorref[#1]%
1303  {\bibalternative\v!left
1304   \ixbibauthoryear{#1}%
1305     {\bibmaybeinteractive{#1}{{\currentbibauthor}}}
1306     {\bibalternative\c!pubsep    \bibmaybeinteractive{#1}{{\currentbibauthor}}}
1307     {\bibalternative\c!lastpubsep\bibmaybeinteractive{#1}{{\currentbibauthor}}}%
1308   \bibalternative\v!right}
1309
1310\protected\def\bibyearref[#1]%
1311  {\bibalternative\v!left
1312   \ixbibauthoryear{#1}%
1313     {\bibmaybeinteractive{#1}{{\currentbibyear}}}
1314     {\bibalternative\c!pubsep    \bibmaybeinteractive{#1}{{\currentbibyear}}}
1315     {\bibalternative\c!lastpubsep\bibmaybeinteractive{#1}{{\currentbibyear}}}%
1316   \bibalternative\v!right}
1317
1318%D \macros{bibshortref,bibkeyref,bibpageref,bibtyperef,bibserialref}
1319%D
1320%D There is hardly any point in trying to compress these. The only thing that needs
1321%D to be done is making sure that the separations are inserted correctly. And that
1322%D is what \type {\bibinsertrefsep} does.
1323
1324\newconditional\firstbibrefsep
1325
1326\protected\def\bibresetrefsep
1327  {\settrue\firstbibrefsep}
1328
1329\protected\def\bibinsertrefsep
1330  {\ifconditional\firstbibrefsep
1331     \setfalse\firstbibrefsep
1332   \else
1333     \bibalternative\c!pubsep
1334   \fi}
1335
1336\protected\def\bibshortref[#1]%
1337  {\bibalternative\v!left
1338   \bibresetrefsep\processcommalist[#1]\dobibshortref
1339   \bibalternative\v!right}
1340
1341\protected\def\dobibshortref#1%
1342  {\bibinsertrefsep
1343   \doifelsebibreferencefound{#1}
1344     {\gotobiblink{\bibgetvars{#1}}[#1]}
1345	 {}}
1346
1347\protected\def\bibserialref[#1]%
1348  {\bibalternative\v!left
1349   \bibresetrefsep\processcommalist[#1]\dobibserialref
1350   \bibalternative\v!right}
1351
1352\protected\def\dobibserialref#1%
1353  {\bibinsertrefsep
1354   \doifelsebibreferencefound{#1}
1355     {\gotobiblink{\bibgetvarn{#1}}[#1]}
1356     {}}
1357
1358\protected\def\bibkeyref[#1]%
1359  {\bibalternative\v!left
1360   \bibresetrefsep\processcommalist[#1]\dobibkeyref
1361   \bibalternative\v!right}
1362
1363\protected\def\dobibkeyref#1%
1364  {\bibinsertrefsep
1365   \gotobiblink{#1}[#1]}
1366
1367\protected\def\bibgotoDOI#1#2%
1368  {\doifelsebibinteraction
1369     {\useURL[bibfooDoi#1][#2]%
1370      \useURL[bibfoo#1][http://dx.doi.org/#2]%
1371      \goto{\url[bibfooDoi#1]}[url(bibfoo#1)]}
1372     {\hyphenatedurl{#2}}}
1373
1374\protected\def\bibdoiref[#1]%
1375  {\bibalternative\v!left
1376   \bibresetrefsep\processcommalist[#1]\dobibdoiref
1377   \bibalternative\v!right}
1378
1379\protected\def\dobibdoiref#1%
1380  {\bibinsertrefsep
1381   \doifelsebibreferencefound{#1}
1382     {\expanded{\bibgotoDOI{#1}{\bibgetvaro{#1}}}}
1383     {}}
1384
1385\protected\def\biburlref[#1]%
1386  {\bibalternative\v!left
1387   \bibresetrefsep\processcommalist[#1]\dobiburlref
1388   \bibalternative\v!right}
1389
1390\protected\def\bibgotoURL#1#2%
1391  {\doifelsebibinteraction
1392     {\useURL[bibfoo#1][#2]\goto{\url[bibfoo#1]}[url(bibfoo#1)]}
1393     {\hyphenatedurl{#2}}}
1394
1395\protected\def\dobiburlref#1%
1396  {\bibinsertrefsep
1397   \doifelsebibreferencefound{#1}
1398     {\expanded{\bibgotoURL{#1}{\bibgetvaru{#1}}}}
1399     {}}
1400
1401\protected\def\bibtyperef[#1]%
1402  {\bibalternative\v!left
1403   \bibresetrefsep\processcommalist[#1]\dobibtyperef
1404   \bibalternative\v!right}
1405
1406\protected\def\dobibtyperef#1%
1407  {\bibinsertrefsep
1408   \doifelsebibreferencefound{#1}
1409     {\gotobiblink{\bibgetvart{#1}}[#1]}
1410     {}}
1411
1412\protected\def\bibpageref[#1]%
1413  {\bibalternative\v!left
1414   \bibresetrefsep\processcommalist[#1]\dobibpageref
1415   \bibalternative\v!right}
1416
1417\protected\def\dobibpageref#1%
1418  {\bibinsertrefsep
1419   \doifelsebibinteraction
1420     {\atbiblink[#1]}
1421     {{\referencingfalse\at[#1]}}}
1422
1423\protected\def\bibdataref[#1]%
1424  {\bibalternative\v!left
1425   \bibresetrefsep\processcommalist[#1]\dobibdata
1426   \bibalternative\v!right}
1427
1428\protected\def\dobibdata#1%
1429  {\bibinsertrefsep
1430   \doifelsebibreferencefound{#1}
1431     {\dotypesetapublication{#1}}
1432     {}}
1433
1434\let\bibnoneref\nocite
1435
1436%D \macros{bibnumref}
1437
1438\protected\def\bibnumref[#1]%
1439  {\begingroup
1440   \bibalternative\v!left
1441   \penalty\plustenthousand
1442   \ctxlua{bibtex.hacks.resolve("","\number\bibtexblock","#1")}%
1443   \bibalternative\v!right
1444   \endgroup}
1445
1446\protected\def\dowithbibtexnumrefconnector#1#2%
1447  {\ifnum#1>\plusone
1448     \ifnum#2>\plusone
1449       \ifnum#2=#1\relax
1450         \bibalternative{lastpubsep}%
1451       \else
1452         \bibalternative{pubsep}%
1453       \fi
1454     \fi
1455   \fi}
1456
1457\protected\def\dowithbibtexnumref#1#2#3#4#5% n, i, prefix block ref
1458  {\dowithbibtexnumrefconnector{#1}{#2}%
1459   \def\bibrefprefix{#4:}%
1460   \inbiblink[#5]}
1461
1462\protected\def\dowithbibtexnumrefrange#1#2#3#4#5#6#7% n, i, prefix block ref
1463  {\dowithbibtexnumrefconnector{#1}{#2}%
1464   \def\bibrefprefix{#4:}%
1465   \inbiblink[#5]%
1466   \endash
1467   \def\bibrefprefix{#6:}%
1468   \inbiblink[#7]}
1469
1470%D By request from Sanjoy. This makes it easier to implement \type {\citeasnoun}.
1471
1472\protected\def\bibauthornumref[#1]%
1473  {\getcommalistsize[#1]%
1474   \global\bibitemcounter\commalistsize
1475   \bibresetrefsep
1476   \processcommalist[#1]\dobibauthornumref}
1477
1478\protected\def\dobibauthornumref#1%
1479  {\bibinsertrefsep
1480   \doifelsebibreferencefound{#1}
1481     {\begingroup
1482      \cite[\c!left=,\c!right=,\c!alternative=\v!author][#1]%
1483      \bibalternative\c!inbetween
1484      \cite[num][#1]%
1485      \endgroup}
1486     {}}
1487
1488%D And some defaults are loaded from bibl-apa:
1489
1490\setuppublications
  [\c!monthconversion=,
1492   \c!alternative=apa,
1493   \c!method=\v!global,
1494  %\c!criterium=\v!previous,
1495   \c!criterium=\v!cite, % mojca wants this so bother her, not me
1496   \c!refcommand=num,
1497   \c!numbercommand=\bibleftnumber]
1498
1499\protected\def\preloadbiblist
1500  {\glet\preloadbiblist\relax
1501   \dousepublications\jobname}
1502
1503% \appendtoks \preloadbiblist \to \everysetuppublications
1504% \appendtoks \preloadbiblist \to \everystarttext
1505
1506\let\ifbibinteractionelse\doifbibinteractionelse
1507
1508\protect \endinput
1509