1 files changed, 89 insertions, 0 deletions
diff --git a/tex/context/base/m-database.lua b/tex/context/base/m-database.lua
new file mode 100644
index 000000000..8d0d1e1e0
--- /dev/null
+++ b/tex/context/base/m-database.lua
@@ -0,0 +1,89 @@
+if not modules then modules = { } end modules ['m-database'] = {
+    version   = 1.001,
+    comment   = "companion to m-database.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+local sub, gmatch = string.sub, string.gmatch
+local lpegpatterns, lpegmatch, lpegsplitat = lpeg.patterns, lpeg.match, lpeg.splitat
+local lpegP, lpegC, lpegS, lpegCt = lpeg.P, lpeg.C, lpeg.S, lpeg.Ct
+local sprint, ctxcatcodes = tex.sprint, tex.ctxcatcodes
+
+buffers.database = buffers.database or { }
+
+local separators = { -- not interfaced
+    tab    = lpegpatterns.tab,
+    comma  = lpegpatterns.comma,
+    space  = lpegpatterns.space,
+    spaces = lpegpatterns.space^1,
+}
+
+function buffers.database.process(settings)
+ -- table.print(settings)
+    local data
+    if settings.type == "file" then
+        local filename = resolvers.finders.any(settings.database)
+        data = filename ~= "" and io.loaddata(filename)
+        data = data and string.splitlines(data)
+    else
+        data = buffers.raw(settings.database)
+    end
+    if data and #data > 0 then
+        local separatorchar, quotechar, commentchar = settings.separator, settings.quotechar, settings.commentchar
+        local before, after = settings.before or "", settings.after or ""
+        local first, last = settings.first or "", settings.last or ""
+        local left, right = settings.left or "", settings.right or ""
+        local command = settings.command
+        separatorchar = (not separatorchar and ",") or separators[separatorchar] or separatorchar
+        local separator = type(separatorchar) == "string" and lpegS(separatorchar) or separatorchar
+        local whatever  = lpegC((1 - separator)^0)
+        if quotechar and quotechar ~= "" then
+            local quotedata = nil
+            for chr in gmatch(quotechar,".") do
+                local quotechar = lpegP(chr)
+                local quoteword = quotechar * lpeg.C((1 - quotechar)^0) * quotechar
+                if quotedata then
+                    quotedata = quotedata + quoteword
+                else
+                    quotedata = quoteword
+                end
+            end
+            whatever = quotedata + whatever
+        end
+        local checker = commentchar ~= "" and lpeg.S(commentchar)
+        local splitter = lpegCt(whatever * (separator * whatever)^0)
+        local found = false
+        for i=1,#data do
+            local line = data[i]
+            if line ~= "" and (not checker or not lpegmatch(checker,line)) then
+                local list = lpegmatch(splitter,line)
+                if found then
+                    sprint(ctxcatcodes,first)
+                else
+                    local setups = settings.setups or ""
+                    if setups == "" then
+                        sprint(ctxcatcodes,"\\begingroup",before,first)
+                    else
+                        sprint(ctxcatcodes,"\\begingroup\\setups[",setups,"]",before,first)
+                    end
+                    found = true
+                end
+                for j=1,#list do
+                    if command == "" then
+                        sprint(ctxcatcodes,left,list[j],right)
+                    else
+                        sprint(ctxcatcodes,left,command,"{",list[j],"}",right)
+                    end
+                end
+                sprint(ctxcatcodes,last)
+            end
+        end
+        if found then
+            sprint(ctxcatcodes,after,"\\endgroup")
+        end
+    else
+        -- message
+    end
+end