summaryrefslogtreecommitdiff
path: root/tex/context/base/mkiv/core-lmt.lmt
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2020-11-23 19:48:34 +0100
committerContext Git Mirror Bot <phg@phi-gamma.net>2020-11-23 19:48:34 +0100
commit18499e46a49b8ccf4346686d1cf626ada33935b8 (patch)
treebd0ae7b601b323e20954c10c07598637d9403e00 /tex/context/base/mkiv/core-lmt.lmt
parent4b089e589d39346a66a27d04f9857fe16e4b7b41 (diff)
downloadcontext-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.lmt95
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
-}