Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- INTEGERS { nameptr namesleft numnames }
- FUNCTION {format.names}
- { 's :=
- 'f :=
- #1 'nameptr :=
- s num.names$ 'numnames :=
- numnames 'namesleft :=
- { namesleft #0 > }
- { s nameptr f format.name$ 't :=
- nameptr #1 >
- { namesleft #1 >
- { ", " * t * }
- { t "others" =
- { " et~al." * }
- { ", " * t * }
- if$
- }
- if$
- }
- 't
- if$
- nameptr #1 + 'nameptr :=
- namesleft #1 - 'namesleft :=
- }
- while$
- }
- FUNCTION {format.authors}
- { author empty$
- { "" }
- { "{vv~}{ll}{, jj}{, f.}" author format.names }
- if$
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement