diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/bib')
| -rw-r--r-- | Master/texmf-dist/tex/context/bib/bibl-apa-de.tex | 4 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/context/bib/t-bib.mkii | 5 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/context/bib/t-bib.mkiv | 62 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/context/bib/t-bib.tex | 1929 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/context/bib/t-bibltx.tex | 75 |
5 files changed, 2 insertions, 2073 deletions
diff --git a/Master/texmf-dist/tex/context/bib/bibl-apa-de.tex b/Master/texmf-dist/tex/context/bib/bibl-apa-de.tex index 8f8be59fbbf..afeebd260b3 100644 --- a/Master/texmf-dist/tex/context/bib/bibl-apa-de.tex +++ b/Master/texmf-dist/tex/context/bib/bibl-apa-de.tex @@ -108,7 +108,7 @@ \def\insertchap#1#2#3% {\insertchapter - {#1\insertbibtype{}{\ }{chapter\ }}{#2}% + {#1\insertbibtype{}{\ }{Kapitel\ }}{#2}% {#3}} \def\insertpublisher#1#2#3% @@ -383,4 +383,4 @@ \insertnote{ }{.}{}% } -\protect
\ No newline at end of file +\protect diff --git a/Master/texmf-dist/tex/context/bib/t-bib.mkii b/Master/texmf-dist/tex/context/bib/t-bib.mkii deleted file mode 100644 index ac34947257a..00000000000 --- a/Master/texmf-dist/tex/context/bib/t-bib.mkii +++ /dev/null @@ -1,5 +0,0 @@ -% some code will move here - -\unprotect - -\protect \endinput diff --git a/Master/texmf-dist/tex/context/bib/t-bib.mkiv b/Master/texmf-dist/tex/context/bib/t-bib.mkiv deleted file mode 100644 index 9a01bc7cde1..00000000000 --- a/Master/texmf-dist/tex/context/bib/t-bib.mkiv +++ /dev/null @@ -1,62 +0,0 @@ -%D Note by HH: -%D -%D We use a still somewhat experimental extension to the list -%D mechanism. Eventually the bibtex module will use the bibl loader -%D and access the data by means of lpath expressions. In that case we -%D don't need to process the bibliography but still need to track -%D usage as done here. - -\unprotect - -\startluacode -local list = { } - -bibtexhacks = { - reset = function() list = { } end, - add = function(str) list[#list+1] = str end, - flush = function() tex.sprint(table.concat(list,",")) end, -} -\stopluacode - -% HACK WILL GO: - -\def\namedlistparameter#1#2{\csname\dolistparameter{\??li#1}#2\endcsname} - -% TILL HERE - -\let\bibrefprefixcounter\!!plusone -\def\bibrefprefix {\bibrefprefixcounter:} -\let\preparebibrefprefix\relax -\let\preparebibreflist \gobbleoneargument -\let\bibreflist \empty - -\setuplist[pubs][\c!state=\s!start] - -\installstructurelistprocessor{pubs:userdata} - {\ctxlua{bibtexhacks.add(structure.lists.uservalue("\currentlist",\currentlistindex,"bibref"))}} - -\def\docitation#1% - {\expanded{\writedatatolist[pubs][bibref=#1]}} - -\def\filllocalpublist - {\edef\currentlist{pubs}% - \doif{\listparameter\c!criterium}{cite}{\setuplist[pubs][\c!criterium=\v!here]}% - \ctxlua{bibtexhacks.reset()}% - \placestructurelist{pubs}{\listparameter\c!criterium}{\listparameter\c!number}% - \edef\localpublist{\ctxlua{bibtexhacks.flush()}}} - -\def\gotobiblink#1[#2]{\doifreferencefoundelse{\bibrefprefix#2}{\goto{#1}[\bibrefprefix#2]}{\unknownreference{#2}}} -\def\atbiblink [#1]{\doifreferencefoundelse{\bibrefprefix#1}{\at [\bibrefprefix#1]}{\unknownreference{#1}}} -\def\inbiblink [#1]{\doifreferencefoundelse{\bibrefprefix#1}{\at [\bibrefprefix#1]}{\unknownreference{#1}}} - -\ifdefined\normaldodoplacepublications \else % just in case we load twice - - \let\normaldodoplacepublications\dodoplacepublications - - \def\dodoplacepublications - {\normaldodoplacepublications - \doglobal\increment\bibrefprefixcounter} - -\fi - -\protect \endinput diff --git a/Master/texmf-dist/tex/context/bib/t-bib.tex b/Master/texmf-dist/tex/context/bib/t-bib.tex deleted file mode 100644 index 876bad8e2ab..00000000000 --- a/Master/texmf-dist/tex/context/bib/t-bib.tex +++ /dev/null @@ -1,1929 +0,0 @@ -%D \module -%D [ file=t-bib, -%D version=2009.08.13, -%D title=\CONTEXT\ Publication Module, -%D subtitle=Publications, -%D author=Taco Hoekwater, -%D date=\currentdate, -%D copyright=Public Domain] -%C -%C Donated to the public domain. - - -%D The original was developed independantly by Taco Hoekwater while still working for Kluwer -%D Academic publishers (it still used the dutch interface then). Development continued after -%D he left Kluwer, and in Januari 2005, the then already internationalized file was merged -%D with the core distribution by Hans Hagen. The current version is once again by Taco. -%D -%D More documentation and additional resources can be found on the contextgarden: -%D \hyphenatedurl{http://wiki.contextgarden.net//Bibliography}. - -%D \subject{DONE (dd/mm/yyyy)} -%D -%D \startitemize -%D \item add author definition (and associated system variable) (26/05/2005) -%D \item add finalnamesep support for Oxford comma (17/09/2005) -%D \item add \type{\insert...} for: doi, eprint, howpublished (19/09/2005) -%D \item allow a defaulted \type{\setupcite} (19/11/2005) -%D \item renamed citation type 'number' to 'serial' (19/11/2005) -%D \item better definition of \type{\inverted...author} (19/11/2005) -%D \item don't reset [numbercommand] in \type {\setuppublication} by default (20/11/2005) -%D \item don't disable other \type {\setuppublication} keys if alternative is present (20/11/2005) -%D \item drop \type{\sanitizeaccents} (20/11/2005) -%D \item added \type{\nocite} and \type{\cite[none]} (21/11/2005) -%D \item added headtext for it (23/11/2005) -%D \item make \type{\cite[url]} and \type{\cite[doi]} interactive (23/11/2005) -%D \item make right-aligned labels in the list work even when autohang=no -%D \item use 'et al.' instead of 'et.al.'. Pointed out by Peter M�nster (30/12/2005) -%D \item added headtext for cz (31/12/2005) -%D \item Keep whitespace after \type{\cite} with single argument (31/12/2005) -%D \item Fix broken \type{\cite{}} support (31/12/2005) -%D \item Use \type{\readfile} inside \type{\usepublications} instead of \type{\readsysfile} (12/01/2006) -%D \item Use \type{\currentbibyear} and \type{\currentbibauthor} instead of \type{\YR} and \type{\AU} (05/02/2006) -%D \item Fix compressed version of authoryear style (05/02/2006) -%D \item Rename the clashing data fields \type{\url} and \type{\type} to \type{\biburl} and \type{\bibtype} (05/02/2006) -%D \item Added two french bibl files from Renaud Aubin (06/02/2006) -%D \item Five new bib class and eight extra bib fields, for IEEEtran (07/02/2006) -%D \item French keyword translation, provided by Renaud (08/02/2006) -%D \item fix underscores in undefined keys (22/02/2006) -%D \item Destroy interactivity in labels of the publication list (13/03/2006) -%D \item fix multi-cite list compression (11/4/2006) -%D \item fix \type{\getcitedata} (11/4/2006) -%D \item magic for chapter bibs (18-25/4/2006) -%D \item language setting (25/4/2006) -%D \item use \type{\hyphenatedurl} for \type{\inserturl} (25/4/2006) -%D \item Add \type{\docitation} to \type{\nocite}(26/4/2006) -%D \item patents can have numbers, added to bst files (26/4/2006) -%D \item \type{\docitation} needs a \type{\iftrialtypesetting} (27/4/2006) -%D \item \type{\filllocalpublist}'s loop is bound by definedness, not resolvedness (27/4/2006) -%D \item \type{\setuppublications[monthconversion=]} added (15/5/2006) -%D \item use \type{\undefinedreference} instead of bare question marks (15/5/2006) -%D \item add grouping around \type{\placepublications} commands (16/5/2006) -%D \item fix a bug in \type{\cite{<item>}} (17/5/2006) -%D \item support \type{\cite[authornum]} (18/5/2006) -%D \item make \type{\cite} unexpandable (20/6/2006) -%D \item allow hyperlinks in author\&year combo's -%D (cite list compression has to be off) (20/6/2006) -%D \item fix duplicate labels for per-chapter style (20/6/2006) -%D \item allow \type{\setupcite[interaction=(start|stop)]} -%D \item fix the item number in the publication list with 'numbering=yes' (22/6/2006) -%D \item make the default criterium for \type{\placepublications} be \type{previous} (23/6/2006) -%D \item fix \type{\normalauthor} and \type{\normalshortauthor} spacing (29/6/2006) -%D \item do not typeset empty arguments to \type{\typesetapublication} (29/6/2006) -%D \item add \type{symbol=none} to \type{\setuplist} in unnumbered -%D mode to prevent typesetting of bare numbers (29/6/2006) -%D \item remove two incorrect spaces from bibl-num.tex (1/7/2006) -%D \item reset font styles within \type{\cite}, so that font switches -%D in \type{left} stay in effect (12/7/2006) -%D \item guard added against loading bbl files multiple times (13/7/2006) -%D \item fix \type{\cite[num]} with compression is on. (14/7/2006) -%D \item test \type{\iflocation} before deciding to use the -%D interactive version of cite (18/7/2006) -%D \item support \type{\setupcite[authoretallimit=1]} (18/7/2006) -%D \item support use of \type{\cite} within titles and captions by -%D saveguarding the list item extraction and reference placement -%D code (19/7/2006) -%D \item support \type{\setuppublicationlist[title=\chapter]} (4/8/2006) -%D \item use the expansion of \type{\headtext{pubs}} (4/8/2006) -%D \item hook added for repeated authors in publication list -%D \type{\setuppublicationlist[artauthorcommand=\mythreeargscommand]} -%D (4/8/2006) -%D \item make the bracketed arguments of \type{\artauthor}, \type{\author} -%D and \type{\editor} (bbl commands) optional (4/8/2006) -%D \item the constants \type{sorttype}, \type{compress} and -%D \type{autohang} have moved to the core (8/8/2006) -%D \item bibtex is now registered as a program to be run by texexec (8/8/2006) -%D \item fix a bug in \type{\setupcite[authoretallimit=1]} (9/8/2006) -%D \item fix a bug inside citations that prevented lastpubsep from ever being -%D used due to a volatile \type{\commalistsize} (25/8/2006). -%D \item added the possibility of \type{\placepublications[option=continue]} -%D (6/9/2006) -%D \item Mojca translated Master's Thesis to Masterarbeit (bibl-apa-de.tex) -%D (12/9/2006) -%D \item Added \type{\setuppublicationlist[maybeyear=off]} by request from -%D Thomas Schmitz (15/9/2006) -%D \item Removed some spurious spaces pointed out by willi egger (19/9/2006) -%D \item Add configuration of bibtex executable name (4/11/2006) -%D \item Fix numbering=short and numbering=bib (spotted by Matthias W�chter) (4/11/2006) -%D \item third attempt to get a correct release (5/11/2006) -%D \item fix a few missing dots in bibl-num.tex (7/12/2006) -%D \item Patch for DOI's by Tobias Burnus (17/4/2007) -%D \item Patch for \type{\insertbiburl} and \type{\insertdoi} for Tobias Burnus (18/4/2007) -%D \item Added a missing \type{\relax} in \type{\dospecialbibinsert}, -%D that made the space before the {\it et al.} text disappear. (18/4/2007) -%D \item Attempt to fix percent signs in bbl files. As a side-effect, -%D this prohibits comments in \tex{startpublication} blocks! (17/4/2008) -%D \item Patch from Matthias W\"achter that allows arbitrary .bst -%D files to be used with \tex{setupbibtex} (25/9/2008) -%D \item Extended for the new multilingual setups for the Oct 2008 current of ConTeXt (23/10/2008) -%D \item Multilingual setups needed another fix (27/10/2008) -%D \item Two fixes for bibl-apa by Michael Green (27/10/2008) -%D \item Catalan translation of 'References' (10/11/2008) -%D \item 'chapter' -> 'chapitre' in bibl-apa-fr (27/11/2008) -%D \item Run bibtex via os.execute in mkiv modee (01/12/2008) -%D \item Small correction in bibl-apa's placement of volume -%D information in articles (05/01/2009) -%D \item Handle multi-author (more than two) cases in \type{\cite} -%D (02/03/2009) -%D \item Suppress a syntax error in \type{cont-xp} mode. The output is -%D probably not right, though (02/03/2009) -%D \item Added a \tex{loadmarkfile} at the end, and two new files -%D from Hans. The \type{t-bib.mkiv} is needed to make the module -%D work with the new structure code (17/04/2009) -%D \item Added a patch to \type{t-bib.mkiv} from Hans to make the -%D cross referencing between multiple citations an -%D bibliographies work (27/04/2009) -%D \item Remove a superfluous \type{\unprotect} in t-bib.mkiv (11/05/2009). -%D \item Patch of incollection in bibl-ams.tex from Xan (08/06/2009). -%D \item Patch of unpublished in bibl-ams.tex from Xan (22/07/2009). -%D \item Modified \type{\bibdogetupsometextprefix} so it works for undefined -%D language labels, from Hans (13/08/2009). -%D \stopitemize -%D -%D \subject{WISHLIST} -%D -%D \startitemize -%D \item link back from publication list to citation -%D \item export \type {\citation{<cited item>}} -%D \item support mlbibtex -%D \item don't load the whole lot, but filter entries instead -%D \stopitemize - -\unprotect - -%D start with a temp hack the file will still work with pre-Oct 2008 -%D versions of ConTeXt: - - -\def\startinterface #1 - {\doifnot{#1}{all}{\doifnotinset\currentinterface{#1}{\gobbleuntil\stopinterface}}} - -\let\checksetvalue\gobbletwoarguments - - -%\defineinterfacevariable {title} {title} -%\defineinterfacevariable {short} {short} -%\defineinterfacevariable {cite} {cite} -%\defineinterfacevariable {bbl} {bbl} -%\defineinterfacevariable {bib} {bib} -%\defineinterfacevariable {author} {author} - -%D A few new shortcuts: - -\definesystemvariable {pv} % PublicationVariable -\definesystemvariable {pb} % PuBlication - -\definemessageconstant {bib} -\definefileconstant {bibextension} {bbl} - -%D Some user information messages. - -\startmessages all library: bib - title: publications - 1: file -- not found, unknown style ignored - 2: file -- not found, waiting for bibtex - 3: wrote a new auxiliary file \jobname.aux - 4: loading database from -- - 5: warning: cite argument -- on \the\inputlineno - 6: loading formatting style from -- -\stopmessages - -%D Some constants for the multi-lingual interface - -\startinterface all - \setinterfaceconstant {database} {database} - \setinterfaceconstant {artauthor} {artauthor} - \setinterfaceconstant {editor} {editor} - \setinterfaceconstant {authoretallimit} {authoretallimit} - \setinterfaceconstant {artauthoretallimit} {artauthoretallimit} - \setinterfaceconstant {editoretallimit} {editoretallimit} - \setinterfaceconstant {authoretaldisplay} {authoretaldisplay} - \setinterfaceconstant {artauthoretaldisplay} {artauthoretaldisplay} - \setinterfaceconstant {editoretaldisplay} {editoretaldisplay} - \setinterfaceconstant {authoretaltext} {authoretaltext} - \setinterfaceconstant {artauthoretaltext} {artauthoretaltext} - \setinterfaceconstant {editoretaltext} {editoretaltext} - \setinterfaceconstant {otherstext} {otherstext} - \setinterfaceconstant {andtext} {andtext} - \setinterfaceconstant {totalnumber} {totalnumber} - \setinterfaceconstant {firstnamesep} {firstnamesep} - \setinterfaceconstant {vonsep} {vonsep} - \setinterfaceconstant {juniorsep} {juniorsep} - \setinterfaceconstant {surnamesep} {surnamesep} - \setinterfaceconstant {lastnamesep} {lastnamesep} - \setinterfaceconstant {finalnamesep} {finalnamesep} - \setinterfaceconstant {namesep} {namesep} - \setinterfaceconstant {pubsep} {pubsep} - \setinterfaceconstant {lastpubsep} {lastpubsep} - \setinterfaceconstant {refcommand} {refcommand} - \setinterfaceconstant {samplesize} {samplesize} -\stopinterface - -\startinterface dutch - \setinterfacevariable {title} {titel} - \setinterfacevariable {short} {kort} - \setinterfacevariable {cite} {cite} - \setinterfacevariable {bbl} {bbl} - \setinterfacevariable {bib} {bib} - \setinterfacevariable {author} {auteur} -\stopinterface - -\startinterface english - \setinterfacevariable {title} {title} - \setinterfacevariable {short} {short} - \setinterfacevariable {cite} {cite} - \setinterfacevariable {bbl} {bbl} - \setinterfacevariable {bib} {bib} - \setinterfacevariable {author} {author} -\stopinterface - -\startinterface german - \setinterfacevariable {title} {titel} - \setinterfacevariable {short} {kurz} - \setinterfacevariable {cite} {cite} - \setinterfacevariable {bbl} {bbl} - \setinterfacevariable {bib} {bib} - \setinterfacevariable {author} {autor} -\stopinterface - -\startinterface czech - \setinterfacevariable {title} {titul} - \setinterfacevariable {short} {short} - \setinterfacevariable {cite} {cite} - \setinterfacevariable {bbl} {bbl} - \setinterfacevariable {bib} {bib} - \setinterfacevariable {author} {autor} -\stopinterface - -\startinterface italian - \setinterfacevariable {title} {titolo} - \setinterfacevariable {short} {short} - \setinterfacevariable {cite} {cite} - \setinterfacevariable {bbl} {bbl} - \setinterfacevariable {bib} {bib} - \setinterfacevariable {author} {autore} -\stopinterface - -\startinterface romanian - \setinterfacevariable {title} {titlu} - \setinterfacevariable {short} {short} - \setinterfacevariable {cite} {cite} - \setinterfacevariable {bbl} {bbl} - \setinterfacevariable {bib} {bib} - \setinterfacevariable {author} {autor} -\stopinterface - -\startinterface french - \setinterfacevariable {title} {titre} - \setinterfacevariable {short} {short} - \setinterfacevariable {cite} {cite} - \setinterfacevariable {bbl} {bbl} - \setinterfacevariable {bib} {bib} - \setinterfacevariable {author} {auteur} -\stopinterface - -\def\biblistname{pubs} % for compatibility - -%D how to load the references. There is some new stuff here -%D to support Idris' (incorrect :-)) use of projects - -\let\preloadbiblist\relax - -\ifx\currentcomponent\v!text - % single file - \edef\temp{\the\everystarttext}% - \ifx\temp\empty - % post-starttext - \def\preloadbiblist{\dousepublications\jobname }% - \else - % pre-starttext - \appendtoks \dousepublications\jobname \to \everystarttext - \fi - % -\else \ifx\currentcomponent\v!project - % a project file, have to set up the partial products! - \def\startproduct #1 % - {\doateverystarttext - \dousepublications{#1}% - \donextlevel\v!product\currentproduct - \doexecutefileonce\doexecutefileonce - \donotexecutefile\doexecutefile#1\\}% - % -\else \ifx\currentcomponent\v!product - % a product file - \def\preloadbiblist{\dousepublications\jobname }% - % -\else - % a component? not sure what to do - \def\preloadbiblist{\dousepublications\jobname }% - % -\fi \fi \fi - -\definelist[pubs] -\setuplist[pubs][\c!width=] - - -%D The text string for the publication list header - -\setupheadtext[en][pubs=References] -\setupheadtext[nl][pubs=Literatuur] -\setupheadtext[de][pubs=Literatur] -\setupheadtext[it][pubs=Bibliografia] -\setupheadtext[sl][pubs=Literatura] -\setupheadtext[fr][pubs=Bibliographie] -\setupheadtext[ca][pubs=Referències] - -%D \macros{bibdoif,bibdoifnot,bibdoifelse} -%D -%D Here are a few small helpers that are used a lot -%D in all the typesetting commands -%D (\type{\insert...}) we will encounter later. - -\long\def\bibdoifelse#1% - {\@EA\def\@EA\!!stringa\@EA{#1}% - \ifx\!!stringa\empty - \expandafter\secondoftwoarguments - \else - \expandafter\firstoftwoarguments - \fi} - -\long\def\bibdoifnot#1% - {\@EA\def\@EA\!!stringa\@EA{#1}% - \ifx\!!stringa\empty - \expandafter\firstofoneargument - \else - \expandafter\gobbleoneargument - \fi} - -\long\def\bibdoif#1% - {\@EA\def\@EA\!!stringa\@EA{#1}% - \ifx\!!stringa\empty - \expandafter\gobbleoneargument - \else - \expandafter\firstofoneargument - \fi} - - -%D Bibtex settings separated out - -%D No point in writing the aux file if there is no database... - -\def\setupbibtex{\dosingleempty\dosetupbibtex} - -\def\dosetupbibtex[#1]% - {\let\@@pbdatabase\empty - \getparameters[\??pb][sort=\s!default,#1]% - \expanded{\processaction[\@@pbsort]} - [ \v!no=>\def\bibstyle{cont-no}, - \v!author=>\def\bibstyle{cont-au}, - \v!title=>\def\bibstyle{cont-ti}, - \v!short=>\def\bibstyle{cont-ab}, - \s!default=>\def\bibstyle{cont-no}, - \s!unknown=>\def\bibstyle{\@@pbsort}]% - \ifx\@@pbdatabase\empty\else \writeauxfile \fi} - -\dosetupbibtex[bibtex=bibtex] - -%D \macros{writeauxfile} -%D -%D Unfortunately, \BIBTEX\ is not the best configurable program -%D around. The names of the commands it parses as well as the \type{.aux} -%D extension to the file name are both hardwired. -%D -%D This means \CONTEXT\ has to write a \LATEX-style auxiliary file, yuk! -%D The good news is that it can be rather short. We'll just ask -%D \BIBTEX\ to output the entire database(s) into the \type{bbl} file. -%D -%D The \type{\bibstyle} command controls how the \type{bbl} file will -%D be sorted. The possibilities are: -%D -%D \startitemize[packed] -%D \item by author (+year, title): cont-au.bst -%D \item by title (+author, year): cont-ti.bst -%D \item by short key as in abbrev.bst: cont-ab.bst -%D \item not sorted at all: cont-no.bst -%D \stopitemize - -\def\writeauxfile - {\doifmode{*first} - {\openout \scratchwrite \jobname.aux - \write \scratchwrite {\string\citation{*}}% - \write \scratchwrite {\string\bibstyle{\bibstyle}}% - \write \scratchwrite {\string\bibdata{\@@pbdatabase}}% - \closeout\scratchwrite - \showmessage\m!bib{3}{}% - \doifmodeelse{*mkiv} - {\ctxlua{os.execute('\@@pbbibtex\space\jobname')}} - {\expanded{\installprogram{\@@pbbibtex\space\jobname}}}}} - -%D \macros{ifsortbycite,iftypesetall,ifautohang,ifbibcitecompress} -%D -%D The module needs some new \type{\if} statements. - -%D Default sort order of the reference list is by citation. - -\newif\ifsortbycite \sortbycitetrue - -%D By default, only referenced publications are typeset - -\newif\iftypesetall \typesetallfalse - -%D Hanging indentation of the publication list -%D will not adjust itself according to the width of the label. - -\newif\ifautohang \autohangfalse - -%D Cite lists are compressed, if possible. - -\newif\ifbibcitecompress \bibcitecompresstrue - -\def\setuppublications - {\dosingleargument\dosetuppublications} - -\def\bibleftnumber#1% - {#1\hfill~} - - -\def\dosetuppublications[#1]% - {\getparameters - [\??pb] - [\c!alternative=,#1]% - \doifsomething\@@pbalternative - {\readsysfile - {bibl-\@@pbalternative.tex} - {\showmessage\m!bib{6}{bibl-\@@pbalternative}\let\@@pbalternative\empty} - {\showmessage\m!bib{1}{bibl-\@@pbalternative}\let\@@pbalternative\empty}}% - \getparameters - [\??pb] - [#1]% - \processaction - [\@@pbcriterium] - [ \v!all=>\typesetalltrue, - \s!unknown=>\typesetallfalse]% - \processaction - [\@@pbautohang] - [ \v!yes=>\autohangtrue, - \s!unknown=>\autohangfalse]% - \processaction - [\@@pbsorttype] - [ \v!cite=>\sortbycitetrue, - \v!bbl=>\sortbycitefalse, - \s!default=>\sortbycitetrue, - \s!unknown=>\sortbycitefalse]% - \processaction - [\@@pbnumbering] - [ \v!yes=>\let\@@pbinumbercommand\firstofoneargument, - \v!no=>\let\@@pbinumbercommand\gobbleoneargument, - \v!short=>\def\@@pbinumbercommand##1{\getvalue{pbds-\@@pbk}}, - \v!bib=>\def\@@pbinumbercommand##1{\getvalue{pbdn-\@@pbk}}, - \s!unknown=>\let\@@pbinumbercommand\firstofoneargument]% - \processaction - [\@@pbrefcommand] - [\s!default=>\edef\@@citedefault{\@@pbrefcommand}, - \s!unknown=>\edef\@@citedefault{\@@pbrefcommand}]} - -% initialize - -\def\@@pbrefcommand{num} -\def\@@pbnumbercommand{\bibleftnumber} - -%D \macros{usepublications} -%D -%D We need \type{\usereferences} so that it is possible to -%D refer to page and/or appearance number for publications -%D in the other document. - -\def\usepublications[#1]% - {\usereferences[#1]\processcommalist[#1]\dousepublications} - -\def\dousepublications#1% - {\doonlyonce - {#1.\f!bibextension} - {\readfile{#1.\f!bibextension} - {\showmessage\m!bib{4}{#1.\f!bibextension}} - {\showmessage\m!bib{2}{#1.\f!bibextension}}}} - -%D \macros{setuppublicationlist} -%D -%D This will be the first command in (\BIBTEX-generated) \type{bbl} -%D files. `samplesize' is a sample value (in case of \BIBTEX-generated -%D files, this will be the longest `short' key). `totalnumber' -%D is the total number of entries that will follow in this -%D file. - -%D Both values are only needed for the label calculation -%D if `autohang' is `true', so by default the command is -%D not even needed, and therefore I saw no need to give -%D it it's own system variable and it just re-uses \type{pb}. - -\def\setuppublicationlist - {\dosingleempty\dosetuppublicationlist} - -\def\dosetuppublicationlist[#1]% - {\getparameters[\??pv data][#1]% - \setuplist - [pubs] - [\c!samplesize={AA99},\c!totalnumber={99}, - \c!alternative=a,\c!interaction=,\c!pagenumber=\v!no,#1]} - -\def\setuppublicationlayout[#1]#2% - {\setvalue{\??pv data#1}{#2\unskip}} - -%D \macros{bibalternative} -%D -%D A nice little shorthand that will be used so we don't have to -%D key in the weird \type{\@@pv} parameter names all the time. - -\def\bibalternative#1% - {\getvalue{\??pv\@@currentalternative#1}} - -%D \macros{simplebibdef,bibcommandlist} -%D -%D \type{\simplebibdef} defines \type{bib@#1}, which in turn will -%D use one argument that is stored in \type{@@pb@#1}. -%D -%D \type{\simplebibdef} also defines \type{insert#1}, which can be -%D used in the argument of \type{\setuppublicationlayout} to fetch -%D one of the \type{@@pb@} data entries. \type{insert#1} then has -%D three arguments: \type{#1} are commands to be executed before the -%D data, \type{#2} are commands to be executed after the data, and -%D \type{#3} are commands to be executed if the data is not found. - -%D \type{\bibcommandlist} is the list of commands that is affected -%D by this approach. Later on, it will be used to do a series -%D of assignments from \type{#1} to \type{bib@#1}: e.g -%D \type{\title} becomes \type{\bib@title} when used within -%D a publication. - -\def\simplebibdef#1% hh: funny expansion ? - {\@EA\long\@EA\def\csname bib@#1\endcsname##1% - {\setvalue{\??pb @#1}{##1}% - \ignorespaces}% - \@EA\def\csname insert#1\endcsname##1##2##3% - {\@EA\bibdoifelse - \@EA{\csname @@pb@#1\endcsname}% - {##1\csname @@pb@#1\endcsname##2}% - {##3}% - }} - -\def\bibcommandlist - {abstract, annotate, arttitle, assignee, bibnumber, bibtype, biburl, chapter, city, - comment, country, day, dayfiled, doi, edition, eprint, howpublished, isbn, issn, - issue, journal, keyword, keywords, lastchecked, month, monthfiled, names, nationality, - note, notes, organization, pages, pubname, pubyear, revision, series, size, thekey, - title, volume, yearfiled} - - -\processcommacommand[\bibcommandlist]\simplebibdef - -\def\insertdoi#1#2#3% - {{\bibdoifelse{\@@pb@doi}% - {\edef\ascii{\@EA\detokenize\@EA{\@@pb@doi}}% - #1\expanded{\gotoDOI{\@@pb@thekey}{\ascii}}#2}{#3}}} - -\def\insertbiburl#1#2#3% - {{\bibdoifelse{\@@pb@biburl}% - {\edef\ascii{\@EA\detokenize\@EA{\@@pb@biburl}}% - #1\expanded{\gotoURL{\@@pb@thekey}{\ascii}}#2}{#3}}} - -\def\insertmonth#1#2#3% - {\bibdoifelse{\@@pb@month}% - {#1\doifnumberelse{\@@pb@month}% - {\doifconversiondefinedelse\@@pbmonthconversion - {\convertnumber\@@pbmonthconversion{\@@pb@month}}{\@@pb@month}}% - {\@@pb@month}#2}{#3}} - -\let\inserturl \insertbiburl % for backward compat. -\let\inserttype\insertbibtype % for backward compat. - -\def\newbibfield[#1]% - {\simplebibdef{#1}% - \edef\bibcommandlist{\bibcommandlist,#1}} - -%D \macros{bib@crossref} -%D -%D \type{\crossref} is used in database files to point to another -%D entry. Because of this special situation, it has to be defined -%D separately. Since this command will not be seen until at -%D \type{\placepublications}, it may force extra runs. The same is -%D true for \type{\cite} commands inside of publications. - -\def\bib@crossref#1% - {\setvalue{\??pb @crossref}{#1}\ignorespaces} - -\def\insertcrossref#1#2#3% - {\bibdoifelse{\@@pb@crossref} - {#1\@EA\cite\@EA[\@@pb@crossref]#2} - {#3}} - -%D \macros{complexbibdef,specialbibinsert} -%D -%D The commands \type{\artauthor}, \type{\author} and -%D \type{\editor} are more complex than the other commands. -%D Their argument lists have this form: -%D -%D \type{\author[junior]{firstnames}[inits]{von}{surname}} -%D -%D (bracketed stuff is optional) -%D -%D And not only that, but there also might be more than one of each of -%D these commands. This is why a special command is needed to insert -%D them, as well as one extra counter for each command. - -%D All of these \type{\@EA}'s and \type{\csnames} make this code -%D look far more complex than it really is. For example, the argument -%D \type{author} defines the macro \type{\bib@author} to do two -%D things: increment the counter \type{\author@num} (let's say to 2) -%D and next store it's arguments in the macro \type{\@@pb@author2}. -%D And it defines \type{\insertauthors} to expand into -%D \starttyping -%D \specialbibinsert{author}{\author@num}{<before>}{<after>}{<not>} -%D \stoptyping - -\def\docomplexbibdef#1% - {\def\currentype{#1}% - \dosingleempty\dodocomplexbibdef} - -\def\dodocomplexbibdef[#1]#2% - {\def\firstarg{#1}\def\secondarg{#2}% - \dosingleempty\dododocomplexbibdef} - -\def\dododocomplexbibdef[#1]#2#3% - {\@EA\increment\csname \currentype @num\endcsname - \setevalue{\??pb @\currentype\csname \currentype @num\endcsname}% - {{\secondarg}{#2}{#3}{#1}{\firstarg}}\ignorespaces}% - -\def\complexbibdef#1% - {\@EA\newcounter\csname #1@num\endcsname - \@EA\def\csname bib@#1\endcsname{\docomplexbibdef{#1}}% - \@EA\def\csname insert#1s\endcsname##1##2##3% - {\specialbibinsert{#1}{\csname #1@num\endcsname}{##1}{\unskip ##2}{##3}}} - -\processcommalist[author,artauthor,editor]\complexbibdef - -%D Another level of indirection is needed to control the -%D typesetting of all of these arguments. - -%D Btw, there is a conflict between `author' and the predefined interface -%D variable `auteur'. The old version is overruled `auteur' is -%D overruled by the systemconstant definition at the top of this file! - - -\newcount\etallimitcounter -\newcount\etaldisplaycounter -\newcount\todocounter - -\def\specialbibinsert#1#2#3#4#5% - {\bgroup - \ifnum#2>\zerocount - \etallimitcounter =0\bibalternative{#1etallimit}\relax - \etaldisplaycounter=0\bibalternative{#1etaldisplay}\relax - \ifnum #2>\etallimitcounter - \todocounter\etaldisplaycounter - % just in case ... - \ifnum\todocounter>\etallimitcounter - \todocounter\etallimitcounter - \fi - \else - \todocounter#2\relax - \fi - \ifnum\todocounter>\zerocount - % find the current author list - \let\templist\empty - \dorecurse{#2} - {\toks0=\@EA\@EA\@EA{\csname @@pb@#1\recurselevel\endcsname}% - \ifx\templist\empty \edef\templist{\the\toks0}% - \else \edef\templist{\templist,\the\toks0}\fi }% - \doifdefinedelse - {\??pv data#1\c!command} - {\doifemptyelsevalue - {\??pv data#1\c!command} - {#3\dospecialbibinsert{#1}{\todocounter}{\templist}#4}% - {#3\getvalue{\??pv data#1\c!command}{#1}{\todocounter}{\templist}#4}}% - {#3\dospecialbibinsert{#1}{\todocounter}{\templist}#4}% - \else - #5% - \fi - \else - #5% - \fi - \egroup} - -%D This macro does the hard work of inserting a list of people in the -%D output, with proper regard of all the inbetween strings that can -%D arise depending on length of the list of people. - -%D \#1 = type -%D \#2 = number of items to be typeset -%D \#3 = commacommand containing authors - -\def\dospecialbibinsert#1#2#3% - {\getcommacommandsize[#3]% - \scratchcounter 0 - \def\processauthoritem##1% - {\advance\scratchcounter1 - \ifnum \numexpr\scratchcounter-1\relax<#2\relax - \getvalue{\??pv data#1}##1% - \ifnum \scratchcounter=#2\relax - \ifnum\etallimitcounter<\commalistsize\relax \bibalternative{#1etaltext}\fi - \else \ifnum\numexpr\scratchcounter+1 = #2\relax - \ifnum \commalistsize > \plustwo \bibalternative\c!finalnamesep - \else \bibalternative\c!lastnamesep \fi - \else - \bibalternative\c!namesep - \fi \fi - \fi}% - \processcommacommand[#3]\processauthoritem } - - -%D \macros{invertedauthor,normalauthor,invertedshortauthor,normalshortauthor} -%D -%D Just some commands that can be used in \type{\setuppublicationparameters} -%D If you want to write an extension to the styles, you might -%D as well define some of these commands yourself. -%D -%D The argument liust has been reordered here, and the meanings -%D are: -%D -%D {\obeylines\parskip0pt -%D \type{#1} firstnames -%D \type{#2} von -%D \type{#3} surname -%D \type{#4} inits -%D \type{#5} junior -%D } -%D - -\def\normalauthor#1#2#3#4#5% - {\bibdoif{#1}{#1\bibalternative\c!firstnamesep}% - \bibdoif{#2}{#2\bibalternative\c!vonsep}% - #3% - \bibdoif{#5}{\bibalternative\c!surnamesep#5\unskip}} - -\def\normalshortauthor#1#2#3#4#5% - {\bibdoif{#4}{#4\bibalternative\c!firstnamesep}% - \bibdoif{#2}{#2\bibalternative\c!vonsep}% - #3% - \bibdoif{#5}{\bibalternative\c!surnamesep#5\unskip}} - -\def\invertedauthor#1#2#3#4#5% - {\bibdoif{#2}{#2\bibalternative\c!vonsep}% - #3% - \bibdoif{#5}{\bibalternative\c!juniorsep #5}% - \bibdoif{#1}{\bibalternative\c!surnamesep #1\unskip}} - -\def\invertedshortauthor#1#2#3#4#5% - {\bibdoif{#2}{#2\bibalternative\c!vonsep}% - #3% - \bibdoif{#5}{\bibalternative\c!juniorsep #5}% - \bibdoif{#4}{\bibalternative\c!surnamesep #4\unskip}} - -%D \macros{clearbibitem,clearbibitemtwo,bibitemdefs} -%D -%D These are used in \type{\typesetapublication} to do -%D initializations and cleanups. - -\def\clearbibitem#1{\setvalue{\??pb @#1}{}}% - -\def\clearbibitemtwo#1% - {\letvalue{#1@num}\!!zerocount - \scratchcounter\plusone - \doloop - {\doifdefinedelse{\??pb @#1\the\scratchcounter} - {\letvalue{\??pb @#1\the\scratchcounter}\empty - \advance\scratchcounter\plusone}% - {\exitloop}}} - -\def\bibitemdefs#1% - {\@EA\let\@EA\tempa \csname bib@#1\endcsname - \@EA\let\csname #1\endcsname \tempa } - -%D \macros{startpublication} -%D -%D We are coming to the end of this module, to the macros that -%D do typesetting and read the \type{bbl} file. - -\newcounter\bibcounter - -%D Just a \type{\dosingleempty} is the most friendly -%D of doing this: there need not even be an argument -%D to \type{\startpublication}. Of course, then there -%D is no key either, and it had better be an -%D article (otherwise the layout will be all screwed up). -%D -%D Now prohibits comments, so % can be used for urls - -\def\startpublication - {\edef\bibmodsavedpercent{\the\catcode`\%}% - \catcode`\%=12 - \dosingleempty\dostartpublication} - -\def\stoppublication - {} % the \catcode of % is reset below - -%D Only specifying the key in the argument is also -%D legal. In storing this stuff into macros, some trickery with -%D token registers is needed to fix the expansion problems. Even so, -%D this appears to not always be 100\% safe, so people are -%D urgently advised to use \ETEX\ instead of traditional \TEX. -%D -%D In \ETEX, all expansion problems are conviniently solved by -%D the primitive \type{\protected}. To put that another way: -%D -%D It's not a bug in this module if it does not appear in \ETEX! - -\long\def\dostartpublication[#1]#2\stoppublication% - {\increment\bibcounter - \bgroup - \doifassignmentelse{#1}% - {\getparameters[\??pb][k=,t=article,n=,s=,a=,y=,o=,u=,#1]}% - {\getparameters[\??pb][k=#1,t=article,n=,s=,a=,y=,o=,u=]}% - \@EA\toks\@EA2\@EA{\@@pba}% - \@EA\toks\@EA4\@EA{\@@pbs}% - \toks0={\ignorespaces #2}% - \setxvalue{pbdk-\@@pbk}{\@@pbk} - \setxvalue{pbda-\@@pbk}{\the\toks2} - \setxvalue{pbdy-\@@pbk}{\@@pby} - \setxvalue{pbds-\@@pbk}{\the\toks4} - \setxvalue{pbdn-\@@pbk}{\@@pbn} - \setxvalue{pbdt-\@@pbk}{\@@pbt} - \setxvalue{pbdo-\@@pbk}{\@@pbo} - \setxvalue{pbdu-\@@pbk}{\@@pbu} - \setxvalue{pbdd-\@@pbk}{\the\toks0} - \xdef\allrefs{\allrefs,\@@pbk}% - \egroup - \catcode`\%=\bibmodsavedpercent\relax } - -% intialization of the order-list: - -\let\allrefs\empty - -%D The next macro is needed because the number command of the -%D publist sometimes needs to fetch something from the current -%D item (like the 'short' key). For this, the ID of the current -%D item is passed in the implict parameter \type{\@@pbk} - -\def\makepbkvalue#1{\def\@@pbk{#1}} - -%D - -\newif\ifinpublist - -% from Hans - -\def\ignoresectionconversion - {\let\@@sectionconversion\secondoftwoarguments} - -\let\normaldosetfilterlevel\dosetfilterlevel - -\def\patcheddosetfilterlevel#1#2% beware: this one is \let - {\bgroup - \ignoresectionconversion - \edef\askedlevel{#1}% - \edef\askedfilter{#2}% -% \message{ASKD: \meaning\askedlevel}% -% \message{PREV: \meaning\v!previous}% - \ifx\askedlevel\v!current - \dosetcurrentlevel\askedlevel - \else\ifx\askedlevel\v!previous - \dosetpreviouslevel\askedlevel - \else\ifx\askedlevel\v!all - \global\chardef\alltoclevels\plusone - \else\ifx\askedlevel\v!text - \global\chardef\alltoclevels\plusone - \else - \edef\byaskedlevel{\csname\??by\askedlevel\endcsname}% - \ifx\byaskedlevel\v!text - \dosettextlevel\askedlevel - \else - \dosetotherlevel\askedlevel - \fi - \fi\fi\fi\fi - % experiment - \ifx\askedfilter\empty \else - \xdef\currentlevel{\currentlevel\sectionseparator\askedfilter}% - \fi - \egroup} - - -\unless\ifcsname currentlocationrefence\endcsname - -\let\currentlocationreference\empty - -\def\dogetreferenceelements#1#2#3#4#5% - {\chardef\currentreferencetype=\ifx#1\relax0\else#1\fi\relax - \ifnum\currentreferencetype<2 - \edef\currentpagereference{#2}% - \let \currentdatareference\empty - \edef\currentlocationreference{#2}% - \ifx\currentpagereference \empty - \let\currentfolioreference\folio - \else - \def \currentpagereference {\referencepagenumber[#2]}% - \edef\currentfolioreference{\dosplitofffoliopart[#2]}% - \fi - \edef\currentrealreference{#3}% - \settextreferences#4\end - \ifnum0#5<\crossreferencenumber - \forwardreferencetrue - \else - \forwardreferencefalse - \fi - \else - \let \currentlocationreference\empty - \edef\currentrealreference {#3}% - \def \currentdatareference {#2}% - \let \currentfolioreference\folio - \settextreferences#4\end - \forwardreferencefalse - \fi - \ifodd\currentreferencetype - \realreferencepagefalse - \else - \docheckrealreferencepage\currentrealreference - \ifrealreferencepage \else - \docheckrealreferencepage\currentdatareference - \fi - \fi} - -\fi - -\def\filllocalpublist% - {\doifdefinedelse{\alltoclevels} - {\let\dosetfilterlevel\patcheddosetfilterlevel - \dosettoclevel\??li{pubs}% - \let\dosetfilterlevel\normaldosetfilterlevel }% - {\dosettoclevel\??li{pubs}}% - \global\let\glocalpublist\empty - \doloop - {\doifdefinedelse - {\r!cross cite-\jobname-\recurselevel} - {\doifreferencefoundelse - {cite-\jobname-\recurselevel} - {\@EA\doifreglevelelse\@EA[\currentlocationreference] - {\@EA\doglobal\@EA\addtocommalist\@EA - {\currenttextreference}\glocalpublist}{}} - {}}% - {\exitloop}}% - \let\localpublist\glocalpublist} - -% -\def\typesetpubslist - {\dobeginoflist - \edef\askedlevel{\csname \??li pubs\c!criterium\endcsname}% - \ifx\askedlevel\v!all - \def\bibrefprefix{}% - \else % - \preparebibrefprefix - \fi - \ifsortbycite - \filllocalpublist - \iftypesetall - \let\localallrefs\allrefs - \processcommacommand[\localpublist]\typesetapublication - \def\removefromallrefs##1% - {\removefromcommalist{##1}\localallrefs }% - \processcommacommand[\localpublist]\removefromallrefs - \processcommacommand[\localallrefs]\typesetapublication - \else - \processcommacommand[\localpublist]\typesetapublication - \fi - \else - \iftypesetall - \processcommacommand[\allrefs]\typesetapublication - \else - % - \filllocalpublist - \processcommacommand[\allrefs]\maybetypesetapublication - \fi - \fi - \doendoflist } - -\newif\ifinpublist -\def\maybetypesetapublication#1% - {\global\inpublistfalse - \def\test{#1}% - \def\runtest##1% - {\def\tempa{##1}\ifx \test\tempa \global\inpublisttrue \fi}% - \processcommacommand[\localpublist]\runtest - \ifinpublist \typesetapublication{#1}\fi} - -\def\initializepubslist - {\edef\@@pbnumbering{\@@pbnumbering}% - \ifautohang - \ifx\@@pbnumbering\v!short - \setbox\scratchbox\hbox{\@@pbnumbercommand{\getvalue{\??li pubs\c!samplesize}}}% - \else\iftypesetall - \setbox\scratchbox\hbox{\@@pbnumbercommand{\getvalue{\??li pubs\c!totalnumber}}}% - \else - \setbox\scratchbox\hbox{\@@pbnumbercommand{\numreferred}}% - \fi\fi - \edef\samplewidth{\the\wd\scratchbox}% - \setuplist[pubs][\c!width=\samplewidth,\c!distance=0pt]% - \ifx\@@pbnumbering\v!short - \def\@@pblimitednumber##1{\hbox to \samplewidth - {\@@pbnumbercommand{\getvalue{pbds-\@@pbk}}}}% - \else \ifx \@@pbnumbering\v!bib - \def\@@pblimitednumber##1{\hbox to \samplewidth - {\@@pbnumbercommand{\getvalue{pbdn-\@@pbk}}}}% - \else - \def\@@pblimitednumber##1{\hbox to \samplewidth{\@@pbnumbercommand{##1}}}% - \fi \fi - \else - \ifx\@@pbnumbering\v!short - \doifemptyelse - {\getvalue{\??li pubs\c!width}} - {\def\@@pblimitednumber##1{\hbox - {\@@pbnumbercommand{\getvalue{pbds-\@@pbk}}}}}% - {\def\@@pblimitednumber##1{\hbox to \getvalue{\??li pubs\c!width}% - {\@@pbnumbercommand{\getvalue{pbds-\@@pbk}}}}}% - \else \ifx \@@pbnumbering\v!bib - \doifemptyelse - {\getvalue{\??li pubs\c!width}} - {\def\@@pblimitednumber##1{\hbox - {\@@pbnumbercommand{\getvalue{pbdn-\@@pbk}}}}}% - {\def\@@pblimitednumber##1{\hbox to \getvalue{\??li pubs\c!width}% - {\@@pbnumbercommand{\getvalue{pbdn-\@@pbk}}}}}% - \else - \doifemptyelse - {\getvalue{\??li pubs\c!width}} - {\def\@@pblimitednumber##1{\hbox{\@@pbnumbercommand{##1}}}}% - {\def\@@pblimitednumber##1{\hbox to \getvalue{\??li pubs\c!width}{\@@pbnumbercommand{##1}}}}% - \fi - \fi - \fi - \ifx\@@pbnumbering\v!no - \setuplist[pubs][\c!numbercommand=,\c!symbol=\v!none,\c!textcommand=\outdented]% - \else - \setuplist[pubs][\c!numbercommand=\@@pblimitednumber]% - \fi - \doifelsevalue - {\??pv datamaybeyear}{\v!off}{\def\maybeyear##1{}}{\def\maybeyear##1{##1}}% - \forgetall % bugfix 2005/03/18 -} - - -\def\outdented#1% move to supp-box ? - {\hskip -\hangindent #1} - - -%D The full list of publications - -\def\completepublications - {\dosingleempty\docompletepublications} - -\def\bibdogetupsometextprefix#1#2#3% - {\ifcsname#2#1#3\endcsname - \csname#2#1#3\endcsname - \else\ifcsname\??la#1\c!default\endcsname - \@EA\ifx\csname\??la#1\c!default\endcsname\empty - \ifcsname#2#3\endcsname - \csname#2#3\endcsname - \else\ifcsname#2\s!en#3\endcsname - \csname#2\s!en#3\endcsname - \fi\fi - \else - \expandafter\bibdogetupsometextprefix - \csname\??la#1\c!default\endcsname{#2}{#3}% - \fi - \else - \ifcsname#2#3\endcsname - \csname#2#3\endcsname - \else\ifcsname#2\s!en#3\endcsname - \csname#2\s!en#3\endcsname - \fi\fi - \fi\fi} - -\def\docompletepublications[#1]% - {\begingroup - \setuplist[pubs][\c!criterium=\v!previous,#1] - \begingroup - \let\handletextprefix\firstoftwoarguments - \edef\headtextpubs{\bibdogetupsometextprefix\headlanguage\c!title{pubs}}% - \doifdefinedelse - {\??pv data\v!title} - {\doifemptyelsevalue - {\??pv data\v!title} - {\expanded{\systemsuppliedtitle[pubs]{\headtextpubs}}}% - {\expanded{\getvalue{\??pv data\v!title}{\headtextpubs}}}% - }% - {\expanded{\systemsuppliedtitle[pubs]{\headtextpubs}}}% - \endgroup - \dodoplacepublications } - -%D And the portion with the entries only. - -\def\placepublications - {\dosingleempty\doplacepublications} - -\def\doplacepublications[#1]% - {%\getparameters[\??pv data][#1] - \begingroup - \setuplist[pubs][\c!criterium=\v!previous,#1]% - \dodoplacepublications }% - -\def\dodoplacepublications% - {\initializepubslist - \doifelsevalue - {\??li pubs\c!option}{\v!continue}% - {}% - {\global\let\bibcounter\!!zerocount }% - \inpublisttrue - \typesetpubslist - \inpublistfalse - \endgroup } - - -%D \subsubject{What's in a publication} -%D - -\unexpanded\def\typesetapublication#1% - {\doifsomething{#1}{\doglobal\increment\bibcounter - \bgroup - \makepbkvalue{#1}% - \ifgridsnapping - \snaptogrid\vbox{\dodolistelement{pubs}{}{\bibcounter}% - {\expanded{\reference[\bibrefprefix#1]{\bibcounter}}% - \strut \dotypesetapublication{#1}\strut }{}{}}% - \else - \dodolistelement{pubs}{}{\bibcounter}% - {\expanded{\reference[\bibrefprefix#1]{\bibcounter}}% - \strut \dotypesetapublication{#1}\strut }{}{}% - \fi - \egroup }} - -\def\dotypesetapublication#1% - {\bgroup - \def\@@currentalternative{data}% - \processcommacommand[\bibcommandlist,crossref]\clearbibitem - \processcommalist [artauthor,author,editor]\clearbibitemtwo - \processcommacommand[\bibcommandlist]\bibitemdefs - \processcommalist [artauthor,author,editor,crossref]\bibitemdefs - \let\biblanguage\empty - \getvalue{pbdd-#1}% - \ifcsname pbdt-#1\endcsname \bibalternative{\getvalue{pbdt-#1}}\fi - \egroup } - - -%D An afterthought - -\def\maybeyear#1{} - -%D An another - -\def\noopsort#1{} - -%D This is the result of bibtex's `language' field. - -\def\setbiblanguage#1#2{\setvalue{\??pb @lang@#1}{#2}} - -\def\lang#1% - {\def\biblanguage{#1}% - \ifcsname \??pb @lang@#1\endcsname - \expanded{\language[\getvalue{\??pb @lang@#1}]}% - \fi \ignorespaces} - - -%D \subject{Citations} - -%D \macros{cite,bibref} -%D -%D The indirection with \type{\dobibref} allows \LATEX\ style -%D \type{\cite} commands with a braced argument (these might appear -%D in included data from the \type{.bib} file). - -\unexpanded\def\cite - {\doifnextcharelse{[} - {\dodocite} - {\dobibref}} - -\def\dobibref#1% - {\docite[#1][]} - -\def\dodocite[#1]% - {\startstrictinspectnextcharacter - \dodoubleempty\dododocite[#1]} - -\def\dododocite[#1][#2]{% - \stopstrictinspectnextcharacter - \docite[#1][#2]} - -\def\docite[#1][#2]% - {\begingroup - \setupinteraction[\c!style=]% - \edef\temp{#2}% - \ifx\empty\temp \secondargumentfalse - \else \secondargumenttrue \fi - \ifsecondargument - \processcommalist[#2]\docitation - \doifassignmentelse - {#1}% - {\getparameters[LO][\c!alternative=,\c!extras=,#1]% - \edef\@@currentalternative{\LOalternative}% - \ifx\@@currentalternative\empty - \edef\@@currentalternative{\@@citedefault}% - \fi - \ifx\LOextras\empty - \setupcite[\@@currentalternative][#1]% - \else - \expandafter\ifx\csname LOright\endcsname \relax - \edef\LOextras{{\LOextras\bibalternative\c!right}}% - \else - \edef\LOextras{{\LOextras\LOright}}% - \fi - \expanded{\setupcite[\@@currentalternative][#1,\c!right=\LOextras]}% - \fi - }% - {\def\@@currentalternative{#1}}% - \expanded{% - \processaction[\csname @@pv\@@currentalternative \c!compress\endcsname]} - [ \v!yes=>\bibcitecompresstrue, - \v!no=>\bibcitecompressfalse, - \s!default=>\bibcitecompresstrue, - \s!unknown=>\bibcitecompresstrue]% - \getvalue{bib\@@currentalternative ref}[#2]% - \else - \processcommalist[#1]\docitation - \expanded{\processaction[\csname @@pv\@@citedefault \c!compress\endcsname]} - [ \v!yes=>\bibcitecompresstrue, - \v!no=>\bibcitecompressfalse, - \s!default=>\bibcitecompresstrue, - \s!unknown=>\bibcitecompresstrue]% - \edef\@@currentalternative{\@@citedefault}% - \getvalue{bib\@@citedefault ref}[#1]% - \fi - \endgroup} - -%D \macros{nocite} - -\def\nocite[#1]% - {\processcommalist[#1]\addthisref - \processcommalist[#1]\docitation } - -%D \macros{setupcite} - -\def\setupcite{\dodoubleempty\dosetupcite} - -\def\dosetupcite[#1][#2]% - {\ifsecondargument - \def\dodosetupcite##1{\getparameters[\??pv##1][#2]}% - \processcommalist[#1]\dodosetupcite - \else % default case - \getparameters[\??pv\@@citedefault][#1]% - \fi } - - -%D Low-level stuff - -\def\getcitedata#1[#2]#3[#4]#5to#6% - {\bgroup - \addthisref{#4}% - \dofetchapublication{#4}% - \doifdefinedelse{@@pb@bib#2}% - {\xdef#6{\getvalue{@@pb@bib#2}}}% - {\xdef#6{\getvalue{@@pb@#2}}}% - \egroup } - - -\def\dofetchapublication#1% - {\makepbkvalue{#1}% - \processcommacommand[\bibcommandlist,crossref]\clearbibitem - \processcommalist [artauthor,author,editor]\clearbibitemtwo - \processcommacommand[\bibcommandlist]\bibitemdefs - \processcommalist [artauthor,author,editor,crossref]\bibitemdefs - \getvalue{pbdd-#1}} - -%D This new version writes a reference out to the tui file for every -%D \type{\cite}. This will allow backlinking. -%D -%D Some special care is needed so that references are not added from -%D weird locations like in the TOC or within a \type{\setbox} command. - -\newcounter\citationnumber - -\def\docitation#1{% - \iftrialtypesetting \else - \ifdoinpututilities\else - \doglobal\increment\citationnumber - \expanded{\rawreference{}{cite-\jobname-\citationnumber}{#1}}% - \fi \fi } - - -%D \macros{numreferred,doifreferredelse,addthisref,publist} -%D -%D The interesting command here is \type{\addthisref}, which maintains -%D the global list of references. -%D -%D \type{\numreferred} is needed to do automatic calculations on -%D the label width, and \type{\doifreferredelse} will be used -%D to implement \type{criterium=cite}. - -\newcounter\numreferred - -\long\def\doifreferredelse#1{\doifdefinedelse{pbr-#1}} - -\def\addthisref#1% - {\doifundefinedelse{pbr-#1} - {\setxvalue{pbr-#1}{\citationnumber}% - \doglobal\increment\numreferred - \ifx\publist\empty \gdef\publist{#1}\else\appended\gdef\publist{,#1}\fi} - {\setxvalue{pbr-#1}{\getvalue{pbr-#1},\citationnumber}}} - -\let\publist\empty - -%D \macros{doifbibreferencefoundelse} -%D -%D Some macros to fetch the information provided by -%D \type{\startpublication}. - -\def\doifbibreferencefoundelse#1#2#3% - {\doifdefinedelse{pbdk-#1} - {#2} - {\showmessage\m!bib{5}{#1 is unknown}#3}} - -%D \macros{ixbibauthoryear,thebibauthors,thebibyears} -%D -%D If compression of \type{\cite}'s argument expansion is on, -%D the macros that deal with authors and years call this internal -%D command to do the actual typesetting. -%D -%D Two entries with same author but with different years may -%D be condensed into ``Author (year1,year2)''. This is about the -%D only optimization that makes sense for the (author,year) -%D style of citations (years within one author have to be unique -%D anyway so no need to test for that, and ``Author1, Author2 (year)'' -%D creates more confusion than it does good). -%D -%D In the code below, -%D the macro \type{\thebibauthors} holds the names of the alternative -%D author info fields for the current list. This is a commalist, -%D and \type{\thebibyears} holds the (collection of) year(s) that go with -%D this author (possibly as a nested commalist). -%D -%D There had better be an author for all cases, but there -%D does not have to be year info always. \type{\thebibyears} is -%D pre-initialized because this makes the insertion macros simpler. -%D -%D In `normal' \TeX, of course there are expansion problems again. - -\def\ixbibauthoryear#1#2#3#4% - {\bgroup - \gdef\ixlastcommand {#4}% - \gdef\ixsecondcommand{#3}% - \gdef\ixfirstcommand {#2}% - \glet\thebibauthors \empty - \glet\thebibyears \empty - \getcommalistsize[#1]% - \ifbibcitecompress - \dorecurse\commalistsize{\xdef\thebibyears{\thebibyears,}}% - \processcommalist[#1]\docompressbibauthoryear - \else - \processcommalist[#1]\donormalbibauthoryear - \fi - \egroup - \dobibauthoryear} - -%D \macros{dodobibauthoryear} -%D -%D This macro only has to make sure that the lists -%D \type{\thebibauthors} and \type{\thebibyears} are printed. - -\def\dobibauthoryear - {\scratchcounter\zerocount - \getcommacommandsize[\thebibauthors]% - \edef\authorcount{\commalistsize}% - \@EA\processcommalist\@EA[\thebibauthors]\dodobibauthoryear} - -\def\dodobibauthoryear#1% - {\advance\scratchcounter\plusone - \edef\wantednumber{\the\scratchcounter}% - \getfromcommacommand[\thebibyears][\wantednumber]% - \@EA\def\@EA\currentbibyear\@EA{\commalistelement}% - \setcurrentbibauthor{#1}% - \ifnum\scratchcounter=\plusone - \ixfirstcommand - \else\ifnum \scratchcounter=\authorcount\relax - \ixlastcommand - \else - \ixsecondcommand - \fi\fi} - -\def\setcurrentbibauthor#1% - {\getcommacommandsize[#1]% - \ifcase\commalistsize - % anonymous? - \def\currentbibauthor{}% - \or - \def\currentbibauthor{#1}% - \or - \expanded{\docurrentbibauthor#1}% - \else - \handlemultiplebibauthors{\commalistsize}{#1}% - \fi } - - -\newcount\citescratchcounter - -\def\handlemultiplebibauthors#1#2% - {\citescratchcounter 0 - \def\currentbibauthor{}% - \def\bibprocessauthoritem##1% - {\advance\citescratchcounter1 - \ifnum \citescratchcounter=#1\relax - \edef\currentbibauthor{\currentbibauthor##1}% - \else \ifnum\numexpr\citescratchcounter+1 = #1\relax - \edef\currentbibauthor{\currentbibauthor ##1\bibalternative{andtext}}% - \else - \edef\currentbibauthor{\currentbibauthor ##1\bibalternative{namesep}}% - \fi - \fi }% - \processcommalist[#2]\bibprocessauthoritem } - - -\setupcite - [author,authoryear,authoryears] - [\c!namesep={, }] - -%D This discovery of authoretallimit is not the best one, -%D but it will do for now. - -\def\docurrentbibauthor#1,#2% - {\doifemptyelse{#2} - {\def\currentbibauthor{#1\bibalternative{otherstext}}} - {\@EA - \ifx\csname \??pv\@@currentalternative authoretallimit\endcsname\relax - \edef\currentbibauthor{#1\bibalternative{andtext}#2}% - \else - \edef\currentbibauthor{#1% - \ifcase0\bibalternative{authoretallimit}\relax\or - \bibalternative{otherstext}\else\bibalternative{andtext}#2\fi}% - \fi}} - -%D This is not the one Hans made for me, because I need a global -%D edef, and the \type{\robustdoifinsetelse} doesn't listen to -%D \type{\doglobal } - -\def\robustaddtocommalist#1#2% {item} \cs - {\robustdoifinsetelse{#1}#2\resetglobal - {\dodoglobal\xdef#2{\ifx#2\empty\else#2,\fi#1}}} - - -%D \macros{donormalbibauthoryear} -%D -%D Now we get to the macros that fill the two lists. -%D The `simple' one really is quite simple. - -\def\donormalbibauthoryear#1% - {\addthisref{#1}% - \def\myauthor{Xxxxxxxxxx}% - \def\myyear{0000}% - \doifbibreferencefoundelse{#1} - {\def\myauthor{{\getvalue{pbda-#1}}}% - \def\myyear {\getvalue{pbdy-#1}}}% - {}% - \@EA\doglobal\@EA\appendtocommalist\@EA{\myauthor}\thebibauthors - \@EA\doglobal\@EA\appendtocommalist\@EA{\myyear }\thebibyears} - -%D \macros{docompressbibauthoryear} -%D -%D So much for the easy parts. Nothing at all will be done if -%D the reference is not found or the reference does not contain -%D author data. No questions marks o.s.s. (to be fixed later) - -\def\docompressbibauthoryear#1% - {\addthisref{#1}% - \def\myauthor{Xxxxxxxxxx}% - \def\myyear {0000}% - \doifbibreferencefoundelse{#1} - {\xdef\myauthor{\csname pbda-#1\endcsname }% - \xdef\myyear {\csname pbdy-#1\endcsname }} - {}% - \ifx\myauthor\empty\else - \checkifmyauthoralreadyexists - \findmatchingyear - \fi} - -%D two temporary counters. One of these two can possibly be replaced -%D by \type{\scratchcounter}. - -\newcount\bibitemcounter -\newcount\bibitemwanted - -%D The first portion is simple enough: if this is the very first author -%D it is quite straightforward to add it. \type{\bibitemcounter} and -%D \type{\bibitemwanted} are needed later to insert the year -%D information in the correct item of \type{\thebibyears} - -\def\checkifmyauthoralreadyexists - {\doifemptyelsevalue{thebibauthors} - {\global\bibitemwanted \plusone - \global\bibitemcounter \plusone - \xdef\thebibauthors{{\myauthor}}} - {% the next weirdness is because according to \getcommalistsize, - % the length of \type{[{{},{}}]} is 2. - \@EA\getcommalistsize\@EA[\thebibauthors,]% - \global\bibitemcounter\commalistsize - \global\advance\bibitemcounter\minusone - \global\bibitemwanted \zerocount - \processcommacommand[\thebibauthors]\docomparemyauthor}} - -%D The outer \type{\ifnum} accomplishes the addition of -%D a new author to \type{\thebibauthors}. The messing about with -%D the two counters is again to make sure that \type{\thebibyears} -%D will be updated correctly.If the author {\it was} found, -%D the counters will stay at their present values and everything -%D will be setup properly to insert the year info. - -\def\docomparemyauthor#1% - {\global\advance\bibitemwanted \plusone - \def\mytempc{#1}% -% \message{authors: \myauthor <=>\mytempc \ifx\mytempc\myauthor :Y \else :N -% \meaning \myauthor, \meaning\mytempc\fi (\the\bibitemwanted = \the\bibitemcounter)}% - \ifx\mytempc\myauthor - \quitcommalist - \else - \ifnum\bibitemwanted = \bibitemcounter\relax - \global\advance\bibitemwanted \plusone - \global\bibitemcounter\bibitemwanted\relax - \@EA\doglobal\@EA\robustaddtocommalist\@EA{{\myauthor}}\thebibauthors - \fi - \fi} - -%D This macro should be clear now. - -\def\findmatchingyear - {\edef\wantednumber{\the\bibitemwanted}% - \getfromcommacommand[\thebibyears][\wantednumber]% - \ifx\commalistelement\empty - \edef\myyear{{\myyear}}% - \else - \edef\myyear{{\commalistelement, \myyear}}% - \fi - \edef\newcommalistelement{\myyear}% - \doglobal\replaceincommalist \thebibyears \wantednumber} - - -%D \macros{preparebibrefprefix} -%D -%D The reference list only writes bare references when the criterium -%D is `all'. Otherwise, a prefix is added to make sure that pdfTeX -%D does not encounter duplicate named references. On the generation -%D side, this is not a big problem. \type{\preparebibrefprefix} -%D creates a suitable string to prepend if a prefix is needed. -%D -%D Because this macro is used within \type{\cite } that itself -%D can be used within lists like the table of contents, it needs -%D to save and restore \type{\savedalltoclevels} and -%D \type{\currentlevel} (\type{\dosetfilterlevel} needs to change -%D their values globally). - -\def\preparebibrefprefix - {\chardef\savedalltoclevels \alltoclevels - \let\savedcurrentlevel\currentlevel - \let\dosetfilterlevel\patcheddosetfilterlevel - \dosettoclevel\??li{pubs}% - \edef\bibrefprefix{\@@sectiontype\currentlevel\sectionseparator}% - \let\dosetfilterlevel\normaldosetfilterlevel - \global\let\currentlevel\savedcurrentlevel - \global\chardef\alltoclevels \savedalltoclevels } - -%D \macros{preparebibreflist} -%D -%D But this optional prefixing is a bit of a problem on the -%D other side. We would like to do \type{\goto{}[article-full]} -%D but can't do it like that, because the actual label may be -%D \type{1:2:0:3:4:article-full]} or so. The problem is solved -%D by building a commalist that looks like this: -%D \starttyping -%D \def\bibreflist% -%D {1:2:0:3:4:article-full, -%D 1:2:0:3:article-full, -%D 1:2:0:article-full, -%D 1:2:article-full, -%D 1:article-full, -%D article-full} -%D \stoptyping - -\def\preparebibreflist#1% - {\let\bibreflist\empty - \def\storeitem##1% - {\ifx\bibreflist\empty - \edef\prefix{##1\sectionseparator}% - \edef\bibreflist{\prefix#1,#1}% - \else - \edef\prefix{\prefix##1\sectionseparator}% - \edef\bibreflist{\prefix#1,\bibreflist}% - \fi}% - \expanded{\processseparatedlist[\bibrefprefix][\sectionseparator]}\storeitem } - -%D \macros{gotobiblink,inbiblink,atbiblink} -%D -%D The final task is looping over that list until a match is found. - -\newif\ifbibreffound - -\def\gotobiblink#1[#2]% - {\bgroup - \preparebibrefprefix - \preparebibreflist{#2}% - \global\bibreffoundfalse - \def\setuplink##1% - {\ifbibreffound\else - \doifreferencefoundelse - {##1} - {\global\bibreffoundtrue \goto{#1}[##1]}% - {}\fi}% - \processcommacommand[\bibreflist]\setuplink - \ifbibreffound \else \unknownreference{#2}\fi - \egroup } - -\def\atbiblink[#1]% - {\bgroup - \preparebibrefprefix - \preparebibreflist{#1}% - \global\bibreffoundfalse - \def\setuplink##1% - {\ifbibreffound\else - \doifreferencefoundelse - {##1} - {\global\bibreffoundtrue \at[##1]}% - {}\fi}% - \processcommacommand[\bibreflist]\setuplink - \ifbibreffound \else \unknownreference{#1}\fi - \egroup } - -\def\inbiblink[#1]% - {\bgroup - \preparebibrefprefix - \preparebibreflist{#1}% - \global\bibreffoundfalse - \def\setuplink##1% - {\ifbibreffound\else - \doifreferencefoundelse - {##1} - {\global\bibreffoundtrue \in[##1]}% - {}\fi}% - \processcommacommand[\bibreflist]\setuplink - \ifbibreffound \else \unknownreference{#1}\fi - \egroup } - -%D \macros{bibauthoryearref,bibauthoryearsref,bibauthorref,bibyearref} -%D -%D Now that all the hard work has been done, these are simple. -%D \type{\ixbibauthoryearref} stores the data in the macros -%D \type{\currentbibauthor} and \type{\currentbibyear}. - -\def\ifbibinteractionelse% - {\iflocation - \edef\test{\bibalternative\c!interaction}% - \ifx\test\v!stop - \@EA\@EA\@EA\secondoftwoarguments - \else - \@EA\@EA\@EA\firstoftwoarguments - \fi - \else - \@EA\secondoftwoarguments - \fi - } - -\def\bibmaybeinteractive#1#2% - {\ifbibcitecompress #2\else - \ifbibinteractionelse{\gotobiblink{#2}[#1]}{#2}\fi } - -\def\bibauthoryearref[#1]% - {\ixbibauthoryear{#1}% - {\bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween - \bibalternative\v!left{\currentbibyear}\bibalternative\v!right}} - {\bibalternative\c!pubsep - \bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween - \bibalternative\v!left {\currentbibyear}\bibalternative\v!right}} - {\bibalternative\c!lastpubsep - \bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween - \bibalternative\v!left {\currentbibyear}\bibalternative\v!right}}} - -\def\bibauthoryearsref[#1]% - {\bibalternative\v!left - \ixbibauthoryear{#1} - {\bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween{\currentbibyear}}} - {\bibalternative\c!pubsep - \bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween{\currentbibyear}}} - {\bibalternative\c!lastpubsep - \bibmaybeinteractive{#1}{{\currentbibauthor}\bibalternative\c!inbetween{\currentbibyear}}}% - \bibalternative\v!right} - -\def\bibauthorref[#1]% - {\bibalternative\v!left - \ixbibauthoryear{#1}% - {\bibmaybeinteractive{#1}{{\currentbibauthor}}} - {\bibalternative\c!pubsep \bibmaybeinteractive{#1}{{\currentbibauthor}}} - {\bibalternative\c!lastpubsep\bibmaybeinteractive{#1}{{\currentbibauthor}}}% - \bibalternative\v!right} - -\def\bibyearref[#1]% - {\bibalternative\v!left - \ixbibauthoryear{#1}% - {\bibmaybeinteractive{#1}{{\currentbibyear}}} - {\bibalternative\c!pubsep \bibmaybeinteractive{#1}{{\currentbibyear}}} - {\bibalternative\c!lastpubsep\bibmaybeinteractive{#1}{{\currentbibyear}}}% - \bibalternative\v!right} - -%D ML problems: - -%D \macros{bibshortref,bibkeyref,bibpageref,bibtyperef,bibserialref} -%D -%D There is hardly any point in trying to compress these. The only -%D thing that needs to be done is making sure that -%D the separations are inserted correctly. And that is -%D what \type{\refsep} does. - -\newif\iffirstref - -\def\refsep{\iffirstref\firstreffalse\else\bibalternative\c!pubsep\fi} - -\def\bibshortref[#1]% - {\bibalternative\v!left - \firstreftrue\processcommalist[#1]\dobibshortref - \bibalternative\v!right} - -\def\dobibshortref#1% - {\addthisref{#1}\refsep - \doifbibreferencefoundelse{#1}{\gotobiblink{\getvalue{pbds-#1}}[#1]} - {\unknownreference{#1}}} - - -\def\bibserialref[#1]% - {\bibalternative\v!left - \firstreftrue\processcommalist[#1]\dobibserialref - \bibalternative\v!right} - -\def\dobibserialref#1% - {\addthisref{#1}\refsep - \doifbibreferencefoundelse{#1}{\gotobiblink{\getvalue{pbdn-#1}}[#1]} - {\unknownreference{#1}}} - -\def\bibkeyref[#1]% - {\bibalternative\v!left - \firstreftrue\processcommalist[#1]\dobibkeyref - \bibalternative\v!right} - -\def\dobibkeyref#1% - {\addthisref{#1}\refsep\gotobiblink{#1}[#1]} - -\def\gotoDOI#1#2% - {\ifbibinteractionelse - {\useURL[bibfooDoi#1][#2]% - \useURL[bibfoo#1][http://dx.doi.org/#2]% - \goto{\url[bibfooDoi#1]}[url(bibfoo#1)]} - {\hyphenatedurl{#2}}} - -\def\bibdoiref[#1]% - {\bibalternative\v!left - \firstreftrue\processcommalist[#1]\dobibdoiref - \bibalternative\v!right} - -\def\dobibdoiref#1% - {\addthisref{#1}\refsep - \doifbibreferencefoundelse{#1}{\expanded{\gotoDOI{#1}{\getvalue{pbdo-#1}}}} - {\unknownreference{#1}}} - - -\def\biburlref[#1]% - {\bibalternative\v!left - \firstreftrue\processcommalist[#1]\dobiburlref - \bibalternative\v!right} - -\def\gotoURL#1#2% - {\ifbibinteractionelse - {\useURL[bibfoo#1][#2]\goto{\url[bibfoo#1]}[url(bibfoo#1)]} - {\hyphenatedurl{#2}}} - -\def\dobiburlref#1% - {\addthisref{#1}\refsep - \doifbibreferencefoundelse{#1}{\expanded{\gotoURL{#1}{\getvalue{pbdu-#1}}}} - {\unknownreference{#1}}} - -\def\bibtyperef[#1]% - {\bibalternative\v!left - \firstreftrue\processcommalist[#1]\dobibtyperef - \bibalternative\v!right} - -\def\dobibtyperef#1% - {\addthisref{#1}\refsep - \doifbibreferencefoundelse{#1}{\gotobiblink{\getvalue{pbdt-#1}}[#1]} - {\unknownreference{#1}}} - -\def\bibpageref[#1]% - {\bibalternative\v!left - \firstreftrue\processcommalist[#1]\dobibpageref - \bibalternative\v!right} - -\def\dobibpageref#1% - {\addthisref{#1}\refsep - \ifbibinteractionelse{\atbiblink[#1]}{{\referencingfalse\at[#1]}}} - -\def\bibdataref[#1]% - {\bibalternative\v!left - \firstreftrue\processcommalist[#1]\dobibdata - \bibalternative\v!right} - -\def\dobibdata#1% - {\addthisref{#1}\refsep - \doifbibreferencefoundelse{#1}{\dotypesetapublication{#1}} - {\unknownreference{#1}}} - -\let\bibnoneref\nocite - -%D \macros{bibnumref} -%D -%D It makes sense to try and compress the argument list of -%D \type{\bibnumref}. There are two things involved: the actual -%D compression, and a sort routine. The idea is to store the -%D found values in a new commalist called \type{\therefs}. - -%D But that is not too straight-forward, because \type{\in} is -%D not expandable, -%D so that the macro \type{\expandrefs} is needed. - -\def\expandrefs#1% - {\bgroup - \preparebibrefprefix - \preparebibreflist{#1}% - \global\bibreffoundfalse - \def\setuplink##1% - {\ifbibreffound\else - \doifreferencefoundelse - {##1} - {\global\bibreffoundtrue - \@EA\doglobal\@EA\addtocommalist\@EA{\reftypet}\therefs }% - {}\fi}% - \processcommacommand[\bibreflist]\setuplink - \ifbibreffound \else \showmessage\m!bib{5}{#1 unknown}% - \doglobal\addtocommalist{0}\therefs\fi - \egroup } - - -%D But at least the actual sorting code is simple (note that sorting -%D a list with exactly one entry fails to return anything, which -%D is why the \type{\ifx} is needed). - -\def\bibnumref[#1]% - {\bibalternative\v!left - \penalty\!!tenthousand - \processcommalist[#1]\addthisref - \firstreftrue - \ifbibcitecompress - \glet\therefs\empty - \processcommalist[#1]\expandrefs - \sortcommacommand[\therefs]\donumericcompare - \ifx\empty\sortedcommalist\else - \let\therefs\sortedcommalist - \fi - \compresscommacommandnrs[\therefs]% - \processcommacommand[\compressedlist]\verysimplebibnumref - \else - \processcommalist[#1]\dosimplebibnumref - \fi - \bibalternative\v!right} - -\def\dosimplebibnumref #1% - {\refsep\ifbibinteractionelse - {\inbiblink[#1]}{{\referencingfalse\inbiblink[#1]}}} - -\def\verysimplebibnumref#1{\doverysimplebibnumref#1} - -\def\doverysimplebibnumref#1#2% - {\refsep - \ifcase#1\relax \unknownreference{#1}\else - \def\tempa{#2}\ifx\empty\tempa#1\else#1\bibalternative\c!inbetween#2\fi - \fi} - -%D By request from Sanjoy. This makes it easier to implement -%D \type{\citeasnoun}. - -\def\bibauthornumref[#1]% - {\getcommalistsize[#1]% - \global\bibitemcounter\commalistsize - \firstreftrue - \processcommalist[#1]\dobibauthornumref } - -\def\dobibauthornumref#1% - {\addthisref{#1}\refsep - \doifbibreferencefoundelse{#1} - {\getvalue{pbda-#1}% - \bibalternative\c!inbetween - \bibalternative\v!left - \ifbibinteractionelse{\inbiblink[#1]} - {{\referencingfalse\inbiblink[#1]}}% - \bibalternative\v!right} - {\unknownreference{#1}}} - -%D And some defaults are loaded from bibl-apa: - -\setuppublications - [\v!month\v!conversion=,\c!alternative=apa] - -\loadmarkfile{t-bib} - -\preloadbiblist - -\protect \endinput diff --git a/Master/texmf-dist/tex/context/bib/t-bibltx.tex b/Master/texmf-dist/tex/context/bib/t-bibltx.tex deleted file mode 100644 index cb9e787adcf..00000000000 --- a/Master/texmf-dist/tex/context/bib/t-bibltx.tex +++ /dev/null @@ -1,75 +0,0 @@ -%D \module -%D [ file=t-bibltx, -%D version=2005.01.04, -%D title=\CONTEXT\ Publication Module, -%D subtitle=Publications, -%D author={Taco Hoekwater}, -%D date=\currentdate, -%D copyright={Public Domain}] -%C -%C Donated to the public domain. - -%D \macros{newcommand} -%D -%D Just about all databases define something that uses -%D \type {\newcommand}. This fake version does not cover -%D everything \type {\newcommand} does, but it should be -%D enough for simple definitions like the ones found in -%D \BIBTEX\ files. - -\unprotect - -\def\@star@or@long#1% - {\doifnextcharelse*{\afterassignment#1\let\next=}{#1}} - -\def\newcommand - {\@star@or@long\new@command} - -\def\new@command#1% - {\@testopt{\@newcommand#1}0} - -\def\@newcommand#1[#2]% - {\doifnextcharelse[{\@xargdef#1[#2]}{\@argdef#1[#2]}} - -\long\def\@argdef#1[#2]#3% - {\@yargdef#1\@ne{#2}{#3}} - -\long\def\@xargdef#1[#2][#3]#4% - {\@EA\def\@EA#1\@EA{\@EA\do@testopt\@EA#1\csname\string#1\endcsname{#3}}% - \@EA\@yargdef\csname\string#1\endcsname\tw@{#2}{#4}} - -\def\@testopt#1#2% - {\doifnextcharelse[{#1}{#1[#2]}} - -\def\do@testopt#1% - {\expandafter\@testopt} - -\long\def\@yargdef#1#2#3% - {\!!counta#3\relax - \advance \!!counta \@ne - \let\@hash@\relax - \edef\!!tempa{\ifx#2\tw@ [\@hash@1]\fi}% - \!!countb #2% - \loop - \ifnum\!!countb <\!!counta - \edef\!!tempa{\!!tempa\@hash@\the\!!countb}% - \advance\!!countb \@ne - \repeat - \let\@hash@##% - \long\@EA\def\@EA#1\!!tempa} - -\long\def\@reargdef#1[#2]% - {\@yargdef#1\@ne{#2}} - -%D Something like the following is needed to support the -%D average \LATEX-based \BIBTEX\ databases. -%D -%D \starttyping -%D \let\textsc\kap -%D \def\emph#1{{\em#1}} -%D \let\sf\ss -%D \stoptyping -%D -%D But we happily leave that to the user. - -\protect \endinput |