From 0189223a1a40debb4cb3b146ce182eb806cd28f2 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Fri, 26 Apr 2019 00:56:11 +0200 Subject: 2019-04-25 10:44:00 --- tex/context/base/mkiv/cldf-ini.lua | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) (limited to 'tex/context/base/mkiv/cldf-ini.lua') diff --git a/tex/context/base/mkiv/cldf-ini.lua b/tex/context/base/mkiv/cldf-ini.lua index 463ece151..0778ced4e 100644 --- a/tex/context/base/mkiv/cldf-ini.lua +++ b/tex/context/base/mkiv/cldf-ini.lua @@ -124,8 +124,8 @@ local scannerdefmode = true local maxflushnodeindex = 0x10FFFF - 1 -- tokenflushmode = false --- scannerdefmode = false -- nodeflushmode = false +-- scannerdefmode = false -- In earlier experiments a function tables was referred to as lua.calls and the -- primitive \luafunctions was \luacall and we used our own implementation of @@ -792,11 +792,11 @@ local function writer(parent,command,...) -- already optimized before call if type(tj) == "function" then tj = storefunction(tj) if tokenflushmode then - if newtoken then + -- if newtoken then flush(currentcatcodes,"[",newtoken(tj,lua_expandable_call_token_code),"]") - else - flush(currentcatcodes,"[",t_cldl_luafunction,tj,"]") - end + -- else + -- flush(currentcatcodes,"[",t_cldl_luafunction,tj,"]") + -- end else flush(currentcatcodes,s_cldl_option_b,tj,s_cldl_option_e) end @@ -810,11 +810,11 @@ local function writer(parent,command,...) -- already optimized before call if type(tj) == "function" then tj = storefunction(tj) if tokenflushmode then - if newtoken then + -- if newtoken then flush(currentcatcodes,"[",newtoken(tj,lua_expandable_call_token_code),j == tn and "]" or ",") - else - flush(currentcatcodes,"[",t_cldl_luafunction,tj,j == tn and "]" or ",") - end + -- else + -- flush(currentcatcodes,"[",t_cldl_luafunction,tj,j == tn and "]" or ",") + -- end else flush(currentcatcodes,s_cldl_option_s,tj,j == tn and "]" or ",") end @@ -831,11 +831,11 @@ local function writer(parent,command,...) -- already optimized before call -- todo: ctx|prt|texcatcodes ti = storefunction(ti) if tokenflushmode then - if newtoken then + -- if newtoken then flush(currentcatcodes,"{",newtoken(ti,lua_expandable_call_token_code),"}") - else - flush(currentcatcodes,"{",t_cldl_luafunction,ti,"}") - end + -- else + -- flush(currentcatcodes,"{",t_cldl_luafunction,ti,"}") + -- end else flush(currentcatcodes,s_cldl_argument_f,ti,s_cldl_argument_e) end @@ -1060,11 +1060,11 @@ local caller = function(parent,f,a,...) -- ignored: a ... f = storefunction(f) if tokenflushmode then - if newtoken then + -- if newtoken then flush(currentcatcodes,"{",newtoken(f,lua_expandable_call_token_code),"}") - else - flush(currentcatcodes,"{",t_cldl_luafunction,f,"}") - end + -- else + -- flush(currentcatcodes,"{",t_cldl_luafunction,f,"}") + -- end else flush(currentcatcodes,s_cldl_argument_b,f,s_cldl_argument_e) -- todo: ctx|prt|texcatcodes end -- cgit v1.2.3