🚀 go-pugleaf

Pavel Pokorny wrote:
> 
> Wu Zhiming (wu@athena.polytechnique.fr) wrote:
> : Hi there
> :
> :         I come across a problem on on generating citation style using
> : BiBTeX.
> : When using the alpha.bst style, the citation is in general appears like
> : [AAA99]. I want a citation format like [AAAA  99], I know how to do it
> : with \bibitem, but I dont know how to generate such a format by BiBTeX.

...
< delete >


> :         France
> 
> There will certainly be more people interested in this solution. (Me too, btw.)
> 
> Pavel POKORNY                   Department of Mathematics
> phone: +42 2 24 35 30 96        Prague Institute of Chemical Technology
> fax:   +42 2 31 13 629          Technicka 5
>  or    +42 2 24 31 10 82        166 28 Prague
> e-mail: Pavel.Pokorny@vscht.cz  Czech Republic

Well, I have solved the problem at the weekend. Here I post the whole modifications I made. 

In total you should make four modifcations, if you want to try my modfications, please first
copy the "alpha.bst" to a new file, say, "alpha_new.bst" ( do "chmod" in order to make it
writable)

^^^^^^^^^^^^^^^^^^^^^
1),  replace the line 
^^^^^^^^^^^^^^^^^^^^^

  { label extra.label sort.label }

by
  { label extra.label sort.label temp.label}

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
2) replace the FUNCTION {output.bibitem} by the following new fonction:
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

FUNCTION {output.bibitem}
{ newline$
%% add by WU 
  "\bibitem[\sf " write$
%  "\bibitem[" write$
  label write$
  "]{" write$
  cite$ write$
  "}" write$
  newline$
  ""
  before.all 'output.state :=
}

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
3) replace the FUNCTION {format.lab.names} by the following new fonction:
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

FUNCTION {format.lab.names}
{ 's :=
  s num.names$ 'numnames :=
  numnames #1 > 
    {  s #1 "{v{}}{l{}}" format.name$
       pop$ s #1 "{ll}" format.name$ #4 text.prefix$ 
	" {\em et~al.}" * #1 'et.al.char.used :=
    }
    { s #1 "{v{}}{l{}}" format.name$
      pop$ s #1 "{ll}" format.name$ #4 text.prefix$ 
    }
  if$
}

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
4) replace the FUNCTION {calc.label} by the following new fonction:
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^


FUNCTION {calc.label}
{ type$ "book" =
  type$ "inbook" =
  or
    'author.editor.key.label
    { type$ "proceedings" =
        'editor.key.organization.label
        { type$ "manual" =
            'author.key.organization.label
            'author.key.label
          if$
        }
      if$
    }
  if$
  duplicate$
%% by WU:  add " " between name and year
  field.or.null  " " %
  *
  'temp.label :=  
  temp.label year purify$ #-1 #2 substring$ 
  * 
  'temp.label := 
  label temp.label * 'label :=
%  year  field.or.null purify$ #-1 #2 substring$
%  *
%  'label :=
  year  field.or.null purify$ #-1 #4 substring$
  *
  sortify 'sort.label :=
}


^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

When you have done these modifcations, save the file. Suppose you have saved the file under the
sub directory  /home/users/xxx/tex/inputs, and now you want to try this new citation format, add
the the path to 

\bibliographystyle{/home/users/xxx/tex/inputs/alpha_new}

Then, do as with other styles.


	Good luck

	
	Zhiming WU