summaryrefslogtreecommitdiff
path: root/macros/generic/diagrams/kuvio/doc-src/macros/carrot/basic/cite.cd
blob: 864e10ca81956dbedda8cd646ae3f8df9a663b82 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
%  cite.cd
%  Anders G S Svensson

%  Source:  cite.nw
%           $Revision: 1.3 $
%           $Date: 1996/02/19 04:06:30 $

\usecarrot{xr}

\def\citedef#1#2{%
   \definexr{@cite@#1@}{#2}{@cite@}}
\def\@cite@tag#1{\citetag{#1\@cite@opt}}

\def\citesep{,}
\def\citetag#1{[#1]}

\def\cite{\relax
   \@ifnextchar@[\cite@cite@\cite@citenoopt@}
\def\cite@cite@[#1]#2{%
   \def\@cite@opt{\citesep\@space@ #1}%
   \refxr{@cite@#2@}}
\def\cite@citenoopt@#1{\let\@cite@opt\relax \refxr{@cite@#1@}}

\def\citepage#1{\pagexr{@cite@#1@}}