From d7e0c9962aaa455b6b82a156875513cc93b2b13b Mon Sep 17 00:00:00 2001 From: Marius Date: Wed, 16 Feb 2011 18:20:12 +0200 Subject: beta 2011.02.16 17:05 --- tex/context/base/char-ini.lua | 106 +++++++--- tex/context/base/cont-new.mkii | 2 +- tex/context/base/cont-new.mkiv | 2 +- tex/context/base/context.mkii | 2 +- tex/context/base/context.mkiv | 2 +- tex/context/base/sort-ini.lua | 291 ++++++++++++++++++++-------- tex/context/base/sort-lan.lua | 29 +-- tex/context/base/status-files.pdf | Bin 23229 -> 23246 bytes tex/generic/context/luatex-fonts-merged.lua | 2 +- 9 files changed, 301 insertions(+), 135 deletions(-) diff --git a/tex/context/base/char-ini.lua b/tex/context/base/char-ini.lua index 3f7750d86..0f26d8f5b 100644 --- a/tex/context/base/char-ini.lua +++ b/tex/context/base/char-ini.lua @@ -94,37 +94,83 @@ local private = { -- Hangul Syllable +--~ local hangul_syllable_metatable = { +--~ __index = { +--~ category = "lo", +--~ cjkwd = "w", +--~ description = "", +--~ direction = "l", +--~ linebreak = "h2", +--~ } +--~ } + +--~ local hangul_syllable_extender = function(k,v) +--~ local fscode = -- firstsplitcode +--~ k < 0xAC00 and k -- original +--~ or k > 0xD7AF and k -- original +--~ or k >= 0xD558 and 0x314E -- 하 => ㅎ +--~ or k >= 0xD30C and 0x314D -- 파 => ㅍ +--~ or k >= 0xD0C0 and 0x314C -- 타 => ㅌ +--~ or k >= 0xCE74 and 0x314B -- 카 => ㅋ +--~ or k >= 0xCC28 and 0x314A -- 차 => ㅊ +--~ or k >= 0xC790 and 0x3148 -- 자 => ㅈ +--~ or k >= 0xC544 and 0x3147 -- 아 => ㅇ +--~ or k >= 0xC0AC and 0x3145 -- 사 => ㅅ +--~ or k >= 0xBC14 and 0x3142 -- 바 => ㅂ +--~ or k >= 0xB9C8 and 0x3141 -- 마 => ㅁ +--~ or k >= 0xB77C and 0x3139 -- 라 => ㄹ +--~ or k >= 0xB2E4 and 0x3137 -- 다 => ㄷ +--~ or k >= 0xB098 and 0x3134 -- 나 => ㄴ +--~ or k >= 0xAC00 and 0x3131 -- 가 => ㄱ -- was 0xAC20 +--~ or k -- can't happen +--~ local t = { +--~ fscode = fscode, +--~ unicodeslot = k, +--~ } +--~ setmetatable(t,hangul_syllable_metatable) +--~ return t +--~ end + +local hangul_syllable_basetable = { + category = "lo", + cjkwd = "w", + description = "", + direction = "l", + linebreak = "h2", +} + local hangul_syllable_metatable = { - __index = { - category = "lo", - cjkwd = "w", - description = "", - direction = "l", - linebreak = "h2", - } + __index = function(t,k) + if k == "fscode" then + local u = t.unicodeslot + local fscode = -- firstsplitcode + u < 0xAC00 and nil -- original + or u > 0xD7AF and nil -- original + or u >= 0xD558 and 0x314E -- 하 => ㅎ + or u >= 0xD30C and 0x314D -- 파 => ㅍ + or u >= 0xD0C0 and 0x314C -- 타 => ㅌ + or u >= 0xCE74 and 0x314B -- 카 => ㅋ + or u >= 0xCC28 and 0x314A -- 차 => ㅊ + or u >= 0xC790 and 0x3148 -- 자 => ㅈ + or u >= 0xC544 and 0x3147 -- 아 => ㅇ + or u >= 0xC0AC and 0x3145 -- 사 => ㅅ + or u >= 0xBC14 and 0x3142 -- 바 => ㅂ + or u >= 0xB9C8 and 0x3141 -- 마 => ㅁ + or u >= 0xB77C and 0x3139 -- 라 => ㄹ + or u >= 0xB2E4 and 0x3137 -- 다 => ㄷ + or u >= 0xB098 and 0x3134 -- 나 => ㄴ + or u >= 0xAC00 and 0x3131 -- 가 => ㄱ -- was 0xAC20 + or nil -- can't happen + t[k] = fscode + return fscode + else + return hangul_syllable_basetable[k]-- no store + end + end } local hangul_syllable_extender = function(k,v) - local shcode = -- for the moment we misuse the shcode .. in fact we should have the components - k < 0xAC00 and k -- original - or k > 0xD7AF and k -- original - or k >= 0xD558 and 0x314E -- 하 => ㅎ - or k >= 0xD30C and 0x314D -- 파 => ㅍ - or k >= 0xD0C0 and 0x314C -- 타 => ㅌ - or k >= 0xCE74 and 0x314B -- 카 => ㅋ - or k >= 0xCC28 and 0x314A -- 차 => ㅊ - or k >= 0xC790 and 0x3148 -- 자 => ㅈ - or k >= 0xC544 and 0x3147 -- 아 => ㅇ - or k >= 0xC0AC and 0x3145 -- 사 => ㅅ - or k >= 0xBC14 and 0x3142 -- 바 => ㅂ - or k >= 0xB9C8 and 0x3141 -- 마 => ㅁ - or k >= 0xB77C and 0x3139 -- 라 => ㄹ - or k >= 0xB2E4 and 0x3137 -- 다 => ㄷ - or k >= 0xB098 and 0x3134 -- 나 => ㄴ - or k >= 0xAC00 and 0x3131 -- 가 => ㄱ -- was 0xAC20 - or k -- can't happen local t = { - shcode = shcode, unicodeslot = k, } setmetatable(t,hangul_syllable_metatable) @@ -825,22 +871,22 @@ setmetatable(categories, { __index = function(t,u) if u then local c = data[u] c characters.lccodes = allocate() local lccodes = characters.lccodes -- lazy table characters.uccodes = allocate() local uccodes = characters.uccodes -- lazy table characters.shcodes = allocate() local shcodes = characters.shcodes -- lazy table +characters.fscodes = allocate() local fscodes = characters.fscodes -- lazy table setmetatable(lccodes, { __index = function(t,u) if u then local c = data[u] c = c and c.lccode or (type(u) == "string" and utfbyte(u)) or u t[u] = c return c end end } ) setmetatable(uccodes, { __index = function(t,u) if u then local c = data[u] c = c and c.uccode or (type(u) == "string" and utfbyte(u)) or u t[u] = c return c end end } ) setmetatable(shcodes, { __index = function(t,u) if u then local c = data[u] c = c and c.shcode or (type(u) == "string" and utfbyte(u)) or u t[u] = c return c end end } ) +setmetatable(fscodes, { __index = function(t,u) if u then local c = data[u] c = c and c.fscode or (type(u) == "string" and utfbyte(u)) or u t[u] = c return c end end } ) characters.lcchars = allocate() local lcchars = characters.lcchars -- lazy table characters.ucchars = allocate() local ucchars = characters.ucchars -- lazy table characters.shchars = allocate() local shchars = characters.shchars -- lazy table - ---~ setmetatable(lcchars, { __index = function(t,u) if u then local c = data[u] c = c and c.lccode c = c and utfchar (c) or (type(u) == "number" and utfchar(u)) or u t[u] = c return c end end } ) ---~ setmetatable(ucchars, { __index = function(t,u) if u then local c = data[u] c = c and c.uccode c = c and utfchar (c) or (type(u) == "number" and utfchar(u)) or u t[u] = c return c end end } ) ---~ setmetatable(shchars, { __index = function(t,u) if u then local c = data[u] c = c and c.shcode c = c and utfstring(c) or (type(u) == "number" and utfchar(u)) or u t[u] = c return c end end } ) +characters.fschars = allocate() local fschars = characters.fschars -- lazy table setmetatable(lcchars, { __index = function(t,u) if u then local c = data[u] c = c and c.lccode c = c and utfstring(c) or (type(u) == "number" and utfchar(u)) or u t[u] = c return c end end } ) setmetatable(ucchars, { __index = function(t,u) if u then local c = data[u] c = c and c.uccode c = c and utfstring(c) or (type(u) == "number" and utfchar(u)) or u t[u] = c return c end end } ) setmetatable(shchars, { __index = function(t,u) if u then local c = data[u] c = c and c.shcode c = c and utfstring(c) or (type(u) == "number" and utfchar(u)) or u t[u] = c return c end end } ) +setmetatable(fschars, { __index = function(t,u) if u then local c = data[u] c = c and c.fscode c = c and utfstring(c) or (type(u) == "number" and utfchar(u)) or u t[u] = c return c end end } ) characters.specialchars = allocate() local specialchars = characters.specialchars -- lazy table characters.descriptions = allocate() local descriptions = characters.descriptions -- lazy table diff --git a/tex/context/base/cont-new.mkii b/tex/context/base/cont-new.mkii index c1479bb14..dce53bc21 100644 --- a/tex/context/base/cont-new.mkii +++ b/tex/context/base/cont-new.mkii @@ -11,7 +11,7 @@ %C therefore copyrighted by \PRAGMA. See mreadme.pdf for %C details. -\newcontextversion{2011.02.16 10:54} +\newcontextversion{2011.02.16 17:05} %D This file is loaded at runtime, thereby providing an %D excellent place for hacks, patches, extensions and new diff --git a/tex/context/base/cont-new.mkiv b/tex/context/base/cont-new.mkiv index 4ce0db0f3..795ea147b 100644 --- a/tex/context/base/cont-new.mkiv +++ b/tex/context/base/cont-new.mkiv @@ -11,7 +11,7 @@ %C therefore copyrighted by \PRAGMA. See mreadme.pdf for %C details. -\newcontextversion{2011.02.16 10:54} +\newcontextversion{2011.02.16 17:05} %D This file is loaded at runtime, thereby providing an %D excellent place for hacks, patches, extensions and new diff --git a/tex/context/base/context.mkii b/tex/context/base/context.mkii index 85fde561a..ac46fe3d9 100644 --- a/tex/context/base/context.mkii +++ b/tex/context/base/context.mkii @@ -20,7 +20,7 @@ %D your styles an modules. \edef\contextformat {\jobname} -\edef\contextversion{2011.02.16 10:54} +\edef\contextversion{2011.02.16 17:05} %D For those who want to use this: diff --git a/tex/context/base/context.mkiv b/tex/context/base/context.mkiv index 3a39bee24..f33d4366c 100644 --- a/tex/context/base/context.mkiv +++ b/tex/context/base/context.mkiv @@ -20,7 +20,7 @@ %D your styles an modules. \edef\contextformat {\jobname} -\edef\contextversion{2011.02.16 10:54} +\edef\contextversion{2011.02.16 17:05} %D For those who want to use this: diff --git a/tex/context/base/sort-ini.lua b/tex/context/base/sort-ini.lua index dc6765c79..4f5cf5224 100644 --- a/tex/context/base/sort-ini.lua +++ b/tex/context/base/sort-ini.lua @@ -37,7 +37,7 @@ relatively easy to do.

Todo: investigate what standards and conventions there are and see how they map onto this mechanism. I've learned that users can come up -with any demand so nothign here is frozen.

+with any demand so nothing here is frozen.

]]-- local utf = unicode.utf8 @@ -48,7 +48,8 @@ local next, type, tonumber, rawget, rawset = next, type, tonumber, rawget, rawse local allocate = utilities.storage.allocate -local trace_tests = false trackers.register("sorters.tests", function(v) trace_tests = v end) +local trace_tests = false trackers.register("sorters.tests", function(v) trace_tests = v end) +local trace_methods = false trackers.register("sorters.methods", function(v) trace_methods = v end) local report_sorters = logs.reporter("languages","sorters") @@ -64,17 +65,33 @@ local digitsmaximum = 0xFFFFF -- frozen local lccodes = characters.lccodes local lcchars = characters.lcchars local shchars = characters.shchars +local fscodes = characters.fscodes local variables = interfaces.variables -local v_numbers = variables.numbers -local validmethods = table.tohash { "mm", "zm", "pm", "mc", "zc", "pc", "uc" } +local v_numbers = variables.numbers +local v_default = variables.default +local v_before = variables.before +local v_after = variables.after +local v_first = variables.first +local v_last = variables.last + +local validmethods = table.tohash { + -- "ch", -- raw character + "mm", -- minus mapping + "zm", -- zero mapping + "pm", -- plus mapping + "mc", -- lower case - 1 + "zc", -- lower case + "pc", -- lower case + 1 + "uc", -- unicode +} local predefinedmethods = { - [variables.before] = "mm,mc,uc", - [variables.after] = "pm,mc,uc", - [variables.first] = "pc,mm,uc", - [variables.last] = "mc,mm,uc", + [v_before] = "mm,mc,uc", + [v_after] = "pm,mc,uc", + [v_first] = "pc,mm,uc", + [v_last] = "mc,mm,uc", } sorters = { @@ -87,8 +104,8 @@ sorters = { replacementoffset = replacementoffset, digitsoffset = digitsoffset, digitsmaximum = digitsmaximum, - defaultlanguage = variables.default, - defaultmethod = variables.before, + defaultlanguage = v_default, + defaultmethod = v_before, defaultdigits = v_numbers, } } @@ -130,6 +147,8 @@ local mte = { end } +local noorder = false + local function preparetables(data) local orders, lower, m_mappings, z_mappings, p_mappings = data.orders, data.lower, { }, { }, { } for i=1,#orders do @@ -203,16 +222,14 @@ local function preparetables(data) end end if not n then - n = { 0 } - -- nn = 1 + n = noorder if trace_tests then report_sorters(" 7 order: 0") end end end else - n = { 0 } - -- nn = 1 + n = noorder if trace_tests then report_sorters(" 8 order: 0") end @@ -248,11 +265,11 @@ local function update() -- prepare parent chains, needed when new languages are end end -local function setlanguage(l,m,d) +local function setlanguage(l,m,d,u) language = (l ~= "" and l) or constants.defaultlanguage data = definitions[language or constants.defaultlanguage] or definitions[constants.defaultlanguage] - method = (m ~= "" and m) or data.method or constants.defaultmethod - digits = (d ~= "" and d) or data.digits or constants.defaultdigits + method = (m ~= "" and m) or data.method or constants.defaultmethod + digits = (d ~= "" and d) or data.digits or constants.defaultdigits if trace_tests then report_sorters("setting language '%s', method '%s', digits '%s'",language,method,digits) end @@ -301,41 +318,104 @@ function sorters.setlanguage(language,method,numberorder) setlanguage(language,method,numberorder) -- new language and method end +-- tricky: { 0, 0, 0 } vs { 0, 0, 0, 0 } => longer wins and mm, pm, zm can have them + +--~ local function basicsort(sort_a,sort_b) -- todo: local # +--~ if not sort_a or not sort_b then +--~ return 0 +--~ elseif #sort_a > #sort_b then +--~ if #sort_b == 0 then +--~ return 1 +--~ else +--~ for i=1,#sort_b do +--~ local ai, bi = sort_a[i], sort_b[i] +--~ if ai > bi then +--~ return 1 +--~ elseif ai < bi then +--~ return -1 +--~ end +--~ end +--~ return 1 +--~ end +--~ elseif #sort_a < #sort_b then +--~ if #sort_a == 0 then +--~ return -1 +--~ else +--~ for i=1,#sort_a do +--~ local ai, bi = sort_a[i], sort_b[i] +--~ if ai > bi then +--~ return 1 +--~ elseif ai < bi then +--~ return -1 +--~ end +--~ end +--~ return -1 +--~ end +--~ elseif #sort_a == 0 then +--~ return 0 +--~ else +--~ for i=1,#sort_a do +--~ local ai, bi = sort_a[i], sort_b[i] +--~ if ai > bi then +--~ return 1 +--~ elseif ai < bi then +--~ return -1 +--~ end +--~ end +--~ return 0 +--~ end +--~ end + +--~ function comparers.basic(a,b) -- trace ea and eb +--~ local ea, eb = a.split, b.split +--~ local na, nb = #ea, #eb +--~ if na == 0 and nb == 0 then +--~ -- simple variant (single word) +--~ local result = 0 +--~ for j=1,#sequence do +--~ local m = sequence[j] +--~ result = basicsort(ea[m],eb[m]) +--~ if result ~= 0 then +--~ return result +--~ end +--~ end +--~ return result +--~ else +--~ -- complex variant, used in register (multiple words) +--~ local result = 0 +--~ for i=1,nb < na and nb or na do +--~ local eai, ebi = ea[i], eb[i] +--~ for j=1,#sequence do +--~ local m = sequence[j] +--~ result = basicsort(eai[m],ebi[m]) +--~ if result ~= 0 then +--~ return result +--~ end +--~ end +--~ if result ~= 0 then +--~ return result +--~ end +--~ end +--~ if result ~= 0 then +--~ return result +--~ elseif na > nb then +--~ return 1 +--~ elseif nb > na then +--~ return -1 +--~ else +--~ return 0 +--~ end +--~ end +--~ end + local function basicsort(sort_a,sort_b) - if not sort_a or not sort_b then - return 0 - elseif #sort_a > #sort_b then - if #sort_b == 0 then - return 1 - else - for i=1,#sort_b do - local ai, bi = sort_a[i], sort_b[i] - if ai > bi then - return 1 - elseif ai < bi then - return -1 - end - end - return 1 - end - elseif #sort_a < #sort_b then - if #sort_a == 0 then - return -1 - else - for i=1,#sort_a do - local ai, bi = sort_a[i], sort_b[i] - if ai > bi then - return 1 - elseif ai < bi then - return -1 - end - end - return -1 + if sort_a and sort_b then + local na = #sort_a + local nb = #sort_b + if na > nb then + na = nb end - elseif #sort_a == 0 then - return 0 - else - for i=1,#sort_a do + for i=1,na do local ai, bi = sort_a[i], sort_b[i] if ai > bi then return 1 @@ -343,8 +423,8 @@ local function basicsort(sort_a,sort_b) return -1 end end - return 0 end + return 0 end function comparers.basic(a,b) -- trace ea and eb @@ -360,7 +440,18 @@ function comparers.basic(a,b) -- trace ea and eb return result end end - return result + if result == 0 then + local la, lb = #ea.uc, #eb.uc + if la > lb then + return 1 + elseif lb > la then + return -1 + else + return 0 + end + else + return result + end else -- complex variant, used in register (multiple words) local result = 0 @@ -373,7 +464,14 @@ function comparers.basic(a,b) -- trace ea and eb return result end end - if result ~= 0 then + if result == 0 then + local la, lb = #eai.uc, #ebi.uc + if la > lb then + return 1 + elseif lb > la then + return -1 + end + else return result end end @@ -389,12 +487,8 @@ function comparers.basic(a,b) -- trace ea and eb end end --- local function numify(s) --- return rep(" ",10-#s) .. s -- or format with padd --- end - local function numify(s) - s = digitsoffset + tonumber(s) -- alternatively we can create a consecutive range + s = digitsoffset + tonumber(s) -- alternatively we can create range if s > digitsmaximum then s = digitsmaximum end @@ -403,7 +497,8 @@ end function sorters.strip(str) -- todo: only letters and such utf.gsub("([^%w%d])","") if str then - str = gsub(str,"\\%S*","") + str = gsub(str,"\\[\"\'~^`]*","") -- \"e + str = gsub(str,"\\%S*","") -- the rest str = gsub(str,"%s","\001") -- can be option str = gsub(str,"[%s%[%](){}%$\"\']*","") if digits == v_numbers then @@ -444,7 +539,6 @@ function splitters.utf(str) -- we could append m and u but this is cleaner, s is str = gsub(str,v[1],v[2]) end end - local m_case, z_case, p_case, m_mapping, z_mapping, p_mapping, char, byte, n = { }, { }, { }, { }, { }, { }, { }, { }, 0 local nm, nz, np = 0, 0, 0 for sc in utfcharacters(str) do @@ -476,8 +570,8 @@ function splitters.utf(str) -- we could append m and u but this is cleaner, s is z_mapping[nz] = b p_mapping[np] = b else - local l = lower[sc] n = n + 1 + local l = lower[sc] l = l and utfbyte(l) or lccodes[b] if type(l) == "table" then l = l[1] -- there are currently no tables in lccodes but it can be some, day @@ -492,23 +586,46 @@ function splitters.utf(str) -- we could append m and u but this is cleaner, s is end char[n], byte[n] = sc, b local msc = m_mappings[sc] - for i=1,#msc do - nm = nm + 1 - m_mapping[nm] = msc[i] + if msc ~= noorder then + for i=1,#msc do + nm = nm + 1 + m_mapping[nm] = msc[i] + end end local zsc = z_mappings[sc] - for i=1,#zsc do - nz = nz + 1 - z_mapping[nz] = zsc[i] + if zsc ~= noorder then + for i=1,#zsc do + nz = nz + 1 + z_mapping[nz] = zsc[i] + end end local psc = p_mappings[sc] - for i=1,#psc do - np = np + 1 - p_mapping[np] = psc[i] + if psc ~= noorder then + for i=1,#psc do + np = np + 1 + p_mapping[np] = psc[i] + end end end end + -- only those needed that are part of a sequence + + local b = byte[1] + if b then + -- we set them to the first split code (korean) + local fs = fscodes[b] or b + if #m_mapping == 0 then + m_mapping = { m_mappings[fs][1] } + end + if #z_mapping == 0 then + z_mapping = { z_mappings[fs][1] } + end + if #p_mapping == 0 then + p_mapping = { p_mappings[fs][1] } + end + end + local t = { ch = char, uc = byte, @@ -520,15 +637,13 @@ function splitters.utf(str) -- we could append m and u but this is cleaner, s is pm = p_mapping, } - -- table.print(t) - return t end -local function pack(entry) - local t = { } +local function packch(entry) local split = entry.split - if #split > 0 then + if #split > 0 then -- useless test + local t = { } for i=1,#split do local tt, li = { }, split[i].ch for j=1,#li do @@ -548,14 +663,32 @@ local function pack(entry) end end +local function packuc(entry) + local split = entry.split + if #split > 0 then -- useless test + local t = { } + for i=1,#split do + t[i] = concat(split[i].uc, " ") + end + return concat(t," + ") + else + return concat(split.uc," ") + end +end + function sorters.sort(entries,cmp) - if trace_tests then - for i=1,#entries do + if trace_tests or trace_methods then + local nofentries = #entries + report_sorters("entries: %s, language: %s, method: %s, digits: %s",nofentries,language,method,tostring(digits)) + for i=1,nofentries do report_sorters("entry %s",table.serialize(entries[i].split,i)) end + end + if trace_tests then sort(entries,function(a,b) local r = cmp(a,b) - report_sorters("%s %s %s",pack(a),(not r and "?") or (r<0 and "<") or (r>0 and ">") or "=",pack(b)) + local e = (not r and "?") or (r<0 and "<") or (r>0 and ">") or "=" + report_sorters("%s %s %s | %s %s %s",packch(a),e,packch(b),packuc(a),e,packuc(b)) return r == -1 end) local s @@ -568,7 +701,7 @@ function sorters.sort(entries,cmp) s = first report_sorters(">> %s 0x%05X (%s 0x%05X)",first,utfbyte(first),letter,utfbyte(letter)) end - report_sorters(" %s",pack(entry)) + report_sorters(" %s | %s",packch(entry),packuc(entry)) end else sort(entries,function(a,b) diff --git a/tex/context/base/sort-lan.lua b/tex/context/base/sort-lan.lua index 452423842..7bfa0d86b 100644 --- a/tex/context/base/sort-lan.lua +++ b/tex/context/base/sort-lan.lua @@ -860,32 +860,19 @@ definitions["et"] = { --- Korean -local shchars = characters.shchars +local fschars = characters.fschars function firstofsplit(first) - first = shchars[first] or first - return first, first -- entry, tag + local fs = fschars[first] or first + -- print(string.format("%04x %04x",utfbyte(first),utfbyte(fs))) + return fs, fs -- entry, tag end definitions["kr"] = { firstofsplit = firstofsplit, - orders = { -- copying utf fails somehow - "ㄱ", -- utfchar(0x3131), - "ㄴ", -- utfchar(0x3134), - "ㄷ", -- utfchar(0x3137), - "ㄹ", -- utfchar(0x3139), - "ㅁ", -- utfchar(0x3141), - "ㅂ", -- utfchar(0x3142), - "ㅅ", -- utfchar(0x3145), - "ㅇ", -- utfchar(0x3147), - "ㅈ", -- utfchar(0x3148), - "ㅊ", -- utfchar(0x314a), - "ㅋ", -- utfchar(0x314b), - "ㅌ", -- utfchar(0x314c), - "ㅍ", -- utfchar(0x314d), - "ㅎ", -- utfchar(0x314e), - "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", - "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", - "u", "v", "w", "x", "y", "z", + orders = { + "ㄱ", "ㄴ", "ㄷ", "ㄹ", "ㅁ", "ㅂ", "ㅅ", "ㅇ", "ㅈ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ", + "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", + "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", } } diff --git a/tex/context/base/status-files.pdf b/tex/context/base/status-files.pdf index 99681aeb6..9f2f8c774 100644 Binary files a/tex/context/base/status-files.pdf and b/tex/context/base/status-files.pdf differ diff --git a/tex/generic/context/luatex-fonts-merged.lua b/tex/generic/context/luatex-fonts-merged.lua index ace911714..79a3517a8 100644 --- a/tex/generic/context/luatex-fonts-merged.lua +++ b/tex/generic/context/luatex-fonts-merged.lua @@ -1,6 +1,6 @@ -- merged file : luatex-fonts-merged.lua -- parent file : luatex-fonts.lua --- merge date : 02/16/11 10:54:11 +-- merge date : 02/16/11 17:05:36 do -- begin closure to overcome local limits and interference -- cgit v1.2.3