%%%
%%% Create a list of commands from bibtex entries.
%%% Each command is \makebook{author}{title}
%%%

ENTRY {
    author
    title
  }{}{}

INTEGERS { nameptr namesleft numnames }

STRINGS { s }
  
FUNCTION {preamble} {}

FUNCTION { format.names }
{

  's :=
  s num.names$ 'numnames :=
  numnames #3 >
    {#3 'namesleft :=}
    {numnames 'namesleft :=}
  if$
  #1 'nameptr :=               
  { namesleft }
    {
      s nameptr "{ff{ } }{vv{ } }{ll{ }}{, jj}" format.name$
      namesleft #1 >
	{ " \& " *}
	{}
      if$
      nameptr #1 + 'nameptr :=
      namesleft #1 - 'namesleft :=
      *
    }
    while$
  numnames #3 >
    {" et~al" *}
    {}
  if$
}

FUNCTION {book} {
  "\makebook{" author format.names  "}{" * title * "}%" * write$
  newline$
}

FUNCTION {misc} {book}

FUNCTION { default.type } { book }

READ
ITERATE{call.type$}