Adapt to new luametatex version

luametalatex-oldnames.lua

@@ -0,0 +1,72 @@
+local function rewrite(t)
+  local function handler(old, new)
+    t[old] = t[old] or t[new]
+    if not t[old] then print('!!!', old) end
+    return handler
+  end
+  return handler
+end
+
+rewrite(language)
+  ('clear_hyphenation', 'clearhyphenation')
+  ('clear_patterns', 'clearpatterns')
+
+rewrite(node)
+  ('copy_list', 'copylist')
+  ('flush_list', 'flushlist')
+  ('flush_node', 'flushnode')
+  ('get_properties_table', 'getpropertiestable')
+  ('has_field', 'hasfield')
+  ('insert_after', 'insertafter')
+  ('insert_before', 'insertbefore')
+  ('is_node', 'isnode')
+
+rewrite(node.direct)
+  ('copy_list', 'copylist')
+  ('effective_glue', 'effectiveglue')
+  ('end_of_math', 'endofmath')
+  ('first_glyph', 'firstglyph')
+  ('flush_list', 'flushlist')
+  ('flush_node', 'flushnode')
+  ('get_attribute', 'getattribute')
+  ('get_properties_table', 'getpropertiestable')
+  ('has_field', 'hasfield')
+  ('has_glyph', 'hasglyph')
+  ('insert_after', 'insertafter')
+  ('insert_before', 'insertbefore')
+  ('is_char', 'ischar')
+  ('is_direct', 'isdirect')
+  ('is_glyph', 'isglyph')
+  ('is_node', 'isnode')
+  ('is_zero_glue', 'iszeroglue')
+  ('last_node', 'lastnode')
+  ('make_extensible', 'makeextensible')
+  ('mlist_to_hlist', 'mlisttohlist')
+  ('protect_glyph', 'protectglyph')
+  ('protect_glyphs', 'protectglyphs')
+  ('traverse_char', 'traversechar')
+  ('traverse_list', 'traverselist')
+  ('traverse_id', 'traverseid')
+  ('unprotect_glyph', 'unprotectglyph')
+  ('unprotect_glyphs', 'unprotectglyphs')
+  ('uses_font', 'usesfont')
+
+rewrite(token)
+  ('get_next', 'scannext')
+  ('put_next', 'putnext')
+  ('scan_argument', 'scanargument')
+  ('scan_box', 'scanbox')
+  ('scan_code', 'scancode')
+  ('scan_csname', 'scancsname')
+  ('scan_dimen', 'scandimen')
+  ('scan_float', 'scanfloat')
+  ('scan_glue', 'scanglue')
+  ('scan_int', 'scaninteger')
+  ('scan_keyword', 'scankeyword')
+  ('scan_keywordcs', 'scankeywordcs')
+  ('scan_real', 'scanreal')
+  ('scan_string', 'scanstring')
+  ('scan_token', 'scannextexpanded')
+  ('scan_toks', 'scantoks')
+  ('scan_word', 'scanword')
+  ('set_lua', 'setlua')