serbian transliteration tables & functions

1 files changed, 6 insertions, 5 deletions

diff --git a/tex/context/third/transliterator/transliterator.lua b/tex/context/third/transliterator/transliterator.lua
index ddda144..d794c05 100644
--- a/tex/context/third/transliterator/transliterator.lua
+++ b/tex/context/third/transliterator/transliterator.lua
@@ -83,7 +83,8 @@ end
 
 -- Generate a rule pattern from hash table.
 do
-    local P = lpeg.P
+    local P, R, V = lpeg.P, lpeg.R, lpeg.V
+
     function translit.addrules (dict, rules)
         for i, _ in pairs(dict) do
             if rules == nil then rules = P(i)
@@ -92,12 +93,9 @@ do
         end
         return rules
     end
-end
 
 -- Modified version of Hans’s utf pattern (l-lpeg.lua).
 
-do
-    local P, R, V = lpeg.P, lpeg.R, lpeg.V
 
     translit.utfchar = P{
         V"utf8one" + V"utf8two" + V"utf8three" + V"utf8four",
@@ -194,6 +192,7 @@ function translit.show_all_tabs ()
     environment.loadluafile ("trans_tables_iso9")
     environment.loadluafile ("trans_tables_trsc")
     environment.loadluafile ("trans_tables_scntfc")
+    environment.loadluafile ("trans_tables_sr")
     environment.loadluafile ("trans_tables_trsc")
     environment.loadluafile ("trans_tables_glag")
     environment.loadluafile ("trans_tables_gr")
@@ -227,7 +226,7 @@ end
 -- corresponding function.
 
 -- Those supposedly are the most frequently used so it won’t hurt to preload
--- them.
+-- them.  The rest will be loaded on request.
 environment.loadluafile ("trans_tables_iso9")
 
 function translit.transliterate (method, text)
@@ -245,6 +244,8 @@ function translit.transliterate (method, text)
                 method == "ocs"           or
                 method == "ocs_gla"       then
             environment.loadluafile ("trans_tables_scntfc")
+        elseif  method:match("^sr_") then
+            environment.loadluafile ("trans_tables_sr")
         elseif  method == "gr"   or
                 method == "gr_n" then
             environment.loadluafile ("trans_tables_gr")