[tex-eplain] multiple contents problem

[Gerald Tenenbaum]

Hi everybody,

I have a strange problem with multiple contents. I join two simple
example TeX-files and two pdf-files resulting from typsetting
Main.tex on Macintosh and on Unix. As you will see, the result is
what I want on macintosh and not satisfactory on unix.
Can one explain why?
Can one help me getting the same on unix as on mac?
Many thanks in advance.

Regards,

Gerald
-------------- next part --------------
\input eplain.tex
\hsize=5cm
\vsize=5cm
\def\yes{yes}
\def\mainfile{yes}
\def\tocfilebasename{mainfile}
\def\tocchapterentry#1#2{{\bf#1\dotfill\hskip3mm\rm#2\par}\bigskip}%
\def\tocsectionentry#1#2{{\bf #1\dotfill\hskip3mm\rm#2\par}\medskip}%


\ifx\mainfile\yes
\def\tocSecondaryentry#1#2{}%
\fi
\centerline{\bf Table of contents}
\bigskip
\readtocfile
\vfill\eject
\input Second.tex
\end
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Main(macintosh).pdf
Type: application/pdf
Size: 14839 bytes
Desc: not available
Url : http://tug.org/pipermail/tex-eplain/attachments/20050516/68b472e3/Mainmacintosh.pdf
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Main(unix).pdf
Type: application/pdf
Size: 15477 bytes
Desc: not available
Url : http://tug.org/pipermail/tex-eplain/attachments/20050516/68b472e3/Mainunix.pdf
-------------- next part --------------
\hsize=5cm
\vsize=5cm
\def\yes{yes}
\ifx\mainfile\yes\else\input eplain.tex\fi

\newcount\paras\paras=0

\def\tocchapterentry#1#2{}
\def\tocsectionentry#1#2{}

\def\tocSecondaryentry#1#2{\advance\paras by 1
       {\bf\the\paras\quad 
}{\parindent10mm\hang\hskip-2mm#1\dotfill\hskip3mm\rm#2\par}\par}%

\def\section#1{\advance\paras by 1%
{\bf\the\paras. #1} \par\medskip\writetocentry{Secondary}{#1}%
\writetocentry{section}{#1}}



\centerline{\bf Secondary file}
\bigskip\bigskip
{\qquad\bf Contents}
{\medskip
\readtocfile
}
\medskip

\section{First Section}
text text text text text text text text
text text text text text text text text
text text text text text text text text
text text text text text text text text
text text text text text text text text
text text text text text text text text
text text text text text text text text
text text text text text text text text
\medskip
\section{Second Section}
text text text text text text text text
text text text text text text text text
text text text text text text text text
text text text text text text text text
text text text text text text text text
text text text text text text text text
text text text text text text text text
text text text text text text text text

\bye