Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!wuarchive!gem.mps.ohio-state.edu!ginosko!uunet!mcsun!unido!infko!hsk From: hsk@infko.UUCP (Friedrich Haubensak) Newsgroups: comp.text Subject: Re: LaTeX environments and macros Summary: here are the macros Keywords: LaTeX, TeX, environments, macros, delimited parameters Message-ID: <556@infko.UUCP> Date: 29 Sep 89 11:22:10 GMT References: <941@sbsvax.UUCP> Organization: University of Koblenz (EWH), West Germany Lines: 83 Hello, why not use a macro instead of an environment? It would be *much* easier. (If I had known before, I wouldn't have tackled the problem :-) Anyway, here are macros that generate an environment that passes all its input to a macro (actually, this macro is \fhenvwhattodo, see below). The environment stores all its input in a token list register, which then is referenced within the \end...-macro of the environment. You can't define an \end...-macro that has an argument (unless you change code from latex.tex, of course :-). The macros keep track of the \begin's and \end's within the environment so that nesting is no problem. You can give a name of your taste to this environment by redefining the macro \fhenvname, and you can change what is to be done at completion of the environment by redefining macro \fhenvwhattodo. The latter must have 1 parameter. Hope it works! (:-) %% macros for an environment that passes its input to a macro %% (C) Friedrich Haubensak, Uni Koblenz 28. 9. 89 \def\fhenvname{doubleenv}% how the environment should be named \def\fhenvwhattodo#1{% what's to be done with the stuff \par#1\par#1\par} \makeatletter \newtoks\@fh@envtoks\newcount\@fh@envcount \newenvironment{\fhenvname}{\@fh@envtoks{}\@fh@envcount\z@\x@fh@env}% {\expandafter\fhenvwhattodo\expandafter{\the\@fh@envtoks}} \long\def\x@fh@env#1\end#2{% \y@fh@env#1\begin\@fh@etx\end{#2}} \long\def\y@fh@env#1\begin#2\end#3{% \@fh@envtoks\expandafter{\the\@fh@envtoks#1}% \ifx\@fh@etx#2% \ifnum\@fh@envcount=\z@ \def\@fh@nxt{\end{#3}}% \else \@fh@envtoks\expandafter{\the\@fh@envtoks\end{#3}}% \advance\@fh@envcount\m@ne \def\@fh@nxt{\x@fh@env}% \fi \else \advance\@fh@envcount\@ne \def\@fh@nxt{\z@fh@env#2\end{#3}}% \fi \@fh@nxt} \long\def\z@fh@env#1\begin#2\end#3{% \ifx\@fh@etx#2% \@fh@envtoks\expandafter{\the\@fh@envtoks\begin#1\end{#3}}% \advance\@fh@envcount\m@ne \def\@fh@nxt{\x@fh@env}% \else \advance\@fh@envcount\@ne \@fh@envtoks\expandafter{\the\@fh@envtoks\begin#1}% \def\@fh@nxt{\z@fh@env#2\end{#3}}% \fi \@fh@nxt} \makeatother %% end of macros % example: ordinary text \begin{doubleenv} first line within doubleenv \begin{quote} quote one \end{quote} \begin{doubleenv} line of doublenv within doubleenv \end{doubleenv} \end{doubleenv} go on with ordinary text - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | | L i f e |___ ___ | / would be so much easier, | | |___ |\/ | | ___| | \ if everyone read the manual. Friedrich Haubensak, Uni Koblenz (EWH), W. Germany ---- ...!unido!infko!hsk