diff options
author | Hans Hagen <pragma@wxs.nl> | 2020-11-23 19:48:34 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2020-11-23 19:48:34 +0100 |
commit | 18499e46a49b8ccf4346686d1cf626ada33935b8 (patch) | |
tree | bd0ae7b601b323e20954c10c07598637d9403e00 /tex/context/base/mkiv/core-lmt.lmt | |
parent | 4b089e589d39346a66a27d04f9857fe16e4b7b41 (diff) | |
download | context-18499e46a49b8ccf4346686d1cf626ada33935b8.tar.gz |
2020-11-23 18:39:00
Diffstat (limited to 'tex/context/base/mkiv/core-lmt.lmt')
-rw-r--r-- | tex/context/base/mkiv/core-lmt.lmt | 95 |
1 files changed, 0 insertions, 95 deletions
diff --git a/tex/context/base/mkiv/core-lmt.lmt b/tex/context/base/mkiv/core-lmt.lmt deleted file mode 100644 index ccbdcc0df..000000000 --- a/tex/context/base/mkiv/core-lmt.lmt +++ /dev/null @@ -1,95 +0,0 @@ -if not modules then modules = { } end modules ['core-lmt'] = { - version = 1.001, - comment = "companion to core-lmt.mkiv", - author = "Hans Hagen, PRAGMA-ADE, Hasselt NL", - copyright = "PRAGMA ADE / ConTeXt Development Team", - license = "see context related readme files" -} - --- Kind of obsolete ... old school directions. - -local implement = interfaces.implement -local scankeyword = tokens.scanners.keyword -local scaninteger = tokens.scanners.integer - -local settextdir = tex.settextdir -local setlinedir = tex.setlinedir -local setpardir = tex.setpardir -local setboxdir = tex.setboxdir - -local gettextdir = tex.gettextdir -local getlinedir = tex.getlinedir -local getpardir = tex.getpardir -local getboxdir = tex.getboxdir - -local none_code = tokens.values.none - -local context = context - -local function scandir() - if scankeyword("tlt") then - return 0 - elseif scankeyword("trt") then - return 1 - else - return 0 - end -end - -local function showdir(d) - context(d == 1 and "TRT" or "LTL") - return none_code -end - -implement { - name = "textdir", - public = true, - usage = "value", - actions = function(what) - if what == "value" then - showdir(gettextdir()) - else - settextdir(scandir()) - end - end -} - -implement { - name = "linedir", - public = true, - usage = "value", - actions = function(what) - if what == "value" then - return showdir(getlinedir()) - else - setlinedir(scandir()) - end - end -} - -implement { - name = "pardir", - public = true, - usage = "value", - actions = function(what) - if what == "value" then - return showdir(getpardir()) - else - setpardir(scandir()) - end - end -} - -implement { - name = "boxdir", - public = true, - usage = "value", - actions = function(what) - local n = scaninteger() - if what == "value" then - return showdir(getboxdir(n)) - else - setboxdir(n,scandir()) - end - end -} |