summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/luatex/luatexja/ltj-inputbuf.lua
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-07-12 23:26:02 +0000
committerKarl Berry <karl@freefriends.org>2013-07-12 23:26:02 +0000
commit50834d5bc5540f43c363b17c18a9809b5a827a47 (patch)
treed15996fcb49041557c50bf78b1a2dfd21c47e5a9 /Master/texmf-dist/tex/luatex/luatexja/ltj-inputbuf.lua
parent944cd493cc09852c6d84e0519760c97750efb2aa (diff)
luatexja 20130711.0 (12jul13)
git-svn-id: svn://tug.org/texlive/trunk@31183 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/luatex/luatexja/ltj-inputbuf.lua')
-rw-r--r--Master/texmf-dist/tex/luatex/luatexja/ltj-inputbuf.lua20
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