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 | 33 |
1 files changed, 16 insertions, 17 deletions
diff --git a/Master/texmf-dist/tex/luatex/luatexja/ltj-inputbuf.lua b/Master/texmf-dist/tex/luatex/luatexja/ltj-inputbuf.lua index 0616f4e50c4..6423f8817a5 100644 --- a/Master/texmf-dist/tex/luatex/luatexja/ltj-inputbuf.lua +++ b/Master/texmf-dist/tex/luatex/luatexja/ltj-inputbuf.lua @@ -2,16 +2,16 @@ -- ltj-inputbuf.lua -- -luatexja.load_module('base'); local ltjb = luatexja.base -luatexja.load_module('charrange'); local ltjc = luatexja.charrange +luatexja.load_module 'base'; local ltjb = luatexja.base +luatexja.load_module 'charrange'; local ltjc = luatexja.charrange -require("unicode") +require "unicode" local utflen = utf.len local utfbyte = utf.byte local utfchar = utf.char local node_new = node.new local node_free = node.free -local id_glyph = node.id('glyph') +local id_glyph = node.id 'glyph' local getcatcode, getcount = tex.getcatcode, tex.getcount local ltjc_is_japanese_char_curlist = ltjc.is_japanese_char_curlist @@ -22,31 +22,30 @@ local time_line = 0 local start_time_measure, stop_time_measure = ltjb.start_time_measure, ltjb.stop_time_measure local function add_comment(buffer) - start_time_measure('inputbuf') + start_time_measure 'inputbuf' local i = utflen(buffer) while (i>0) and (getcatcode(utfbyte(buffer, i))==1 - or getcatcode(utfbyte(buffer, i))==2) do + or getcatcode(utfbyte(buffer, i))==2) do i=i-1 end if i>0 then local c = utfbyte(buffer, i) if c>=0x80 then - local te = tex.endlinechar - -- Is the catcode of endline character is 5 (end-of-line)? - if (te ~= -1) and (getcatcode(te)==5) then - local ct = getcatcode(c) - if (ct==11) or (ct==12) then - local lec = getcount('ltjlineendcomment') + local te = tex.endlinechar + -- Is the catcode of endline character is 5 (end-of-line)? + if (te ~= -1) and (getcatcode(te)==5) then + local ct = getcatcode(c) + if (ct==11) or (ct==12) then + local lec = getcount 'ltjlineendcomment' -- Is the catcode of \ltjlineendcomment (new comment char) is 14 (comment)? - if ltjc_is_japanese_char_curlist(c) and (getcatcode(lec)==14) then - stop_time_measure('inputbuf') - return buffer .. utfchar(lec) + if ltjc_is_japanese_char_curlist(c) and (getcatcode(lec)==14) then + stop_time_measure 'inputbuf'; return buffer .. utfchar(lec) end - end + end end end end - stop_time_measure('inputbuf') + stop_time_measure 'inputbuf' return buffer end |