X-Git-Url: http://git.tpope.net/?p=latex-mlastyle.git;a=blobdiff_plain;f=mlastyle.bst;h=1e4136742047f81a674159569e7946188409c908;hp=637853d441a18e3d1d8557c10213d37f9147b0f2;hb=HEAD;hpb=ae4b9a01765ffef1ad219f3fdd0f16130e9773fa

diff --git a/mlastyle.bst b/mlastyle.bst
index 637853d..1e41367 100644
--- a/mlastyle.bst
+++ b/mlastyle.bst
@@ -1,4 +1,4 @@
-% $Id: mlastyle.bst,v 1.16 2003-11-23 07:08:18 tpope Exp $
+% $Id: mlastyle.bst,v 1.20 2005-02-09 03:53:11 tpope Exp $
 % BibTeX bibliography style `mlastyle'
 % Based on BibTeX standard bibliography style `plain'
 	% version 0.99a for BibTeX versions 0.99a or later, LaTeX version 2.09.
@@ -38,6 +38,7 @@ ENTRY
     urldate
     accessdate
     urlpath
+    database
     version
     % eid isbn issn doi
   }
@@ -514,18 +515,48 @@ FUNCTION {format.year}
   if$
 }
 
+FUNCTION {format.month}
+{
+  month #-1 #1 substring$ chr.to.int$ duplicate$ #47 > swap$ #58 < and
+    { 
+      month #-2 #1 substring$ chr.to.int$ duplicate$ #47 > swap$ #58 < and
+        { #2 'i := }
+	{ #1 'i := }
+      if$
+      month #-2 i - #2 substring$ "\ " =
+        { month #0 i - i substring$
+	  month #-2 i - #2 substring$
+	  month #-3 i - global.max$ i - #2 - substring$
+	  * *
+	}
+	{
+	  month #-1 i - #1 substring$ duplicate$ " " = swap$ "~" = or
+	    { month #0 i - i substring$
+	      month #-1 i - #1 substring$
+	      month #-2 i - global.max$ i - #1 - substring$
+	      * *
+	    }
+	    { month }
+	  if$
+	}
+      if$
+    }
+    { month }
+  if$
+}
+
 FUNCTION {format.date}
 { year empty$
     { month empty$
 	{ "" }
 	{ "there's a month but no year in " cite$ * warning$
-	  month
+	  format.month
 	}
       if$
     }
     { month empty$
 	'format.year
-	{ month do.space format.year * }
+	{ format.month do.space format.year * }
       if$
     }
   if$
@@ -538,10 +569,9 @@ FUNCTION {format.btitle}
 
 FUNCTION {tie.or.space.connect}
 { duplicate$ text.length$ #3 <
-    { "~" }
-    { do.space }
+    { "~" swap$ * * }
+    { swap$ do.space swap$ * }
   if$
-  swap$ * *
 }
 
 FUNCTION {either.or.check}
@@ -788,10 +818,14 @@ FUNCTION {format.tr.number}
 }
 
 FUNCTION {format.urldate}
-{ urldate missing$
+{ database empty$
+    'skip$
+    { database selective.emphasize output.nonnull new.block }
+  if$
+  urldate missing$
   { accessdate empty$
       { cite$ " has no urldate field" * warning$
-	"\theurldate"
+	"\theurldate{}"
       }
       { "accessdate in " cite$ * " is depreciated; use urldate instead" *
 	warning$ accessdate