summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/bibtex/bst/bibexport/expcites.bst
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/bibtex/bst/bibexport/expcites.bst')
-rw-r--r--Master/texmf-dist/bibtex/bst/bibexport/expcites.bst19
1 files changed, 14 insertions, 5 deletions
diff --git a/Master/texmf-dist/bibtex/bst/bibexport/expcites.bst b/Master/texmf-dist/bibtex/bst/bibexport/expcites.bst
index 7fde8107e34..11d2a83f0cc 100644
--- a/Master/texmf-dist/bibtex/bst/bibexport/expcites.bst
+++ b/Master/texmf-dist/bibtex/bst/bibexport/expcites.bst
@@ -6,7 +6,7 @@
%%
%% bibexport.dtx (with options: `expcites')
%%
-%% (c) 2016/03/02 Nicolas Markey <bibexport at markey dot fr>
+%% (c) 2019/03/30 Nicolas Markey <bibexport at markey dot fr>
%%
%% This work may be distributed and/or modified under the conditions of
%% the LaTeX Project Public License, either version 1.3 of this license
@@ -65,7 +65,7 @@ FUNCTION{or}
}
INTEGERS{left.length right.length}
STRINGS{ s t }
-INTEGERS{bool}
+INTEGERS{bool cpt}
FUNCTION{space.complete}
{
'left.length :=
@@ -105,12 +105,13 @@ FUNCTION{init.cited.keys}
{
left.delim 's :=
#0 'bool :=
+ #0 'cpt :=
}
FUNCTION{write.cited.keys}
{
bool
{"" left.width space.complete swap$}
- {" cited keys: " left.width space.complete swap$
+ {" list of keys: " left.width space.complete swap$
#1 'bool :=}
if$
{duplicate$ text.length$ right.width >}
@@ -127,14 +128,14 @@ FUNCTION{write.cited.keys.last}
{
bool
{"" left.width space.complete swap$}
- {" cited keys: " left.width space.complete swap$
+ {" list of keys: " left.width space.complete swap$
#1 'bool :=}
if$
{duplicate$ duplicate$ text.length$ #1 substring$ "," = not}
{duplicate$ text.length$ #1 - #1 swap$ substring$}
while$
duplicate$ text.length$ #1 - #1 swap$ substring$
- right.delim *
+ right.delim * "," *
{duplicate$ "" = not}
{
right.width split.string 't :=
@@ -145,8 +146,15 @@ FUNCTION{write.cited.keys.last}
while$
pop$ pop$
}
+FUNCTION{write.nbkeys}
+{
+ " number of entries: " left.width space.complete
+ " " *
+ cpt int.to.str$ * "," * write$ newline$
+}
FUNCTION{cited.keys}
{
+ cpt #1 + 'cpt :=
s cite$ ", " * * 's :=
s text.length$ #4000 >
{s write.cited.keys 's :=}
@@ -156,6 +164,7 @@ FUNCTION{cited.keys}
FUNCTION{end.cited.keys}
{
s write.cited.keys.last
+ write.nbkeys
}
FUNCTION{article}{cited.keys}
FUNCTION{book}{cited.keys}