wscbib.tex 4.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. % %
  3. % THESE COMMANDS ARE REQUIRED TO WORK WITH WSC.BST TO MAKE BIBLIO %
  4. % %
  5. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  6. \makeatletter
  7. \let\@internalcite\cite
  8. %
  9. \def\cite{\def\@citeseppen{-1000}%
  10. \def\@cite##1##2{(##1\if@tempswa , ##2\fi)}%
  11. \def\citeauthoryear##1##2##3{##1 ##3}\@internalcite}
  12. \def\citeNP{\def\@citeseppen{-1000}%
  13. \def\@cite##1##2{##1\if@tempswa , ##2\fi}%
  14. \def\citeauthoryear##1##2##3{##1 ##3}\@internalcite}
  15. \def\citeN{\def\@citeseppen{-1000}%
  16. % Pierre L'Ecuyer's fix for multiple cite bug
  17. % Added by Paul J Sanchez on 4 October 2001
  18. % \def\@cite##1##2{##1\if@tempswa , ##2)\else{)}\fi}%
  19. % \def\citeauthoryear##1##2##3{##1 (##3}\@citedata}
  20. \def\@cite##1##2{##1\if@tempswa, ##2)\else{}\fi}%
  21. \def\citeauthoryear##1##2##3{##1 (##3)}\@citedata}
  22. \def\citeA{\def\@citeseppen{-1000}%
  23. \def\@cite##1##2{(##1\if@tempswa , ##2\fi)}%
  24. \def\citeauthoryear##1##2##3{##1}\@internalcite}
  25. \def\citeANP{\def\@citeseppen{-1000}%
  26. \def\@cite##1##2{##1\if@tempswa , ##2\fi}%
  27. \def\citeauthoryear##1##2##3{##1}\@internalcite}
  28. %
  29. \def\shortcite{\def\@citeseppen{-1000}%
  30. \def\@cite##1##2{(##1\if@tempswa , ##2\fi)}%
  31. \def\citeauthoryear##1##2##3{##2 ##3}\@internalcite}
  32. \def\shortciteNP{\def\@citeseppen{-1000}%
  33. \def\@cite##1##2{##1\if@tempswa , ##2\fi}%
  34. \def\citeauthoryear##1##2##3{##2 ##3}\@internalcite}
  35. \def\shortciteN{\def\@citeseppen{-1000}%
  36. % Pierre L'Ecuyer's fix for multiple cite bug
  37. % Added by Paul J Sanchez on 2 September 2002
  38. % should have caught this last year...
  39. % \def\@cite##1##2{##1\if@tempswa , ##2)\else{)}\fi}%
  40. % \def\citeauthoryear##1##2##3{##2 (##3}\@citedata}
  41. % Shane G. Henderson fix for extra right bracket at end of optional material June 8, 2005
  42. % \def\@cite##1##2{##1\if@tempswa, ##2)\else{}\fi}%
  43. \def\@cite##1##2{##1\if@tempswa, ##2\else{}\fi}%
  44. \def\citeauthoryear##1##2##3{##2 (##3)}\@citedata}
  45. \def\shortciteA{\def\@citeseppen{-1000}%
  46. \def\@cite##1##2{(##1\if@tempswa , ##2\fi)}%
  47. \def\citeauthoryear##1##2##3{##2}\@internalcite}
  48. \def\shortciteANP{\def\@citeseppen{-1000}%
  49. \def\@cite##1##2{##1\if@tempswa , ##2\fi}%
  50. \def\citeauthoryear##1##2##3{##2}\@internalcite}
  51. %
  52. \def\citeyear{\def\@citeseppen{-1000}%
  53. \def\@cite##1##2{(##1\if@tempswa , ##2\fi)}%
  54. \def\citeauthoryear##1##2##3{##3}\@citedata}
  55. \def\citeyearNP{\def\@citeseppen{-1000}%
  56. \def\@cite##1##2{##1\if@tempswa , ##2\fi}%
  57. \def\citeauthoryear##1##2##3{##3}\@citedata}
  58. %
  59. % \@citedata and \@citedatax:
  60. %
  61. % Place commas in-between citations in the same \citeyear, \citeyearNP,
  62. % \citeN, or \shortciteN command.
  63. % Use something like \citeN{ref1,ref2,ref3} and \citeN{ref4} for a list.
  64. %
  65. \def\@citedata{%
  66. \@ifnextchar [{\@tempswatrue\@citedatax}%
  67. {\@tempswafalse\@citedatax[]}%
  68. }
  69. \def\@citedatax[#1]#2{%
  70. \if@filesw\immediate\write\@auxout{\string\citation{#2}}\fi%
  71. \def\@citea{}\@cite{\@for\@citeb:=#2\do%
  72. {\@citea\def\@citea{, }\@ifundefined% by Young
  73. {b@\@citeb}{{\bf ?}%
  74. \@warning{Citation `\@citeb' on page \thepage \space undefined}}%
  75. {\csname b@\@citeb\endcsname}}}{#1}}%
  76. % don't box citations, separate with ; and a space
  77. % also, make the penalty between citations negative: a good place to break.
  78. %
  79. \def\@citex[#1]#2{%
  80. \if@filesw\immediate\write\@auxout{\string\citation{#2}}\fi%
  81. \def\@citea{}\@cite{\@for\@citeb:=#2\do%
  82. {\@citea\def\@citea{; }\@ifundefined% by Young
  83. {b@\@citeb}{{\bf ?}%
  84. \@warning{Citation `\@citeb' on page \thepage \space undefined}}%
  85. {\csname b@\@citeb\endcsname}}}{#1}}%
  86. % (from apalike.sty)
  87. % No labels in the bibliography.
  88. %
  89. \def\@biblabel#1{}
  90. \makeatother
  91. %\newlength{\bibhang}
  92. %\setlength{\bibhang}{2em}
  93. % Indent second and subsequent lines of bibliographic entries. Taken
  94. % from openbib.sty: \newblock is set to {}.
  95. % \renewcommand{\refname}{REFERENCES}
  96. \newdimen\bibindent
  97. \bibindent=0.0em
  98. % SEC: was \def\thebibliography#1{\section*{\refname\@mkboth
  99. % SEC: was {\uppercase{\refname}}{\uppercase{\refname}}}\list
  100. \def\thebibliography#1{\section*{\refname}\list
  101. {}{\settowidth\labelwidth{[#1]}
  102. \leftmargin\parindent
  103. \itemindent -\parindent
  104. \listparindent \itemindent
  105. \itemsep 0pt
  106. \parsep 0pt}
  107. \def\newblock{}
  108. \sloppy
  109. \sfcode`\.=1000\relax}