From: Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
Date: Wed, 1 Apr 2020 22:44:40 +0000 (+0900)
Subject: more luadef
X-Git-Tag: 20200412.0~8
X-Git-Url: http://git.osdn.jp/view?a=commitdiff_plain;h=f9c1262aab2fb3fc9ef89d452085cd3ea4d990fe;p=luatex-ja%2Fluatexja.git

more luadef
---

diff --git a/src/ltj-inputbuf.lua b/src/ltj-inputbuf.lua
index 9c1f4e1..75c42b5 100644
--- a/src/ltj-inputbuf.lua
+++ b/src/ltj-inputbuf.lua
@@ -31,16 +31,19 @@ local function add_comment(buffer)
    if i>0 then
       local c = utfbyte(buffer, i)
       if c>=0x80 then
-	 local ct = getcatcode(c)
 	 local te = tex.endlinechar
 	 local ctl = (te ~= -1) and (getcatcode(te)==5) and (getcatcode(getcount('ltjlineendcomment'))==14)
-	 -- Is the catcode of endline character is 5 (end-of-line)?
 	 -- Is the catcode of \ltjlineendcomment (new comment char) is 14 (comment)?
-	 if ((ct==11) or (ct==12)) and ctl then
-	    if ltjc_is_japanese_char_curlist(c) then
-	       buffer = buffer .. utfchar(getcount('ltjlineendcomment'))
+	 -- Is the catcode of endline character is 5 (end-of-line)?
+	 if ctl then
+	    local ct = getcatcode(c)
+	    if (ct==11) or (ct==12) then
+	       if ltjc_is_japanese_char_curlist(c) then
+                  stop_time_measure('inputbuf')
+	          return buffer .. utfchar(getcount('ltjlineendcomment'))
+	       end
 	    end
-	 end
+         end
       end
    end
    stop_time_measure('inputbuf')
diff --git a/src/luatexja-core.sty b/src/luatexja-core.sty
index daab9b1..c8e5449 100644
--- a/src/luatexja-core.sty
+++ b/src/luatexja-core.sty
@@ -200,11 +200,24 @@
 
 %%%%%%%% Redefine \/
 \newluafunction\ltj@@italic@inner
+\newluafunction\ltj@@start@time@measure@inner
+\newluafunction\ltj@@stop@time@measure@inner
 \directlua{
   local t = lua.get_functions_table()
+  local start_time_measure = luatexja.base.start_time_measure
+  local stop_time_measure = luatexja.base.stop_time_measure
+  local scan_arg = token.scan_argument
   t[\the\ltj@@italic@inner] = luatexja.jfont.append_italic
+  t[\the\ltj@@start@time@measure@inner] = function()
+    start_time_measure(scan_arg())
+  end
+  t[\the\ltj@@stop@time@measure@inner] = function()
+    stop_time_measure(scan_arg())
+  end
 }
 \protected\def\/{\relax\luafunction\ltj@@italic@inner}
+\luadef\ltj@@start@time@measure\ltj@@start@time@measure@inner
+\luadef\ltj@@stop@time@measure\ltj@@stop@time@measure@inner
 
 %%%%%%%% \jfont\CS={...:...;jfm=metric;...}, \globaljfont
 \protected\def\jfont#1{%
@@ -253,8 +266,8 @@
   t[\the\ltj@@fakeparbegin@inner] = luatexja.jfmglue.create_beginpar_node
   t[\the\ltj@@fakeboxbdd@inner] = luatexja.jfmglue.create_boxbdd_node
 }
-\protected\def\ltj@reset@globaldefs{\luafunction\ltj@reset@globaldefs@inner}
-\protected\def\ltj@restore@globaldefs{\luafunction\ltj@restore@globaldefs@inner}
+\protected\luadef\ltj@reset@globaldefs  \ltj@reset@globaldefs@inner
+\protected\luadef\ltj@restore@globaldefs\ltj@restore@globaldefs@inner
 \protected\def\inhibitglue{\ifhmode\relax\luafunction\ltj@@ihb@inner\fi}
 \protected\def\ltjfakeparbegin{\ifhmode\relax\luafunction\ltj@@fakeparbegin@inner\fi}
 \protected\def\ltjfakeboxbdd{\ifhmode\relax\luafunction\ltj@@fakeboxbdd@inner\fi}
@@ -394,8 +407,8 @@
     local d = scan_glue(); sss(sti.XSK, d); node.free(d)
   end
 }
-\protected\def\ltjsetkanjiskip{\luafunction\ltjsetkanjiskip@inner}
-\protected\def\ltjsetxkanjiskip{\luafunction\ltjsetxkanjiskip@inner}
+\protected\luadef\ltjsetkanjiskip \ltjsetkanjiskip@inner
+\protected\luadef\ltjsetxkanjiskip\ltjsetxkanjiskip@inner
 
 % jcharwidowpenalty = <count>
 \define@key[ltj]{japaram}{jcharwidowpenalty}{%      %COUNT
@@ -434,16 +447,16 @@
     \else\directlua{luatexja.isglobal=''}\fi
 }
 \protected\def\ltjsetparameter#1{%
-  \directlua{luatexja.base.start_time_measure('set_par')}%
+  \ltj@@start@time@measure{set_par}%
   \ltj@setpar@global\setkeys[ltj]{japaram}{#1}%
-  \directlua{luatexja.base.stop_time_measure('set_par')}%
+  \ltj@@stop@time@measure{set_par}%
   \ignorespaces}
 \protected\def\ltjglobalsetparameter#1{%
   \relax\ifnum\globaldefs<0\directlua{luatexja.isglobal=''}%
     \else\directlua{luatexja.isglobal='global'}\fi%
-  \directlua{luatexja.base.start_time_measure('set_par')}%
+  \ltj@@start@time@measure{set_par}%
   \setkeys[ltj]{japaram}{#1}%
-  \directlua{luatexja.base.stop_time_measure('set_par')}%
+  \ltj@@stop@time@measure{set_par}%
   \ignorespaces}
 
 %%%%%%%% \ltjgetparameter
@@ -459,7 +472,7 @@
 \ltj@@decl@array@param{chartorange}
 \ltj@@decl@array@param{boxdir}
 \def\ltjgetparameter#1{%
-  \directlua{luatexja.base.start_time_measure('get_par')}%
+  \ltj@@start@time@measure{get_par}%
   % stop call is moved in luatexja.lua
   \ifcsname ltj@@array@param/#1\endcsname
     \expandafter\ltx@firstoftwo
@@ -612,41 +625,34 @@
   }$%
 }
 \setbox\z@\box\voidb@x
+\newluafunction\ltj@@box@dirhook@inner
+\newluafunction\ltj@@reset@badness@inner
+\directlua{
+  local t, ltjd = lua.get_functions_table(), luatexja.direction
+  t[\the\ltj@@box@dirhook@inner]
+    = function() ltjd.set_list_direction_hook() end
+  t[\the\ltj@@reset@badness@inner] = function()
+    if luatexja.global_temp then
+      tex.hbadness= tex.hbadness or luatexja.hbadness_temp
+      tex.vbadness= tex.vbadness or luatexja.vbadness_temp
+      tex.globaldefs= luatexja.global_temp or tex.globaldefs
+    end
+  end
+}
+\luadef\ltj@@box@dirhook\ltj@@box@dirhook@inner
 \ifltj@everyhook@avail% using everyhook package
-  \newluafunction\ltj@@box@dirhook
-  \directlua{
-    local t, ltjd = lua.get_functions_table(), luatexja.direction
-    t[\the\ltj@@box@dirhook]
-      = function() ltjd.set_list_direction_hook() end
-  }
-  \PushPreHook{hbox}{\luafunction\ltj@@box@dirhook\aftergroup\ltj@@reset@badness}
-  \PushPreHook{vbox}{\luafunction\ltj@@box@dirhook\aftergroup\ltj@@reset@badness}
+  \PushPreHook{hbox}{\ltj@@box@dirhook\aftergroup\ltj@@reset@badness}
+  \PushPreHook{vbox}{\ltj@@box@dirhook\aftergroup\ltj@@reset@badness}
 \else
   \let\ltj@@everyhbox=\everyhbox\let\ltj@@everyvbox=\everyvbox
   \newtoks\ltj@@i@everyhbox\newtoks\ltj@@i@everyvbox
   \let\everyhbox=\ltj@@i@everyhbox\let\everyvbox=\ltj@@i@everyvbox
-  \newluafunction\ltj@@box@dirhook
-  \directlua{
-    local t, ltjd = lua.get_functions_table(), luatexja.direction
-    t[\the\ltj@@box@dirhook] 
-      = function() ltjd.set_list_direction_hook() end
-  }
-  \ltj@@everyhbox{\luafunction\ltj@@box@dirhook
+  \ltj@@everyhbox{\ltj@@box@dirhook
     \aftergroup\ltj@@reset@badness\the\ltj@@i@everyhbox}
-  \ltj@@everyvbox{\luafunction\ltj@@box@dirhook
+  \ltj@@everyvbox{\ltj@@box@dirhook
     \aftergroup\ltj@@reset@badness\the\ltj@@i@everyvbox}
 \fi
 
-\newluafunction\ltj@@reset@badness@inner
-\directlua{
-  local t = lua.get_functions_table()
-  t[\the\ltj@@reset@badness@inner] = function() 
-    if luatexja.global_temp then
-      tex.hbadness= tex.hbadness or luatexja.hbadness_temp
-      tex.vbadness= tex.vbadness or luatexja.vbadness_temp
-      tex.globaldefs= luatexja.global_temp or tex.globaldefs
-    end
-  end}
 \protected\def\ltj@@reset@badness{\luafunction\ltj@@reset@badness@inner}
 
 \AtBeginShipout{\directlua{luatexja.direction.finalize()}}
diff --git a/src/patches/lltjfont.sty b/src/patches/lltjfont.sty
index 59684f5..2f2fe9a 100644
--- a/src/patches/lltjfont.sty
+++ b/src/patches/lltjfont.sty
@@ -378,7 +378,7 @@
     }%
   \fi}
 \def\ltj@selectfont@patch{%
-  \directlua{luatexja.base.start_time_measure('selectfont')}%
+  \ltj@@start@time@measure{selectfont}%
   \let\tmp@error@fontshape\error@fontshape
   \let\error@fontshape\error@kfontshape
   \ltj@@is@kyenc{\k@encoding}\ifin@%
@@ -416,7 +416,7 @@
     \fi
   \fi
   \global\let\font@name=\ltj@afont@name
-  \directlua{luatexja.base.stop_time_measure('selectfont')}%
+  \ltj@@stop@time@measure{selectfont}%
 }
 \EverySelectfont{\ltj@selectfont@patch}