From 30b3429f0e138c93c5f1ba1d1a6d46728c0943e9 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 4 Oct 2022 03:00:59 +0000 Subject: CTAN sync 202210040300 --- .../luatex/generic/luaotfload/luaotfload-bcp47.lua | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) (limited to 'macros/luatex/generic/luaotfload/luaotfload-bcp47.lua') diff --git a/macros/luatex/generic/luaotfload/luaotfload-bcp47.lua b/macros/luatex/generic/luaotfload/luaotfload-bcp47.lua index 03dc65e5bc..fc90c14363 100644 --- a/macros/luatex/generic/luaotfload/luaotfload-bcp47.lua +++ b/macros/luatex/generic/luaotfload/luaotfload-bcp47.lua @@ -55,7 +55,7 @@ local normalize_case, language_tag do + l.P'sgn-CH-DE' * l.Cc{language = 'sgg'} local regular = l.P'art-lojban' * l.Cc{language = 'jbo'} - + l.P'cel-gaulish' * l.Cc{language = '...'} + + l.P'cel-gaulish' * l.Cc{language = 'cel-gaulish'} -- Might be xcg, xga or xtg + l.P'no-bok' * l.Cc{language = 'nb'} + l.P'no-nyn' * l.Cc{language = 'nn'} + l.P'zh-guoyu' * l.Cc{language = 'cmn'} @@ -69,17 +69,18 @@ local normalize_case, language_tag do * ('-' * variant)^0 * (#('-' * singleton * '-') * l.Cg(l.Cf(l.Ct'' * ('-' * extension)^0, rawset), 'extension'))^-1 * ('-' * privateuse)^-1 - language_tag = (grandfathered + l.Ct(langtag + privateuse)) * l.Cp()--* -1 + language_tag = (grandfathered + l.Ct(langtag + privateuse)) * -1 end local function parse(tag) tag = normalize_case:match(tag) if not tag then return end - local parsed, pos = language_tag:match(tag) - print(require'inspect'{parsed, pos}) - -- if not parsed then return parsed end - return tag, parsed -end -for l in io.lines() do - print(parse(l)) - -- io.stdout:write(parse(l), '\n') + return language_tag:match(tag), tag end +-- for l in io.lines() do +-- print(parse(l)) +-- -- io.stdout:write(parse(l), '\n') +-- end +return { + normalize_case = function(n) return normalize_case:match(tag) end, + parse = parse, +} -- cgit v1.2.3