diff options
Diffstat (limited to 'Master/texmf-dist/scripts/lua-uca/lua-uca-languages.lua')
-rwxr-xr-x | Master/texmf-dist/scripts/lua-uca/lua-uca-languages.lua | 37 |
1 files changed, 32 insertions, 5 deletions
diff --git a/Master/texmf-dist/scripts/lua-uca/lua-uca-languages.lua b/Master/texmf-dist/scripts/lua-uca/lua-uca-languages.lua index 73fb7e0a0d2..08c4708b783 100755 --- a/Master/texmf-dist/scripts/lua-uca/lua-uca-languages.lua +++ b/Master/texmf-dist/scripts/lua-uca/lua-uca-languages.lua @@ -271,10 +271,34 @@ languages.fo = function(collator_obj) tailoring "&ǀ<æ<<<Æ<<ä<<<Ä<<ę<<<Ę<ø<<<Ø<<ö<<<Ö<<ő<<<Ő<<œ<<<Œ<å<<<Å<<<aa<<<Aa<<<AA" end + languages.fr = function(collator_obj) + -- French uses default sorting rules by default + return collator_obj +end + +languages.fr_backward_accents = function(collator_obj) + -- alternative sorting for Cannadian French + -- reverse search for accents in French: + collator_obj.accents_backward = true + -- accents: sorting order in French + local tailoring = function(s) collator_obj:tailor_string(s) end + tailoring("&a<<à<<â") + tailoring("&e<<é<<è<<ê<<ë") + tailoring("&i<<î<<ï") + tailoring("&o<<ô<<ö") + tailoring("&u<<ù<<û<<ü") + tailoring("&y<<ÿ") + tailoring("&ae<æ<<<Æ") + tailoring("&oe<œ<<<Œ") + tailoring("&th<þ<<<Þ") -- Canadian, see SGQRI004.pdf + -- lowercase before uppercase in French + --collator_obj:uppercase_first() return collator_obj end + + languages.ga = function(collator_obj) return collator_obj end @@ -1071,11 +1095,14 @@ languages.yo = function(collator_obj) return collator_obj end -languages.zj = function(collator_obj) - local tailoring = function(s) collator_obj:tailor_string(s) end - collator_obj:reorder{"han"} - -- tons of tailorings ommited - return collator_obj +languages.zh = function(collator_obj) + local chinese + if kpse then + chinese = require "lua-uca.lua-uca-chinese" + else + chinese = require "lua-uca.chinese" + end + return chinese.zh(collator_obj) end languages.zu = function(collator_obj) |