Received: by nummer-3.proteosys id <01C19443.AA34BE3C@nummer-3.proteosys>; Thu, 3 Jan 2002 11:44:48 +0100 MIME-Version: 1.0 x-vm-v5-data: ([nil nil nil nil nil nil nil t nil][nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil]) Content-Type: multipart/alternative; boundary="----_=_NextPart_001_01C19443.AA34BE3C" X-MimeOLE: Produced By Microsoft Exchange V6.5 Content-class: urn:content-classes:message Subject: Short form citation system: beginnings of .sty file Date: Tue, 5 May 1992 14:37:48 +0100 Message-ID: X-MS-Has-Attach: X-MS-TNEF-Correlator: From: Sender: "Mailing list for the LaTeX3 project" To: "Rainer M. Schoepf" Reply-To: "Mailing list for the LaTeX3 project" Status: R X-Status: X-Keywords: X-UID: 701 This is a multi-part message in MIME format. ------_=_NextPart_001_01C19443.AA34BE3C Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable % This style-option was produced quickly, by hacking at other people's = code. % I've been reluctant to change too much, in case nothing at all then = worked. % Someone who (unlike me) knows what they are doing could tidy this up = a lot. % However, there seems little point in doing that until a decision has = been % taken about what the user interface should actually be. % Thus the purpose of this style-option is to demonstrate that the % suggested interface is probably implementable. It is unlikely to be % robust enough for production use. % David Rhead % May 1992 % REFERENCE LISTS % To get something with which to experiment, reflist is based on = verse. % \def\reflist{\let\\=3D\@centercr \list{}{\itemsep\z@ \itemindent -1.5em\listparindent \itemindent \advance\leftmargin -1.0em}\item[]} \let\endreflist\endlist % ---------- \let\citation\@gobble \def\@cite#1#2{{#1\if@tempswa , #2\fi}} % SHORT FORM % The stuff about , and [] is here because this code was produced by % hacking at other people's code. I think it could be removed. % (If short form only allows key, not key-list, we don't need to cater % for commas. If references to particular pages will be done by = working % \firstcite or \latercite into sentences, we don't need to cater for = [].) % None of \footfirst, \footlater, \endfirst or \endlater have been % implemented. % Care needs taking that the right amount of space is ignored, e.g., % I think that, in { ref-list-entry } the space before the } needs % ignoring, but space after the } shouldn't be ignored. \def\sfentry#1#2#3#4{#4\if@filesw {\def\protect##1{\string ##1\space}\immediate \write\@auxout{\string\sfauxentry{#1}{#2}{#3}}}\fi} \def\sfdata#1#2#3{\if@filesw {\def\protect##1{\string ##1\space}\immediate \write\@auxout{\string\sfauxentry{#1}{#2}{#3}}}\fi} \def\sfauxentry#1#2#3{ \global\@namedef{f@#1}{#2} \global\@namedef{l@#1}{#3} } \def\firstcite{\@ifnextchar [{\@tempswatrue\@firstcitex}{\@tempswafalse\@firstcitex[]}} \def\@firstcitex[#1]#2{\if@filesw\immediate\write\@auxout{\string\citatio= n{#2}}\fi \def\@citea{}\@cite{\@for\@citeb:=3D#2\do {\@citea\def\@citea{,\penalty\@m\ }\@ifundefined {f@\@citeb}{{\bf ?}\@warning {Citation `\@citeb' on page \thepage \space undefined}}% {\csname f@\@citeb\endcsname}}}{#1}} \def\latercite{\@ifnextchar [{\@tempswatrue\@latercitex}{\@tempswafalse\@latercitex[]}} \def\@latercitex[#1]#2{\if@filesw\immediate\write\@auxout{\string\citatio= n{#2}}\fi \def\@citea{}\@cite{\@for\@citeb:=3D#2\do {\@citea\def\@citea{,\penalty\@m\ }\@ifundefined {l@\@citeb}{{\bf ?}\@warning {Citation `\@citeb' on page \thepage \space undefined}}% {\csname l@\@citeb\endcsname}}}{#1}} ------_=_NextPart_001_01C19443.AA34BE3C Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Short form citation system: beginnings of .sty file

