From adc06ec6e6e32fafe4e0689bd8a5e9d31000012e Mon Sep 17 00:00:00 2001 From: Philipp Gesang Date: Tue, 10 May 2011 11:30:45 +0200 Subject: serbian transliteration tables & functions --- tex/context/third/transliterator/transliterator.lua | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'tex/context/third/transliterator/transliterator.lua') 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") -- cgit v1.2.3