summaryrefslogtreecommitdiff
path: root/macros/generic/diagrams/kuvio/doc-src/macros/carrot/basic/index.cd
diff options
context:
space:
mode:
Diffstat (limited to 'macros/generic/diagrams/kuvio/doc-src/macros/carrot/basic/index.cd')
-rw-r--r--macros/generic/diagrams/kuvio/doc-src/macros/carrot/basic/index.cd42
1 files changed, 42 insertions, 0 deletions
diff --git a/macros/generic/diagrams/kuvio/doc-src/macros/carrot/basic/index.cd b/macros/generic/diagrams/kuvio/doc-src/macros/carrot/basic/index.cd
new file mode 100644
index 0000000000..e494944e25
--- /dev/null
+++ b/macros/generic/diagrams/kuvio/doc-src/macros/carrot/basic/index.cd
@@ -0,0 +1,42 @@
+% index.cd
+% Anders G S Svensson
+
+% Source: index.nw
+% $Revision: 1.4 $
+% $Date: 1996/02/19 19:08:56 $
+
+\usecarrot{auxfile}
+
+\def\newindexfile{\bgroup\@ignorewhitespace@\index@newindexfile@}
+\def\index@newindexfile@#1{\egroup
+ \newauxfile{#1dx}%
+ \@def@{read#1dx}{\index@readind@{#1}\global\@let@{read#1dx}\relax}%
+ \@def@{read#1nd}{\@cs@{read#1dx}}}
+\def\index@readind@#1{%
+ \IfFileExists{\jobname.#1nd}%
+ {\input\jobname.#1nd\relax}%
+ {}}
+
+\def\readindexfile{\bgroup\@ignorewhitespace@\index@readindexfile@}
+\def\index@readindexfile@#1{\egroup
+ \@ifundefined@{auxfile@aux@#1dx}%
+ {\@Warning{Undeclared index file: #1}}%
+ {\@cs@{read#1dx}}}
+
+\def\writeindexentry{\bgroup\@ignorewhitespace@\index@writeindexentry@}
+\def\index@writeindexentry@#1{\egroup
+ \@ifundefined@{auxfile@aux@#1dx}%
+ {\@Warning{Undeclared index file: #1}\@eat@}%
+ {\index@writeidx@{#1}}}
+
+\def\index@writeidx@#1#2{%
+ \@cs@{open#1dx}%
+ \def\@tmp@{\indexentry{#2}}%
+ \edef\@action@{%
+ \expandafter\noexpand\csname write#1dx\endcsname{%
+ \@meaning@\@tmp@{\noexpand\folio}}}%
+ \@action@}
+
+\newindexfile{i}
+
+\def\index{\writeindexentry{i}}