summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/base/idx.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/base/idx.tex')
-rw-r--r--Master/texmf-dist/tex/latex/base/idx.tex94
1 files changed, 94 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/base/idx.tex b/Master/texmf-dist/tex/latex/base/idx.tex
new file mode 100644
index 00000000000..b053de5871b
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/base/idx.tex
@@ -0,0 +1,94 @@
+% \iffalse meta-comment
+%
+% Copyright 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004
+% The LaTeX3 Project and any individual authors listed elsewhere
+% in this file.
+%
+% This file is part of the LaTeX base system.
+% -------------------------------------------
+%
+% It may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2003/12/01 or later.
+%
+% This file has the LPPL maintenance status "maintained".
+%
+% The list of all files belonging to the LaTeX base distribution is
+% given in the file `manifest.txt'. See also `legal.txt' for additional
+% information.
+%
+% The list of derived (unpacked) files belonging to the distribution
+% and covered by LPPL is defined by the unpacking scripts (with
+% extension .ins) which are part of the distribution.
+%
+% \fi
+% IDX.TEX -- A LaTeX input file for printing .IDX files.
+% Copyright (c) 1985, 1994 by Leslie Lamport.
+% This file created on 18 February 1994.
+% Last changed see below in \typeout.
+
+\documentclass[twocolumn]{article}
+
+\nofiles
+
+\setlength{\oddsidemargin}{0pt}
+\setlength{\evensidemargin}{0pt}
+\setlength{\textwidth}{470pt} % Width of text line.
+\setlength{\columnsep}{30pt} % Space between columns
+
+\raggedright
+
+
+
+\makeatletter
+
+\def\isanitize{\@makeother\\\@makeother\$\@makeother\&%
+\@makeother\#\@makeother\^\@makeother\^^K\@makeother\_\@makeother\^^A%
+\@makeother\%\@makeother\~}
+
+\def\indexentry{\par\begingroup \isanitize \idxentry}
+
+\def\idxentry#1#2{\def\foo{#2}\ifx\foo\thispage
+ \else \gdef\thispage{#2}
+ \vskip 7pt {\large \bf Page #2\par \vskip 2pt}\fi
+ \hangindent 20pt \ttfamily #1\par\endgroup}
+
+\setlength{\parindent}{0pt}
+\setlength{\parskip}{0pt plus .5pt}
+
+\tolerance=10000 % prevents overfull boxes
+
+
+%% Add extra stretch and shrink to interword space for typewriter style.
+\newsavebox{\foobar}
+\savebox{\foobar}{\texttt{x}}
+\relax
+\expandafter\fontdimen\expandafter3\csname OT1/cmtt/m/n/10\endcsname=3pt
+\expandafter\fontdimen\expandafter4\csname OT1/cmtt/m/n/10\endcsname=3pt
+
+\begin{document}
+
+\typeout{}
+\typeout{IDX version of 03 May 1995}
+\typeout{}
+\typeout {**********************************}
+\typeout {* Enter idx file's first name. *}
+\typein[\filename]{**********************************}
+
+\twocolumn[\vspace*{20pt} \centering \huge \filename.idx \par
+ \vspace*{20pt}]
+
+\dimen0=\columnwidth
+\advance\dimen0 by -20pt
+
+\parshape =2 0pt \columnwidth 20pt \dimen0
+
+\input \filename.idx\relax
+
+\end{document}
+
+