diff options
Diffstat (limited to 'tex/context/base/mkiv/syst-aux.lua')
-rw-r--r-- | tex/context/base/mkiv/syst-aux.lua | 50 |
1 files changed, 44 insertions, 6 deletions
diff --git a/tex/context/base/mkiv/syst-aux.lua b/tex/context/base/mkiv/syst-aux.lua index 0e7b2c2b6..98b92cef3 100644 --- a/tex/context/base/mkiv/syst-aux.lua +++ b/tex/context/base/mkiv/syst-aux.lua @@ -438,39 +438,77 @@ local function doifnotinset(a,b) firstofoneargument() end -interfaces.implement { +implement { name = "doifelsecommon", actions = doifelsecommon, arguments = { "string", "string" }, } -interfaces.implement { +implement { name = "doifcommon", actions = doifcommon, arguments = { "string", "string" }, } -interfaces.implement { +implement { name = "doifnotcommon", actions = doifnotcommon, arguments = { "string", "string" }, } -interfaces.implement { +implement { name = "doifelseinset", actions = doifelseinset, arguments = { "string", "string" }, } -interfaces.implement { +implement { name = "doifinset", actions = doifinset, arguments = { "string", "string" }, } -interfaces.implement { +implement { name = "doifnotinset", actions = doifnotinset, arguments = { "string", "string" }, } +-- implement { +-- name = "stringcompare", +-- arguments = { "string", "string" }, +-- actions = function(a,b) +-- context((a == b and 0) or (a > b and 1) or -1) +-- end +-- } +-- +-- implement { +-- name = "doifelsestringafter", +-- arguments = { "string", "string" }, +-- actions = function(a,b) +-- ctx_doifelse((a == b and 0) or (a > b and 1) or -1) +-- end +-- } +-- +-- implement { +-- name = "doifelsestringbefore", +-- arguments = { "string", "string" }, +-- actions = function(a,b) +-- ctx_doifelse((a == b and 0) or (a < b and -1) or 1) +-- end +-- } + +-- implement { -- not faster than addtocommalist +-- name = "additemtolist", -- unique +-- arguments = { "string", "string" }, +-- actions = function(l,s) +-- if l == "" or s == l then +-- -- s = s +-- elseif find("," .. l .. ",","," .. s .. ",") then +-- s = l +-- else +-- s = l .. "," .. s +-- end +-- context(s) +-- end +-- } |