diff options
author | Hans Hagen <pragma@wxs.nl> | 2020-07-20 11:09:33 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2020-07-20 11:09:33 +0200 |
commit | 81095dd1bf20eb5f7e126adbdc8047f940504180 (patch) | |
tree | c0cdf7b074e8a2d00c56fde09519e89f155bd425 /tex/context/base/mkiv/pack-ori.lua | |
parent | f1129626606384a7a55a21a83531f51f8b5dee25 (diff) | |
download | context-81095dd1bf20eb5f7e126adbdc8047f940504180.tar.gz |
2020-07-20 10:42:00
Diffstat (limited to 'tex/context/base/mkiv/pack-ori.lua')
-rw-r--r-- | tex/context/base/mkiv/pack-ori.lua | 70 |
1 files changed, 0 insertions, 70 deletions
diff --git a/tex/context/base/mkiv/pack-ori.lua b/tex/context/base/mkiv/pack-ori.lua deleted file mode 100644 index a786b19ef..000000000 --- a/tex/context/base/mkiv/pack-ori.lua +++ /dev/null @@ -1,70 +0,0 @@ -if not modules then modules = { } end modules ['pack-ori'] = { - version = 1.001, - comment = "companion to supp-box.mkiv", - author = "Hans Hagen, PRAGMA-ADE, Hasselt NL", - copyright = "PRAGMA ADE / ConTeXt Development Team", - license = "see context related readme files" -} - -local context = context -local implement = interfaces.implement -local variables = interfaces.variables - -local settings_to_array = utilities.parsers.settings_to_array - -local orientation = { - [variables.up] = 0x000, - [variables.left] = 0x001, - [variables.down] = 0x002, - [variables.right] = 0x003, - [variables.top] = 0x004, - [variables.bottom] = 0x005, -} -local vertical = { - [variables.line] = 0x000, - [variables.top] = 0x010, - [variables.bottom] = 0x020, - [variables.middle] = 0x030, -} -local horizontal = { - [variables.middle] = 0x000, - [variables.flushleft] = 0x100, - [variables.flushright] = 0x200, - [variables.left] = 0x300, - [variables.right] = 0x400, -} - -implement { - name = "toorientation", - public = true, - arguments = { - { - { "horizontal", "string" }, - { "vertical", "string" }, - { "orientation", "string" }, - } - }, - actions = function(t) - local n = 0 - local m = t.horizontal if m then n = n | (horizontal [m] or 0) end - local m = t.vertical if m then n = n | (vertical [m] or 0) end - local m = t.orientation if m then n = n | (orientation[m] or 0) end - -- logs.report("orientation","0x%03X : %s",n,table.sequenced(t)) - context(n) - end, -} - -implement { - name = "stringtoorientation", - public = true, - arguments = "string", - actions = function(s) - local n = 0 - local t = settings_to_array(s) - local m = t[1] if m then n = n | (horizontal [m] or 0) end - local m = t[2] if m then n = n | (vertical [m] or 0) end - local m = t[3] if m then n = n | (orientation[m] or 0) end - -- logs.report("orientation","0x%03X : %s",n,s) - context(n) - end, -} |