Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!newsgate1.web.ad.jp!newsbase.nisiq.net!houou.ufnet.com!tamaru-news!kuee-news!odins-suita!ykcdsk!fsmed.med.osaka-u.ac.jp!hagihira
From: hagihira@anes.med.osaka-u.ac.jp (Staff user)
Subject: Re: bst file
In-Reply-To: hagihira@anes.med.osaka-u.ac.jp's message of Mon, 19 May 1997 00:00:59 GMT
Message-ID: <HAGIHIRA.97May19122405@anes.med.osaka-u.ac.jp>
Sender: usenet@ykcdsk.med.osaka-u.ac.jp
X-Forwarded: by - (DeleGate/3.1.1)
Nntp-Posting-Host: fsmed
Organization: osaka university medical school
References: <HAGIHIRA.97May13170050@anes.med.osaka-u.ac.jp>
	<975hGM1.aonuma@kappa.issp.u-tokyo.ac.jp>
	<HAGIHIRA.97May18160543@anes.med.osaka-u.ac.jp>
	<975J1a2.aonuma@kappa.issp.u-tokyo.ac.jp>
	<HAGIHIRA.97May19090059@anes.med.osaka-u.ac.jp>
Date: Mon, 19 May 1997 03:24:05 GMT
Lines: 44
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:9423
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=9423&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

   >   # $BCx<T$,Fs?M$N;~$O!"(BA and B,  $B#3?M0J>e$N;~$O(BA, B, and C$B$H(Band$B$NA0$K(B,$B$r$D$1$k(B
   >   # $B$C$F5,Dj$b$"$j$^$9!#$3$C$A$NJ}$O$I$&$K$+$7$h$&$H;W$$$^$9$,!#(B
   >
>   $B$3$l$O(BBibTeX$B$,$d$C$F$/$l$^$9!%(B
>
$B$*$C$H!$$3$l$O(Bbst$B%U%!%$%k$N(BFUNCTION {format.names}$B$r0J2<$N$h$&$K$9$l$P(B
BibTeX$B$G$G$-$k$H$$$&0UL#$G$9!%(B" and " * t * $B$NItJ,$r(B
", and " * t *$B$KJQ99$9$k$@$1$G$9!%(B
-------------------------------------
FUNCTION {format.names}
{ 's :=
  #1 'nameptr :=
  s num.names$ 'numnames :=
  numnames 'namesleft :=
    { namesleft #0 > }
    { s nameptr "{ll}{~vv}{~ff}{,jj}" format.name$ 't :=
      nameptr #1 >
{ namesleft #1 >
    { ", " * t * }
    { numnames #1 >
{ "" * }
'skip$
      if$
      t "others" =
{ " et~al." * }
{ ", and " * t * } 
      if$
    }
  if$
}
't  
      if$
      nameptr #1 + 'nameptr :=
      namesleft #1 - 'namesleft :=
    }
  while$
}
--------------------------------------

--
by $BBg:eBg3X0e3XItKc?l3X65<<(B(ICU$B6PL3(B) $BGkJ?(B $BE/(B
   hagihira@anes.med.osaka-u.ac.jp
   hagihira@hp-icu.med.osaka-u.ac.jp
   PGB00174@niftyserve.or.jp
