-% $Id: mlastyle.bst,v 1.18 2003-11-27 05:11:13 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.
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$
FUNCTION {tie.or.space.connect}
{ duplicate$ text.length$ #3 <
- { "~" }
- { do.space }
+ { "~" swap$ * * }
+ { swap$ do.space swap$ * }
if$
- swap$ * *
}
FUNCTION {either.or.check}