luat-bwc.lua /size: 1145 b    last modification: 2020-07-01 14:35
1if not modules then modules = { } end modules ['luat-bwc'] = {
2    version   = 1.001,
3    comment   = "companion to luat-lib.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
9-- backward compatibility
10
11-- if not tex.wd then
12--
13--     local box = tex.box
14--
15--     local wd = { } setmetatable(wd, {
16--         __index    = function(t,k)   local bk = box[k] return bk and bk.width or 0 end,
17--         __newindex = function(t,k,v) local bk = box[k] if bk then bk.width = v end end,
18--     } )
19--
20--     local ht = { } setmetatable(ht, {
21--         __index    = function(t,k)   local bk = box[k] return bk and bk.height or 0 end,
22--         __newindex = function(t,k,v) local bk = box[k] if bk then bk.height = v end end,
23--     } )
24--
25--     local dp = { } setmetatable(dp, {
26--         __index    = function(t,k)   local bk = box[k] return bk and bk.depth or 0 end,
27--         __newindex = function(t,k,v) local bk = box[k] if bk then bk.depth = v end end,
28--     } )
29--
30--     tex.wd, tex.ht, tex.dp = wd, ht, dp
31--
32-- end
33