% Copyright 2016 Slavonic Computing Initialive
% http://sci.ponomar.net
%
\ProvidesPackage{cu-num}[2016/03/03 v1.1 CU Numerics]

\@ifundefined{detokenize}{%
 \PackageError{cu-num}%
   {You must upgrade your TeX distribution to be able to use this package}%
   {This package depends on eTeX-based engine}%
}{}

%
% Tools
%
\def\cu@ifempty#1{%
 \if\relax\detokenize{#1}\relax
   \expandafter\@firstoftwo
 \else
   \expandafter\@secondoftwo
 \fi
}%
%
\def\cu@firstoffour\cu@repeat #1\stop@ #2#3#4#5{#2}%
\def\cu@firstofthree\cu@repeat@i #1\stop@ #2#3#4{#2}%
\def\cu@switch #1{%
 \if\relax\detokenize{#1}\relax
   \expandafter\cu@firstoffour
 \fi
 \cu@repeat #1\stop@
}%
\def\cu@repeat #1#2\stop@ #3{%
 \if\relax\detokenize{#2}\relax
   \expandafter\cu@firstofthree
 \fi
 \cu@repeat@i #2\stop@
}%
\def\cu@repeat@i #1#2\stop@ #3{%
 \if\relax\detokenize{#2}\relax
   \expandafter\@firstoftwo
 \else
   \expandafter\@secondoftwo
 \fi
}%
%
% Slavonic numbering system. Internals.
%
\def\cu@format@small@number#1#2#3{%
 \ifcase#1 \or
   \expandafter р\or
   \expandafter с\or
   \expandafter т\or
   \expandafter у\or
   \expandafter ф\or
   \expandafter х\or
   \expandafter ѱ\or
   \expandafter ѿ\or
   \expandafter ц\else
   \errmessage{cu-num: Internal error}%
 \fi
 \if 1#2%
   \ifcase#3 \or
     \expandafter а\or
     \expandafter в\or
     \expandafter г\or
     \expandafter д\or
     \expandafter є\or
     \expandafter ѕ\or
     \expandafter з\or
     \expandafter и\or
     \expandafter ѳ\else
     \errmessage{cu-num: Internal error}%
   \fi
   і%
 \else
   \ifcase#2 \or
     \expandafter і\or
     \expandafter к\or
     \expandafter л\or
     \expandafter м\or
     \expandafter н\or
     \expandafter ѯ\or
     \expandafter ѻ\or
     \expandafter п\or
     \expandafter ч\else
     \errmessage{cu-num: Internal error}%
   \fi
   \ifcase#3 \or
     \expandafter а\or
     \expandafter в\or
     \expandafter г\or
     \expandafter д\or
     \expandafter є\or
     \expandafter ѕ\or
     \expandafter з\or
     \expandafter и\or
     \expandafter ѳ\else
     \errmessage{cu-num: Internal error}%
   \fi
 \fi
}%
%
%
\protected\def\cu@titlo{\char"0483}%
\def\cu@thousand{҂}%
\protected\def\cu@spacer{\,}%
%
\protected\def\stop@{}%
\protected\def\divider@{DIVIDER}%
%
\def\cu@format#1{%
 \ifnum#1<0%
   \errmessage{cu-num: negative numbers not supported}%
 \else\ifnum#1=0%
   0\cu@titlo
 \else\ifnum#1<10%
   {}%
   {}%
   \cu@format@xxx 00#1\stop@
 \else\ifnum#1<100%
   {}%
   {}%
   \cu@format@xxx 0#1\stop@
 \else\ifnum#1<1000%
   {}%
   {}%
   \cu@format@xxx #1\stop@
 \else\ifnum#1<10000%
   {}%
   \cu@format@xxxxxx 00#1\stop@
 \else\ifnum#1<100000%
   {}%
   \cu@format@xxxxxx 0#1\stop@
 \else\ifnum#1<1000000%
   {}%
   \cu@format@xxxxxx #1\stop@
 \else\ifnum#1<10000000%
   \cu@format@xxxxxxxxx 00#1\stop@
 \else\ifnum#1<100000000%
   \cu@format@xxxxxxxxx 0#1\stop@
 \else\ifnum#1<1000000000%
   \cu@format@xxxxxxxxx #1\stop@
 \else
   \errmessage{cu-num: number too big "#1"}%
 \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
}%
%
\def\cu@format@xxx#1#2#3\stop@{%
 {%
 \cu@format@small@number#1#2#3%
 }%
}%
%
\def\cu@format@xxxxxx#1#2#3#4#5#6\stop@{%
 {\cu@format@small@number#1#2#3}%
 {\cu@format@small@number#4#5#6}%
}%
%
\def\cu@format@xxxxxxxxx#1#2#3#4#5#6#7#8#9\stop@{%
 {\cu@format@small@number#1#2#3}%
 \cu@format@xxxxxx#4#5#6#7#8#9\stop@
}%
%
\def\cu@place@titlo #1{%
 \cu@switch{#1}{%
   {}%
 }{%
   {\cu@place@titlo@i #1\stop@}%
 }{%
   {\cu@place@titlo@ii #1\stop@}%
 }{%
   {\cu@place@titlo@iii #1\stop@}%
 }%
}%
\def\cu@place@titlo@iii #1#2#3#4\stop@{%
 \cu@ifempty{#4}{%
   #1\cu@place@titlo@ii #2#3\stop@
 }{%
   #1\cu@place@titlo@iii #2#3#4\stop@
 }%
}%
\def\cu@place@titlo@ii #1#2\stop@{%
 \if #1ѿ%
   #1#2\cu@titlo\else #1\cu@titlo #2\fi
}%
\def\cu@place@titlo@i #1\stop@{%
 \if #10%
   0\else #1\cu@titlo \fi
}%
%
\def\cu@merge@historic #1#2#3{%
 \cu@switch{#2}{%
   {#1}{#2}{#3}%
 }{%
   {#1}{#2#3}{0}%
 }{%
   {#1}{#2}{#3}%
 }{%
   {#1}{#2}{#3}%
 }%
}%
%
\def\cu@place@thousands#1#2#3{%
 \cu@ifempty{#1}{%
   {}%
 }{%
   {\cu@thousand\cu@thousand #1}%
 }%
 \cu@ifempty{#2}{%
   {}%
 }{%
   \if#30%
     {\cu@thousand #2}%
   \else
     \cu@ifempty{#3}{%
       {\cu@interleave #2\stop@}%
     }{%
       {\cu@thousand #2}%
     }%
   \fi
 }%
 \if#30%
   {}%
 \else
   {#3}%
 \fi
}%
%
\def\cu@interleave#1#2\stop@{%
 \ifx#1\cu@titlo
   \cu@ifempty{#2}{#1}{%
      #1\cu@interleave #2\stop@
    }%
 \else
   \cu@ifempty{#2}{%
     \cu@thousand #1%
   }{%
     \cu@thousand #1\cu@interleave #2\stop@
   }%
 \fi
}%
%
\def\cu@place@all@titlo#1#2#3{%
 \cu@place@titlo{#1}%
 \cu@place@titlo{#2}%
 \cu@place@titlo{#3}%
}%
\def\cu@place#1{%
 \if\relax\detokenize{#1}\relax
   {}%
 \else
   \cu@place@i #1\stop@
 \fi
}%
\def\cu@place@i#1#2\stop@{%
 \if\relax\detokenize{#2}\relax
   {#1\cu@titlo}%
 \else
   \cu@place@ii #1#2\stop@
 \fi
}%
\def\cu@place@ii #1#2#3\stop@{%
 \if\relax\detokenize{#3}\relax
   \if#1ѿ{#1#2\cu@titlo}\else
     {#1\cu@titlo #2}\fi
 \else
   \if#2ѿ{#1#2#3\cu@titlo}\else
     {#1#2\cu@titlo #3}\fi
 \fi
}%
%
\def\cu@compose#1#2#3{%
 \cu@ifempty{#1}{%
   \cu@compose@ii{#2}{#3}%
 }{%
   \cu@ifempty{#2}{%
     \cu@compose@ii{#1}{#3}%
   }{%
     \cu@ifempty{#3}{%
       \cu@compose@ii{#1}{#2}%
     }{%
       #1\cu@spacer #2\cu@spacer #3%
     }%
   }%
 }%
}%
%
\def\cu@compose@ii#1#2{%
 \cu@ifempty{#1}{%
   \cu@ifempty{#2}{}{#2}%
 }{%
   \cu@ifempty{#2}{#1}{#1\cu@spacer #2}%
 }%
}%
%
\def\cu@fmt@#1{%
 %\tracingmacros=1%
 %\tracingonline=1%
 \edef\@x{\number #1}%
 \ifnum\@x=0\relax
   \edef\@x{0\cu@titlo}%
 \else\ifnum\@x<0%
   \edef\@x{\number-\@x}%
   \edef\@x{\noexpand\cu@format{\@x}}%
   \edef\@x{\@x}%
   \edef\@x{\noexpand\cu@merge@historic\@x}%
   \edef\@x{\@x}%
   \edef\@x{\noexpand\cu@place@all@titlo\@x}%
   \edef\@x{\@x}%
   \edef\@x{\noexpand\cu@place@thousands\@x}%
   \edef\@x{\@x}%
   \edef\@x{\noexpand\cu@compose\@x}%
   \edef\@x{\@x}%
   \edef\@x{-\@x}%
 \else
   \edef\@x{\noexpand\cu@format{\@x}}%
   \edef\@x{\@x}%
   %\show\@x
   \edef\@x{\noexpand\cu@merge@historic\@x}%
   \edef\@x{\@x}%
   %\show\@x
   \edef\@x{\noexpand\cu@place@all@titlo\@x}%
   \edef\@x{\@x}%
   %\show\@x
   \edef\@x{\noexpand\cu@place@thousands\@x}%
   \edef\@x{\@x}%
   %\show\@x
   \edef\@x{\noexpand\cu@compose\@x}%
   \edef\@x{\@x}%
   %\show\@x
 \fi\fi
 %\tracingmacros=0%
}%
%
% User API
%
\protected\def\cuNum#1{%
 \bgroup
   \cu@fmt@{#1}%
   \@x
 \egroup
}%

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.