% BibTeX test style file % Copyright 2022 TANAKA Takuji % 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_sort_key} { author 'sort.key$ := } ITERATE {set_sort_key} SORT FUNCTION {output_bgn} { "\section*{Test result}" write$ newline$ "\begin{itemize}" write$ newline$ } FUNCTION {output_end} { "\end{itemize}" write$ newline$ "\endinput" write$ newline$ } EXECUTE {output_bgn} ITERATE {call.type$} EXECUTE {output_end}