From 1702a800ec09c99e514185a34becb53309da7054 Mon Sep 17 00:00:00 2001 From: Philipp Gesang Date: Fri, 24 Dec 2010 00:36:00 +0100 Subject: comments for orientation --- .../third/transliterator/transliterator.lua | 30 ++++++++++++++-------- 1 file changed, 20 insertions(+), 10 deletions(-) (limited to 'tex') diff --git a/tex/context/third/transliterator/transliterator.lua b/tex/context/third/transliterator/transliterator.lua index 1bcbb32..4b64d82 100644 --- a/tex/context/third/transliterator/transliterator.lua +++ b/tex/context/third/transliterator/transliterator.lua @@ -47,11 +47,14 @@ translit.ru_consonants = {"б", "в", "г", "д", "ж", "з", "к", "л", "м", -- and -- trans_tables_trsc.lua.} +-------------------------------------------------------------------------------- -- Metatables allow for lazy concatenation. +-------------------------------------------------------------------------------- do -- This returns the Union of both key sets for the “+” operator. - -- The values of the first table will be updated (read: overridden) by those given in the second. + -- The values of the first table will be updated (read: overridden) by + -- those given in the second. local Dict_add = { __add = function (dict_a, dict_b) assert (type(dict_a) == "table" and type(dict_b) == "table") @@ -73,6 +76,10 @@ do end end +-------------------------------------------------------------------------------- +-- Auxiliary Functions +-------------------------------------------------------------------------------- + -- We might want to have all the table data nicely formatted by \CONTEXT\ -- itself, here's how we'll do it. \type{translit.show_tab(t)} handles a -- single table \type{t}, builds a Natural TABLE out of its content and @@ -96,8 +103,6 @@ local strempty = function (s) end end ---function translit.show_tab (tab_name) - --local tab = translit[tab_name] function translit.show_tab (tab) -- Output a transliteration table, nicely formatted with natural tables. -- Lots of calls to context() but as it’s only a goodie this doesn’t @@ -173,6 +178,18 @@ function translit.show_all_tabs () end end +-- for internal use only + +translit.debug_count = 0 + +function translit.debug_next () + translit.debug_count = translit.debug_count + 1 + context("\\tfxx{\\bf translit debug msg. nr.~" .. translit.debug_count .. "}") +end + +-------------------------------------------------------------------------------- +-- User-level Function +-------------------------------------------------------------------------------- -- \type{translit.transliterate(m, t)} constitutes the -- metafunction that is called by the \type{\transliterate} command. @@ -211,10 +228,3 @@ function translit.transliterate (method, text) end context (text) end - -translit.debug_count = 0 --- for internal use only -function translit.debug_next () - translit.debug_count = translit.debug_count + 1 - context("\\tfxx{\\bf translit debug msg. nr.~" .. translit.debug_count .. "}") -end -- cgit v1.2.3