1 files changed, 80 insertions, 80 deletions
diff --git a/tex/context/base/syst-aux.lua b/tex/context/base/syst-aux.lua
index d7250d239..b0fb8483b 100644
--- a/tex/context/base/syst-aux.lua
+++ b/tex/context/base/syst-aux.lua
@@ -1,80 +1,80 @@
-if not modules then modules = { } end modules ['syst-aux'] = {
-    version   = 1.001,
-    comment   = "companion to syst-aux.mkiv",
-    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
-    copyright = "PRAGMA ADE / ConTeXt Development Team",
-    license   = "see context related readme files"
-}
-
--- slower than lpeg:
---
--- utfmatch(str,"(.?)(.*)$")
--- utf.sub(str,1,1)
-
-local commands, context = commands, context
-
-local settings_to_array = utilities.parsers.settings_to_array
-local format = string.format
-local utfsub = utf.sub
-local P, C, Carg, lpegmatch, utf8char = lpeg.P, lpeg.C, lpeg.Carg, lpeg.match, lpeg.patterns.utf8char
-
-local setvalue = context.setvalue
-
-local pattern = C(utf8char^-1) * C(P(1)^0)
-
-function commands.getfirstcharacter(str)
-    local first, rest = lpegmatch(pattern,str)
-    setvalue("firstcharacter",first)
-    setvalue("remainingcharacters",rest)
-end
-
-local pattern = C(utf8char^-1)
-
-function commands.doiffirstcharelse(chr,str)
-    commands.doifelse(lpegmatch(pattern,str) == chr)
-end
-
-function commands.getsubstring(str,first,last)
-    context(utfsub(str,tonumber(first),tonumber(last)))
-end
-
--- function commands.addtocommalist(list,item)
---     if list == "" then
---         context(item)
---     else
---         context("%s,%s",list,item) -- using tex.print is some 10% faster
---     end
--- end
---
--- function commands.removefromcommalist(list,item)
---     if list == "" then
---         context(item)
---     else
---         -- okay, using a proper lpeg is probably faster
---         -- we could also check for #l = 1
---         local l = settings_to_array(list)
---         local t, n = { }
---         for i=1,#l do
---             if l[i] ~= item then
---                 n = n + 1
---                 t[n] = item
---             end
---         end
---         if n == 0 then
---             context(item)
---         else
---             context(concat(list,","))
---         end
---     end
--- end
-
-local pattern = (C((1-P("%"))^1) * Carg(1)) /function(n,d) return format("%.0fsp",d * tonumber(n)/100) end * P("%") * P(-1)
-
--- commands.percentageof("10%",65536*10)
-
-function commands.percentageof(str,dim)
-    context(lpegmatch(pattern,str,1,dim) or str)
-end
-
--- \gdef\setpercentdimen#1#2%
---   {#1=\ctxcommand{percentageof("#2",\number#1)}\relax}
+if not modules then modules = { } end modules ['syst-aux'] = {
+    version   = 1.001,
+    comment   = "companion to syst-aux.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+-- slower than lpeg:
+--
+-- utfmatch(str,"(.?)(.*)$")
+-- utf.sub(str,1,1)
+
+local commands, context = commands, context
+
+local settings_to_array = utilities.parsers.settings_to_array
+local format = string.format
+local utfsub = utf.sub
+local P, C, Carg, lpegmatch, utf8char = lpeg.P, lpeg.C, lpeg.Carg, lpeg.match, lpeg.patterns.utf8char
+
+local setvalue = context.setvalue
+
+local pattern = C(utf8char^-1) * C(P(1)^0)
+
+function commands.getfirstcharacter(str)
+    local first, rest = lpegmatch(pattern,str)
+    setvalue("firstcharacter",first)
+    setvalue("remainingcharacters",rest)
+end
+
+local pattern = C(utf8char^-1)
+
+function commands.doiffirstcharelse(chr,str)
+    commands.doifelse(lpegmatch(pattern,str) == chr)
+end
+
+function commands.getsubstring(str,first,last)
+    context(utfsub(str,tonumber(first),tonumber(last)))
+end
+
+-- function commands.addtocommalist(list,item)
+--     if list == "" then
+--         context(item)
+--     else
+--         context("%s,%s",list,item) -- using tex.print is some 10% faster
+--     end
+-- end
+--
+-- function commands.removefromcommalist(list,item)
+--     if list == "" then
+--         context(item)
+--     else
+--         -- okay, using a proper lpeg is probably faster
+--         -- we could also check for #l = 1
+--         local l = settings_to_array(list)
+--         local t, n = { }
+--         for i=1,#l do
+--             if l[i] ~= item then
+--                 n = n + 1
+--                 t[n] = item
+--             end
+--         end
+--         if n == 0 then
+--             context(item)
+--         else
+--             context(concat(list,","))
+--         end
+--     end
+-- end
+
+local pattern = (C((1-P("%"))^1) * Carg(1)) /function(n,d) return format("%.0fsp",d * tonumber(n)/100) end * P("%") * P(-1)
+
+-- commands.percentageof("10%",65536*10)
+
+function commands.percentageof(str,dim)
+    context(lpegmatch(pattern,str,1,dim) or str)
+end
+
+-- \gdef\setpercentdimen#1#2%
+--   {#1=\ctxcommand{percentageof("#2",\number#1)}\relax}