diff options
author | Hans Hagen <pragma@wxs.nl> | 2019-08-02 21:03:52 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2019-08-02 21:03:52 +0200 |
commit | 3668eb2ecc0f7dcc6c44fd1e971cbe37fa010fd6 (patch) | |
tree | 1bb01a58b6f193a42fc99189e5437313650ee39f /tex/context/base/mkiv/supp-box.lua | |
parent | 1873d112b56f49e40ece29916ede51933412bca8 (diff) | |
download | context-3668eb2ecc0f7dcc6c44fd1e971cbe37fa010fd6.tar.gz |
2019-08-02 19:47:00
Diffstat (limited to 'tex/context/base/mkiv/supp-box.lua')
-rw-r--r-- | tex/context/base/mkiv/supp-box.lua | 30 |
1 files changed, 24 insertions, 6 deletions
diff --git a/tex/context/base/mkiv/supp-box.lua b/tex/context/base/mkiv/supp-box.lua index 1f31f7681..f2da9155b 100644 --- a/tex/context/base/mkiv/supp-box.lua +++ b/tex/context/base/mkiv/supp-box.lua @@ -12,13 +12,13 @@ local report_hyphenation = logs.reporter("languages","hyphenation") local tonumber, next, type = tonumber, next, type -local lpegmatch = lpeg.match +local lpegmatch = lpeg.match -local tex = tex -local context = context -local nodes = nodes +local tex = tex +local context = context +local nodes = nodes -local implement = interfaces.implement +local implement = interfaces.implement local nodecodes = nodes.nodecodes @@ -625,8 +625,26 @@ implement { end } -interfaces.implement { +implement { name = "shiftbox", arguments = { "integer", "dimension" }, actions = function(n,d) setshift(getbox(n),d) end, } + +implement { + name = "scangivendimensions", + public = true, + protected = true, + arguments = { + { + { "width", "dimension" }, + { "height", "dimension" }, + { "depth", "dimension" }, + }, + }, + actions = function(t) + texsetdimen("givenwidth", t.width or 0) + texsetdimen("givenheight",t.height or 0) + texsetdimen("givendepth", t.depth or 0) + end, +} |