economic update (30dec08)

git-svn-id: svn://tug.org/texlive/trunk@11770 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 53 insertions, 1 deletions

diff --git a/Master/texmf-dist/bibtex/bst/economic/ier.bst b/Master/texmf-dist/bibtex/bst/economic/ier.bst
index d718618caae..033174e4ecd 100644
--- a/Master/texmf-dist/bibtex/bst/economic/ier.bst
+++ b/Master/texmf-dist/bibtex/bst/economic/ier.bst
@@ -1,7 +1,13 @@
+
 %% Built initially with Patrick Daly's custom-bib package and then
 %% modified by Doug McKee 12/2006.  Email any comments or suggestions to
 %% Doug at dmckee@ucla.edu
-%% license: LaTeX Project Public License (LPPL)
+%%
+%% Jan 29, 2008: Fixed in response to the suggestions of Wladimir
+%%   Ray who kindly pointed out that the names should be in small caps
+%%   and repeated names should be replaced with dashes as in the
+%%   Econometrica bibliography style.
+%%
 %%
 %% This is file `ier.bst',
 %% generated with the docstrip utility.
@@ -195,6 +201,16 @@ FUNCTION {emphasize}
     { "\emph{" swap$ * "}" * }
   if$
 }
+FUNCTION {scaps}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\textsc{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bib.name.font}
+{ scaps }
+FUNCTION {bib.fname.font}
+{ bib.name.font }
 FUNCTION {tie.or.space.prefix}
 { duplicate$ text.length$ #3 <
     { "~" }
@@ -394,6 +410,7 @@ FUNCTION {format.names}
               t "others" =
                 {
                   " " * bbl.etal *
+                  bib.name.font
                 }
                 {
                   bbl.and
@@ -410,6 +427,10 @@ FUNCTION {format.names}
     }
   while$
   } if$
+  t "others" =
+    'skip$
+    { bib.name.font }
+  if$
 }
 FUNCTION {format.names.ed}
 {
@@ -961,10 +982,27 @@ FUNCTION {format.organization.address}
 { organization "organization" bibinfo.check format.org.or.pub
 }
 
+STRINGS {oldname}
+
+FUNCTION {name.or.dash}
+{ 's :=
+   oldname empty$
+     { s 'oldname := s }
+     { s oldname =
+%         { "---" }   old style
+         { "---\hspace{-.1pt}---\hspace{-.1pt}---" }    
+%SPD 2000
+         { s 'oldname := s }
+       if$
+     }
+   if$
+}
+
 FUNCTION {article}
 { output.bibitem
   format.authors "author" output.check
   author format.key output
+  name.or.dash
   format.title "title" output.check
   end.quote.title
   crossref missing$
@@ -994,8 +1032,10 @@ FUNCTION {book}
   author empty$
     { format.editors "author and editor" output.check
       editor format.key output
+      name.or.dash
     }
     { format.authors output.nonnull
+      name.or.dash
       crossref missing$
         { "author and editor" editor either.or.check }
         'skip$
@@ -1021,6 +1061,7 @@ FUNCTION {booklet}
 { output.bibitem
   format.authors output
   author format.key output
+  name.or.dash
   format.title "title" output.check
   end.quote.title
   howpublished "howpublished" bibinfo.check output
@@ -1035,8 +1076,10 @@ FUNCTION {inbook}
   author empty$
     { format.editors "author and editor" output.check
       editor format.key output
+      name.or.dash
     }
     { format.authors output.nonnull
+      name.or.dash
       crossref missing$
         { "author and editor" editor either.or.check }
         'skip$
@@ -1067,6 +1110,7 @@ FUNCTION {incollection}
 { output.bibitem
   format.authors "author" output.check
   author format.key output
+  name.or.dash
   format.title "title" output.check
   end.quote.title
   crossref missing$
@@ -1090,6 +1134,7 @@ FUNCTION {inproceedings}
 { output.bibitem
   format.authors "author" output.check
   author format.key output
+  name.or.dash
   format.title "title" output.check
   end.quote.title
   crossref missing$
@@ -1116,6 +1161,7 @@ FUNCTION {manual}
 { output.bibitem
   format.authors output
   author format.key output
+  name.or.dash
   format.btitle "title" output.check
   organization "organization" bibinfo.check output
   address "address" bibinfo.check output
@@ -1129,6 +1175,7 @@ FUNCTION {mastersthesis}
 { output.bibitem
   format.authors "author" output.check
   author format.key output
+  name.or.dash
   format.btitle
   "title" output.check
   bbl.mthesis format.thesis.type output.nonnull
@@ -1143,6 +1190,7 @@ FUNCTION {misc}
 { output.bibitem
   format.authors output
   author format.key output
+  name.or.dash
   format.title output
   end.quote.title
   howpublished "howpublished" bibinfo.check output
@@ -1154,6 +1202,7 @@ FUNCTION {phdthesis}
 { output.bibitem
   format.authors "author" output.check
   author format.key output
+  name.or.dash
   format.btitle
   "title" output.check
   bbl.phdthesis format.thesis.type output.nonnull
@@ -1168,6 +1217,7 @@ FUNCTION {proceedings}
 { output.bibitem
   format.editors output
   editor format.key output
+  name.or.dash
   format.btitle "title" output.check
   format.bvolume output
   format.number.series output
@@ -1185,6 +1235,7 @@ FUNCTION {techreport}
 { output.bibitem
   format.authors "author" output.check
   author format.key output
+  name.or.dash
   format.title
   "title" output.check
   end.quote.title
@@ -1200,6 +1251,7 @@ FUNCTION {unpublished}
 { output.bibitem
   format.authors "author" output.check
   author format.key output
+  name.or.dash
   format.title 
   "title" output.check
   end.quote.title