🚀 go-pugleaf

In article <PFEIFFER.91Jun25101651@cix.cict.fr> pfeiffer@cix.cict.fr (Daniel Pfeiffer) writes:
>I want to read and parse every line in a file that contains no
>empty lines:
>
>	\openin\@std \bookname.sind
>	\loop
>		\read\@std to\@theline
>		\ifx\@theline\par\encorefalse\fi
>	\ifencore
>		\expandafter\@parse\@theline
>		\ifx\@theword\@theoldword
>			\ifx\@thepage\@theoldpage\else, \@thepage\fi
>		\else
>			\relax\endgraf\@theword\@dots\@thepage
>			\let\@theoldword=\@theword
>		\fi
>		\let\@theoldpage=\@thepage
>	\repeat
>
>I read from a file whose lines are all uniform, and recognized by \@parse.
>When I get to the end of the file the value of \@theline is \par.  So I
>figured I'd test for the end with \ifx\@theline\par.  Problem is that
>\loop tries to read everything upto \repeat but falls flat on it's face
>when it sees the \par.  How do I make \par symbolic rather than a paragraph
>separator.  I've tried \let\@par=\par but then the test \ifx\@theline\@par
>fails.  Putting an \outer before \loop doesn't change anything.
>
>How do I correct this???  Alternate solutions to parsing every line
>in a file are also welcome!
>
> +---------------+
> |     * * *     |
> |   *       *   |	Beware - polyglot esperantist
> |  *         *  |
> |   *       *   |
> |     * * *     |
> +---------------+
> |
> |  Daniel Pfeiffer				<pfeiffer@cix.cict.fr>
> |  Tolosa (Toulouse), Midi-Pyrenees, Europe	<pfeiffer@irit.fr>
> |						<pfeiffer@frcict81.bitnet>
> |


How about testing for end-of-file with the \ifeof primitive?

Rainer Sch"opf