Return to otry.tex CVS log

Up to [Research Unix] / researchv10dc / vol2 / index

Annotation of researchv10dc/vol2/index/otry.tex, revision 1.1.1.1

1.1       root        1: \newwrite\indexfile
                      2: \def\makeindex{%
                      3:   \immediate\openout\indexfile=\jobname.idx%
                      4:   \def\index{\bsphack\begingroup%
                      5:              \def\protect####1{\string####1\space}%
                      6:              \wrindex\indexfile}\typeout%
                      7:   {Writing index file \jobname.idx }}
                      8: \def\wrindex#1#2{\let\pageno\relax%
                      9:    \xdef\gtempa{\write#1{%\string
                     10:       #2<tab>\number\count0}}\endgroup\gtempa\esphack}
                     11: \def\index{\begingroup \xindex}
                     12: \def\xindex#1{\endgroup}
                     13: \newdimen\savsk
                     14: \newcount\savsf
                     15: \newdimen\zro
                     16: \zro=0pt
                     17: \def\bsphack{\savsk\lastskip 
                     18:     \ifhmode\savsf\spacefactor\fi}
                     19: 
                     20: \def\esphack{\relax\ifhmode\spacefactor\savsf
                     21:      {}\ifdim \savsk >\zro \ignorespaces 
                     22:   \fi \fi}
                     23: \makeindex

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.