cu-util.sty

\ProvidesPackage{cu-util}[2016/03/31 v1.0 CU Util]

\RequirePackage{etoolbox}
%
% Some ideas taken from: 
% http://tex.stackexchange.com/questions/33197/parsing-a-macro-argument-character-by-character-for-conditional-execution
%
\def\cu@declare@accent#1{%
    \def\cu@@declare@accent##1##2\relax{%
        \@namedef{cu@accent@\detokenize{##2}}{\relax}%
    }%
    \cu@@declare@accent#1\relax
}%
%
\newcommand\cu@tokenizeletter[1]{%
    \bgroup
    \def\@accum{}%
    \def\cu@collectworker{%
        \cu@ifnextaccent{%
            \cu@collectworker@one
        }{%
            \expandafter \egroup \expandafter #1\expandafter {\@accum}%
        }%
    }%
    \def\cu@collectworker@one##1{%
        \edef\@accum{\@accum ##1}%
        \cu@collectworker
    }%
    \def\cu@collectworker@two##1##2{%
        \edef\@accum{\@accum ##1##2}%
        \cu@collectworker
    }%
    \cu@ifnextbgroup{\egroup #1}{%
        \cu@ifnextdigraph{\cu@collectworker@two}{\cu@collectworker@one}%
    }%
}%
%
\newrobustcmd\cu@ifnextletter[2]{%
    \bgroup
    \def\cu@worker{%
        \ifcat\noexpand\@let@token a%
            \expandafter\egroup\expandafter\@firstoftwo
        \else
            \expandafter\egroup\expandafter\@secondoftwo
        \fi
        {#1}{#2}%
    }%
    \futurelet\@let@token\cu@worker
}
%
\newrobustcmd\cu@ifnextaccent[2]{%
    \bgroup
    \def\cu@letter@i{%
        \ifdefequal{\@let@token}{ }{%
            \egroup #2% false
        }{%
            \cu@letter@ii
        }%
    }%
    \def\cu@letter@ii##1{%
        \ifcsdef{cu@accent@\detokenize{##1}}{%
            \egroup #1##1% true
        }{%
            \egroup #2##1% false
        }%
    }%
    \futurelet\@let@token\cu@letter@i
}%
%
% Detect Oy and oy digraphs
% kv command colors just one letter with all accents if any
\def\cu@declare@digraph#1#2\relax{%
    \@namedef{cu@digraph@start@\detokenize{#1}}{\relax}%
    \@namedef{cu@digraph@end@\detokenize{#2}}{\relax}%
}%
%
\cu@declare@digraph оу\relax
\cu@declare@digraph Оу\relax
\cu@declare@digraph ᲂу\relax
%
\newrobustcmd{\cu@ifnextdigraph}[2]{%
    \bgroup
    \def\cu@digraph@i{%
        \ifdefequal{\@let@token}{ }{%
            \egroup #2% false!
        }{%
            \cu@digraph@ii
        }%
    }%
    \def\cu@digraph@ii##1{%
        \ifcsdef{cu@digraph@start@\detokenize{##1}}{%
            \edef\@accum{\@accum##1}%
            \futurelet\@let@token\cu@digraph@iii
        }{%
            \egroup #2##1% false!
        }%
    }%
    \def\cu@digraph@iii##1{%
        \ifcsdef{cu@digraph@end@\detokenize{##1}}{%
            \expandafter \egroup \expandafter #1\@accum ##1% true!
        }{%
            \expandafter \egroup \expandafter #2\@accum ##1% false!
        }%
    }%
    \def\@accum{}%
    \futurelet\@let@token\cu@digraph@i
}%
%
\newrobustcmd{\cu@ifnextbgroup}[2]{%
    \bgroup
    \def\cu@bgroup{%
        \ifdefequal{\@let@token}{ }{%
            \egroup #2% false!
        }{%
            \egroup\@ifnextchar\bgroup{#1}{#2}%
        }%
    }%
    \futurelet\@let@token\cu@bgroup
}%
%
\def\cu@test@tokenizeletter#1#2{%
    \bgroup
        \def\cu@testframe##1##2\@nnil{%
            \edef\@aa{##1-##2}%
        }%
        \cu@tokenizeletter\cu@testframe #1\@nnil
        \def\@bb{#2}%
        \ifx\@aa\@bb\else
            \errmessage{TEST FAILED: #1: "\@aa" expected "\@bb"}%
        \fi
    \egroup
}%
%
% List all accents
%
%% declare all possible combineres (generated by make_declare_accents)
\cu@declare@accent{◌̀}
\cu@declare@accent{◌́}
\cu@declare@accent{◌̑}
\cu@declare@accent{◌̈}
\cu@declare@accent{◌҆}
\cu@declare@accent{◌̆}
\cu@declare@accent{◌̾}
\cu@declare@accent{◌꙽}
\cu@declare@accent{◌꙼}
\cu@declare@accent{◌̇}
\cu@declare@accent{◌̏}
\cu@declare@accent{◌҃}
\cu@declare@accent{◌҇}
\cu@declare@accent{◌ⷠ}
\cu@declare@accent{◌ⷡ}
\cu@declare@accent{◌ⷢ}
\cu@declare@accent{◌ⷣ}
\cu@declare@accent{◌ⷤ}
\cu@declare@accent{◌ⷥ}
\cu@declare@accent{◌ⷦ}
\cu@declare@accent{◌ⷧ}
\cu@declare@accent{◌ⷨ}
\cu@declare@accent{◌ⷩ}
\cu@declare@accent{◌ⷪ}
\cu@declare@accent{◌ⷫ}
\cu@declare@accent{◌ⷬ}
\cu@declare@accent{◌ⷭ}
\cu@declare@accent{◌ⷮ}
\cu@declare@accent{◌ⷯ}
\cu@declare@accent{◌ⷰ}
\cu@declare@accent{◌ⷱ}
\cu@declare@accent{◌ⷲ}
\cu@declare@accent{◌ⷳ}
\cu@declare@accent{◌ⷴ}
\cu@declare@accent{◌ⷵ}
\cu@declare@accent{◌ⷶ}
\cu@declare@accent{◌ⷷ}
\cu@declare@accent{◌ⷸ}
\cu@declare@accent{◌ⷹ}
\cu@declare@accent{◌ⷺ}
\cu@declare@accent{◌ⷻ}
\cu@declare@accent{◌ⷼ}
\cu@declare@accent{◌ⷽ}
\cu@declare@accent{◌ⷾ}
\cu@declare@accent{◌ⷿ}
\cu@declare@accent{◌ꙴ}
\cu@declare@accent{◌ꙵ}
\cu@declare@accent{◌ꙶ}
\cu@declare@accent{◌ꙷ}
\cu@declare@accent{◌ꙸ}
\cu@declare@accent{◌ꙹ}
\cu@declare@accent{◌ꙺ}
\cu@declare@accent{◌ꙻ}
\cu@declare@accent{◌꙼}
\cu@declare@accent{◌꙽}
\cu@declare@accent{◌҆}
\cu@declare@accent{◌҅}
%% end of generated block

\endinput