From 0f9de9e5bc918401ef43bd2d998d99826f41c9e9 Mon Sep 17 00:00:00 2001 From: Philipp Gesang Date: Wed, 27 Mar 2013 21:30:35 +0100 Subject: fix globals; bump version --- tex/context/third/transliterator/transliterator.lua | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 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 873e6d6..1278aeb 100644 --- a/tex/context/third/transliterator/transliterator.lua +++ b/tex/context/third/transliterator/transliterator.lua @@ -1,10 +1,10 @@ #!/usr/bin/env texlua -------------------------------------------------------------------------------- -- FILE: transliterator.lua --- USAGE: to be called by t-transliterator.mkiv +-- USAGE: to be called by t-transliterator.mkiv -- DESCRIPTION: basic lua environment for the Transliterator module -- REQUIREMENTS: latest ConTeXt MkIV --- AUTHOR: Philipp Gesang (Phg), +-- AUTHOR: Philipp Gesang (Phg), -- CREATED: 2010-12-23 22:12:31+0100 -------------------------------------------------------------------------------- -- @@ -17,6 +17,10 @@ translit.methods = translit.methods or { } translit.deficient_font = "no" translit.parser_cache = { } +local utf8 = unicode.utf8 +local utf8byte = utf8.byte +local utf8len = utf8.len + -------------------------------------------------------------------------------- -- Predefining vowel lists -------------------------------------------------------------------------------- @@ -76,7 +80,7 @@ do end } - function translit.make_add_dict(dict) + translit.make_add_dict = function (dict) return setmetatable(dict, Dict_add) end end @@ -88,13 +92,12 @@ end -- Generate a rule pattern from hash table. do local P, R, V = lpeg.P, lpeg.R, lpeg.V - local len = unicode.utf8.len -- multi-char rules first - function translit.addrules (dict, rules) + translit.addrules = function (dict, rules) local by_length, occurring_lengths = { }, { } for chr, _ in next, dict do - local l = len(chr) + local l = utf8len(chr) if not by_length[l] then by_length[l] = { } occurring_lengths[#occurring_lengths+1] = l @@ -141,9 +144,9 @@ local strempty = function (s) local i = 1 local r = "" repeat - r = r .. utf.byte(s,i) .. " " + r = r .. utf8byte(s,i) .. " " i = i + 1 - until utf.byte(s,i) == nil + until utf8byte(s,i) == nil return r end end -- cgit v1.2.3