% This macro source file is from the four volume series % "TeX in Practice" by Stephan von Bechtolsheim, published % 1993 by Springer-Verlag, New York. % Copyright 1993 Stephan von Bechtolsheim. % No warranty or liability is assumed. % This macro may be copied freely if no fees other than % media cost or shipping charges are charged and as long % as this copyright and the following source code itself % is not changed. Please see the series for further information. % % Version: 1.0 % Date: May 1, 1993 % % % This source code is documented in 24.1.20.1, p. III-309. % Original source in file "macros4.TEX", starting line 1412. \wlog{L: "remtlsp.tip" ["macros4.TEX," l. 1412, p. III-309]}% % This file DOES belong to format "texip." \InputD{compst.tip} \catcode`\@ = 11 \def\@TestTrail #1 #2\@Del{% \def\@RemTspTemp{#1}% } \def\RemTsp #1#2{% \edef\@RemTspTempOne{#2#2 }% \expandafter\@TestTrail\@RemTspTempOne\@Del \if\StringsEqualConditional{#2#2}{\@RemTspTemp}% \def#1{#2}% \else \edef\@RemTspTempA{\noexpand\edef\noexpand#1{\@RemTspTemp}}% \@RemTspTempA \fi } \def\@TestLead #1 #2\@Del{\def\@RemLspOne{#1}} \def\RemLsp #1#2{% \edef\@TempRemLsp{#2#2\space}% \expandafter\@TestLead\@TempRemLsp\@Del \if\EmptyStringConditional{\@RemLspOne}% \expandafter\@RemLspThree #2\@Del{#1}% \else \def#1{#2}% \fi } \edef\@RemLspTwo{% \def\noexpand\@RemLspThree\space ##1\noexpand\@Del##2{% \def##2{##1}% }% } \@RemLspTwo \catcode`\@ = 12