%  This style-option was produced quickly, by = hacking at other people's code.
%  I've been reluctant to change too much, in = case nothing at all then worked.
%  Someone who (unlike me) knows what they are = doing could tidy this up a lot.
%  However, there seems little point in doing = that until a decision has been
%  taken about what the user interface should = actually be.

%  Thus the purpose of this style-option is to = demonstrate that the
%  suggested interface is probably = implementable.  It is unlikely to be
%  robust enough for production use.

%  David Rhead
%  May 1992

%          &nb= sp;           &nbs= p;      REFERENCE LISTS

%   To get something with which to = experiment, reflist is based on verse.
%
\def\reflist{\let\\=3D\@centercr
  \list{}{\itemsep\z@ \itemindent = -1.5em\listparindent \itemindent
          = \advance\leftmargin -1.0em}\item[]}
\let\endreflist\endlist

%          &nb= sp;           &nbs= p;        ----------

\let\citation\@gobble

\def\@cite#1#2{{#1\if@tempswa , #2\fi}}

%          &nb= sp;           &nbs= p;        SHORT FORM

%  The stuff about , and [] is here because this = code was produced by
%  hacking at other people's code.  I think = it could be removed.
%  (If short form only allows key, not key-list, = we don't need to cater
%  for commas.  If references to particular = pages will be done by working
%  \firstcite or \latercite into sentences, we = don't need to cater for [].)

%  None of \footfirst, \footlater, \endfirst or = \endlater have been
%  implemented.

%  Care needs taking that the right amount of = space is ignored, e.g.,
%  I think that, in { ref-list-entry } the space = before the } needs
%  ignoring, but space after the } shouldn't be = ignored.

\def\sfentry#1#2#3#4{#4\if@filesw
      = {\def\protect##1{\string ##1\space}\immediate
       = \write\@auxout{\string\sfauxentry{#1}{#2}{#3}}}\fi}

\def\sfdata#1#2#3{\if@filesw
      = {\def\protect##1{\string ##1\space}\immediate
       = \write\@auxout{\string\sfauxentry{#1}{#2}{#3}}}\fi}

\def\sfauxentry#1#2#3{
    \global\@namedef{f@#1}{#2}
    \global\@namedef{l@#1}{#3}
}

\def\firstcite{\@ifnextchar
   = [{\@tempswatrue\@firstcitex}{\@tempswafalse\@firstcitex[]}}

\def\@firstcitex[#1]#2{\if@filesw\immediate\write\@auxout{\strin= g\citation{#2}}\fi
  = \def\@citea{}\@cite{\@for\@citeb:=3D#2\do
    {\@citea\def\@citea{,\penalty\@m\ = }\@ifundefined
       {f@\@citeb}{{\bf = ?}\@warning
       {Citation = `\@citeb' on page \thepage \space undefined}}%
      {\csname = f@\@citeb\endcsname}}}{#1}}

\def\latercite{\@ifnextchar
   = [{\@tempswatrue\@latercitex}{\@tempswafalse\@latercitex[]}}

\def\@latercitex[#1]#2{\if@filesw\immediate\write\@auxout{\strin= g\citation{#2}}\fi
  = \def\@citea{}\@cite{\@for\@citeb:=3D#2\do
    {\@citea\def\@citea{,\penalty\@m\ = }\@ifundefined
       {l@\@citeb}{{\bf = ?}\@warning
       {Citation = `\@citeb' on page \thepage \space undefined}}%
      {\csname = l@\@citeb\endcsname}}}{#1}}

------_=_NextPart_001_01C19443.AA34BE3C--