luatexja.load_module('base'); local ltjb = luatexja.base
+--------------------------------------------------------------------------------
+-- stack table (obeys TeX's grouping)
+--------------------------------------------------------------------------------
local node_new = node.new
local id_whatsit = node.id('whatsit')
local sid_user = node.subtype('user_defined')
return i
end
--- local function table_to_str(v)
--- local s = ''
--- for i, a in pairs(v) do
--- s = s .. i .. "=" .. tostring(a) .. ', '
--- end
--- return s
--- end
--- function print_stack_table(i)
--- print('\n>>> get_stack_level:')
--- for k, v in pairs(charprop_stack_table[i]) do
--- print(" " , k, type(k), table_to_str(v));
--- end
--- end
-
function set_stack_table(m,p, is_v)
local i = get_stack_level(is_v)
charprop_stack_table[i][m] = p
set_stack_table(m+c, p)
end
--- EXT: store \ltj@tempskipa
+-- EXT: sp: glue_spec
function set_stack_skip(m,sp)
local i = get_stack_level()
if not sp then return end
end
+--------------------------------------------------------------------------------
+-- nest table (obeys TeX's semantic nest)
+--------------------------------------------------------------------------------
+nest_table = {}
+local nest_table = nest_table
+
+
-- EOF