From 9358aec78689e5360218855687d7884844294a01 Mon Sep 17 00:00:00 2001
From: Philipp Gesang <pgesang@ix.urz.uni-heidelberg.de>
Date: Fri, 24 Dec 2010 13:06:39 +0100
Subject: migration to new namespace model

---
 .../third/transliterator/t-transliterator.mkiv     | 50 ++++++++++++----------
 1 file changed, 28 insertions(+), 22 deletions(-)

(limited to 'tex/context/third')

diff --git a/tex/context/third/transliterator/t-transliterator.mkiv b/tex/context/third/transliterator/t-transliterator.mkiv
index 25c4231..7ba1f01 100644
--- a/tex/context/third/transliterator/t-transliterator.mkiv
+++ b/tex/context/third/transliterator/t-transliterator.mkiv
@@ -14,19 +14,26 @@
 
 \writestatus{loading}{Transliteration from non-Latin scripts}
 
-\startmodule[transliterator]
+\unprotect
+
+\definenamespace [TRL] [
+  name=transliterate,
+  type=module,
+  setup=list,
+  parent=TRL,
+  style=no,
+  version=hg-r16,
+  comment=Transliteration from non-Latin scripts.,
+]
 
 %\ctxlua{environment.loadluafile ("transliterator")}
 \ctxlua{dofile ("transliterator.lua")}
 
-\unprotect
 %D Use the Transliterator by adding \type{\usemodule[transliterator]} somewhere
 %D before \type{\starttext}.  Adjust the Transliterator through the
 %D \type{\setuptransliterate} command.  As a first argument it accepts a set of
 %D key-value options; at present you may configure \type{mode} and
 %D \type{hyphenate}.
-% emendation by Wolfgang Schuster
-\def\setuptransliterate{\dodoubleargument\getparameters[TRL]}
 
 %D At first we'll set some defaults:
 \setuptransliterate[mode=ru_old,hyphenate=cz,debug=false]
@@ -55,6 +62,7 @@
 %D
 %D The user-level command to output a single substitution table is
 %D \type{\showOneTranslitTab{#1}}.
+
 \define[1]\showOneTranslitTab{%
   \startluacode
     environment.loadluafile ("trans_tables_iso9")
@@ -65,19 +73,19 @@
     environment.loadluafile ("trans_tables_gr")
     translit.gen_rules_en()
     translit.gen_rules_de()
-    translit.show_tab("\luaescapestring{#1}")
+    translit.show_tab(translit["\luaescapestring{#1}"])
   \stopluacode
 }
 
 %D The user-level command to output all defined tables is
 %D \type{\showTranslitTabs}.
+
 \define\showTranslitTabs{%
   \ctxlua{translit.show_all_tabs()}%
 }
 
 \def\translitDebug#1{%
-  \doif{\TRLdebug}{true}{%
-    %\inmargin{\ctxlua{translit.debug_next()} #1}% Unreadable with too many debug messages.
+  \doif{\transliterateparameter{debug}}{yes}{%
     {\ss\inmargin{\ctxlua{translit.debug_next()}} #1}%
   }%
 }
@@ -98,36 +106,34 @@
 %D
 % All credits for rewriting the TeX code go to Wolfgang as well.
 % http://www.ntg.nl/pipermail/ntg-context/2010/047816.html
+
 \def\dotransliterate[#1]#2{%
-  \bgroup
-  \iffirstargument
-    \getparameters[TRL][#1]%
+  \bgroup\iffirstargument
+    \setuptransliterate[#1]%
   \fi
-    \language[\TRLhyphenate]%
-    \ctxlua{translit.transliterate("\TRLmode","\luaescapestring{#2}")}%
-  \egroup
+    \language[\transliterateparameter{hyphenate}]%
+    \ctxlua{translit.transliterate("\transliterateparameter{mode}","\luaescapestring{#2}")}%
+  \egroup%
 }
 
 \unexpanded\def\transliterate{\dosingleempty\dotransliterate}
 
 \unexpanded\def\starttransliterate{%
   \bgroup%
-  \dosingleempty\dostarttransliterate
+  \dosingleempty\dostarttransliterate%
 }
 
 \let\stoptransliterate\relax
 
 \def\dostarttransliterate[#1]#2\stoptransliterate{%
   \iffirstargument
-  \setuptransliterate[#1]%
-\fi
-  \language[\TRLhyphenate]%
-  \ctxlua{translit.transliterate("\TRLmode","\luaescapestring{#2}")}%
-  \egroup
+    \setuptransliterate[#1]%
+  \fi
+  \language[\transliterateparameter{hyphenate}]%
+  \ctxlua{translit.transliterate("\transliterateparameter{mode}","\luaescapestring{#2}")}%
+  \egroup%
 }
 
-\protect
-
-\endinput
+\protect \endinput
 
 %   vim:ft=context
-- 
cgit v1.2.3