From 8997cba3b476b351f1fe11a859adc2494136ce47 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 21 Jan 2017 23:10:12 +0000 Subject: nodetree.{tex,lua} in runtime, rolf 21 Jan 2017 13:28:23 git-svn-id: svn://tug.org/texlive/trunk@43011 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/luatex/nodetree/nodetree.lua | 716 --------------------- Master/texmf-dist/doc/luatex/nodetree/nodetree.tex | 47 -- 2 files changed, 763 deletions(-) delete mode 100644 Master/texmf-dist/doc/luatex/nodetree/nodetree.lua delete mode 100644 Master/texmf-dist/doc/luatex/nodetree/nodetree.tex (limited to 'Master/texmf-dist/doc/luatex') diff --git a/Master/texmf-dist/doc/luatex/nodetree/nodetree.lua b/Master/texmf-dist/doc/luatex/nodetree/nodetree.lua deleted file mode 100644 index 170f040c348..00000000000 --- a/Master/texmf-dist/doc/luatex/nodetree/nodetree.lua +++ /dev/null @@ -1,716 +0,0 @@ -local nodex = {} -local tpl = {} -local tree = {} -tree.state = {} -local callbacks = {} -local base = {} -local options = {} -function nodex.node_id(n) - return string.gsub(tostring(n), '^ 1 then - out = out .. tpl.type_id(n.subtype) - end - return out - else - return tostring(n.subtype) - end - assert(false) -end -function tpl.round(number) - local mult = 10^(options.decimalplaces or 0) - return math.floor(number * mult + 0.5) / mult -end -function tpl.length(input) - input = tonumber(input) - input = input / tex.sp('1' .. options.unit) - return string.format('%g%s', tpl.round(input), options.unit) -end -function tpl.fill(number, order, field) - if order ~= nil and order ~= 0 then - if field == 'stretch' then - out = '+' - else - out = '-' - end - return out .. string.format( - '%gfi%s', number / 2^16, - string.rep('l', order - 1) - ) - else - return tpl.length(number) - end -end -tpl.node_colors = { - hlist = {'red', 'bright'}, - vlist = {'green', 'bright'}, - rule = {'blue', 'bright'}, - ins = {'blue'}, - mark = {'magenta'}, - adjust = {'cyan'}, - boundary = {'red', 'bright'}, - disc = {'green', 'bright'}, - whatsit = {'yellow', 'bright'}, - local_par = {'blue', 'bright'}, - dir = {'magenta', 'bright'}, - math = {'cyan', 'bright'}, - glue = {'magenta', 'bright'}, - kern = {'green', 'bright'}, - penalty = {'yellow', 'bright'}, - unset = {'blue'}, - style = {'magenta'}, - choice = {'cyan'}, - noad = {'red'}, - radical = {'green'}, - fraction = {'yellow'}, - accent = {'blue'}, - fence = {'magenta'}, - math_char = {'cyan'}, - sub_box = {'red', 'bright'}, - sub_mlist = {'green', 'bright'}, - math_text_char = {'yellow', 'bright'}, - delim = {'blue', 'bright'}, - margin_kern = {'magenta', 'bright'}, - glyph = {'cyan', 'bright'}, - align_record = {'red'}, - pseudo_file = {'green'}, - pseudo_line = {'yellow'}, - page_insert = {'blue'}, - split_insert = {'magenta'}, - expr_stack = {'cyan'}, - nested_list = {'red'}, - span = {'green'}, - attribute = {'yellow'}, - glue_spec = {'magenta'}, - attribute_list = {'cyan'}, - temp = {'magenta'}, - align_stack = {'red', 'bright'}, - movement_stack = {'green', 'bright'}, - if_stack = {'yellow', 'bright'}, - unhyphenated = {'magenta', 'bright'}, - hyphenated = {'cyan', 'bright'}, - delta = {'red'}, - passive = {'green'}, - shape = {'yellow'}, -} -function tpl.color_code(code) - return string.char(27) .. '[' .. tostring(code) .. 'm' -end -function tpl.color(color, mode, background) - if options.color ~= 'colored' then - return '' - end - local out = '' - local code = '' - if mode == 'bright' then - out = tpl.color_code(1) - elseif mode == 'dim' then - out = tpl.color_code(2) - end - if not background then - if color == 'reset' then code = 0 - elseif color == 'red' then code = 31 - elseif color == 'green' then code = 32 - elseif color == 'yellow' then code = 33 - elseif color == 'blue' then code = 34 - elseif color == 'magenta' then code = 35 - elseif color == 'cyan' then code = 36 - else code = 37 end - else - if color == 'black' then code = 40 - elseif color == 'red' then code = 41 - elseif color == 'green' then code = 42 - elseif color == 'yellow' then code = 43 - elseif color == 'blue' then code = 44 - elseif color == 'magenta' then code = 45 - elseif color == 'cyan' then code = 46 - elseif color == 'white' then code = 47 - else code = 40 end - end - return out .. tpl.color_code(code) -end -function tpl.key_value(key, value) - local out = tpl.color('yellow') .. key .. ': ' - if value then - out = out .. tpl.color('white') .. value .. '; ' - end - return out .. tpl.color('reset') -end -function tpl.char(input) - return string.format('%q', unicode.utf8.char(input)) -end -function tpl.type(type, id) - local out = tpl.color( - tpl.node_colors[type][1], - tpl.node_colors[type][2] - ) - .. string.upper(type) - if options.verbosity > 1 then - out = out .. tpl.type_id(id) - end - return out .. tpl.color('reset') .. ' ' -end -function tpl.callback_variable(variable_name, variable) - if variable ~= nil and variable ~= '' then - tpl.print(variable_name .. ': ' .. tostring(variable)) - end -end -function tpl.line(length) - if length == 'long' then - return '------------------------------------------' - else - return '-----------------------' - end -end -function tpl.callback(callback_name, variables) - tpl.print('\n\n') - tpl.print('Callback: ' .. tpl.color('red', '', true) .. - callback_name .. tpl.color('reset') - ) - if variables then - for name, value in pairs(variables) do - if value ~= nil and value ~= '' then - tpl.print(' - ' .. name .. ': ' .. tostring(value)) - end - end - end - tpl.print(tpl.line('long')) -end -function tpl.type_id(id) - return '[' .. tostring(id) .. ']' -end -function tpl.branch(connection_type, connection_state, last) - local c = connection_type - local s = connection_state - local l = last - if c == 'list' and s == 'stop' and l == false then - return ' ' - elseif c == 'field' and s == 'stop' and l == false then - return ' ' - elseif c == 'list' and s == 'continue' and l == false then - return '│ ' - elseif c == 'field' and s == 'continue' and l == false then - return '║ ' - elseif c == 'list' and s == 'continue' and l == true then - return '├─' - elseif c == 'field' and s == 'continue' and l == true then - return '╠═' - elseif c == 'list' and s == 'stop' and l == true then - return '└─' - elseif c == 'field' and s == 'stop' and l == true then - return '╚═' - end -end -function tpl.branches(level, connection_type) - local out = '' - for i = 1, level - 1 do - out = out .. tpl.branch('list', tree.state[i]['list'], false) - out = out .. tpl.branch('field', tree.state[i]['field'], false) - end - if connection_type == 'list' then - out = out .. tpl.branch('list', tree.state[level]['list'], true) - else - out = out .. tpl.branch('list', tree.state[level]['list'], false) - out = out .. tpl.branch('field', tree.state[level]['field'], true) - end - return out -end -function tpl.print(text) - - if options.channel == 'log' then - if not log then - log = io.open(tex.jobname .. '_nodetree.log', 'a') - end - log:write(text, '\n') - else - print(' ' .. text) - end -end -function tree.format_field(head, field) - local out = '' - if not head[field] or head[field] == 0 then - return '' - end - if options.verbosity < 2 and - -- glyph - field == 'font' or - field == 'left' or - field == 'right' or - field == 'uchyph' or - -- hlist - field == 'dir' or - field == 'glue_order' or - field == 'glue_sign' or - field == 'glue_set' or - -- glue - field == 'stretch_order' then - return '' - elseif options.verbosity < 3 and - field == 'prev' or - field == 'next' or - field == 'id' - then - return '' - end - if field == 'prev' or field == 'next' then - out = nodex.node_id(head[field]) - elseif field == 'subtype' then - out = nodex.subtype(head) - elseif - field == 'width' or - field == 'height' or - field == 'depth' or - field == 'kern' or - field == 'shift' then - out = tpl.length(head[field]) - elseif field == 'char' then - out = tpl.char(head[field]) - elseif field == 'glue_set' then - out = tpl.round(head[field]) - elseif field == 'stretch' or field == 'shrink' then - out = tpl.fill(head[field], head[field .. '_order'], field) - else - out = tostring(head[field]) - end - return tpl.key_value(field, out) -end -function tree.set_state(level, connection_type, connection_state) - if not tree.state[level] then - tree.state[level] = {} - end - tree.state[level][connection_type] = connection_state -end -function tree.analyze_fields(fields, level) - local max = 0 - local connection_state = '' - for _ in pairs(fields) do - max = max + 1 - end - local count = 0 - for field_name, recursion_node in pairs(fields) do - count = count + 1 - if count == max then - connection_state = 'stop' - else - connection_state = 'continue' - end - tree.set_state(level, 'field', connection_state) - tpl.print(tpl.branches(level, 'field') .. tpl.key_value(field_name)) - tree.analyze_list(recursion_node, level + 1) - end -end -function tree.analyze_node(head, level) - local connection_state - local out = '' - if head.next then - connection_state = 'continue' - else - connection_state = 'stop' - end - tree.set_state(level, 'list', connection_state) - out = tpl.branches(level, 'list') - .. tpl.type(node.type(head.id), head.id) - if options.verbosity > 1 then - out = out .. tpl.key_value('no', nodex.node_id(head)) - end - local fields = {} - for field_id, field_name in pairs(node.fields(head.id, head.subtype)) do - if field_name ~= 'next' and - field_name ~= 'prev' and - node.is_node(head[field_name]) then - fields[field_name] = head[field_name] - else - out = out .. tree.format_field(head, field_name) - end - end - tpl.print(out) - tree.analyze_fields(fields, level) -end -function tree.analyze_list(head, level) - while head do - tree.analyze_node(head, level) - head = head.next - end -end -function tree.analyze_callback(head) - tree.analyze_list(head, 1) - tpl.print(tpl.line('short') .. '\n') -end -function callbacks.contribute_filter(extrainfo) - tpl.callback('contribute_filter', {extrainfo = extrainfo}) - return true -end -function callbacks.buildpage_filter(extrainfo) - tpl.callback('buildpage_filter', {extrainfo = extrainfo}) - return true -end -function callbacks.pre_linebreak_filter(head, groupcode) - tpl.callback('pre_linebreak_filter', {groupcode = groupcode}) - tree.analyze_callback(head) - return true -end -function callbacks.linebreak_filter(head, is_display) - tpl.callback('linebreak_filter', {is_display = is_display}) - tree.analyze_callback(head) - return true -end -function callbacks.append_to_vlist_filter(head, locationcode, prevdepth, mirrored) - local variables = { - locationcode = locationcode, - prevdepth = prevdepth, - mirrored = mirrored, - } - tpl.callback('append_to_vlist_filter', variables) - tree.analyze_callback(head) - return true -end -function callbacks.post_linebreak_filter(head, groupcode) - tpl.callback('post_linebreak_filter', {groupcode = groupcode}) - tree.analyze_callback(head) - return true -end -function callbacks.hpack_filter(head, groupcode, size, packtype, direction, attributelist) - local variables = { - groupcode = groupcode, - size = size, - packtype = packtype, - direction = direction, - attributelist = attributelist, - } - tpl.callback('hpack_filter', variables) - tree.analyze_callback(head) - return true -end -function callbacks.vpack_filter(head, groupcode, size, packtype, maxdepth, direction, attributelist) - local variables = { - groupcode = groupcode, - size = size, - packtype = packtype, - maxdepth = tpl.length(maxdepth), - direction = direction, - attributelist = attributelist, - } - tpl.callback('vpack_filter', variables) - tree.analyze_callback(head) - return true -end -function callbacks.hpack_quality(incident, detail, head, first, last) - local variables = { - incident = incident, - detail = detail, - first = first, - last = last, - } - tpl.callback('hpack_quality', variables) - tree.analyze_callback(head) -end -function callbacks.vpack_quality(incident, detail, head, first, last) - local variables = { - incident = incident, - detail = detail, - first = first, - last = last, - } - tpl.callback('vpack_quality', variables) - tree.analyze_callback(head) -end -function callbacks.process_rule(head, width, height) - local variables = { - width = width, - height = height, - } - tpl.callback('process_rule', variables) - tree.analyze_callback(head) - return true -end -function callbacks.pre_output_filter(head, groupcode, size, packtype, maxdepth, direction) - local variables = { - groupcode = groupcode, - size = size, - packtype = packtype, - maxdepth = maxdepth, - direction = direction, - } - tpl.callback('pre_output_filter', variables) - tree.analyze_callback(head) - return true -end -function callbacks.hyphenate(head, tail) - tpl.callback('hyphenate') - tpl.print('head:') - tree.analyze_callback(head) - tpl.print('tail:') - tree.analyze_callback(tail) -end -function callbacks.ligaturing(head, tail) - tpl.callback('ligaturing') - tpl.print('head:') - tree.analyze_callback(head) - tpl.print('tail:') - tree.analyze_callback(tail) -end -function callbacks.kerning(head, tail) - tpl.callback('kerning') - tpl.print('head:') - tree.analyze_callback(head) - tpl.print('tail:') - tree.analyze_callback(tail) -end -function callbacks.insert_local_par(local_par, location) - tpl.callback('insert_local_par', {location = location}) - tree.analyze_callback(local_par) - return true -end -function callbacks.mlist_to_hlist(head, display_type, need_penalties) - local variables = { - display_type = display_type, - need_penalties = need_penalties, - } - tpl.callback('mlist_to_hlist', variables) - tree.analyze_callback(head) - return node.mlist_to_hlist(head, display_type, need_penalties) -end -function base.normalize_options() - options.verbosity = tonumber(options.verbosity) - options.decimalplaces = tonumber(options.decimalplaces) -end -function base.set_default_options() - local defaults = { - verbosity = 1, - callback = 'postlinebreak', - engine = 'luatex', - color = 'colored', - decimalplaces = 2, - unit = 'pt', - channel = 'term', - } - if not options then - options = {} - end - for key, value in pairs(defaults) do - if not options[key] then - options[key] = value - end - end - base.normalize_options() -end -function base.set_option(key, value) - if not options then - options = {} - end - options[key] = value - base.normalize_options() -end -function base.get_option(key) - if not options then - options = {} - end - if options[key] then - return options[key] - end -end -function base.get_callback_name(alias) - if alias == 'contribute' or alias == 'contributefilter' then - return 'contribute_filter' - elseif alias == 'buildpage' or alias == 'buildpagefilter' then - return 'buildpage_filter' - elseif alias == 'preline' or alias == 'prelinebreakfilter' then - return 'pre_linebreak_filter' - elseif alias == 'line' or alias == 'linebreakfilter' then - return 'linebreak_filter' - elseif alias == 'append' or alias == 'appendtovlistfilter' then - return 'append_to_vlist_filter' - elseif alias == 'postline' or alias == 'postlinebreakfilter' then - return 'post_linebreak_filter' - elseif alias == 'hpack' or alias == 'hpackfilter' then - return 'hpack_filter' - elseif alias == 'vpack' or alias == 'vpackfilter' then - return 'vpack_filter' - elseif alias == 'hpackq' or alias == 'hpackquality' then - return 'hpack_quality' - elseif alias == 'vpackq' or alias == 'vpackquality' then - return 'vpack_quality' - elseif alias == 'process' or alias == 'processrule' then - return 'process_rule' - elseif alias == 'preout' or alias == 'preoutputfilter' then - return 'pre_output_filter' - elseif alias == 'hyph' or alias == 'hyphenate' then - return 'hyphenate' - elseif alias == 'liga' or alias == 'ligaturing' then - return 'ligaturing' - elseif alias == 'kern' or alias == 'kerning' then - return 'kerning' - elseif alias == 'insert' or alias == 'insertlocalpar' then - return 'insert_local_par' - elseif alias == 'mhlist' or alias == 'mlisttohlist' then - return 'mlist_to_hlist' - else - return 'post_linebreak_filter' - end -end -function base.register(cb) - if options.engine == 'lualatex' then - luatexbase.add_to_callback(cb, callbacks[cb], 'nodetree') - else - id, error = callback.register(cb, callbacks[cb]) - end -end -function base.register_callbacks() - for alias in string.gmatch(options.callback, '([^,]+)') do - base.register(base.get_callback_name(alias)) - end -end -function base.unregister(cb) - if options.engine == 'lualatex' then - luatexbase.remove_from_callback(cb, 'nodetree') - else - id, error = callback.register(cb, nil) - end -end -function base.unregister_callbacks() - for alias in string.gmatch(options.callback, '([^,]+)') do - base.unregister(base.get_callback_name(alias)) - end -end -function base.execute() - local c = base.get_callback() - if options.engine == 'lualatex' then - luatexbase.add_to_callback(c, callbacks.post_linebreak_filter, 'nodetree') - else - id, error = callback.register(c, callbacks.post_linebreak_filter) - end -end -function base.analyze(head) - tpl.print('\n') - tree.analyze_list(head, 1) -end -return base diff --git a/Master/texmf-dist/doc/luatex/nodetree/nodetree.tex b/Master/texmf-dist/doc/luatex/nodetree/nodetree.tex deleted file mode 100644 index 71373b5d716..00000000000 --- a/Master/texmf-dist/doc/luatex/nodetree/nodetree.tex +++ /dev/null @@ -1,47 +0,0 @@ -%% -%% This is file `nodetree.tex', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% nodetree.dtx (with options: `tex') -%% -%% This is a generated file. -%% -%% Copyright (C) 2016 by Josef Friedrich -%% ---------------------------------------------------------------------- -%% This work may be distributed and/or modified under the conditions of -%% the LaTeX Project Public License, either version 1.3c of this license -%% or (at your option) any later version. The latest version of this -%% license is in: -%% -%% http://www.latex-project.org/lppl.txt -%% -%% and version 1.3c or later is part of all distributions of LaTeX -%% version 2008/05/05 or later. -%% -\directlua{ - nodetree = require('nodetree') - nodetree.set_option('engine', 'luatex') - nodetree.set_default_options() -} -\def\nodetreeoption[#1]#2{ - \directlua{ - nodetree.set_option('#1', '#2') - } -} -\def\nodetreeregister#1{ - \directlua{ - nodetree.set_option('callback', '#1') - nodetree.register_callbacks() - } -} -\def\nodetreeunregister#1{ - \directlua{ - nodetree.set_option('callback', '#1') - nodetree.unregister_callbacks() - } -} -\endinput -%% -%% End of file `nodetree.tex'. -- cgit v1.2.3