diff options
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 -} |