diff options
Diffstat (limited to 'tex/context/third/transliterator/transliterator.lua')
| -rw-r--r-- | tex/context/third/transliterator/transliterator.lua | 11 |
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") |