2016-03-26 13:07:00

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
+-- }