helpers.tex

%!TEX root = main.tex
\makeatletter
\edef\@isTrue{1}
\edef\@isFalse{0}
\gdef\exb@int@isin#1#2#3#4{%
	\def\needle{#1}
	\def\haystack{#2}
	\ifx\haystack\empty\relax#4\else%
		\def\isFalse{0}%
		\let\isInList = \isFalse%
		\IfInteger{\needle}{}{\@latex@error{ISIN: Can't look for part problem that is not numeric: `\needle' in `\haystack'!}{}\bye\stop}%
		\IfInteger{\haystack}{
			\ifnum\haystack=\needle\relax%
				#3%
			\else%
				#4%
			\fi%
		}{
			\foreach \pp in #2{%
					\ifnum\pp=\needle\relax%
						\gdef\isInList{1}%
						#3%
					\fi%
				}%
			\if\isInList\isFalse%
				#4%
			\fi%
		}%
	\fi}
\gdef\exb@warn{\PackageWarningNoLine{exercisebank-@@VERSION}}
\gdef\exb@err#1{\PackageError{exercisebank}{#1}{}}
\newif\ifexb@isInList
\newcounter{exb@isin@dots}
%:§ref
%:=\exb@isin{haystack}{needle}{True}{False}
%: \meta{haystack} is a comma separated list of anything\\
%: \meta{needle} is an integer\\
%: Executes \meta{True} if \meta{needle} is found in \meta{haystack}
%: else executes \meta{False}
%:-
% #1: haystack
% #2: needle
% #3: action if found in list
% #4: action if not found in list
\gdef\exb@isin#1#2#3#4{\@dinfo{running isin}
	\global\exb@isInListfalse
	\xdef\needle{#1}
	\xdef\haystack{#2}
	\def\whenfalse{#4}
	\def\whentrue{#3}
	% \@dlog{h:\haystack\space n:\needle}%
	\ifx\haystack\empty\relax#4\else%
		\readlist*\items\haystack%
		\foreachitem\itm\in\items{%
			\ifnum\pdfstrcmp{\needle}{\itm}=\z@\relax%
				\global\exb@isInListtrue%
				#3\fi%
		}%
		\ifexb@isInList\else%
			#4
		\fi\fi%
}

%\strif: Compare two strings
%\strif\stringA\stringB%
%TRUE
%\else
%FALSE
%\fi
\gdef\strif#1#2{%
	\ifnum\pdfstrcmp{#1}{#2}=\z@\relax%
}
% Get macroname of macro
\let\ea = \expandafter
\begingroup\lccode`\|=`\\
\lowercase{\endgroup\def\removebs#1{\if#1|\else#1\fi}}
\gdef\exbank@macroname#1{\expandafter\removebs\string#1}
\gdef\@noneofone#1{}
\gdef\@noneoftwo#1#2{}
{\globaldefs=1\newcommand\@opt@gobble[2][]{}}
\@ifundefined{exbank@verbose}{
	\global\let\@dinfo\@gobble
	\global\let\@dinfomode\@opt@gobble
}{
	\bgroup
	\globaldefs=1\newcommand\@dinfo[2][]{%
			\@latex@warning{--INFO:#2}%
		}%
	\egroup%
}
\@ifundefined{exbank@quiet}{
	\gdef\@dlog#1{\@latex@warning{::DEBUG:#1}}%
}{
	\global\let\@dlog\@noneofone%
}
\gdef\shownextchar#1{\@latex@warning{NEXT:\string#1}#1}
\newcommand\ex@before[2]{
	\edef #1{\unexpanded{#2}\unexpanded\expandafter{#1}}
}
% Put stuff at left margin
% \exb@lmargin{content}{marginSize}
\newcommand{\exb@lmargin}[2]{\strut\vadjust{\exb@domark{#1}{#2}}}

\newcommand{\exb@domark}[2]{%
	\hbox to #2{
		\vbox to 0pt{
				\kern-\dp\strutbox
				\smash{\llap{#1}}
				\vss
			}%
	}
}
% TODO: FINISH
\newif\ifexb@isintersection
\def\exb@intersection@any#1#2#3#4{%
	\global\exb@isintersectionfalse%
	\edef\listarg{#1}%
	\ifx\listarg\empty\@dlog{RELAX}#4\else%
	% \ifnum\pdfstrcmp{\listarg}{}=\z@\relax\@dlog{RELAX}#4\else
	\readlist*\needlelist{#1}%
		\foreachitem\needle\in\needlelist{%
			\exb@isin{\needle}{#2}{\global\exb@isintersectiontrue}{}%
		}%
		\ifexb@isintersection#3\else#4\fi%
		\fi%
}
\gdef\@makespacesignored{%
\global\let\@oldtilde~%
\gdef~{ }%
\global\catcode`\^^M=9\relax%
\global\catcode`\^^J=9\relax%
\global\catcode`\ =9\relax%
}
\gdef\@makespacesnormal{%
\global\let~\@oldtilde%
\global\catcode`\^^M=5\relax%
\global\catcode`\^^J=12\relax%
\global\catcode`\ =10\relax%
}
\def\@AtNextParHook{}
% Copy contents of current everypar
\let\oldep\everypar
\oldep{\the\everypar}
% Reset the current everypar toks
\newtoks\everypar
% Execute
% \oldep{\the\everypar\@AtNextParHook\gdef\@AtNextParHook{}}
\oldep{\the\everypar\@AtNextParHook\relax\gdef\@AtNextParHook{}}
\def\AtNextPar#1{\g@addto@macro\@AtNextParHook{#1}}