diff options
Diffstat (limited to 'Master/texmf-dist/tex/luatex/luatexja/ltj-inputbuf.lua')
| -rw-r--r-- | Master/texmf-dist/tex/luatex/luatexja/ltj-inputbuf.lua | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/Master/texmf-dist/tex/luatex/luatexja/ltj-inputbuf.lua b/Master/texmf-dist/tex/luatex/luatexja/ltj-inputbuf.lua index f97f966039b..f90047247c0 100644 --- a/Master/texmf-dist/tex/luatex/luatexja/ltj-inputbuf.lua +++ b/Master/texmf-dist/tex/luatex/luatexja/ltj-inputbuf.lua @@ -4,22 +4,26 @@ luatexja.load_module('charrange'); local ltjc = luatexja.charrange -local utf = unicode.utf8 +require("unicode") +local utflen = unicode.utf8.len +local utfbyte = unicode.utf8.byte local node_new = node.new +local node_free = node.free local id_glyph = node.id('glyph') local getcatcode = tex.getcatcode local ltjc_is_ucs_in_japanese_char = ltjc.is_ucs_in_japanese_char +local FFFFF = string.char(0xF3,0xBF,0xBF,0xBF) --- the following function is modified from jafontspec.lua (by K. Maeda). --- Instead of "%", we use U+FFFFF for suppressing spaces. local function add_comment(buffer) - local i = utf.len(buffer) - while (i>0) and (getcatcode(utf.byte(buffer, i))==1 - or getcatcode(utf.byte(buffer, i))==2) do + local i = utflen(buffer) + while (i>0) and (getcatcode(utfbyte(buffer, i))==1 + or getcatcode(utfbyte(buffer, i))==2) do i=i-1 end if i>0 then - local c = utf.byte(buffer, i) + local c = utfbyte(buffer, i) if c>0x80 then local ct = getcatcode(c) local te = tex.endlinechar @@ -30,9 +34,9 @@ local function add_comment(buffer) local p = node_new(id_glyph) p.char = c if ltjc_is_ucs_in_japanese_char(p) then - buffer = buffer .. string.char(0xF3,0xBF,0xBF,0xBF) -- U+FFFFF + buffer = buffer .. FFFFF -- U+FFFFF end - node.free(p) + node_free(p) end end end @@ -42,4 +46,4 @@ end luatexbase.add_to_callback('process_input_buffer', add_comment,'ltj.process_input_buffer') ---EOF
\ No newline at end of file +--EOF |