1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35\writestatus{loading}{ConTeXt Bibliography Support BibTeX}
36
37\definefilesynonym[bib][obsolete]
38
39\registerctxluafile{bibltra}{}
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188\unprotect
189
190\def\biblistname{pubs}
191
192\definelist
193 [pubs]
194
195\setuplist
196 [pubs]
197 [\c!state=\v!start,
198 \c!criterium=\@@pbcriterium,
199 \c!headnumber=\v!always,
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
209
210
211
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
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
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
288
289
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
304 \getparameters[\??pb][#1]
305 \the\everysetuppublications
306 \ignorespaces}
307
308
309
310
311\setnewconstant\bibtexoncemode\plusone
312
313\appendtoks
314 \doifelse\@@pbmethod\v!local
315 {\bibtexoncemode\plusone}
316 {\bibtexoncemode\plustwo}
317\to \everysetuppublications
318
319
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
331
332
333
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
345
346
347
348
349
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
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
374
375
376
377
378
379
380
381
382
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
404
405
406
407
408\def\bibalternative#1
409 {\csname\??pv\@@currentalternative#1\endcsname}
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428\newtoks\initializebibdefinitions
429
430\protected\def\simplebibdef#1
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,
442 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
449 {\bibdoifelse{\@@pb@doi}{#1\expanded{\bibgotoDOI{\@@pb@thekey}{\@@pb@doi}}#2}{#3}}
450
451\protected\def\bibinsertbiburl#1#2#3
452 {\bibdoifelse{\@@pb@biburl}{#1\expanded{\bibgotoURL{\@@pb@thekey}{\@@pb@biburl}}#2}{#3}}
453
454\protected\def\bibinsertmonth#1#2#3
455 {\bibdoifelse\@@pb@month
456 {#1\doifelsenumber\@@pb@month
457 {\doifelseconversiondefined\@@pbmonthconversion
458 {\convertnumber\@@pbmonthconversion\@@pb@month}{\@@pb@month}}
459 {\@@pb@month}#2}
460 {#3}}
461
462\appendtoks
463 \let\inserturl \bibinsertbiburl
464 \let\inserttype\bibinsertbibtype
465\to\initializebibdefinitions
466
467\protected\def\newbibfield[#1]
468 {\simplebibdef{#1}
469 \edef\bibcommandlist{\bibcommandlist,#1}}
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
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
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
518
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
532 \ifnum\todocounter>\etallimitcounter
533 \todocounter\etallimitcounter
534 \fi
535 \else
536 \todocounter#2\relax
537 \fi
538 \ifnum\todocounter>\zerocount
539
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
554
555
556
557
558
559
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
586
587
588
589
590
591
592
593
594
595
596
597
598
599
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
626
627
628
629
630\protected\def\clearbibitem#1{\setvalue{\??pb @#1}{}}
631
632\protected\def\clearbibitemtwo#1
633 {
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
640 {\processcommacommand[\bibcommandlist,crossref]\clearbibitem
641 \processcommalist [artauthor,author,editor]\clearbibitemtwo
642 \processcommacommand[\bibcommandlist]\bibitemdefs
643 \processcommalist [artauthor,author,editor,crossref]\bibitemdefs}
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667\pushoverloadmode
668
669\overloaded \protected\def\startpublication
670 {\dosingleempty\dostartpublication}
671
672\overloaded\let\stoppublication\relax
673
674\popoverloadmode
675
676
677
678
679
680
681
682
683
684
685
686
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
730
731
732
733
734
735
736
737
738\protected\def\bib@crossref#1
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
749
750
751
752
753\protected\def\doprocessbibtexentry#1{\typesetapublication{#1}}
754
755\protected\def\typesetpubslist
756 {\begingroup
757 \startpacked[\v!blank]
758 \preloadbiblist
759
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
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
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
860
861
862
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
874
875
876
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 {}}
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
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
909
910\let\maybeyear\gobbleoneargument
911\let\noopsort \gobbleoneargument
912
913
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
925
926
927
928
929
930
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
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
988
989\pushoverloadmode
990
991\protected\def\nocite[#1]
992 {\processcommalist[#1]\docitation}
993
994\popoverloadmode
995
996
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
1003 \getparameters[\??pv\@@citedefault][#1]
1004 \fi}
1005
1006
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
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
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
1079
1080
1081
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
1104 {\getcommacommandsize[#1]
1105 \ifcase\commalistsize
1106
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
1137
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
1151
1152
1153
1154\pushoverloadmode
1155
1156 \protected\def\robustaddtocommalist#1#2
1157 {\robustdoifelseinset{#1}#2\resetglobal
1158 {\dodoglobal\xdef#2{\ifempty#2\else#2,\fi#1}}}
1159
1160\popoverloadmode
1161
1162
1163
1164
1165
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
1178
1179
1180
1181
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
1196
1197
1198\newcount\bibitemcounter
1199\newcount\bibitemwanted
1200
1201
1202
1203
1204
1205
1206\protected\def\checkifmyauthoralreadyexists
1207 {\doifelseemptyvalue{thebibauthors}
1208 {\global\bibitemwanted \plusone
1209 \global\bibitemcounter\plusone
1210 \xdef\thebibauthors{{\myauthor}}}
1211 {
1212
1213 \expandafter\getcommalistsize\expandafter[\thebibauthors,]
1214 \global\bibitemcounter\numexpr\commalistsize\minusone\relax
1215 \global\bibitemwanted \zerocount
1216 \processcommacommand[\thebibauthors]\docomparemyauthor}}
1217
1218
1219
1220
1221
1222
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
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
1249
1250
1251
1252
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
1259
1260
1261
1262
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
1319
1320
1321
1322
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
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
1458 {\dowithbibtexnumrefconnector{#1}{#2}
1459 \def\bibrefprefix{#4:}
1460 \inbiblink[#5]}
1461
1462\protected\def\dowithbibtexnumrefrange#1#2#3#4#5#6#7
1463 {\dowithbibtexnumrefconnector{#1}{#2}
1464 \def\bibrefprefix{#4:}
1465 \inbiblink[#5]
1466 \endash
1467 \def\bibrefprefix{#6:}
1468 \inbiblink[#7]}
1469
1470
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
1489
1490\setuppublications
1491 [\c!monthconversion=,
1492 \c!alternative=apa,
1493 \c!method=\v!global,
1494
1495 \c!criterium=\v!cite,
1496 \c!refcommand=num,
1497 \c!numbercommand=\bibleftnumber]
1498
1499\protected\def\preloadbiblist
1500 {\glet\preloadbiblist\relax
1501 \dousepublications\jobname}
1502
1503
1504
1505
1506\let\ifbibinteractionelse\doifbibinteractionelse
1507
1508\protect \endinput
1509 |