73 lines
2.0 KiB
Lua
73 lines
2.0 KiB
Lua
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')
|