Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
-- treehead.lua:
-- This file:
--   http://angg.twu.net/dednat6/treehead.lua.html
--   http://angg.twu.net/dednat6/treehead.lua
--                    (find-dn6 "treehead.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
-- Version: 2013feb01 / 2015may09
-- License: GPL3
--

-- «.tree-head»	(to "tree-head")

-- require "segments"   -- (find-dn6 "segments.lua")
require "treesegs"      -- (find-dn6 "treesegs.lua")
require "treetex"       -- (find-dn6 "treetex.lua")
-- require "process"    -- (find-dn6 "process.lua")

output = output or print

-- (find-dn6 "segments.lua")
-- This should be enough for the moment.
-- Add new methods to an existing class
Segment.__index.totreenode = segtotreenode

-- «tree-head» (to ".tree-head")
-- Moved to: (find-dn6 "heads6.lua" "tree-head")
-- (find-dn6 "trees.lua")
-- (find-dn6 "segments.lua")
-- registerhead "%:" {
--   action = function ()
--       allsegments[nline] = tosegments(linestr, nline)
--       for _,seg in ipairs(allsegments[nline]) do
--         local name = seg.t:match("^%^(.*)")
--         if name then
--           output(seg:rootnode():totreenode():TeX_deftree(name))
--         end
--       end
--     end,
-- }





-- dump-to: tests
--[==[
--]==]

-- Local Variables:
-- coding:             raw-text-unix
-- ee-anchor-format:   "«%s»"
-- End: