strc-mat.lmt /size: 881 b    last modification: 2024-01-16 10:22
1if not modules then modules = { } end modules ['strc-mat'] = {
2    version   = 1.001,
3    comment   = "companion to strc-mat.mkiv",
4    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
5    copyright = "PRAGMA ADE / ConTeXt Development Team",
6    license   = "see context related readme files"
7}
8
9local structures = structures
10
11local lists      = structures.lists
12local sections   = structures.sections
13local helpers    = structures.helpers
14----- formulas   = structures.formulas --reserved
15
16function helpers.formulanumber(data,spec)
17    if data then
18        local formulanumber = data.formulanumber
19        if formulanumber then
20            sections.number(data,spec,"formulanumber","formulanumber","number")
21        end
22    end
23end
24
25function lists.formulanumber(name,n,spec)
26    local result = lists.result
27    if result then
28        helpers.formulanumber(result[n])
29    end
30end
31