From 7bed06e355778cdcfb932a75896b95e7f23e4b75 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 2 Aug 2020 21:06:17 +0000 Subject: luatexja (2aug20) git-svn-id: svn://tug.org/texlive/trunk@56029 c570f23f-e606-0410-a88d-b1316a301751 --- .../tex/luatex/luatexja/ltj-inputbuf.lua | 33 +++++++++++----------- 1 file changed, 16 insertions(+), 17 deletions(-) (limited to 'Master/texmf-dist/tex/luatex/luatexja/ltj-inputbuf.lua') 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 -- cgit v1.2.3