diff options
Diffstat (limited to 'Build/source/texk/bibtex-x/tests/testname.bst')
-rw-r--r-- | Build/source/texk/bibtex-x/tests/testname.bst | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/Build/source/texk/bibtex-x/tests/testname.bst b/Build/source/texk/bibtex-x/tests/testname.bst new file mode 100644 index 00000000000..648048bda7a --- /dev/null +++ b/Build/source/texk/bibtex-x/tests/testname.bst @@ -0,0 +1,64 @@ +% BibTeX test style file +% Copyright 2022 TANAKA Takuji <ttk@t-lab.opal.ne.jp> +% You may freely use, modify and/or distribute this file. + +ENTRY {author}{}{} + +STRINGS { s } + +INTEGERS { nameptr namesleft numnames } + +FUNCTION {format.names} +{ 's := + #1 'nameptr := + s num.names$ 'numnames := + numnames 'namesleft := + { namesleft #0 > } + { " [" nameptr int.to.str$ * "]" * write$ + " {ff} " s nameptr "{ff}" format.name$ * write$ + " {ll} " s nameptr "{ll}" format.name$ * write$ + " {vv} " s nameptr "{vv}" format.name$ * write$ + " {jj} " s nameptr "{jj}" format.name$ * write$ newline$ + " | " s nameptr "{ff}{vv}{ll}{jj}" format.name$ * write$ + " | " s nameptr "{ff }{vv }{ll}{ jj}" format.name$ * write$ + " | " s nameptr "{vv~}{ll}{, jj}{, f.}" format.name$ * write$ + " | " s nameptr "{f.~}{v.~}{ll}{, jj}" format.name$ * write$ + newline$ + nameptr #1 + 'nameptr := + namesleft #1 - 'namesleft := + } + while$ +} + +FUNCTION {output_entry} { + "\item " author * write$ newline$ + author format.names +} + +FUNCTION {book} {output_entry} + +READ + +FUNCTION {set_sortkey} { + author 'sort.key$ := +} + +ITERATE {set_sortkey} + +SORT + +FUNCTION {output_beg} { + "\section*{Test result}" write$ newline$ + "\begin{itemize}" write$ newline$ +} + +FUNCTION {output_end} { + "\end{itemize}" write$ newline$ + "\endinput" write$ newline$ +} + +EXECUTE {output_beg} + +ITERATE {call.type$} + +EXECUTE {output_end} |