From 4c59e003bc3f07a688e3d8fe5bdf4e61816c9d3e Mon Sep 17 00:00:00 2001
From: Philipp Gesang <phg@phi-gamma.net>
Date: Thu, 28 Mar 2013 01:49:21 +0100
Subject: rewrite in mkvi syntax

---
 .../third/cyrillicnumbers/t-cyrillicnumbers.mkvi   | 30 +++++++++++-----------
 1 file changed, 15 insertions(+), 15 deletions(-)

(limited to 'tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkvi')

diff --git a/tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkvi b/tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkvi
index 6c5ae07..d72083b 100644
--- a/tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkvi
+++ b/tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkvi
@@ -1,6 +1,6 @@
 %D \module
-%D   [     file=t-cyrillicnumbers.mkiv,
-%D      version=2013-03-27 23:57:37+0100,
+%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,
@@ -83,8 +83,8 @@
   \stopluacode%
 }
 
-\appendtoks \setuevalue{\currentcyrnum}{\do_cyrnum[\currentcyrnum]} \to \everydefinecyrnum
-\appendtoks \cyrnumsetvariables                                     \to \everysetupcyrnum
+\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
@@ -377,21 +377,21 @@
 %D   \stoptext
 %D \stoptyping
 
-\unexpanded\def\do_cyrnum[#1]{%
-  \edef\currentcyrnum{#1}%
-  \dosingleempty\dodo_cyrnum%
+\unexpanded\def\cyrnum_cmd[#id]{%
+  \edef\currentcyrnum{#id}%
+  \dosingleempty\cyrnum_cmd_parms%
 }
 
-\def\dodo_cyrnum[#1]{%
+\def\cyrnum_cmd_parms[#parms]{%
   \begingroup
-  \setupcyrnum[\currentcyrnum][#1]%
+  \setupcyrnum[\currentcyrnum][#parms]%
   \cyrnumparameter{command}\begingroup%
-  \dododo_cyrnum%
+  \cyrnum_cmd_content%
 }
 
-\def\dododo_cyrnum#1{%
-  \ctxcommand{cyrillicnumerals(\number#1)}%
-  \endgroup%
+\def\cyrnum_cmd_content#num{%
+  \ctxcommand{cyrillicnumerals(\number#num)}%
+  \endgroup
   \endgroup%
 }
 
@@ -460,10 +460,10 @@
 % Fun %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
-\def\peano#1{\ctxcommand{peanonumerals(\number#1)}}
+\def\peano#num{\ctxcommand{peanonumerals(\number#num)}}
 \defineconversion[peano][\peano]
 
-\def\church#1{\ctxcommand{churchnumerals(\number#1)}}
+\def\church#num{\ctxcommand{churchnumerals(\number#num)}}
 \defineconversion[church][\church]
 
 \protect \endinput
-- 
cgit v1.2.3