summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/index/autind.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:57:07 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:57:07 +0000
commit36d4aa42d015b48d19108d0b983d26cc207ca078 (patch)
tree253eed51f8286374e8c7f5cebb3dd2a2d7bf977e /Master/texmf-dist/tex/latex/index/autind.sty
parentb2db5eec35b894d3550529a0c6de5cdf35928339 (diff)
index
git-svn-id: svn://tug.org/texlive/trunk@994 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/index/autind.sty')
-rw-r--r--Master/texmf-dist/tex/latex/index/autind.sty80
1 files changed, 80 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/index/autind.sty b/Master/texmf-dist/tex/latex/index/autind.sty
new file mode 100644
index 00000000000..5e433831aff
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/index/autind.sty
@@ -0,0 +1,80 @@
+%%% ====================================================================
+%%% @LaTeX-style-file{
+%%% filename = "autind.sty",
+%%% version = "1.0beta",
+%%% date = "28 September 1995",
+%%% time = "23:00:49 EDT",
+%%% author = "David M. Jones",
+%%% address = "MIT Laboratory for Computer Science
+%%% Room NE43-316
+%%% 545 Technology Square
+%%% Cambridge, MA 02139
+%%% USA",
+%%% telephone = "(617) 253-5936",
+%%% FAX = "(617) 253-3480",
+%%% checksum = "41079 80 198 2750",
+%%% email = "dmjones@theory.lcs.mit.edu",
+%%% codetable = "ISO/ASCII",
+%%% keywords = "",
+%%% supported = "yes",
+%%% abstract = "",
+%%% docstring = "See autind.tex for documentation.
+%%%
+%%% The checksum field above contains a CRC-16
+%%% checksum as the first value, followed by the
+%%% equivalent of the standard UNIX wc (word
+%%% count) utility output of lines, words, and
+%%% characters. This is produced by Robert
+%%% Solovay's checksum utility.",
+%%% }
+%%% ====================================================================
+
+\def\authorindextag{aut}
+
+\def\authorindex@cite#1{%
+ \begingroup
+ \def\do{\index[\authorindextag]}%
+ \@for\@tempa:=#1\do{%
+ \csname b@autind@\@tempa\endcsname
+ }%
+ \endgroup
+}
+
+\def\authorindexentries#1#2{%
+ \if@filesw
+ \def\@tempa{#2}%
+ \edef\@tempa{%
+ \write\@auxout{%
+ \string\bibcite{autind@#1}{\@nearverbatim\@tempa}%
+ }%
+ }%
+ \@tempa
+ \fi
+ \begingroup
+ \def\do{\index[\authorindextag]}%
+ #2%
+ \endgroup
+}
+
+\def\adjustcitation#1{%
+ \edef\@tempa{\string#1}%
+ \edef\@tempb{%
+ \let\expandafter\noexpand\csname ord@\@tempa\endcsname\noexpand#1%
+ \def\noexpand#1{%
+ \noexpand\@ifnextchar [
+ {\expandafter\noexpand\csname a@\@tempa\endcsname}
+ {\expandafter\noexpand\csname b@\@tempa\endcsname}%
+ }%
+ \def\expandafter\noexpand\csname a@\@tempa\endcsname[####1]####2{%
+ \noexpand\authorindex@cite{####2}%
+ \expandafter\noexpand\csname ord@\@tempa\endcsname[####1]{####2}%
+ }%
+ \def\expandafter\noexpand\csname b@\@tempa\endcsname ####1{%
+ \noexpand\authorindex@cite{####1}%
+ \expandafter\noexpand\csname ord@\@tempa\endcsname{####1}%
+ }%
+ }%
+ \@tempb
+}
+
+\endinput