From c3ccb3ee07e0a67171c24960966ae974e0dd8e98 Mon Sep 17 00:00:00 2001
From: Elie Roux <elie.roux@telecom-bretagne.eu>
Date: Wed, 8 Apr 2009 13:18:29 +0200
Subject: adding a first working version of luaotfload

---
 otfl-luat-dum.lua | 58 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 otfl-luat-dum.lua

(limited to 'otfl-luat-dum.lua')

diff --git a/otfl-luat-dum.lua b/otfl-luat-dum.lua
new file mode 100644
index 0000000..7b959ca
--- /dev/null
+++ b/otfl-luat-dum.lua
@@ -0,0 +1,58 @@
+if not modules then modules = { } end modules ['luat-dum'] = {
+    version   = 1.001,
+    comment   = "companion to luatex-*.tex",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+local dummyfunction = function() end
+
+statistics = {
+    register      = dummyfunction,
+    starttiming   = dummyfunction,
+    stoptiming    = dummyfunction,
+}
+trackers = {
+    register      = dummyfunction,
+    enable        = dummyfunction,
+    disable       = dummyfunction,
+}
+storage = {
+    register      = dummyfunction,
+}
+logs = {
+    report        = dummyfunction,
+    simple        = dummyfunction,
+}
+tasks = {
+    new           = dummyfunction,
+    actions       = dummyfunction,
+    appendaction  = dummyfunction,
+    prependaction = dummyfunction,
+}
+
+
+-- we need to cheat a bit here
+
+texconfig.kpse_init = true
+
+input = { } -- no fancy file helpers used
+
+local remapper = {
+    otf = "opentype fonts",
+    ttf = "truetype fonts",
+    ttc = "truetype fonts"
+}
+
+function input.find_file(name,kind)
+    name = name:gsub("\\","\/")
+    return kpse.find_file(name,(kind ~= "" and kind) or "tex")
+end
+
+function input.findbinfile(name,kind)
+    if not kind or kind == "" then
+        kind = string.match(name,"%.(.-)$")
+    end
+    return input.find_file(name,kind and remapper[kind])
+end
-- 
cgit v1.2.3