dozenal (30nov16)

git-svn-id: svn://tug.org/texlive/trunk@42608 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 126 insertions, 1 deletions

diff --git a/Master/texmf-dist/tex/latex/dozenal/dozenal.sty b/Master/texmf-dist/tex/latex/dozenal/dozenal.sty
index b2becd88c90..bed19e412d2 100644
--- a/Master/texmf-dist/tex/latex/dozenal/dozenal.sty
+++ b/Master/texmf-dist/tex/latex/dozenal/dozenal.sty
@@ -25,7 +25,7 @@
 %% This work consists of the files listed in dozenalfilelist.txt.
 
 \NeedsTeXFormat{LaTeX2e}[1999/12/01]
-\ProvidesPackage{dozenal}[2015/01/29 v6.0 support for dozenal fonts]
+\ProvidesPackage{dozenal}[2015/01/29 v7.0 support for dozenal fonts]
 \RequirePackage{fixltx2e}
 \RequirePackage{xstring}
 \RequirePackage{ifpdf}
@@ -130,6 +130,131 @@ dozchbx10 <12-> dozchbx12 }{}
 \doz@multiplier=1%
 \doz@total=0%
 }%
+\newcount\doz@modulus%
+\def\doz@modulo#1#2{%
+\doz@modulus=#1%
+\divide\doz@modulus by#2%
+\multiply\doz@modulus by#2%
+\multiply\doz@modulus by-1%
+\advance\doz@modulus by#1\relax%
+}%
+\newcount\doz@quotient%
+\def\doz@quot#1#2{%
+\doz@quotient=#1%
+\divide\doz@quotient by#2%
+}%
+\newcount\doz@romct%
+\newif\ifdoz@domancaps%
+\def\doz@doman#1{%
+\doz@romct=#1%
+\doz@quot{\doz@romct}{1728}%
+\loop\ifnum\doz@quotient>0%
+\ifdoz@domancaps M\else m\fi%
+\advance\doz@quotient by-1%
+\advance\doz@romct by-1728%
+\repeat
+\ifnum\doz@romct>1440
+\ifnum\doz@romct<1584
+\ifdoz@domancaps CCM\else ccm\fi%
+\advance\doz@romct by-1440
+\else%\ifnum\doz@romct>1583
+\ifdoz@domancaps CM\else cm\fi%
+\advance\doz@romct by-1584
+\fi
+\fi
+\ifnum\doz@romct>575%
+\ifnum\doz@romct<719
+\ifdoz@domancaps CCD\else ccd\fi%
+\advance\doz@romct by-576
+\else
+\ifnum\doz@romct<864%
+\ifdoz@domancaps CD\else cd\fi%
+\advance\doz@romct by-720%
+\fi
+\fi
+\else
+\ifnum\doz@romct>719
+\ifdoz@domancaps D\else d\fi%
+\advance\doz@romct by-719%
+\fi
+\fi
+\doz@quot{\doz@romct}{144}%
+\loop\ifnum\doz@quotient>0%
+\ifdoz@domancaps C\else c\fi%
+\advance\doz@quotient by-1%
+\advance\doz@romct by-144%
+\repeat
+\ifnum\doz@romct>119
+\ifnum\doz@romct<132
+\ifdoz@domancaps XXC\else xxc\fi%
+\advance\doz@romct by-120
+\else
+\ifdoz@domancaps XC\else xc\fi%
+\advance\doz@romct by-132
+\fi
+\fi
+\ifnum\doz@romct>71
+\ifdoz@domancaps L\else l\fi%
+\advance\doz@romct by-72
+\fi
+\ifnum\doz@romct>47%
+\ifnum\doz@romct>59%
+\ifdoz@domancaps XL\else xl\fi%
+\advance\doz@romct by-60%
+\else
+\ifdoz@domancaps XXL\else xxl\fi%
+\advance\doz@romct by-48%
+\fi
+\fi
+\doz@quot{\doz@romct}{12}%
+\loop\ifnum\doz@quotient>0%
+\ifdoz@domancaps X\else x\fi%
+\advance\doz@quotient by-1%
+\advance\doz@romct by-12%
+\repeat
+\doz@modulo{\doz@romct}{12}%
+\ifnum\doz@modulus=10
+\ifdoz@domancaps IIX\else iix\fi%
+\advance\doz@romct by-10
+\fi
+\ifnum\doz@modulus=11
+\ifdoz@domancaps IX\else ix\fi%
+\advance\doz@romct by-11
+\fi
+\ifnum\doz@romct>5
+\ifdoz@domancaps V\else v\fi%
+\advance\doz@romct by-6
+\fi
+\ifnum\doz@romct>3%
+\ifnum\doz@romct=4%
+\ifdoz@domancaps IIV\else iiv\fi%
+\advance\doz@romct by-4%
+\else
+\ifnum\doz@romct=5%
+\ifdoz@domancaps IV\else iv\fi%
+\advance\doz@romct by-5%
+\fi
+\ifnum\doz@romct=6%
+\ifdoz@domancaps V\else v\fi%
+\advance\doz@romct by-6
+\fi
+\fi
+\fi
+\doz@quot{\doz@romct}{1}%
+\loop\ifnum\doz@quotient>0%
+\ifdoz@domancaps I\else i\fi%
+\advance\doz@quotient by-1%
+\advance\doz@romct by-1%
+\repeat
+}
+\protected\def\doman#1{%
+\doz@domancapsfalse%
+\doz@doman{#1}%
+}%
+\protected\def\Doman#1{%
+\doz@domancapstrue%
+\doz@doman{#1}%
+}%
 \@ifundefined{nocounters}{%
 \@ifundefined{c@page}{}{%
 \renewcommand\thepage{\basexii{\value{page}}{\x}{\e}}}