2017-09-28 10:13:00

1 files changed, 27 insertions, 0 deletions

diff --git a/tex/context/base/mkiv/lang-rep.lua b/tex/context/base/mkiv/lang-rep.lua
index f7eeefdba..a09574ef4 100644
--- a/tex/context/base/mkiv/lang-rep.lua
+++ b/tex/context/base/mkiv/lang-rep.lua
@@ -16,6 +16,7 @@ if not modules then modules = { } end modules ['lang-rep'] = {
 -- is somewhat unique.
 
 local type, tonumber = type, tonumber
+local gmatch, gsub = string.gmatch, string.gsub
 local utfbyte, utfsplit = utf.byte, utf.split
 local P, C, U, Cc, Ct, Cs, lpegmatch = lpeg.P, lpeg.C, lpeg.patterns.utf8character, lpeg.Cc, lpeg.Ct, lpeg.Cs, lpeg.match
 local find = string.find
@@ -140,6 +141,26 @@ function replacements.add(category,word,replacement)
     end
 end
 
+-- local strip = lpeg.stripper("{}")
+
+function languages.replacements.addlist(category,list)
+    local root = lists[category].list
+    if type(list) == "string" then
+        for new in gmatch(list,"%S+") do
+            local old = gsub(new,"[{}]","")
+         -- local old = lpegmatch(strip,new)
+            add(root,old,new)
+        end
+    else
+        for i=1,#list do
+            local new = list[i]
+            local old = gsub(new,"[{}]","")
+         -- local old = lpegmatch(strip,new)
+            add(root,old,new)
+        end
+    end
+end
+
 local function hit(a,head)
     local tree = trees[a]
     if tree then
@@ -336,3 +357,9 @@ implement {
     actions   = replacements.add,
     arguments = { "string", "string", "string" }
 }
+
+implement {
+    name      = "addreplacementslist",
+    actions   = replacements.addlist,
+    arguments = { "string", "string" }
+}