diff options
Diffstat (limited to 'tex/context/base/x-cals.lua')
| -rw-r--r-- | tex/context/base/x-cals.lua | 209 |
1 files changed, 209 insertions, 0 deletions
diff --git a/tex/context/base/x-cals.lua b/tex/context/base/x-cals.lua new file mode 100644 index 000000000..5d15b4e30 --- /dev/null +++ b/tex/context/base/x-cals.lua @@ -0,0 +1,209 @@ +if not modules then modules = { } end modules ['x-cals'] = { + version = 1.001, + comment = "companion to x-cals.mkiv", + author = "Hans Hagen, PRAGMA-ADE, Hasselt NL", + copyright = "PRAGMA ADE / ConTeXt Development Team", + license = "see context related readme files" +} + +local format, lower = string.format, string.lower +local texsprint, ctxcatcodes = tex.sprint, tex.ctxcatcodes +local xmlsprint, xmlcprint, xmlcollected = xml.sprint, xml.cprint, xml.collected +local n_todimen, s_todimen = number.todimen, string.todimen + +-- there is room for speedups as well as cleanup (using context functions) + +lxml.cals = lxml.cals or { } + +local cals = lxml.cals + +cals.ignore_widths = false +cals.shrink_widths = false +cals.stretch_widths = false + +-- the following flags only apply to columns that have a specified width +-- +-- proportional : shrink or stretch proportionally to the width +-- equal : shrink or stretch equaly distributed +-- n < 1 : shrink or stretch proportionally to the width but multiplied by n +-- +-- more clever things, e.g. the same but applied to unspecified widths +-- has to happen at the core-ntb level (todo) + +local halignments = { + left = "flushleft", + right = "flushright", + center = "middle", + centre = "middle", + justify = "normal", +} + +local valignments = { + top = "high", + bottom = "low", + middle = "lohi", +} + +local function adapt(widths,b,w,delta,sum,n,what) + if b == "equal" then + delta = delta/n + for k, v in next, w do + widths[k] = n_todimen(v - delta) + end + elseif b == "proportional" then + delta = delta/sum + for k, v in next, w do + widths[k] = n_todimen(v - v*delta) + end + elseif type(b) == "number" and b < 1 then + delta = b*delta/sum + for k, v in next, w do + widths[k] = n_todimen(v - v*delta) + end + end +end + +local function getspecs(root, pattern, names, widths) + -- here, but actually we need this in core-ntb.tex + -- but ideally we need an mkiv enhanced core-ntb.tex + local ignore_widths = cals.ignore_widths + local shrink_widths = cals.shrink_widths + local stretch_widths = cals.stretch_widths + for e in xmlcollected(root,pattern) do + local at = e.at + local column = at.colnum + if column then + if not ignore_widths then + local width = at.colwidth + if width then + widths[tonumber(column)] = lower(width) + end + end + local name = at.colname + if name then + names[name] = tonumber(column) + end + end + end + if ignore_width then + -- forget about it + elseif shrink_widths or stretch_widths then + local sum, n, w = 0, 0, { } + for _, v in next, widths do + n = n + 1 + v = (type(v) == "string" and s_todimen(v)) or v + if v then + w[n] = v + sum = sum + v + end + end + local hsize = tex.hsize + if type(hsize) == "string" then + hsize = s_todimen(hsize) + end + local delta = sum - hsize + if shrink_widths and delta > 0 then + adapt(widths,shrink_widths,w,delta,sum,n,"shrink") + elseif stretch_widths and delta < 0 then + adapt(widths,stretch_widths,w,delta,sum,n,"stretch") + end + end +end + +local function getspans(root, pattern, names, spans) + for e in xmlcollected(root,pattern) do + local at = e.at + local name, namest, nameend = at.colname, names[at.namest or "?"], names[at.nameend or "?"] + if name and namest and nameend then + spans[name] = tonumber(nameend) - tonumber(namest) + 1 + end + end +end + +--local function texsprint(a,b) print(b) end +--local function xmlsprint(a) print(a) end + +function cals.table(root,namespace) + + local prefix = (namespace or "cals") .. ":" + local p = "/" .. prefix + + local tgroupspec = p .. "tgroup" + local colspec = p .. "colspec" + local spanspec = p .. "spanspec" + local hcolspec = p .. "thead" .. p .. "colspec" + local bcolspec = p .. "tbody" .. p .. "colspec" + local fcolspec = p .. "tfoot" .. p .. "colspec" + local entryspec = p .. "entry" .. "|" ..prefix .. "entrytbl" + local hrowspec = p .. "thead" .. p .. "row" + local browspec = p .. "tbody" .. p .. "row" + local frowspec = p .. "tfoot" .. p .. "row" + + local function tablepart(root, xcolspec, xrowspec, before, after) -- move this one outside + texsprint(ctxcatcodes,before) + local at = root.at + local pphalign, ppvalign = at.align, at.valign + local names, widths, spans = { }, { }, { } + getspecs(root, colspec , names, widths) + getspecs(root, xcolspec, names, widths) + getspans(root, spanspec, names, spans) + for r, d, k in xml.elements(root,xrowspec) do + texsprint(ctxcatcodes,"\\bTR") + local dk = d[k] + local at = dk.at + local phalign, pvalign = at.align or pphalign, at.valign or ppvalign -- todo: __p__ test + local col = 1 + for rr, dd, kk in xml.elements(dk,entryspec) do + local dk = dd[kk] + if dk.tg == "entrytbl" then + texsprint(ctxcatcodes,"\\bTD{") + cals.table(dk) + texsprint(ctxcatcodes,"}\\eTD") + col = col + 1 + else + local at = dk.at + local b, e, s, m = names[at.namest or "?"], names[at.nameend or "?"], spans[at.spanname or "?"], at.morerows + local halign, valign = at.align or phalign, at.valign or pvalign + if b and e then + s = e - b + 1 + end + if halign then + halign = halignments[halign] + end + if valign then + valign = valignments[valign] + end + local width = widths[col] + if s or m or halign or valign or width then -- only english interface ! + texsprint(ctxcatcodes,format("\\bTD[nx=%s,ny=%s,align={%s,%s},width=%s]", + s or 1, (m or 0)+1, halign or "flushleft", valign or "high", width or "fit")) + -- texsprint(ctxcatcodes,"\\bTD[nx=",s or 1,"ny=",(m or 0)+1,"align={",halign or "flushleft",",",valign or "high","},width=",width or "fit","]") + else + texsprint(ctxcatcodes,"\\bTD[align={flushleft,high},width=fit]") -- else problems with vertical material + end + xmlcprint(dk) + texsprint(ctxcatcodes,"\\eTD") + col = col + (s or 1) + end + end + texsprint(ctxcatcodes,"\\eTR") + end + texsprint(ctxcatcodes,after) + end + + for tgroup in lxml.collected(root,tgroupspec) do + texsprint(ctxcatcodes, "\\directsetup{cals:table:before}") + lxml.directives.before(root,"cdx") -- "cals:table" + texsprint(ctxcatcodes, "\\bgroup") + lxml.directives.setup(root,"cdx") -- "cals:table" + texsprint(ctxcatcodes, "\\bTABLE") + tablepart(tgroup, hcolspec, hrowspec, "\\bTABLEhead", "\\eTABLEhead") + tablepart(tgroup, bcolspec, browspec, "\\bTABLEbody", "\\eTABLEbody") + tablepart(tgroup, fcolspec, frowspec, "\\bTABLEfoot", "\\eTABLEfoot") + texsprint(ctxcatcodes, "\\eTABLE") + texsprint(ctxcatcodes, "\\egroup") + lxml.directives.after(root,"cdx") -- "cals:table" + texsprint(ctxcatcodes, "\\directsetup{cals:table:after}") + end + +end |