home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Club Elmshorn Atari PD
/
CCE_PD.iso
/
pc
/
0500
/
CCE_0538.ZIP
/
CCE_0538.PD
/
IFTHEN-A.STY
< prev
next >
Wrap
Text File
|
1993-05-14
|
817b
|
23 lines
%
% small extension for ifthen style -- TeX \newif's
%
% e.g., \ifthen{\boolean{@twoside}}{}{}
%
\def\boolean#1{1=1\fi\noexpand\csname if#1\endcsname\def\noexpand\@tempa{1=1}%
\else\def\noexpand\@tempa{1=0}\fi\ifnum\noexpand\@tempa}
%
%
%
% \ifthenelse{\dimenequal{10pt}{20pt}}{}{} like #1 = #2
% \ifthenelse{\dimenless{10pt}{20pt}}{}{} like #1 < #2
% \ifthenelse{\dimengreater{10pt}{20pt}}{}{} like #1 > #2
%
\def\dimenequal#1#2{1=1\fi\noexpand\ifdim #1=#2 \def\noexpand\@tempa{1=1}
\else\def\noexpand\@tempa{1=0}\fi\ifnum\noexpand\@tempa}
%
\def\dimenless#1#2{1=1\fi\noexpand\ifdim #1<#2 \def\noexpand\@tempa{1=1}
\else\def\noexpand\@tempa{1=0}\fi\ifnum\noexpand\@tempa}
%
\def\dimengreater#1#2{1=1\fi\noexpand\ifdim #1>#2 \def\noexpand\@tempa{1=1}
\else\def\noexpand\@tempa{1=0}\fi\ifnum\noexpand\@tempa}