latex2e-20150101/base/idx.tex

   1 % \iffalse meta-comment
   2 %
   3 % Copyright 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009
   4 % The LaTeX3 Project and any individual authors listed elsewhere
   5 % in this file.
   6 %
   7 % This file is part of the LaTeX base system.
   8 % -------------------------------------------
   9 %
  10 % It may be distributed and/or modified under the
  11 % conditions of the LaTeX Project Public License, either version 1.3c
  12 % of this license or (at your option) any later version.
  13 % The latest version of this license is in
  14 %    http://www.latex-project.org/lppl.txt
  15 % and version 1.3c or later is part of all distributions of LaTeX
  16 % version 2005/12/01 or later.
  17 %
  18 % This file has the LPPL maintenance status "maintained".
  19 %
  20 % The list of all files belonging to the LaTeX base distribution is
  21 % given in the file `manifest.txt'. See also `legal.txt' for additional
  22 % information.
  23 %
  24 % The list of derived (unpacked) files belonging to the distribution
  25 % and covered by LPPL is defined by the unpacking scripts (with
  26 % extension .ins) which are part of the distribution.
  27 %
  28 % \fi
  29 % IDX.TEX -- A LaTeX input file for printing .IDX files.
  30 % Copyright (c) 1985, 1994 by Leslie Lamport.
  31 % This file created on 18 February 1994.
  32 % Last changed see below in \typeout.
  33
  34 \documentclass[twocolumn]{article}
  35
  36 \nofiles
  37
  38 \setlength{\oddsidemargin}{0pt}
  39 \setlength{\evensidemargin}{0pt}
  40 \setlength{\textwidth}{470pt}         % Width of text line.
  41 \setlength{\columnsep}{30pt}          % Space between columns
  42
  43 \raggedright
  44
  45
  46
  47 \makeatletter
  48
  49 \def\isanitize{\@makeother\\\@makeother\$\@makeother\&%
  50 \@makeother\#\@makeother\^\@makeother\^^K\@makeother\_\@makeother\^^A%
  51 \@makeother\%\@makeother\~}
  52
  53 \def\indexentry{\par\begingroup \isanitize \idxentry}
  54
  55 \def\idxentry#1#2{\def\foo{#2}\ifx\foo\thispage
  56     \else \gdef\thispage{#2}
  57           \vskip 7pt {\large \bf Page #2\par \vskip 2pt}\fi
  58   \hangindent 20pt \ttfamily #1\par\endgroup}
  59
  60 \setlength{\parindent}{0pt}
  61 \setlength{\parskip}{0pt plus .5pt}
  62
  63 \tolerance=10000          % prevents overfull boxes
  64
  65
  66 %% Add extra stretch and shrink to interword space for typewriter style.
  67 \newsavebox{\foobar}
  68 \savebox{\foobar}{\texttt{x}}
  69 \relax
  70 \expandafter\fontdimen\expandafter3\csname OT1/cmtt/m/n/10\endcsname=3pt
  71 \expandafter\fontdimen\expandafter4\csname OT1/cmtt/m/n/10\endcsname=3pt
  72
  73 \begin{document}
  74
  75 \typeout{}
  76 \typeout{IDX version of 03 May 1995}
  77 \typeout{}
  78 \typeout          {**********************************}
  79 \typeout          {*  Enter idx file's first name.  *}
  80 \typein[\filename]{**********************************}
  81
  82 \twocolumn[\vspace*{20pt} \centering \huge \filename.idx \par
  83            \vspace*{20pt}]
  84
  85 \dimen0=\columnwidth
  86 \advance\dimen0 by -20pt
  87
  88 \parshape =2  0pt \columnwidth 20pt \dimen0
  89
  90 \input \filename.idx\relax
  91
  92 \end{document}
  93
  94