context-cyrillicnumbers (12apr13)

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

12 files changed, 2288 insertions, 2 deletions

diff --git a/Master/texmf-dist/doc/context/third/cyrillicnumbers/COPYING b/Master/texmf-dist/doc/context/third/cyrillicnumbers/COPYING
new file mode 100644
index 00000000000..0c6238f81c0
--- /dev/null
+++ b/Master/texmf-dist/doc/context/third/cyrillicnumbers/COPYING
@@ -0,0 +1,22 @@
+Copyright 2012--2013 Philipp Gesang. All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+    1. Redistributions of source code must retain the above copyright notice,
+    this list of conditions and the following disclaimer.
+
+    2. Redistributions in binary form must reproduce the above copyright
+    notice, this list of conditions and the following disclaimer in the
+    documentation and/or other materials provided with the distribution.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDER ``AS IS'' AND ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
+EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
+BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
+OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
diff --git a/Master/texmf-dist/doc/context/third/cyrillicnumbers/README.rst b/Master/texmf-dist/doc/context/third/cyrillicnumbers/README.rst
new file mode 100644
index 00000000000..72d47e71efa
--- /dev/null
+++ b/Master/texmf-dist/doc/context/third/cyrillicnumbers/README.rst
@@ -0,0 +1,42 @@
+Cyrillic Numerals in ConTeXt
+================================================================================
+
+Module for typesetting Cyrillic numbers. Take your time to read the manual under
+``./doc/context/third/cyrillicnumbers/cyrillicnumbers.tex``. To build the
+documentation a recent versions of ConTeXt will be needed.
+
+Installation
+================================================================================
+
+First, get a checkout from BitBucket_: ::
+
+    hg clone http://bitbucket.org/phg/context-cyrillicnumbers
+
+In the next step, copy the files into the path of your ConTeXt distribution.
+Assuming it is installed in $HOME/context/, you would accomplish this like
+so: ::
+
+    cd context-cyrillicnumbers
+    cp -r doc/ tex/ ~/context/tex/texmf-modules/
+
+Finally, rebuild the file name database: ::
+
+    context --generate
+
+and the module is ready to use!
+
+License
+================================================================================
+
+All code and documentation is licensed under a modified BSD license, see the
+file COPYING in the repository root.
+
+Author
+================================================================================
+
+This module was written by Philipp Gesang, ``megas.kapaneus`` at ``gmail`` dot
+``com`` (find me on BitBucket_).
+
+.. _BitBucket:  http://bitbucket.org/phg
+
+
diff --git a/Master/texmf-dist/doc/context/third/cyrillicnumbers/cyrillicnumbers.pdf b/Master/texmf-dist/doc/context/third/cyrillicnumbers/cyrillicnumbers.pdf
new file mode 100644
index 00000000000..1f129730bd3
--- /dev/null
+++ b/Master/texmf-dist/doc/context/third/cyrillicnumbers/cyrillicnumbers.pdf
diff --git a/Master/texmf-dist/doc/context/third/cyrillicnumbers/cyrillicnumbers.tex b/Master/texmf-dist/doc/context/third/cyrillicnumbers/cyrillicnumbers.tex
new file mode 100644
index 00000000000..238836f9b2d
--- /dev/null
+++ b/Master/texmf-dist/doc/context/third/cyrillicnumbers/cyrillicnumbers.tex
@@ -0,0 +1,1314 @@
+% \enablemode[print]
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Module loading                                                %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\usemodule[cyrillicnumbers]
+\definecyrnum[normaltextcyrnum][
+  command=\oldrussian,
+  dots=no,
+  titlo=no,
+]
+
+\definecyrnum[rednum][
+  command={\switchtocolor[red]},
+]
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Colors                                                        %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\definecolor  [primarycolor] [darkmagenta]
+\definecolor[secondarycolor]     [magenta]
+
+\startmode[print]
+  \definecolor  [primarycolor] [gray12]
+  \definecolor[secondarycolor] [gray22]
+\stopmode%%% print
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Letterspacing / emphases                                      %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\usemodule [letterspace]
+
+\defineletterspace [largecaps]
+\setupletterspace  [largecaps] [
+  factor=.5,
+  spaceskip=.4em,
+  suppresskern=yes,
+]
+
+\def\pompoustitle#1{%
+  \setuplocalinterlinespace[line=33pt]%
+  \color[primarycolor]{%
+    \tfd\bold\WORD\largecaps{#1}%
+  }%
+}
+
+\defineletterspace [mediumcaps]
+\setupletterspace  [mediumcaps] [
+  factor=.25,
+  spaceskip=.5em,
+  suppresskern=yes,
+]
+
+\definefontfeature[smallcaps][smcp=yes,mode=node,script=latn]
+
+\def\mediumtitle#1{%
+  \setuplocalinterlinespace[line=33pt]%
+  \color[primarycolor]{%
+    \tfa\sc\mediumcaps{#1}%
+  }%
+}
+
+\defineletterspace [smallcaps]
+\setupletterspace  [smallcaps] [
+  factor=.05,
+  spaceskip=.25em,
+  suppresskern=yes,
+]
+
+\defineletterspace [textemph]
+\setupletterspace  [textemph] [
+  factor=.125,
+  spaceskip=.33em,
+  suppresskern=no,
+]
+
+\defineletterspace [slightly]
+\setupletterspace  [slightly] [
+  factor=.075,
+  spaceskip=.33em,
+  suppresskern=no,
+]
+
+\let\te\textemph
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Font Setups                                                   %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\definefontfeature [default] [default] [
+  protrusion=quality,
+  expansion=quality,
+  mode=node,
+  script=latn,
+  onum=yes,
+  dlig=yes,
+  liga=yes,
+  kern=yes,
+]
+
+\definefontfeature [kerning] [kern=yes]%
+
+\starttypescript [serif] [bukyvede]
+  % \setups [font:fallback:serif]
+  \definefontsynonym [Serif]        [name:Bukyvede]        [features=default]
+  \definefontsynonym [SerifItalic]  [name:Bukyvede-Italic] [features=default]
+\stoptypescript
+
+\usetypescript  [bukyvede]
+\definetypeface [vintagecyrillic]       [rm] [serif]  [bukyvede]     [default] [encoding=ec]
+
+\usetypescriptfile [type-gfsbodoni.mkiv]
+\usetypescript     [gfs-bodoni]
+\usetypescriptfile [type-imp-computer-modern-unicode.mkiv]
+\usetypescript     [computer-modern-unicode]
+
+\def   \russian#1{\begingroup\language[ru]\setupbodyfont[computer-modern-unicode]#1\endgroup}
+\def\oldrussian#1{\begingroup\language[ru]\setupbodyfont[vintagecyrillic]#1\endgroup}
+\def     \greek#1{\begingroup\language[agr]\setupbodyfont[computer-modern-unicode]#1\endgroup}
+
+\usetypescript [modern]
+\starttypescript [mymodern]
+  \definetypeface [mymodern] [rm] [serif] [modern]                  [default]
+  \definetypeface [mymodern] [tt] [mono]  [computer-modern-unicode] [default]
+\stoptypescript %% this will do as lm and cmu are acceptably similar
+\usetypescript [mymodern]
+\setupbodyfont [mymodern]
+
+\usetypescript [serif] [hz] [highquality]
+\setupalign    [hanging,hz]
+
+\setupbodyfontenvironment [default] [em=italic]
+
+\def\quote#1{\bgroup\italic#1\egroup}
+\def\uprightslash{\bgroup\tf/\egroup}
+\def\uprightomiss{\bgroup\tf[\dots]\egroup}
+
+%%% The Wiki is great. Long live the Gardener!
+\definetextbackground[verbatim] [
+  background=color,
+  backgroundcolor=gray92,
+  backgroundoffset=0cm,
+  frame=off,
+  location=paragraph,
+  offset=0.5cm,
+]
+
+\setuptyping[
+  after={\stoptextbackground\blank[line]},
+  before={\blank[line]\noindentation\starttextbackground[verbatim]},
+  bodyfont=9pt,
+  margin=1em,
+  % style=\tfx\sans,
+]
+
+%%% TODO: find out if this is documented already
+%%% http://archive.contextgarden.net/message/20060523.151528.b6da35e1.en.html
+%%% http://archive.contextgarden.net/message/20111221.083957.5c85d357.en.html
+\setconstant\kindofpagetextareas\plusone
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Presenting the Interface                                      %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\usemodule  [int-load]
+\loadsetups [t-cyrillicnumbers.xml]
+\setupcolor [x11]
+
+\define\beautifyshowsetups{%
+  \unexpanded\def\setupnumfont  {\rm}%
+  \unexpanded\def\setuptxtfont  {\rm}%
+  \unexpanded\def\setupintfont  {\rm\sc\Word}%
+  \unexpanded\def\setupvarfont  {\rm\it}%
+  \unexpanded\def\setupoptfont  {\rm\it}%
+  \unexpanded\def\setupalwcolor {primarycolor}%
+  \unexpanded\def\setupoptcolor {primarycolor}%
+  \defineframedtext [setuptext] [
+    frame=off,
+    background=color,
+    backgroundcolor=gray92,
+    width=\hsize,
+    height=fit,
+    align=right,
+    offset=0.75em,
+  ]%
+}
+
+\let\Oldshowsetup\showsetup
+
+\define[1]\showsetup{% hurray for diversity
+  \bgroup\beautifyshowsetups%
+    \Oldshowsetup{#1}%
+  \egroup%
+}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Paper                                                         %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\definepapersize[LHS][
+  width=160mm,
+  height=239mm,
+]
+
+\setuppapersize[LHS][LHS]
+
+% \showframe
+\setuplayout [
+    width=122mm,
+    %textheight=199mm, % ca. 47 rows * 12pt
+    height=224mm, % text height should end up at ca. 47 rows * 12pt
+    %height=fit,
+    %
+    topspace=14mm,
+    header=12pt,
+    headerdistance=4mm,
+    top=00mm,
+    %
+    bottomspace=0mm,
+    footer=23mm,
+    bottom=0mm,
+    footerdistance=0mm,
+    %
+    backspace=16mm,
+    leftedge=0mm,
+    leftedgedistance=0mm,
+    leftmargin=16mm,
+    leftmargindistance=1em,
+    %
+    rightmargin=15mm,
+    rightmargindistance=5mm,
+    rightedge=0mm,
+    rightedgedistance=0mm,
+]
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Interaction                                                   %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\setupinteraction[%
+  state=start,
+  color=primarycolor,
+  contrastcolor=primarycolor,
+  %color=,
+  %contrastcolor=,
+  style=,
+  focus=standard,
+  title={Cyrillic Numbers Module},
+  subtitle={Yet Another Number Converter},
+  author={Philipp Gesang},
+  keyword={ConTeXt, LuaTeX, cyrillic numerals},
+]
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Headings                                                      %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\defineletterspace [LSchapter]
+\defineletterspace [LSsection]
+\defineletterspace [LSsubsection]
+\setupletterspace  [LSchapter]    [factor=.1,  spaceskip=.33em,suppresskern=yes]
+\setupletterspace  [LSsection]    [factor=.15, spaceskip=.40em,suppresskern=yes]
+\setupletterspace  [LSsubsection] [factor=.125,spaceskip=.33em]
+
+\def   \fontchapter#1{\setupbodyfont[10pt]\bold\WORD\LSchapter{#1}}
+\def   \fontsection#1{\setupbodyfont[10pt]\word\sc\LSsection{#1}}
+\def\fontsubsection#1{\setupbodyfont[10pt]\LSsubsection{#1}}
+
+\def   \Chapterheadfontcmd{\fontchapter}
+\def   \Sectionheadfontcmd{\fontsection}
+\def\Subsectionheadfontcmd{\fontsubsection}
+
+\def\empholdrussian#1{\russian{\italic#1}}
+
+\definecyrnum[cyrnumone][
+  command=\oldrussian,
+  titlo=mp,
+  titlomode=2,
+  dots=no,
+]
+
+\definecyrnum[cyrnumtwo][
+  command=\empholdrussian,
+  titlo=mp,
+  titlomode=7,
+  dots=no,
+]
+
+\defineconversion[cyrnumone][\cyrnumone]
+\defineconversion[cyrnumtwo][\cyrnumtwo]
+
+\definestructureconversionset[regularstructure] [numbers,cyrnumone,cyrnumtwo] [cyrnumone]
+\definestructureconversionset[regularstructure] [numbers,cyrnumone,cyrnumtwo] [cyrnumone]
+
+\setuphead [chapter] [
+  align=middle,
+  footer=text,
+  grid=yes,
+  header=empty,
+  number=yes,
+  sectionconversionset=regularstructure,
+  % numberconversion=cyrnumone,
+  page=yes,
+  style=,
+  textcommand=\Chapterheadfontcmd,
+  before={\startlinecorrection\blank[3*line,force]},
+  after={\stoplinecorrection\blank[line,force]},
+]
+
+\definetext [text] [footer] [pagenumber]
+
+\setuphead [section] [
+  align=middle,
+  number=yes,
+  page=no,
+  style=,
+  sectionconversionset=regularstructure,
+  textcommand=\Sectionheadfontcmd,
+  before={\blank[line]},
+  after={\blank[line]},
+]
+
+% \setuphead [subsection] [
+%   align=middle,
+%   number=no,
+%   page=no,
+%   style=,
+%   textcommand=\Subsectionheadfontcmd,
+%   before={\blank[line]},
+%   after={\blank[line]},
+% ]
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Header and Footers                                            %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\setupfooter[text][% handy for occasional pagenumbers in footnotes at chapters
+  style=\tfx,
+]
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Margins                                                       %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%%% loosely based on: http://archive.contextgarden.net/message/20110804.141422.6e52d0bc.en.html
+\define[1]\marginhintbox{%
+  \toplinebox{\rotate{#1}}%
+  % \toplinebox{\rotate{\framed{#1}}}%
+}
+
+\definemargindata[marginhint][%
+  style={\tfx\tt},
+  location=outer,
+  align=outer,
+  margin=margin,
+  command=\marginhintbox,
+  stack=yes,
+]
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% ToC                                                           %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\def   \tocfontchapter#1{\tfx\WORD\LSchapter{#1}}
+%\def   \tocfontsection#1{\word\sc\LSsection{#1}}
+\def   \tocfontsection#1{\tfx\slightly{#1}}
+\def\tocfontsubsection#1{\LSsubsection{#1}}
+
+\setuplist [chapter] [
+  alternative=c,
+  interaction=text,
+  textcommand=\tocfontchapter,
+]
+
+\setuplist [section] [
+  before={\blank[halfline]},
+  alternative=b,
+  interaction=text,
+  margin=2em,
+  numberstyle=,
+  textcommand=\tocfontsection,
+  textstyle=,
+  numberstyle=\tfx,
+]
+
+% \setuplist [subsection] [
+%   %after=2.5em,    % from the hack
+%   alternative=d,
+%   interaction=text,
+%   margin=3em,     % hanging
+%   textcommand=\tocfontsubsection,
+% ]
+
+\setuplistalternative[c] [
+  %distance=0em,
+  %width=0pt,
+  stretch=.5em,
+  command=\hskip.5em\phglistdots\hskip.5em\relax,
+]
+
+\def\phglistdots{\gleaders\hbox to 1em{\hss.\hss}\hfill}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Captions                                                      %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+\setupcaptions[
+  location=bottom,
+  headstyle=\tfx\italic,
+  way=bytext,
+  prefixsegments=none,
+  style={\setupinterlinespace[9pt]\tfx},
+]
+
+\setupcaption [figure] [way=bytext]
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Bibliography                                                  %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Bib: Setups                                                   %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\setuppublications [
+  alternative=ssa,
+  refcommand=authoryear,
+  %sorttype=bbl,
+  sort=author,
+  numbering=yes,
+  autohang=yes,
+]
+
+\setuppublicationlist [
+  artauthor=\invertedauthor,
+]
+
+\setupcite [authoryear] [compress=no]
+
+%%% Used in bibliography formatting.
+\definestartstop [bibindent] [
+  before={\startnarrower[left]%
+          \setupindenting[-\leftskip,yes,first]%
+          \clubpenalty-9000%
+          \widowpenalty-9000},
+  after=\stopnarrower,
+]
+
+\def\ctay#1{\cite[authoryear][#1]}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Bib: Entries                                                  %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\startpublication [
+  k=fonts,
+  t=book, % bibtex go to hell
+  a={Hagen/Hoekwater},
+  y=2011,
+  n=1,
+  s={Fonts},
+]
+  \author[]{Hans}[]{}{Hagen}
+  \author[]{Taco}[]{}{Hoekwater}
+  \pubyear{2011}
+  \title{Fonts in \CONTEXT}
+  \city{Hasselt}
+\stoppublication
+
+\startpublication [
+  k=trunte,
+  t=inproceedings, % bibtex go to hell
+  a={Trunte},
+  y=2005,
+  n=2,
+  s={Altkirchenslavisch},
+]
+  \author[]{Nikolaos H.}[]{}{Trunte}
+  \pubyear{2005}
+  \arttitle{Altkirchenslavisch}
+  \title{\oldrussian{Словѣньскъи ѩꙁъікъ}.  Ein praktisches Lehrbuch des
+         Kirchenslavischen in 30 Lektionen. Zugleich eine
+         Einführung in die slavische Philologie}
+  \edition{3}
+  \city{München}
+\stoppublication
+
+\startpublication [
+  k=zolobov,
+  t=inproceedings,
+  a={Žolobov},
+  y=2006,
+  n=3,
+  s={Čislitelʹnye},
+]
+  \author[]{O. F.}[]{}{Žolobov}
+  \pubyear{2006}
+  \arttitle{Čislitelʹnye}
+  \title{Istoričeskaâ grammatika drevnerusskogo âzyka}
+  \pages{58--63}
+  \editor[]{S.I.}[]{}{Iordanidi}
+  \editor[]{V.B.}[]{}{Krysʹko}
+\stoppublication
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Misc                                                          %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\clubpenalty  -7000
+\widowpenalty -7000
+
+\def\etc{{\italic\letterampersand}c}
+
+\setupindenting [yes,next,medium]
+
+% \sethyphenatedurlnormal{:=?&}
+\sethyphenatedurlbefore{?&abcdefghijklmnopqrstuvwxyz}
+% \sethyphenatedurlafter {:=}
+
+\startasciimode
+\useURL [petr]         [http://www.paratype.ru/e-zine/issue04/peter1/peter1a.htm]
+        []             [\hyphenatedurl{http://www.paratype.ru/e-zine/issue04/peter1/peter1a.htm}]
+
+\useURL [reform1917]   [http://ru.wikipedia.org/wiki/Реформа_русской_орфографии_1918_года]
+        []             [\hyphenatedurl{http://ru.wikipedia.org/wiki/Реформа_русской_орфографии_1918_года}]
+
+\useURL [wp_titlo]     [http://commons.wikimedia.org/wiki/Category:Titlo?uselang=uk]
+        []             [\hyphenatedurl{http://commons.wikimedia.org/wiki/Category:Titlo?uselang=uk}]
+\useURL [rubl’]        [http://ru.wikipedia.org/wiki/Рубль#.D0.92_.D0.98.D0.BC.D0.BF.D0.B5.D1.80.D0.B0.D1.82.D0.BE.D1.80.D1.81.D0.BA.D0.BE.D0.B9_.D0.A0.D0.BE.D1.81.D1.81.D0.B8.D0.B8]
+        []             [\hyphenatedurl{http://ru.wikipedia.org/wiki/Рубль#.D0.92_.D0.98.D0.BC.D0.BF.D0.B5.D1.80.D0.B0.D1.82.D0.BE.D1.80.D1.81.D0.BA.D0.BE.D0.B9_.D0.A0.D0.BE.D1.81.D1.81.D0.B8.D0.B8}]
+\useURL [pttypescript] [http://archive.contextgarden.net/message/20110105.204326.d0228ca7.en.html]
+
+\useURL [phg-mail]     [mailto:megas.kapaneus@gmail.com] [] [\hyphenatedurl{megas.kapaneus@gmail.com}]
+\useURL [phg-bibu]     [https://bitbucket.org/phg/]    [] []
+
+\useURL [cmu-home]     [http://cm-unicode.sourceforge.net/]             [] [\hyphenatedurl{http://cm-unicode.sourceforge.net/}]
+\useURL [cmu-debian]   [http://packages.debian.org/wheezy/fonts-cmu]    [] [\hyphenatedurl{http://packages.debian.org/wheezy/fonts-cmu}]
+\useURL [cmu-arch]     [http://aur.archlinux.org/packages.php?ID=44029] [] [\hyphenatedurl{http://aur.archlinux.org/packages.php?ID=44029}]
+\useURL [cmu-tl]       [http://tug.org/svn/texlive/trunk/Master/texmf-dist/fonts/opentype/public/cm-unicode/]
+        []             [\hyphenatedurl{http://tug.org/svn/texlive/trunk/Master/texmf-dist/fonts/opentype/public/cm-unicode/}]
+\useURL [bukyvede]     [http://kodeks.uni-bamberg.de/aksl/Schrift/BukyVede.htm]
+        []             [\hyphenatedurl{http://kodeks.uni-bamberg.de/aksl/Schrift/BukyVede.htm}]
+\useURL [romancyr]     [http://kodeks.uni-bamberg.de/aksl/Schrift/RomanCyrillicStd.htm]
+        []             [\hyphenatedurl{http://kodeks.uni-bamberg.de/aksl/Schrift/RomanCyrillicStd.htm}]
+\stopasciimode
+
+\pdfcompresslevel9
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Makeup for Front Matter                                       %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\definemakeup [FM] [standard]
+\setupmakeup [FM] [
+  width=125mm,
+  height=172.506mm,
+  location=middle,
+]
+
+\setupheadertexts [] [] [] []
+\setuppagenumbering [state=stop,location=]
+
+\startbuffer[showcase1]
+  local tab = { }
+  tab[#tab+1] = [[\placetable[right,3*hang][numval]{Number values of the Cyrillic alphabet.}{\starttabulate[|r|]]..string.rep("l|", 9).."]"
+  tab[#tab+1] = [[\NR\NC $n$]]
+  for i=1, 9 do tab[#tab+1] = [[\NC $]]..i.."$" end
+  tab[#tab+1] = [[\NC\NR\HL\NC $n · 10^0$]]
+  for i=1, 9 do tab[#tab+1] = [[\NC\normaltextcyrnum{]]..i.."}" end
+  tab[#tab+1] = [[\NC\NR\NC $n · 10^1$]]
+  for i=10, 90, 10 do  tab[#tab+1] = [[\NC\normaltextcyrnum{]]..i.."}" end
+  tab[#tab+1] = [[\NC\NR\NC $n · 10^2$]]
+  for i=100, 900, 100 do  tab[#tab+1] = [[\NC\normaltextcyrnum{]]..i.."}" end
+  tab[#tab+1] = [[\stoptabulate\blank[force,2*big]}]]
+  context(table.concat(tab))
+\stopbuffer
+
+\defineframed[showcaseframed][
+  frame=off,
+  loffset=3pt,
+  roffset=\framedparameter{loffset},
+  toffset=\framedparameter{loffset},
+  boffset=\framedparameter{loffset},
+  background=color,
+  backgroundcolor=gray92,
+]
+\startbuffer[titloshowcase]%
+% \placefigure[right,2*hang][mptitlodemo]{Titlo as a matter of taste.}{%
+% \placefigure[][mptitlodemo]{Titlo as a matter of taste.}{%
+\placefigure[top][mptitlodemo]{Titlo as a matter of taste.}{%
+  \showcaseframed[
+    width=\hsize,
+    roffset=\framedparameter{loffset},
+    toffset=6pt,
+  ]{%
+    \tfc%
+    \dorecurse{9}{\normaltextcyrnum[titlo=mp,titlocolor=primarycolor,titlomode=\recurselevel]{42}%
+                  \ifnum\recurselevel=9\else\hfill\fi}%
+  }%
+}%
+\stopbuffer
+
+\startbuffer[titlospanshowcase]%
+\placefigure[left][titlospandemo]{Different titlo spans.}{%
+  \showcaseframed[width=.333\hsize,align=left]{%
+    \type{titlospan}\hfill result\par
+    \dorecurse{6}{%
+      \recurselevel
+      \hfill
+      \normaltextcyrnum[titlo=mp,titlomode=1,titlocolor=primarycolor,titlospan=\recurselevel]{424242}%
+      \ifnum\recurselevel<6\par\fi%
+    }
+  }%
+}%
+\stopbuffer
+
+\startbuffer[penwidthshowcase]%
+\start\setuptolerance[horizontal,tolerant,stretch]%
+% \placetable[left][penwidthdemo]{Comparison of different values for the parameter \type{penwidth}.}{%
+\placetable[middle][penwidthdemo]{Comparison of different values for the parameter \type{penwidth}.}{%
+  \starttabulate[|r|r|l|r|r|l|]%% tabulate sucks hard, just try to use it with a macro that contains a numberconversion and you’ll know why
+    \let\lp\letterpercent
+    \startluacode
+      local max      = 10
+      local step     = .2
+      local dimleft  = .4
+      local f_row = [[\NC \lp d \NC \lp .3fpt \NC \cyrnum[penwidth=\lp dpt]{\lp d} \NC \lp d \NC \lp .3fpt \NC \cyrnum[penwidth=\lp dpt]{\lp d} \AR]]
+      for i=1, max do
+        dimleft = dimleft + step
+        local dimright = dimleft + max * step
+        context(string.format(f_row, i, dimleft, dimleft, i, i+4200, dimright, dimright, i+4200))
+      end
+    \stopluacode
+  \stoptabulate%
+}%
+\stop
+\stopbuffer
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\starttext                                                      %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\startfrontmatter
+\setuplayout [width=middle]
+\startFMmakeup
+  \raggedcenter
+  \vfill
+  {\tfc\italic Typesetting}\par
+  \vfill
+  % {\tfd\WORD\largecaps{Cyrillic Numerals}}\par
+  \pompoustitle{Cyrillic Numerals}\par
+  \vfill
+  {\tfc\italic with {\CONTEXT} MkIV}\par
+  \vfill
+  % {\tfa\sc \mediumcaps{A Module}}\par
+  \mediumtitle{A Module}\par
+  \vfill
+\stopFMmakeup
+
+\page
+
+% \def\cyrillicalphabet{%
+%   А,Б,В,Г,Д,Е,Ж,Ѕ,ʐ,И,І,К,Л,М,Н,О,П,Р,С,Т,ОУ,Ф,%
+%   Х,Ѡ,Ц,Ч,Ш,Щ,Ъ,Ы,Ь,Ѣ,Ю,Ι,Ѥ,Ѧ,Ѫ,Ѩ,Ѭ,Ѯ,Ѱ,Ѳ,Ѵ,%
+% }
+
+\def\showoldrussian#1{\begingroup\language[ru]\setupbodyfont[vintagecyrillic]\tfb#1\endgroup}
+\def\numbershowcase{%
+  \bgroup
+  \setupindenting[no]
+  \definecyrnum[showcasecyrnum][
+    dots=yes,
+    titlo=mp,
+    titlomode=\the\thistitlomode,
+    command=\showoldrussian,
+    titlocolor=secondarycolor,
+  ]
+  \newdimen\skipincrement \skipincrement=0.047619047619048\hsize
+  \newdimen\showskip      \showskip=\zeropoint
+  \newconditional\checker \setfalse\checker
+  \newcount\thistitlomode \thistitlomode=1
+  \startlines
+    \dorecurse{20}{%
+      \getrandomcount\thistitlomode{1}{9}%
+      \dontleavehmode\hbox to\showskip{}%
+      \ifconditional\checker
+        \setfalse\checker
+        \colored[primarycolor]{\showcasecyrnum{\recurselevel}}%
+      \else
+        \settrue\checker
+        \showcasecyrnum{\recurselevel}%
+      \fi%
+      \advance\showskip by \skipincrement
+      \crlf%
+    }
+  \stoplines
+  \egroup
+}
+
+\startstandardmakeup
+  \numbershowcase
+  \vfill\raggedright\tfx
+  © 2011--2013 {\italic Philipp Gesang}, Radebeul\par
+  The latest Version can be found at \from [phg-bibu].\par
+  Mail bugs and fixes or complaints and suggestions to \from
+  [phg-mail].\par
+\stopstandardmakeup
+\stopfrontmatter
+
+\startbodymatter
+\page [odd]
+
+\setuppagenumber [number=1]
+\setuppagenumbering [
+  state=start,
+  alternative=doublesided,
+  location={right,header},
+]
+
+\title{Content}
+
+\placelist[chapter,section][criterium=all]
+
+\def\headertextformat{\tfx\word\sc}
+
+\setupheadertexts
+  [{\headertextformat\getmarking[chapter]}] [{\headertextformat\pagenumber}]
+  [{\headertextformat\pagenumber}]          [{\headertextformat\getmarking[chapter]}]
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\startchapter[title=Introduction]
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+The \CONTEXT\ format comes with a collection of conversion
+routines for different number systems that are specified in the
+files \type{core-con.mkiv} and \type{core-con.lua}.
+\te{Cyrillic numerals}, however, are not part of this collection.
+The aim of the module at hand is to provide means of handling
+Cyrillic numbers and make them seamlessly integrate with the
+existing interface for number conversion.
+
+If you are familiar with Cyrillic numbers, you might choose to
+skip the rest of this section and instead continue in medias res
+with the description on the module’s usage in the section on
+\about[functionality].
+
+\ctxluabuffer[showcase1]
+\start\setuptolerance[horizontal,verytolerant]%% stupid float
+\indentation The Cyrillic numeral system, like the alphabet
+it is based on, originated from the Greek numerals and thus
+continues many features of the latter.\footnote{%
+  Thorough examinations of how Cyrillic numbers were used in
+  praxi are hard to find.
+  The best that the couple of bookshelfs dedicated to grammar in
+  a local department of Slavonic languages has to offer appears
+  to be \ctay{zolobov}.
+  Another work, \ctay{trunte}, although it follows a less
+  descriptive but rather instructional approach, deserves
+  mentioning as well.
+}
+As with the Roman number system, there are no dedicated glyphs
+reserved for numerals, instead numbers are represented by strings
+of letters from the ordinary alphabet, organized in a peculiar
+way.
+Both systems also have the base (10) in common.
+However, unlike the Roman system Cyrillic numbers are
+\te{positional}, meaning that the numerical value of a digit
+depends on its location relative to the other digits.
+The first nine digits, in ascending order, are:
+\dorecurse{9}{\ifnum\recurselevel=9 and \fi%
+              “\normaltextcyrnum{\recurselevel}”%
+              \ifnum\recurselevel<9, \fi}.
+As you might have noticed, this series does not correspond to the
+first nine glyphs of the Cyrillic alphabet
+(\oldrussian{а б в г д е ж ѕ з}), but rather to the order of the
+original Greek letters from which they were derived
+(\greek{α β γ δ ε ϛ ζ η θ}, with the character \greek{ϛ} at
+position №~6 representing “stigma”).
+The inherited order of numerical values was kept, essentially
+trading backward compatibility for simplicity.
+The two other sets of letters that represent multiples of ten and
+hundred are listed in \in{Table}[numval].
+The digits are written in descending order, beginning with the
+most significant one.
+The numbers from 11 to 19 follow a different rule for their order
+mimicks the spoken language, which means that the \te{less}
+significant digit \te{precedes} the more significant one
+(\dostepwiserecurse{11}{18}{1}{\normaltextcyrnum{\recurselevel}, }%
+\normaltextcyrnum{19}).
+There are no glyphs to represent zeros, so they are simply omitted.
+For example, in the Cyrillic system the number 42 is written as
+\normaltextcyrnum{42}; the lack of a distinct zero sign causes
+402 to have \te{two} digits as well, but the character
+representing the digit 4 is chosen from the hundreds set:
+\normaltextcyrnum{402}.\par
+\stop
+
+% above 10^3
+The rules so far do not allow for numbers above 999.
+To compensate for the lack of additional letters, greater numbers
+are represented by the same glyphs (their value being padded by
+1000).
+There are two ways to avoid confusion: Each digit may be prefixed
+with a special character, the thousands sign \oldrussian{҂}.
+That way, 42 is still written \normaltextcyrnum{42}, but 42~000
+becomes \normaltextcyrnum{42000}, and their sum
+\normaltextcyrnum{42042}.
+But if numbers become bigger, the high digits can take
+alternative ornate forms:
+\space\normaltextcyrnum[preferhundredk=yes]{100000} -- instead of
+\normaltextcyrnum{100000} -- for 100~000, and
+\space\normaltextcyrnum{1000000} for 1~000~000.
+
+% dots, titlo
+In an environment where punctuation was at best minimal and
+interword spacing a luxury, numbers of this kind tend to be
+confused with text.
+Therefore, a Cyrillic number can have additional markers.
+\te{Dots} are used as delimiters before and after a number:
+\normaltextcyrnum[dots=yes]{42}.
+Additionally, a number may be indicated by the \te{titlo}, which
+may span its whole length or just parts of it:
+\normaltextcyrnum[titlo=mp]{42}.
+
+The Cyrillic number module combines all the above mentioned
+aspects into one handy command generator, relying on Lua for the
+conversion routine and \METAPOST\ for the titlo placement.
+With all options in one place, it is trivial to create and
+maintain different conversion settings for different purposes.
+
+\stopchapter
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\startchapter[reference=functionality,title=Functionality]
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\startsection[title=Setup]
+
+The module is initialized as any other:
+
+\starttyping
+\usemodule[cyrillicnumbers]
+\stoptyping
+
+Once the module code is loaded, the \te{setup} command provides
+means to configure all the functionality it offers.
+
+\showsetup{setupcyrnum}
+
+Let’s walk through the options one by one.\marginhint{dots}
+As was hinted in the introduction a common practice is to delimit
+Cyrillic numbers with dots.
+Dot placement is enabled or disabled by setting the \type{dots}
+key to {\italic yes} or {\italic no} respectively.
+The \type{dotsymbol} key allows the user to supply a delimiter of Eir
+own choice; it defaults to the character “·” (unicode
+{\sc u+00b7}).\marginhint{dotsymbol}
+If a font doesn’t contain a glyph for this code point or for
+whatever reason another symbol is required, the solution will
+look like this: \type{\setupcyrnum[dots=yes,dotsymbol=\cdot]}.
+The result of this modification looks as follows:
+\normaltextcyrnum[dots=yes,dotsymbol=\cdot]{42}.
+As the dot can be an arbitrary symbol, it could be replaced by
+the asterisk: \normaltextcyrnum[dots=yes,dotsymbol=*]{42}, or --
+even weirder -- the hash character (“Gartenzaun”):
+\normaltextcyrnum[dots=yes,dotsymbol=\#]{42}.
+
+In order to notate the sixth decimal digit (for multiples of one
+hundred million) there are two mutually excluding
+options\marginhint{preferhundredk}: either the hundred thousands
+sign or the thousands prefix may be employed.
+Thus, the setup key \type{preferhundredk} determines which one
+will be chosen. If set to {\italic yes}, then it’s going to be
+the houndred thousands sign, else the regular thousands sign:
+\normaltextcyrnum[preferhundredk=yes]{900000} $=$
+\normaltextcyrnum[preferhundredk=no] {200000} $+$
+\normaltextcyrnum[preferhundredk=no] {700000}.
+(As is obvious from this example, the visual quality of the
+houndred thousands sign, which is a separate glyph, depends on
+the font used.)
+
+Not every font contains proper glyphs for the entire Cyrillic unicode
+range, in fact every dedicated font for a single Cyrillic alphabet --
+contemporary Russian, say -- might not contain all the characters needed
+to represent every Cyrillic numeral.\marginhint{command}
+This is the result of the historical development the respective
+scripts went through.
+This process usually lead to the elimination of several glyphs at
+different stages of the development.
+For example the Russian alphabet experienced one significant
+reduction of letters at the hand of emperor Peter~I\footnote{%
+  For an overview cf. \from[petr] or just google
+  \quotation{\russian{гражданский шрифт}}.
+}
+and another later in 1917 as a consequence of -- not only --
+the revolution.\footnote{%
+  Cf. \from[reform1917].
+}
+Thus, chances are that in order to represent Cyrillic numbers,
+which rely on a superset of the modern Russian alphabet, another
+font needs to be chosen.\footnote{%
+  Font fallbacks are another option if the substitutes match the
+  main font typographically; see \ctay{fonts}, pp. 97--99.
+}
+The Cyrillic Numbers module provides a hook for this kind of
+customization: you may define your own font switching macro and
+assign it to the \type{command} key of the setup.
+Suppose you decide to typeset your numbers using the Paratype
+Serif font.\footnote{%
+  A typescript can be found on the \CONTEXT\ mailing list:
+  \from[pttypescript]. Keep in mind that ParaType Serif itself is
+  not a particularly suitable number font as it does not contain
+  all required glyphs.
+}
+
+\starttyping
+
+%%% 1. Load the module and the font.
+\usemodule         [cyrillicnumbers]
+\usetypescriptfile [type-paratype.mkiv]
+
+%%% 2. Define the font and a command that switches to it.
+\definetypeface [numberfont] [rm]      [serif]
+                [paratype]   [default] []
+\unexpanded\define[1]\numbercommand{%
+  \begingroup
+    \language[ru]%
+    \setupbodyfont[numberfont]%
+    #1%
+  \endgroup%
+}
+
+%%% 3. Hook the command into our converter.
+\setupcyrnum [dots=yes,command=\numbercommand]
+
+%%% 4. Use as needed.
+\starttext
+Normal text \cyrnum{42} \dots
+\stoptext
+
+%%% 5. ????
+
+%%% 6. Profit!!!!!
+
+\stoptyping
+
+Naturally, the \type{command} may do anything that fits inside a
+one-argument macro, from coloring (\rednum[titlo=no]{42}) to case
+manipulation
+(\normaltextcyrnum[command=\WORD\oldrussian]{42}).
+
+The key \type{titlo} controls the placement and, if applicable,
+placement method of the
+\cyrnumdrawtitlo{\te{titlo}}.\marginhint{titlo}
+The two valid method identifiers are {\italic mp} and {\italic
+font}, everything else will be interpreted as {\italic no}, e.~g.
+the titlo will be omitted.
+The latter method, {\italic font}, takes the titlo glyph as
+supplied by the font file (code point U+483).
+The main drawback of this solution is that to my knowledge the
+font titla are designed to span a single character only.
+As the titlo belongs to the class of combining characters, in the
+stream of unicode glyphs it will be \te{appended} to the
+character above which it is placed.
+Thus, multi-digit Cyrillic numbers (i.~e. essentially any number
+with two or more non-zero digits) won’t be represented in an
+optimal way: \normaltextcyrnum[titlo=font]{42}.
+There is a further option, \type{titlolocation}, which controls
+the placement of a font specific titlo.\marginhint{titlolocation}
+The three possible values specify a position
+{\italic first}:  \normaltextcyrnum[titlo=font, titlolocation=first]{4242},
+{\italic middle}: \normaltextcyrnum[titlo=font,titlolocation=middle]{4242}, and
+{\italic final}:  \normaltextcyrnum[titlo=font, titlolocation=final]{4242}.
+(For even character counts, the {\italic middle} argument will
+pick one place to the right of the exact middle.)
+
+\getbuffer[titloshowcase]
+\getbuffer[titlospanshowcase]\indentation An alternative to the
+font titlo is provided by the {\italic mp} variant which uses
+\METAPOST\ to actually \te{draw} a titlo above the string of
+digits.
+Not only does this titlo cover the entire numeral, it also comes
+in a variety of drawing routines.
+At the moment there are nine more or less different titla you
+may choose from as demonstrated in \in{figure}[mptitlodemo].
+These can be enabled on via the \type{titlomode} key.
+(Observant users will have recognized mode 8 as the old Rubl’
+sign:
+\normaltextcyrnum[titlo=mp,titlomode=8,penwidth=.21]{42}.\footnote{%
+  Cf. \from[rubl’].
+})
+The range of digits to be covered by the titlo can be customized
+by passing the parameter \type{titlospan} an integer.
+The default value of 3 results in the titlo spanning at maximum the
+least significant three digits, because these will not be prefixed
+by a thousands sign.\marginhint{titlomode,titlospan}
+If the user wants the numeral to be covered as a whole, E can
+simply pass the value {\italic all}.
+Beware that the dimensions of the titlo are proportional to the
+width of the numeral.
+Therefore, sufficiently wide (in terms of non-zero digits)
+numbers will cause the titlo to shrink horizontally as seen in
+\in{figure}[titlospandemo].
+E.~g. for the single digit number
+\normaltextcyrnum[titlo=mp,titlomode=5]{1} the titlo even exceeds
+the character it sits on, while it does not entirely cover the
+five digits plus two thousand signs of
+\normaltextcyrnum[titlo=mp,titlospan=all,titlomode=5]{54321}.
+When using the {\italic mp} titlo the color of this element can
+be chosen separately by passing a valid color identifier to the
+\type{titlocolor} key.\marginhint{titlocolor}
+The following example code demonstrates the colorization and
+drawing facilities.
+
+\starttyping
+
+\usemodule [cyrillicnumbers]
+\setupbodyfont [computer-modern-unicode]
+\setupcyrnum [
+  titlo=mp,
+  titlocolor=blue,
+  titlospan=all,
+  titlomode=7,
+]
+
+\starttext
+\startlines
+\cyrnum                                    {42}
+\cyrnum   [titlocolor=red,titlomode=9] {141213}
+\cyrnum [titlocolor=green,titlomode=2] {271828}
+\cyrnum  [titlocolor=cyan,titlomode=4] {314159}
+\stoplines
+\stoptext
+
+\stoptyping
+
+\indentation The \METAPOST\ method also comes with a key
+\type{penwidth}\marginhint{penwidth}, which rather obviously determines
+the width of the pen that is used when drawing a titlo.
+Finding the optimal width can involve a lot of testing on the
+user’s side; as a rule, the greater the font size, the wider the
+pen should be.
+Refer to \in{table}[penwidthdemo] for a demonstration of
+different values for this parameter.
+\getbuffer[penwidthshowcase]
+
+\stopsection
+
+\startsection[title=Predefined Commands]
+
+Once the module is loaded, the commands \type{\cyrnum} and
+\type{\cyrnumdrawtitlo} will have been predefined.
+
+\showsetup{cyrnum}
+
+\type{\cyrnum} is the default Cyrillic number macro. It is
+fully functional, meaning that besides converting a nonnegative
+integer into a Cyrillic numeral, it takes a key-value set of
+options as an optional first argument.
+
+\starttyping
+\usemodule[cyrillicnumbers]
+\starttext
+
+\cyrnum{1}
+
+\cyrnum[titlo=mp,titlomode=4]{42}
+
+\cyrnum{15}
+
+\stoptext
+\stoptyping
+
+Any of the abovementioned settings can be specified in the first
+argument.
+As customary with \CONTEXT\ macros, these additional settings are
+local to one instance.
+Further calls to the macro won’t be affected, unless they are
+explicitly applied via \type{\setupcyrnum},
+
+The use of \te{titla} is not restricted to indicating numerals.
+In addition it is often employed as a kind of emphasis in
+handwritten text where it is not easy to achieve visual
+distinction by font switching.
+Also, the titlo serves as a default marker for abbreviations as
+in  \oldrussian{благодѣть} \rightarrow\space
+\oldrussian{\cyrnumdrawtitlo{блг}одѣть}.
+
+\showsetup{cyrnumdrawtitlo}
+
+This is where the macro \type{\cyrnumdrawtitlo} comes into play.
+For instance, designations of things considered “sacred” are
+highlighted by default in some texts.
+Because they appear very frequently, they were shortened as
+well, like \oldrussian{господь}
+\rightarrow\space\oldrussian{\cyrnumdrawtitlo{гь}}.\footnote{%
+  Examples taken from \from[wp_titlo].
+}
+
+\starttyping
+господь   ->\cyrnumdrawtitlo{гь}
+
+благодѣть -> \cyrnumdrawtitlo{блг}одѣть
+\stoptyping
+
+\stopsection
+
+\startsection[title=Command Derivation]
+
+There is no need to reconfigure the \type{\cyrnum} macro whenever
+you intend to deviate from the presets.
+Instead, special purpose commands can be defined via
+\type{\definecyrnum}.
+
+\showsetup{definecyrnum}
+
+All the options that can be passed to \type{\definecyrnum} are
+also valid for derived macros; they inherit the setups of
+the macros they are derived from.
+A full example to play with is given in below listing:
+
+\starttyping
+\usemodule[cyrillicnumbers]
+\setupbodyfont[computer-modern-unicode]
+
+\definecyrnum[mynumone][titlo=no,dots=no]
+
+\definecyrnum[mynumtwo][mynumone]
+\setupcyrnum [mynumtwo][titlo=mp,titlomode=2,titlocolor=red]
+
+\definecyrnum[mynumthree][mynumtwo]
+\setupcyrnum [mynumthree][titlomode=4,dots=yes]
+
+\starttext
+
+\mynumone{42}
+\mynumtwo{42}
+\mynumthree{42}
+
+\stoptext \endinput
+\stoptyping
+
+\start
+  \definecyrnum[mynumone][titlo=no,dots=no]
+
+  \definecyrnum[mynumtwo][mynumone]
+  \setupcyrnum [mynumtwo][titlo=mp,titlomode=2,titlocolor=red]
+
+  \definecyrnum[mynumthree][mynumtwo]
+  \setupcyrnum [mynumthree][titlomode=4,dots=yes]
+
+  \noindentation Which results in:
+  \mynumone{42}
+  \mynumtwo{42}
+  \mynumthree{42}.
+\stop
+
+\stopsection
+
+\stopchapter
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\startchapter[reference=usage,title=Usage and Precautions]
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\startsection[title=Counters]
+The macros created by \type{\definecyrnum} are generic conversion
+commands.
+As such, they can be hooked into any functionality that outputs
+integers of some sort: document structure elements, page numbers
+{\italic\letterampersand}c.
+In order to have \CONTEXT\ recognize your personal Cyrillic
+number macro as a converter you need the macro
+\type{\defineconversion}.
+
+\starttyping
+\usemodule [cyrillicnumbers]
+\setupbodyfont [computer-modern-unicode]
+
+%%% 1. Define a number converter.
+\definecyrnum [neatsections] [
+  dots=yes,
+  titlo=mp,
+  titlomode=7,
+]
+
+%%% 2. Register the converter.
+\defineconversion [my_section_conversion] [\neatsections]
+
+%%% 3. Insert it into a structure set.
+\definestructureconversionset [my_section_set]
+  [numbers,my_section_conversion] [my_section_conversion]
+
+%%% 4. Use the set in your chapter command.
+\definehead [mychapter] [chapter]
+\setuphead  [mychapter] [
+  sectionconversionset=my_section_set,
+  page=no,
+]
+
+\starttext
+
+\dorecurse{10}{%
+  \startmychapter[title=foo]
+    \input knuth
+  \stopmychapter
+}
+
+\stoptext \endinput
+\stoptyping
+
+\stopsection
+
+% \startsection[title=The Titlo]
+% \stopsection
+
+\startsection[title=Font Issues]
+
+Although not the entire Cyrillic alphabet is needed to represent
+the numerals, they involve certain characters which are uncommon
+in contemporary languages.
+Therefore they are usually omitted in Cyrillic fonts, which leads
+to the problem of finding an adequate font.
+A matching superset of Knuth’s typeface is {\italic Computer Modern
+Unicode} which is part of \TEX Live and packaged for many
+distributions.\footnote{%
+  Home:       \from[cmu-home];
+  \TEX Live:  \from[cmu-tl];
+  Arch:       \from[cmu-arch];
+  Debian:     \from[cmu-debian].
+}
+CMU is SIL-OpenFont licensed; it has been used in some of the
+above examples.
+
+There are alternatives offering glyph shapes that resemble the
+hand written script of Old Slavonic codices.
+One of them is the beautiful {\italic BukyVede} which has been
+used as the main Cyrillic font throughout the text.
+It was created by the Codex project of the Bamberg
+University\footnote{%
+  Home: \from[bukyvede].
+}
+but unfortunately the licensing terms are imprecise (non-free).
+Its authors offer another font matching the popular Times
+typeface under a yet more restrictive license.\footnote{%
+  Home: \from[romancyr].
+}
+
+\stopsection
+
+\stopchapter
+
+\stopbodymatter
+
+\startbackmatter
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\startchapter[title=License]
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+Copyright 2011--2013 \te{Philipp Gesang}. All rights reserved.
+
+Redistribution and use in source and binary forms, with or
+without modification, are permitted provided that the following
+conditions are met:
+
+\startitemize[n]
+  \item Redistributions of source code must retain the above
+    copyright notice, this list of conditions and the following
+    disclaimer.
+  \item Redistributions in binary form must reproduce the
+    above copyright notice, this list of conditions and the
+    following disclaimer in the documentation and/or other
+    materials provided with the distribution.
+\stopitemize
+
+\begingroup
+\setuptolerance [horizontal,strict]
+\startalignment [right,nothyphenated]
+\noindentation\sc\startsmallcaps
+  this software is provided by the copyright
+  holder “as is” and any express or implied warranties,
+  including, but not limited to, the implied warranties of
+  merchantability and fitness for a particular purpose are
+  disclaimed. in no event shall the copyright holder or
+  contributors be liable for any direct, indirect, incidental,
+  special, exemplary, or consequential damages (including, but
+  not limited to, procurement of substitute goods or services;
+  loss of use, data, or profits; or business interruption)
+  however caused and on any theory of liability, whether in
+  contract, strict liability, or tort (including negligence or
+  otherwise) arising in any way out of the use of this software,
+  even if advised of the possibility of such damage.
+\stopsmallcaps\endgraf
+\stopalignment
+\endgroup
+
+\stopchapter
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\startchapter[title=References]
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\startbibindent
+  \placepublications[criterium=all]
+\stopbibindent
+
+\stopchapter
+
+\stopbackmatter
+
+\stoptext
diff --git a/Master/texmf-dist/tex/context/interface/third/t-cyrillicnumbers.xml b/Master/texmf-dist/tex/context/interface/third/t-cyrillicnumbers.xml
new file mode 100644
index 00000000000..e3586b2d82d
--- /dev/null
+++ b/Master/texmf-dist/tex/context/interface/third/t-cyrillicnumbers.xml
@@ -0,0 +1,104 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+
+<!-- versions:
+
+     comment  : user interface definitions of the Cyrillic Numbers module
+
+     authors  : Philipp Gesang
+
+     versions : 2013-03-27 23:57:55+0100 (mercurial tip)
+
+-->
+
+<cd:interface xmlns:cd="http://www.pragma-ade.com/commands"
+              name="context"
+              language="en"
+              version="2013-03-27 23:57:58+0100">
+
+  <cd:command name="setupcyrnum" file="t-cyrillicnumbers.mkvi">
+    <cd:sequence>
+      <cd:string value="setupcyrnum"/>
+    </cd:sequence>
+    <cd:arguments>
+      <cd:keywords n="1" optional="yes">
+        <cd:constant type="cd:name"/>
+      </cd:keywords>
+      <cd:assignments n="2" list="yes" optional="no">
+        <cd:parameter name="command">
+          <cd:constant type="cd:oneargument"/>
+        </cd:parameter>
+        <cd:parameter name="dots">
+          <cd:constant type="no"/>
+          <cd:constant type="yes" default="yes"/>
+        </cd:parameter>
+        <cd:parameter name="dotsymbol">
+          <cd:constant type="cd:text" default="·"/>
+        </cd:parameter>
+        <cd:parameter name="penwidth">
+          <cd:constant type="cd:dimension" default=".66pt"/>
+        </cd:parameter>
+        <cd:parameter name="preferhundredk">
+          <cd:constant type="no" default="yes"/>
+          <cd:constant type="yes"/>
+        </cd:parameter>
+        <cd:parameter name="titlo">
+          <cd:constant type="mp"   default="yes"/>
+          <cd:constant type="font"/>
+        </cd:parameter>
+        <cd:parameter name="titlocolor">
+          <cd:constant type="cd:name" default="black"/>
+        </cd:parameter>
+        <cd:parameter name="titlolocation">
+          <cd:constant type="middle" default="yes"/>
+          <cd:constant type="final"/>
+          <cd:constant type="first"/>
+        </cd:parameter>
+        <cd:parameter name="titlomode">
+          <cd:constant type="cd:number" default="5"/>
+        </cd:parameter>
+        <cd:parameter name="titlospan">
+          <cd:constant type="cd:number" default="3"/>
+        </cd:parameter>
+      </cd:assignments>
+    </cd:arguments>
+  </cd:command>
+
+  <cd:command name="definecyrnum" file="t-cyrillicnumbers.mkvi">
+      <cd:sequence>
+          <cd:string value="definecyrnum"/>
+      </cd:sequence>
+      <cd:arguments>
+          <cd:keywords n="1" optional="no">
+              <cd:constant type="cd:name"/>
+          </cd:keywords>
+          <cd:assignments n="2" list="yes" optional="yes">
+              <cd:inherit name="setupcyrnum" n="2"/>
+          </cd:assignments>
+      </cd:arguments>
+  </cd:command>
+
+  <cd:command name="cyrnum" generated="yes" file="t-cyrillicnumbers.mkvi">
+    <cd:sequence>
+      <cd:variable value="cyrnum"/>
+    </cd:sequence>
+    <cd:arguments>
+      <cd:assignments n="1" list="yes" optional="yes">
+        <cd:inherit name="setupcyrnum"/>
+      </cd:assignments>
+      <cd:content n="2" optional="no"/>
+    </cd:arguments>
+  </cd:command>
+
+  <cd:command name="cyrnumdrawtitlo" generated="yes" file="t-cyrillicnumbers.mkvi">
+    <cd:sequence>
+      <cd:variable value="cyrnumdrawtitlo"/>
+    </cd:sequence>
+    <cd:arguments>
+      <cd:content n="1" optional="no"/>
+    </cd:arguments>
+  </cd:command>
+
+</cd:interface>
+
+<!-- vim:sw=2:ts=2
+-->
diff --git a/Master/texmf-dist/tex/context/third/cyrillicnumbers/cyrillicnumbers.lua b/Master/texmf-dist/tex/context/third/cyrillicnumbers/cyrillicnumbers.lua
new file mode 100644
index 00000000000..f33395c73d0
--- /dev/null
+++ b/Master/texmf-dist/tex/context/third/cyrillicnumbers/cyrillicnumbers.lua
@@ -0,0 +1,325 @@
+#!/usr/bin/env texlua
+--------------------------------------------------------------------------------
+--         FILE:  cyrillicnumbers.lua
+--        USAGE:  called by t-cyrillicnumbers.mkvi
+--  DESCRIPTION:  part of the Cyrillic Numbers module for ConTeXt
+-- REQUIREMENTS:  recent ConTeXt MkIV and LuaTeX
+--       AUTHOR:  Philipp Gesang (phg), <phg42 dot 2a at gmail dot com>
+--      VERSION:  hg tip
+--      CHANGED:  2013-03-28 00:10:47+0100
+--------------------------------------------------------------------------------
+--
+
+--[[ldx--
+<p>read this first:</p>
+
+<p>Жолобов, О. Ф.: <key>Числительные</key>. In: <key>Историческая
+                   грамматика древнерусского языка</key>, vol. 4, Moskva
+                   2006, pp. 58--63</p>
+
+<p>Trunte, Nikolaos H.: <key>Altkirchenslavisch</key>. In:
+                        <key>Словѣньскъи ѩꙁъікъ.  Ein praktisches Lehrbuch
+                        des Kirchenslavischen in 30 Lektionen. Zugleich eine
+                        Einführung in die slavische Philologie</key>, vol.
+                        1, München ⁵2005, pp. 161ff.</p>
+
+<p>or have a glance at these:</p>
+
+<typing>
+http://www.pravpiter.ru/zads/n018/ta013.htm
+http://www.uni-giessen.de/partosch/eurotex99/berdnikov2.pdf
+http://ru.wikipedia.org/wiki/Кириллическая_система_счисления
+</typing>
+--ldx]]--
+
+local iowrite      = io.write
+local mathceil     = math.ceil
+local mathfloor    = math.floor
+local stringformat = string.format
+local tableconcat  = table.concat
+local tableinsert  = table.insert
+local tostring     = tostring
+local type         = type
+local utf8char     = unicode.utf8.char
+local utf8len      = unicode.utf8.len
+
+
+local cyrnum     = {
+  placetitlo    = "font",
+  prefer100k    = false,
+  titlolocation = "final", -- above final digit
+  titlospan     = 3,       -- only with mp
+  drawdots      = true,
+  debug         = false,
+}
+
+thirddata        = thirddata or { }
+thirddata.cyrnum = cyrnum
+
+local dbgpfx = "[cyrnum]"
+local dbg = function (...)
+  if cyrnum.debug then
+    local args = {...}
+    if type(args[1]) == "table" then args = args[1] end
+    iowrite(dbgpfx)
+    for i=1, #args do
+      local this = args[i]
+      local tthis = type(this)
+      iowrite" "
+      if tthis == "number" or tthis == "string" then
+        iowrite(this)
+      else
+        iowrite(tostring(this))
+      end
+    end
+    iowrite"\n"
+  end
+end
+
+local cyrillic_numerals = {
+  { "а", "в", "г", "д", "е", "ѕ", "з", "и", "ѳ", },
+  { "і", "к", "л", "м", "н", "ѯ", "о", "п", "ч", },
+  { "р", "с", "т", "у", "ф", "х", "ѱ", "ѡ", "ц", },
+}
+local cyrillic_1k    = "҂"
+local cyrillic_100k  = utf8char(0x488) -- combining hundred thousands sign
+local cyrillic_1m    = utf8char(0x489) -- combining million sign
+local cyrillic_titlo = utf8char(0x483) -- combining titlo
+
+--[[ldx--
+<p>Some string synonyms for user convenience.</p>
+--ldx]]--
+cyrnum.yes_synonyms = {
+  yes      = true,
+  yeah     = true,
+  ["true"] = true,
+}
+
+cyrnum.no_synonyms = {
+  no        = true,
+  nope      = true,
+  ["false"] = true,
+}
+
+--[[ldx--
+<p><type>m</type> for rounded down middle position, <type>l</type> for final
+position. Will default to initial position otherwise.</p>
+--ldx]]--
+cyrnum.position_synonyms = {
+  final     = "l",
+  last      = "l",
+  right     = "l",
+  rightmost = "l",
+  ["false"] = "l",
+  middle    = "m",
+  center    = "m",
+  ["true"]  = "m",
+}
+
+--[[ldx--
+<p>Digits above the thirds require special markers, some of which need to be
+placed before, others after the determined character.</p>
+--ldx]]--
+local handle_plus1k = function (digit)
+  local before, after
+  if digit == 7 then
+    after = cyrillic_1m
+  elseif cyrnum.prefer100k and digit == 6 then
+    after = cyrillic_100k
+  elseif digit > 3 then -- insert thousand sign
+    before = cyrillic_1k
+  end
+  return before, after
+end
+
+-- digit list = {
+--  [1] = character to be printed
+--  [2] = real digit of character
+--  [3] = print this before character (e.g. thousand signs)
+--  [4] = print this after character  (e.g. million signs)
+-- }
+
+--[[ldx--
+<p>The base list of digits denotes empty (zero) digits with "false" values
+instead of characters. The function <type>digits_only</type> will extract only
+the nonempty digit values, returning a list.</p>
+--ldx]]--
+local digits_only = function (list)
+  local result = { }
+  for i=1, #list do
+    local elm = list[i]
+    if type(elm) == "string" then
+      local before, after
+      if i > 3 then
+        before, after = handle_plus1k(i)
+      end
+      result[#result+1] = { elm, i, before, after } -- i contains the real digit
+    end
+  end
+  return result
+end
+
+--[[ldx--
+<p>The different ways for drawing the <italic>titlo</italic> are stored inside
+a table. Basically, the options are to use the titlos symbol that is provided
+by the font or to draw the titlo in <l n="metapost"/>.</p>
+--ldx]]--
+local lreverse = function(list)local r={}for i=#list,1,-1 do r[#r+1]=list[i]end return r end
+
+local start_titlo, stop_titlo = [[\cyrnumdrawtitlo{]], "}"
+
+local titlofuncs = {
+  font = function (list)
+    local result, titlopos = { }, #list
+    if cyrnum.titlolocation == "l" then
+      titlopos = 1
+    elseif cyrnum.titlolocation == "m" then
+      titlopos = mathceil(#list/2)
+    end
+    for i=#list, 1, -1 do
+      local char, digit, before, after = list[i][1], list[i][2], list[i][3], list[i][4]
+      if before then
+        result[#result+1] = before
+      end
+      result[#result+1] = char
+      if after then
+        result[#result+1] = after
+      end
+      if i == titlopos then
+        result[#result+1] = cyrillic_titlo
+      end
+    end
+    return result
+  end,
+  mp = function (list)
+    local result     = { }
+    local titlospan  = cyrnum.titlospan
+    local titlotype  = cyrnum.titlotype
+    local titlostart = #list -- default to “all”
+    if titlotype == true then -- number
+      titlostart = (#list >= titlospan) and titlospan or #list
+    end
+    for i=#list, 1, -1 do
+      local char, digit, before, after = list[i][1], list[i][2], list[i][3], list[i][4]
+      --local char, digit, before, after = unpack(list[i])
+      if i == titlostart then
+        result[#result+1] = start_titlo
+      end
+      if before then
+        result[#result+1] = before
+      end
+      result[#result+1] = char
+      if after then
+        result[#result+1] = after
+      end
+    end
+    result[#result+1] = stop_titlo
+    return result
+  end,
+  no = function (list)
+    local result = { }
+    for i=#list, 1, -1 do
+      local char, digit, before, after = list[i][1], list[i][2], list[i][3], list[i][4]
+      if before then
+        result[#result+1] = before
+      end
+      result[#result+1] = char
+      if after then
+        result[#result+1] = after
+      end
+    end
+    return result
+  end,
+}
+
+--[[ldx--
+<p>Concatenation of the digit list has to take into account different conditions: whether the user requests the dot markers to be added, whether a titlo is requested etc.</p>
+--ldx]]--
+local concat_cyrillic_nums = function (list)
+  local result         = ""
+  local digits         = digits_only(list) -- strip placeholders
+  local nlist, ndigits = #list, #digits
+  dbg(list)
+  --dbg(digits)
+  local titlo = titlofuncs[cyrnum.placetitlo]
+  if titlo then
+    result = tableconcat(titlo(digits))
+    if cyrnum.drawdots then
+      local sym = cyrnum.dotsymbol
+      result = sym .. result .. sym
+    end
+  end
+  dbg(result)
+  return result
+end
+
+local do_tocyrillic do_tocyrillic = function (n, result)
+  if n < 1000 then
+    local mod100 = n % 100
+    if #result == 0 and  mod100 > 10 and mod100 < 20 then
+      result[#result+1] = "і"
+      result[#result+1] = cyrillic_numerals[1][mod100%10]             or false
+    else
+      result[#result+1] = cyrillic_numerals[1][mathfloor(n%10)]       or false
+      result[#result+1] = cyrillic_numerals[2][mathfloor((n%100)/10)] or false
+    end
+    result[#result+1] = cyrillic_numerals[3][mathfloor((n%1000)/100)] or false
+  else
+    result = do_tocyrillic(n%1000, result)
+    result = do_tocyrillic(mathfloor(n/1000), result)
+  end
+  return result
+end
+
+local tocyrillic = function (n)
+  local chars = do_tocyrillic(n, { })
+  return concat_cyrillic_nums(chars)
+end
+
+local Tocyrillic = function (n)
+  local chars = do_tocyrillic(n, { })
+  return concat_cyrillic_nums(chars, true)
+end
+
+converters.tocyrillic       = tocyrillic
+converters.cyrillicnumerals = tocyrillic
+converters.Cyrillicnumerals = Tocyrillic
+
+function commands.cyrillicnumerals (n) context(tocyrillic(n)) end
+function commands.Cyrillicnumerals (n) context(Tocyrillic(n)) end
+
+--- Fun ---------------------------------------------------------
+
+local f_peano = [[suc(%s)]]
+local do_topeano = function (n)
+  n = tonumber(n) or 0
+  if n == 0 then return "0" end
+  local result = stringformat(f_peano, 0)
+  if n == 1 then return result end
+  for i=2, n do
+    result = stringformat(f_peano, result)
+  end
+  return result
+end
+
+local s_churchp = [[λf.λx.\;]]
+local s_church0 = [[x]]
+local s_church1 = [[f\,x]]
+local f_church  = [[f(%s)]]
+local do_tochurch = function (n)
+  if     n == 0 then return s_churchp .. s_church0
+  elseif n == 1 then return s_churchp .. s_church1 end
+  local result = stringformat(f_church, s_church1)
+  for i=2, n do
+    result = stringformat(f_church, result)
+  end
+  return s_churchp .. result
+end
+
+converters.topeano  = do_topeano
+converters.tochurch = do_tochurch
+
+commands.peanonumerals  = function (n) context(do_topeano(n))              end
+commands.churchnumerals = function (n) context.mathematics(do_tochurch(n)) end
+
+-- vim:ft=lua:ts=2:sw=2:expandtab:fo=croql
diff --git a/Master/texmf-dist/tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkii b/Master/texmf-dist/tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkii
new file mode 100644
index 00000000000..c3b955bc91d
--- /dev/null
+++ b/Master/texmf-dist/tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkii
@@ -0,0 +1,3 @@
+\writestatus{loading}{Cyrillic Number Support for ConTeXt}
+\writestatus{ERROR}  {The module “Cyrillic Numbers” does not support ConTeXt MkII.}
+\bye \endinput
diff --git a/Master/texmf-dist/tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkvi b/Master/texmf-dist/tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkvi
new file mode 100644
index 00000000000..c86934cce40
--- /dev/null
+++ b/Master/texmf-dist/tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkvi
@@ -0,0 +1,471 @@
+%D \module
+%D   [     file=t-cyrillicnumbers.mkvi,
+%D      version=2013-03-28 00:11:33+0100,
+%D        title=\CONTEXT\ User Module,
+%D     subtitle=Cyrillic Numbers,
+%D       author=Philipp Gesang,
+%D         date=\currentdate,
+%D    copyright=Philipp Gesang,
+%D      license=2-clause BSD,
+%D        email={phg42 dot 2a at gmail dot com}]
+%D This module is licensed under the conditions of the BSD license with
+%D two clauses. There is a copy in a file named "COPYING" in the
+%D t-cyrillicnumbers source tree.
+
+%M \definehead[docsection] [chapter]
+%M \setuphead [docsection] [page=no,style=\tf\bold\WORD,color=darkmagenta,alternative=inmargin,before={\blank[3*line]}]
+%M \definehead[doctitle]   [coupling=docsection,default=docsection,incrementnumber=no,page=no]
+%M \setuplist [docsection] [alternative=b,textstyle=\tf]
+%M \setupinteraction[focus=standard,color=darkmagenta]
+
+%D \doctitle{Overview}\placelist[docsection][criterium=all]\page[yes]
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%D \docsection{Global strings and namespace initialization}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\writestatus{loading}{Cyrillic Number Support for ConTeXt}
+
+\unprotect
+
+\startinterface all
+  \setinterfacevariable {cyrillicnumerals} {cyrillicnumerals}
+  \setinterfacevariable {Cyrillicnumerals} {Cyrillicnumerals}
+  \setinterfacevariable           {cyrnum} {cyrnum}
+  \setinterfacevariable             {dots} {dots}
+  \setinterfacevariable        {dotsymbol} {dotsymbol}
+  \setinterfacevariable         {penwidth} {penwidth}
+  \setinterfacevariable   {preferhundredk} {preferhundredk}
+  \setinterfacevariable    {titlolocation} {titlolocation}
+  \setinterfacevariable       {titlocolor} {titlocolor}
+  \setinterfacevariable        {titlomode} {titlomode}
+  \setinterfacevariable        {titlospan} {titlospan}
+  \setinterfacevariable            {titlo} {titlo}
+\stopinterface
+
+\definenamespace [cyrnum] [
+ \v!command=\v!yes,
+    comment=cyrillic numbers,
+    \s!name=\v!cyrnum,
+  \s!parent=\v!cyrnum,
+      setup=\v!list,
+      style=\v!no,
+       type=module,
+    version=hg-tip,
+]
+
+%D Loading the \LUA\ conversion routines.
+
+\registerctxluafile{cyrillicnumbers}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%D \docsection{Setup command}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%D The\reference[setupdef]{} autogenerated setup command needs to
+%D be extended to pass values on to the \LUA\ end.
+
+\def\cyrnumsetvariables{%
+  \startluacode
+    local tc = thirddata.cyrnum
+    tc.placetitlo    = "\cyrnumparameter{\v!titlo}"
+    tc.titlolocation = tc.position_synonyms["\cyrnumparameter{\v!titlolocation}"]   or "f"
+    tc.prefer100k    = tc.     yes_synonyms["\cyrnumparameter{\v!preferhundredk}"]  or false
+    tc.drawdots      = tc.     yes_synonyms["\cyrnumparameter{\v!dots}"]            or false
+    tc.dotsymbol     = "\luaescapestring{\cyrnumparameter{\v!dotsymbol}}"
+
+    local span   = "\cyrnumparameter{\v!titlospan}"
+    local num = tonumber(span)
+    if num then
+      tc.titlotype = true
+      tc.titlospan = num
+    elseif span == "all" then
+      tc.titlotype = false
+    end
+  \stopluacode%
+}
+
+\appendtoks \setuevalue{\currentcyrnum}{\cyrnum_cmd[\currentcyrnum]} \to \everydefinecyrnum
+\appendtoks \cyrnumsetvariables                                      \to \everysetupcyrnum
+
+%D This allows the module to be loaded with a second set of
+%D key-value arguments. If initialized as follows, additional debug
+%D information will be output on the terminal.
+%D
+%D \starttyping
+%D \usemodule[cyrillicnumbers][test=yes]
+%D \stoptyping
+
+\startmoduletestsection
+  \ctxlua{thirddata.cyrnum.debug = true}
+\stopmoduletestsection
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%D \docsection{Titlo variants}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%D The {\em Cyrillic Numbers} module allows the titlo, if requested,
+%D to be drawn in two different ways. If the setup parameter
+%D \type{titlo} has the value {\em mp}, then the variant employing
+%D \METAPOST\ is selected. As there are a couple of different
+%D styles, it will be necessary that the user determine one by
+%D setting the parameter \type{titlomode} to an integer.
+%D Additionally it is possible to manipulate the pen width that
+%D \METAPOST\ uses when executing the titlo code. {\em NB} as the
+%D drawing routines differ, the \type{penwidth} parameter lead to
+%D different results with different modes as well, ymmv.
+%D
+%D \starttyping
+%D \setupcyrnum[
+%D   titlo=mp,
+%D   titlomode=4,
+%D   penwidth=4,
+%D ]
+%D \stoptyping
+
+\startuniqueMPgraphic{cyrnum-titlo1}
+  path titlo ;
+  save High, Low ;
+  save Vfactor ; Vfactor = .15 ;
+  save Hfactor ; Hfactor = .90 ;
+  titlo := ( 0.00,    -Vfactor) ..
+           ( 0.05,  .4*Vfactor) ..
+           ( 0.95, -.4*Vfactor) ..
+           ( 1.00,     Vfactor) ;
+  pickup pensquare yscaled \cyrnumparameter{penwidth} xscaled 1 rotated -30 ;
+  draw titlo
+       xysized (Hfactor*OverlayWidth,Vfactor*OverlayHeight)
+       shifted (.5*(OverlayWidth-Hfactor*OverlayWidth),OverlayHeight-Vfactor*OverlayHeight)
+       withcolor \MPcolor{\cyrnumparameter{titlocolor}};
+  setbounds currentpicture to boundingbox OverlayBox ;
+\stopuniqueMPgraphic
+
+\startuniqueMPgraphic{cyrnum-titlo2}
+  path titlo ;
+  save penwidth ; penwidth = \cyrnumparameter{penwidth} ;
+  save High, Low ;
+  save Vfactor ; Vfactor = .15 ;
+  save Hfactor ; Hfactor = .80 ;
+  titlo := ( 0.05,    -Vfactor) --
+           ( 0.07,  .7*Vfactor) ..
+           ( 0.09,  .8*Vfactor) ..
+           ( 0.91, -.8*Vfactor) ..
+           ( 0.93, -.7*Vfactor) --
+           ( 0.95,     Vfactor) ;
+  pickup pensquare yscaled penwidth xscaled 1 rotated 70 ;
+  draw titlo
+       xysized (Hfactor*OverlayWidth,Vfactor*OverlayHeight)
+       shifted (.5*(OverlayWidth-Hfactor*OverlayWidth)-.5*penwidth,OverlayHeight-Vfactor*OverlayHeight)
+       withcolor \MPcolor{\cyrnumparameter{titlocolor}};
+  setbounds currentpicture to boundingbox OverlayBox ;
+\stopuniqueMPgraphic
+
+\startuniqueMPgraphic{cyrnum-titlo3}
+  path titlo ;
+  save penwidth ; penwidth = \cyrnumparameter{penwidth} ;
+  save High, Low ;
+  save Vfactor ; Vfactor = .15 ;
+  save Hfactor ; Hfactor = .80 ;
+  titlo := ( 0.05,      -Vfactor) --
+           ( 0.07,  0.70*Vfactor) ..
+           ( 0.09,  0.90*Vfactor) .. { dir 00 }
+           ( 0.49, -0.00*Vfactor) --
+           ( 0.49, -0.90*Vfactor) --
+           ( 0.51,  0.90*Vfactor) --
+           ( 0.51,  0.00*Vfactor) { dir 00 } ..
+           ( 0.91, -0.90*Vfactor) ..
+           ( 0.93, -0.70*Vfactor) --
+           ( 0.95,       Vfactor) ;
+  pickup pensquare yscaled penwidth xscaled 1 rotated 70 ;
+  draw titlo
+       xysized (Hfactor*OverlayWidth,Vfactor*OverlayHeight)
+       shifted (.5*(OverlayWidth-Hfactor*OverlayWidth)-.5*penwidth,OverlayHeight-Vfactor*OverlayHeight)
+       withcolor \MPcolor{\cyrnumparameter{titlocolor}};
+  setbounds currentpicture to boundingbox OverlayBox ;
+\stopuniqueMPgraphic
+
+%%% Same as 2 with inner vertical stroke
+\startuniqueMPgraphic{cyrnum-titlo4}
+  path titlo, stroke ;
+  save penwidth ; penwidth = \cyrnumparameter{penwidth} ;
+  save High, Low ;
+  save Vfactor ; Vfactor = .15 ;
+  save Hfactor ; Hfactor = .80 ;
+  titlo = ( 0.05, -1.00*Vfactor) --
+          ( 0.07,  0.70*Vfactor) ..
+          ( 0.09,  0.90*Vfactor) { dir 00 } .. { dir 00 }
+          ( 0.91, -0.90*Vfactor) ..
+          ( 0.93, -0.70*Vfactor) --
+          ( 0.95,  1.00*Vfactor) ;
+  stroke = ( 0.49*Hfactor*OverlayWidth+.5*penwidth, -0.30*Vfactor*OverlayHeight ) -- %% this is a mess
+           ( 0.51*Hfactor*OverlayWidth+.5*penwidth,  0.50*Vfactor*OverlayHeight ) ;
+  pickup pensquare yscaled penwidth xscaled 1 rotated 80 ;
+  draw titlo
+       xysized (Hfactor*OverlayWidth,Vfactor*OverlayHeight)
+       shifted (.5*(OverlayWidth-Hfactor*OverlayWidth)-.5*penwidth,OverlayHeight-Vfactor*OverlayHeight)
+       withcolor \MPcolor{\cyrnumparameter{titlocolor}};
+  draw stroke
+       % xysized (Hfactor*OverlayWidth,Vfactor*OverlayHeight) %% doesn’t work as expected somehow
+       shifted (.5*(OverlayWidth-Hfactor*OverlayWidth)-.5*penwidth,OverlayHeight-Vfactor*OverlayHeight)
+       withcolor \MPcolor{\cyrnumparameter{titlocolor}} ;
+  setbounds currentpicture to boundingbox OverlayBox ;
+\stopuniqueMPgraphic
+
+\startuniqueMPgraphic{cyrnum-titlo5}
+  path titlo ;
+  save penwidth ; penwidth = \cyrnumparameter{penwidth} ;
+  save High, Low ;
+  save Vfactor ; Vfactor = .20 ;
+  save Hfactor ; Hfactor = .75 ;
+  titlo := ( 0.00, -0.8*Vfactor) {dir 90} .. {dir 90}
+           ( 1.00,  1.2*Vfactor) ;
+  pickup pensquare yscaled penwidth xscaled 2 rotated 85 ;
+  draw titlo
+       xysized (Hfactor*OverlayWidth-penwidth,Vfactor*OverlayHeight)
+       shifted (.5*(OverlayWidth-Hfactor*OverlayWidth),OverlayHeight-Vfactor*OverlayHeight)
+       withcolor \MPcolor{\cyrnumparameter{titlocolor}} ;
+  setbounds currentpicture to boundingbox OverlayBox ;
+\stopuniqueMPgraphic
+
+\startuniqueMPgraphic{cyrnum-titlo6}
+  path titlo ;
+  save penwidth ; penwidth = \cyrnumparameter{penwidth} ;
+  save High, Low ;
+  save Vfactor ; Vfactor = .20 ;
+  save Hfactor ; Hfactor = .85 ;
+  titlo := ( 0.03, -0.80*Vfactor) --
+           ( 0.03,  0.15*Vfactor) --
+           ( 0.00,  0.20*Vfactor) {right} .. {right}
+           ( 1.00, -0.20*Vfactor) --
+           ( 0.97, -0.15*Vfactor) --
+           ( 0.97,  0.80*Vfactor) ;
+  pickup pensquare yscaled penwidth xscaled sqrt(2) rotated 90 ;
+  draw titlo
+       xysized (Hfactor*OverlayWidth-.5*penwidth,Vfactor*OverlayHeight)
+       shifted (.5*(OverlayWidth-Hfactor*OverlayWidth),OverlayHeight-(0.5*Vfactor*OverlayHeight))
+       withcolor \MPcolor{\cyrnumparameter{titlocolor}} ;
+  setbounds currentpicture to boundingbox OverlayBox ;
+\stopuniqueMPgraphic
+
+\startuniqueMPgraphic{cyrnum-titlo7}
+  path titlo ;
+  save penwidth ; penwidth = \cyrnumparameter{penwidth} ;
+  save High, Low ;
+  save Vfactor ; Vfactor = .20 ;
+  save Hfactor ; Hfactor = .85 ;
+  titlo := ( 0.05, -0.80*Vfactor) --
+           ( 0.05, -0.30*Vfactor) {up} .. {right}
+           ( 0.07, -0.00*Vfactor) --
+           ( 0.93,  0.00*Vfactor) {right} .. {up}
+           ( 0.95,  0.30*Vfactor) --
+           ( 0.95,  0.80*Vfactor) ;
+  pickup pensquare yscaled (0.66*penwidth) xscaled penwidth ;
+  draw titlo
+       xysized (Hfactor*OverlayWidth-2*penwidth,Vfactor*OverlayHeight)
+       shifted ((.5*penwidth+.5*(OverlayWidth-Hfactor*OverlayWidth)),
+                (OverlayHeight-(0.7*Vfactor*OverlayHeight)))
+       withcolor \MPcolor{\cyrnumparameter{titlocolor}} ;
+  setbounds currentpicture to boundingbox OverlayBox ;
+\stopuniqueMPgraphic
+
+\startuniqueMPgraphic{cyrnum-titlo8}
+  path titlo, stroke ;
+  save penwidth ; penwidth = \cyrnumparameter{penwidth} ;
+  save High, Low ;
+  save Vfactor ; Vfactor = .20 ;
+  save Hfactor ; Hfactor = .85 ;
+  titlo := ( 0.15, -0.10*Vfactor) {dir 25} ..% tension 8 ..
+            controls (0.40, 0.50) and (0.00, 0.35) ..
+           ( 0.00, -0.00*Vfactor) {down} .. 
+            controls (0.00, -0.30) and (0.10, -0.25) ..
+           % ( 0.10, -0.20*Vfactor) {right} .. tension 4 .. {dir -120}
+           ( 0.30, -0.90*Vfactor) ..
+           controls
+            ( 0.70,  0.20*Vfactor) and
+            ( 0.97,  0.08*Vfactor) ..
+           ( 0.97, -0.30*Vfactor) .. tension 6 .. {dir -140}
+           ( 0.95, -0.90*Vfactor) ;
+  stroke := ((0.45*Hfactor*OverlayWidth),-0.20*Vfactor*OverlayHeight) ..
+            ((0.54*Hfactor*OverlayWidth), 0.35*Vfactor*OverlayHeight) ---
+            ((0.65*Hfactor*OverlayWidth), 0.90*Vfactor*OverlayHeight) {dir -120} .. {dir 30}
+            % ((0.54*Hfactor*OverlayWidth), 0.35*Vfactor*OverlayHeight) ..
+            ((0.45*Hfactor*OverlayWidth), 0.90*Vfactor*OverlayHeight)
+            ;
+  pickup pensquare yscaled 2 xscaled (0.5*penwidth) rotated 10;
+  % pickup pensquare yscaled 1 xscaled 2 ;
+  draw titlo
+       xysized (Hfactor*OverlayWidth,Vfactor*OverlayHeight)
+       shifted ((.5*(OverlayWidth-Hfactor*OverlayWidth)),
+                (OverlayHeight-(0.7*Vfactor*OverlayHeight)))
+       withcolor \MPcolor{\cyrnumparameter{titlocolor}} ;
+  pickup pensquare yscaled 2 xscaled (0.5*penwidth) rotated 70;
+  draw stroke
+       % xysized (Hfactor*OverlayWidth,Vfactor*OverlayHeight)
+       shifted ((.6*(OverlayWidth-Hfactor*OverlayWidth)),
+                (OverlayHeight-Vfactor*OverlayHeight))
+       withcolor \MPcolor{\cyrnumparameter{titlocolor}} ;
+       ;
+  setbounds currentpicture to boundingbox OverlayBox ;
+\stopuniqueMPgraphic
+
+\startuniqueMPgraphic{cyrnum-titlo9}
+  path titlo ;
+  save penwidth ; penwidth = \cyrnumparameter{penwidth} ;
+  save High, Low ;
+  save Vfactor ; Vfactor = .10 ;
+  save Hfactor ; Hfactor = .85 ;
+  titlo := ( 0.05, -0.40*Vfactor) --
+           ( 0.05,  0.00*Vfactor) --
+           ( 0.95,  0.00*Vfactor) --
+           ( 0.95, -0.40*Vfactor) ;
+  pickup pensquare yscaled (2*penwidth/3) xscaled penwidth ;
+  draw titlo
+       xysized (Hfactor*OverlayWidth-2*penwidth,Vfactor*OverlayHeight)
+       shifted ((.5*penwidth+.5*(OverlayWidth-Hfactor*OverlayWidth)),
+                (OverlayHeight-(0.7*Vfactor*OverlayHeight)))
+       withcolor \MPcolor{\cyrnumparameter{titlocolor}} ;
+  setbounds currentpicture to boundingbox OverlayBox ;
+\stopuniqueMPgraphic
+
+%D The \METAPOST\ titlo is drawn as an overlay which in turn
+%D serves as the background for a dedicated \type{\framed} macro.
+%D This titlo command is accessible in protected mode as
+%D \type{\cyrnumdrawtitlo}, which is also called by the
+%D \LUA\ functions.
+
+\defineoverlay[cyrnum-titlo-overlay1][\uniqueMPgraphic{cyrnum-titlo1}]
+\defineoverlay[cyrnum-titlo-overlay2][\uniqueMPgraphic{cyrnum-titlo2}]
+\defineoverlay[cyrnum-titlo-overlay3][\uniqueMPgraphic{cyrnum-titlo3}]
+\defineoverlay[cyrnum-titlo-overlay4][\uniqueMPgraphic{cyrnum-titlo4}]
+\defineoverlay[cyrnum-titlo-overlay5][\uniqueMPgraphic{cyrnum-titlo5}]
+\defineoverlay[cyrnum-titlo-overlay6][\uniqueMPgraphic{cyrnum-titlo6}]
+\defineoverlay[cyrnum-titlo-overlay7][\uniqueMPgraphic{cyrnum-titlo7}]
+\defineoverlay[cyrnum-titlo-overlay8][\uniqueMPgraphic{cyrnum-titlo8}]
+\defineoverlay[cyrnum-titlo-overlay9][\uniqueMPgraphic{cyrnum-titlo9}]
+
+\defineframed[cyrnum_titloframe][
+    location=low,
+       frame=off,
+  background=cyrnum-titlo-overlay\cyrnumparameter{titlomode},
+]
+
+%D \macros
+%D   {cyrnumdrawtitlo}
+%D
+%D The macro \type{\cyrnumdrawtitlo} allows for arbitrary titlo
+%D placement which might be useful for other text elements besides
+%D plain numbers, e.~g. abbreviations {\italic\letterampersand}c.
+
+\let\cyrnumdrawtitlo\cyrnum_titloframe
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%D \docsection{User level interface}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%D \macros
+%D   {definecyrnum}
+%D
+%D User interface to the main conversion routines. The definition
+%D macro autogenerates the primary user-level macro, which in turn
+%D relies \type{\setupcyrnum} for argument processing (see above on
+%D \at{page}[setupdef]).
+%D
+%D Example usage:
+%D
+%D \starttyping
+%D   \definecyrnum[titlofree]
+%D   \setupcyrnum [titlofree][titlo=no]
+%D   \starttext
+%D     \titlofree{42}
+%D   \stoptext
+%D \stoptyping
+
+\unexpanded\def\cyrnum_cmd[#id]{%
+  \edef\currentcyrnum{#id}%
+  \dosingleempty\cyrnum_cmd_parms%
+}
+
+\def\cyrnum_cmd_parms[#parms]{%
+  \begingroup
+  \setupcyrnum[\currentcyrnum][#parms]%
+  \cyrnumparameter{command}\begingroup
+  \cyrnum_cmd_content%
+}
+
+\def\cyrnum_cmd_content#num{%
+  \ctxcommand{cyrillicnumerals(\number#num)}%
+  \endgroup
+  \endgroup%
+}
+
+%D \macros
+%D    {setupcyrnum}
+%D
+%D The \type{\setupcyrnum} and \type{\definecyrnum} macros are
+%D autogenerated via the namespace.
+
+\setupcyrnum[
+            \v!dots=\v!yes,    % yes|no
+       \v!dotsymbol=·,
+        \v!penwidth=.66pt,
+  \v!preferhundredk=no,
+         \v!command=,
+      \v!titlocolor=black,
+   \v!titlolocation=\v!middle, % final|middle -- only effective if using the font’s titlo
+       \v!titlomode=5,
+       \v!titlospan=3,         % n|all
+           \v!titlo=\v!mp,     % font|mp|no
+]
+
+%D \macros
+%D   {cyrnum}
+%D
+%D The default user macro is defined as \type{\cyrnum}.
+
+\definecyrnum[\v!cyrnum]
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%D \docsection{Conversion routines}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%D \macros
+%D   {cyrillicnumerals,Cyrillicnumerals}
+%D
+%D Conforming to the standard \CONTEXT\ naming scheme as employed
+%D with number conversion macros, we define two macros for use with
+%D conversions. As there is no definition for uppercase conversion,
+%D the macro \type{\Cyrillicnumerals} exists only for compatibility
+%D reasons.
+%D
+%D Also, we setup two corresponding conversions \type{cyr} and
+%D \type{Cyr} for use with e.g. enumerations, headings, counters
+%D {\italic\letterampersand}c. Instead of these predefined ones
+%D the user may consider defining a dedicated conversion routine
+%D for each purpose:
+
+%D \starttyping
+%D \definecyrnum    [mycyrnum] [titlo=mp,titlomode=7,titlospan=all,penwidth=2]
+%D \defineconversion[myconversion][\mycyrnum]
+%D
+%D \setuphead[section][conversion=myconversion]
+%D \stoptyping
+
+\definecyrnum[\v!cyrillicnumerals]
+\definecyrnum[\v!Cyrillicnumerals]
+
+\defineconversion[cyrillicnumerals][\cyrillicnumerals]
+\defineconversion[Cyrillicnumerals][\Cyrillicnumerals]
+\defineconversion[cyr]             [\cyrillicnumerals]
+\defineconversion[Cyr]             [\Cyrillicnumerals]
+
+% \protect \endinput
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Fun %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\def\peano#num{\ctxcommand{peanonumerals(\number#num)}}
+\defineconversion[peano][\peano]
+
+\def\church#num{\ctxcommand{churchnumerals(\number#num)}}
+\defineconversion[church][\church]
+
+\protect \endinput
+
+%   vi:ft=context:fo=co:ts=2:expandtab:sw=2
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index 4ce1ff8b8f6..5afeb1ff05c 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -110,7 +110,8 @@ my @TLP_working = qw(
     complexity components-of-TeX comprehensive computational-complexity
     concepts concmath concmath-fonts concprog confproc constants
     context-account context-algorithmic context-bnf context-chromato 
-    context-construction-plan context-degrade context-filter context-fixme
+    context-construction-plan context-cyrillicnumbers
+    context-degrade context-filter context-fixme
     context-french context-fullpage
     context-games context-gantt context-gnuplot
     context-letter context-lettrine context-lilypond context-mathsets
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index d27ac9c15cb..41ed7dc6ec7 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -248,7 +248,8 @@ chomp ($Build = `cd $Master/../Build/source && pwd`);
  'context-account',   	"&MAKEcopy",
  'context-bnf',       	"&MAKEcopy",
  'context-chromato',  	"&MAKEcopy",
- 'context-construction-plan', "&MAKEcopy",
+ 'context-cyrillicnumbers',  "&MAKEcopy",
+ 'context-construction-plan',"&MAKEcopy",
  'context-degrade',   	"&MAKEcopy",
  'context-filter',	"&MAKEcopy",
  'context-fixme',	"&MAKEcopy",
diff --git a/Master/tlpkg/tlpsrc/collection-context.tlpsrc b/Master/tlpkg/tlpsrc/collection-context.tlpsrc
index 39a466b38de..5b6776158aa 100644
--- a/Master/tlpkg/tlpsrc/collection-context.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-context.tlpsrc
@@ -12,6 +12,7 @@ depend context-algorithmic
 depend context-bnf
 depend context-chromato
 depend context-construction-plan
+depend context-cyrillicnumbers
 depend context-degrade
 depend context-filter
 depend context-fixme
diff --git a/Master/tlpkg/tlpsrc/context-cyrillicnumbers.tlpsrc b/Master/tlpkg/tlpsrc/context-cyrillicnumbers.tlpsrc
new file mode 100644
index 00000000000..80e71c2e536
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/context-cyrillicnumbers.tlpsrc
@@ -0,0 +1,2 @@
+category ConTeXt
+depend context