% Display parsed author names unambiguously.
%
% This file is part of Beastie <https://purl.org/nxg/dist/beastie>
% SPDX-FileCopyrightText: 2023 Norman Gray <https://nxg.me.uk>
% SPDX-License-Identifier: BSD-2-Clause

ENTRY {author}{}{}

INTEGERS {nameptr numnames}
STRINGS {s}

FUNCTION {not}
{ {#0} {#1} if$ }

FUNCTION {format.names}
{ 's :=
  s " ->" * write$ newline$
  s num.names$ 'numnames :=
  #1 'nameptr :=
  { nameptr numnames > not }
  { "  " write$
    nameptr int.to.str$ write$
    s nameptr ": ff={ff}, vv={vv}, ll={ll} (f={f}, v={v}, l={l} sn-len=" format.name$
    s nameptr "{ll}" format.name$ text.length$ int.to.str$ *
    ", sn3='" *
    s nameptr "{ll}" format.name$ #1 #3 substring$ *
    "')" * write$ newline$
    nameptr #1 + 'nameptr :=
  }
  while$
}

FUNCTION {article}
{ cite$ write$
  ":" write$ newline$
  author format.names
  newline$
}

READ
ITERATE{call.type$}
