%PDF-
%PDF-
Mini Shell
Mini Shell
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% idxmake.4ht 2009-05-21-09:32 %
% Copyright (C) 2000--2009 Eitan M. Gurari %
% %
% This work may be distributed and/or modified under the %
% conditions of the LaTeX Project Public License, either %
% version 1.3c 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.3c or later is part of all distributions %
% of LaTeX version 2005/12/01 or later. %
% %
% This work has the LPPL maintenance status "maintained".%
% %
% This Current Maintainer of this work %
% is Eitan M. Gurari. %
% %
% If you modify this program your changing its signature %
% with a directive of the following form will be %
% appreciated. %
% \message{signature} %
% %
% gurari@cse.ohio-state.edu %
% http://www.cse.ohio-state.edu/~gurari %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\immediate\write-1{version 2009-05-21-09:32}
\def\SourceInd#1#2#3#4{#1.#2}
\def\MakefileInd#1#2#3#4{#1.#4}
\newcount\cnt
\newtoks\split
\def\noXcatcodes{%
\cnt=0
\def\noXXcatcodes{%
\catcode\cnt12
\ifnum\cnt<255
\advance\cnt 1 \expandafter\noXXcatcodes
\fi }%
\noXXcatcodes }
\newwrite\idx
\newwrite\indexes
\def\MakefileIn#1#2#3#4{#1.#3}
\def\MakefileIndexes#1#2#3#4{#1.4ix}
\immediate\openout\idx=\expandafter\MakefileIn\filename\relax
\immediate\openout\indexes=\expandafter\MakefileIndexes\filename\relax
\def\beforeentry#1#2#3#4{
\def\file{#1}\def\anchor{#2}\def\pointer{#3}\def\indexentry{\string#4}
\begingroup \noXcatcodes
\catcode`\s=11 \catcode`\e=11 `%for \see`%
\catcode`\^^M=10 \catcode`\ =10 \catcode`\^^I=10
\catcode`\{=1 \catcode`\}=2 \futurelet\next\preGetentries
}
\def\bparent#1|(#2!*?: {\def\core{#1}\def\parent{#2}}
\def\eparent#1|)#2!*?: {\def\core{#1}\def\parent{#2}}
\def\see#1|see#2|see#3!*?: {\def\preSee{#1}\def\isSee{#2}}
\newcount\entryNum
\def\preGetentries{\ifx [\next \expandafter\opGetentries
\else \global\split={}\expandafter\getentries\fi}
\def\opGetentries[#1]{\global\split={[#1]}\getentries}
\def\getentries#1#2{\endgroup
\advance\entryNum by 1
\let\parent=\empty
\bparent#1|(!*?: \ifx \parent\empty
\eparent#1|)!*?: \ifx \parent\empty
\see#1|see|see!*?: %
\ifx \isSee\empty
\hasBar#1|!*?: {#1}{#2}%
\else
\immediate\write\idx{\indexentry\the\split{%
\preSee|see{\string\LNK{\file}{\anchor}{\isSee}{}}}{\the\entryNum
}}%
\immediate\write\indexes{\string \indexmark\the\split{%
\preSee}{\the\entryNum
}}%
\fi
%
\else
\immediate\write\idx{\indexentry\the\split{%
\core|LNK\csname \core|(\endcsname
--\string\LNK{\file}{\anchor}{\pointer}}{\the\entryNum
}}%
\immediate\write\indexes{\string \indexmark\the\split{%
\core}{\the\entryNum
}}%
\fi
\else
\expandafter\edef\csname \core|(\endcsname
{{\file}{\anchor}{\pointer}{\the\entryNum
}}%
\fi
}
\def\hasBar#1|#2!*?: #3#4{%
\def\temp{#2}\ifx \temp\empty
\immediate\write\idx{\indexentry\the\split{%
#3|LNK{\file}{\anchor}{\pointer}}{\the\entryNum
}}%
\immediate\write\indexes{\string \indexmark\the\split{%
#3}{\the\entryNum
}}%
\else \yeshasBar#3!*?: {\the\entryNum
}\fi
}
\def\yeshasBar#1|#2!*?: #3{%
\immediate\write\idx{\indexentry\the\split{%
#1|yhbLNK{#2}{\file}{\anchor}{\pointer}}{\the\entryNum
}}%
\immediate\write\indexes{\string \indexmark\the\split{%
#2}{\the\entryNum
}}%
}
\newcount\GetentriesN
\GetentriesN=0
\def\indexentry{\string\indexentry}
\def\Ganchor{\ifnum \GetentriesN<10 0\fi
\ifnum \GetentriesN<100 0\fi
\ifnum \GetentriesN<1000 0\fi
\the\GetentriesN}
\def\Beforeentry{\let\getentries=\Getentries
\let\Beforeentry=\beforeentry \Beforeentry}
\def\Getentries#1#2{\endgroup
\advance\GetentriesN by 1
\let\parent=\empty
\bparent#1|(!*?: \ifx \parent\empty
\eparent#1|)!*?: \ifx \parent\empty
\see#1|see|see!*?: %
\ifx \isSee\empty \immediate\write\idx{\indexentry\the\split{%
\string\indNum{\Ganchor}%
%
#1\string\indNum{\Ganchor}%
\string\comNum}{#2}}%
%
\else \immediate\write\idx{\indexentry\the\split{%
{\Ganchor}%
\preSee\string\gobble|see{\isSee}}{#2}}%
\fi
\else
\immediate\write\idx{\indexentry\the\split{%
\string\indNum{\Ganchor}%
\string\erange{\csname \core|(\endcsname}
\core\string\indNum{\Ganchor}%
\string\comNum}{#2}}%
\fi
\else
\immediate\write\idx{\indexentry\the\split{%
\string\indNum{\Ganchor}%
\string\brange{\Ganchor}
\core\string\indNum{\Ganchor}%
\string\comNum}{#2}}%
\expandafter\edef\csname \core|(\endcsname{\Ganchor}%
\fi
}
\input \expandafter\SourceInd\filename\relax
\immediate\closeout\idx
\immediate\closeout\indexes
\bye
\endinput
Zerion Mini Shell 1.0