2016-01-12 16:26:00

1 files changed, 46 insertions, 0 deletions

diff --git a/tex/context/base/mkiv/font-lua.lua b/tex/context/base/mkiv/font-lua.lua
new file mode 100644
index 000000000..6fbbcf17e
--- /dev/null
+++ b/tex/context/base/mkiv/font-lua.lua
@@ -0,0 +1,46 @@
+if not modules then modules = { } end modules ['font-lua'] = {
+    version   = 1.001,
+    comment   = "companion to font-ini.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+local trace_defining = false  trackers.register("fonts.defining", function(v) trace_defining = v end)
+
+local report_lua     = logs.reporter("fonts","lua loading")
+
+local fonts          = fonts
+local readers        = fonts.readers
+fonts.formats.lua    = "lua"
+
+-- we could add support for features here
+
+local function check_lua(specification,fullname)
+    -- standard tex file lookup
+    local fullname = resolvers.findfile(fullname) or ""
+    if fullname ~= "" then
+        local loader = loadfile(fullname)
+        loader = loader and loader()
+        return loader and loader(specification)
+    end
+end
+
+readers.check_lua = check_lua
+
+function readers.lua(specification)
+    local original = specification.specification
+    if trace_defining then
+        report_lua("using lua reader for %a",original)
+    end
+    local fullname = specification.filename or ""
+    if fullname == "" then
+        local forced = specification.forced or ""
+        if forced ~= "" then
+            fullname = specification.name .. "." .. forced
+        else
+            fullname = specification.name
+        end
+    end
+    return check_lua(specification,fullname)
+end