blob: fc6392fc7ee0449e354efc34008d052ea015b0c9 (
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
25
26
27
28
29
30
31
32
33
34
35
36
|
% <TEX.LATEX>GNUINDEX.STY.2, 18-Oct-86 15:44:17, Edit by BEEBE
% Indexing macros for LaTeX and TeXIDX
% Usage:
% \INDEX{sortkey}{primaryentry}
% \SUBINDEX{sortkey}{primaryentry}{secondaryentry}
%
% For \SUBINDEX, the {secondary} field is automatically appended
% to the sort key, but separated from it by an ASCII <TAB>
% character, so that
% \SUBINDEX{foo}{foo}{bar}
% sorts before
% \SUBINDEX{foo}{foo}{baz}
% and
% \INDEX{foo bar}{foo bar}{bar}
%
% The keys will be "foo<TAB>{bar}", "foo<TAB>{baz}", and "foo
% bar", respectively.
%
\def\initial#1{\bigbreak{\raggedright\large\bf #1}\kern 2pt\penalty3000}
\def\entry#1#2{\item {#1}, #2}
\def\primary#1{\item {#1}}
\def\secondary#1#2{\subitem {#1},#2}
\def\INDEX{\@bsphack\begingroup\@sanitize\@WRINDEX\@indexfile}
\def\@WRINDEX#1#2#3{\let\thepage\relax
\xdef\@gtempa{\write#1{\string
\entry{#2}{\thepage}{#3}}}\endgroup\@gtempa
\if@nobreak \ifvmode\nobreak\fi\fi\@esphack}
%
\def\SUBINDEX{\@bsphack\begingroup\@sanitize\@WRSUBINDEX\@indexfile}
%
\def\@WRSUBINDEX#1#2#3#4{\let\thepage\relax
\xdef\@gtempa{\write#1{\string
% NB: #3<tab>#4, NOT #3<space>#4 in the next line
\entry{#3 #4}{\thepage}{#3}{#4}}}\endgroup\@gtempa
\if@nobreak \ifvmode\nobreak\fi\fi\@esphack}
|