1 files changed, 39 insertions, 0 deletions
diff --git a/tex/context/base/m-newotf.mkiv b/tex/context/base/m-newotf.mkiv
new file mode 100644
index 000000000..8348f600f
--- /dev/null
+++ b/tex/context/base/m-newotf.mkiv
@@ -0,0 +1,39 @@
+%D \module
+%D   [       file=m-newotf,
+%D        version=2015.07.08,
+%D          title=\CONTEXT\ Extra Modules,
+%D       subtitle=Experimental OTF Loader,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+%D This module will go away as soon as we use the new loader code by default.
+%D That will happen after extensive testing. Generic support will happen after
+%D that.
+
+\unprotect
+
+\startluacode
+    local files = {
+        "font-otr", "font-cff", "font-ttf", "font-dsp", "font-oup",
+        "font-otl", "font-ots", "font-oto", "font-otd", "font-otc",
+        "font-osd", "font-map", "font-fbk", "font-gds",
+    }
+
+    logs.report("fonts")
+    if tex.modes.atpragma then
+        logs.report("fonts","replacing font loader code by experimental code (at pragma)")
+        logs.report("fonts")
+        for i=1,#files do require(file.join("t:/sources",files[i])) end
+    else
+        logs.report("fonts","replacing font loader code by experimental code")
+        logs.report("fonts")
+        for i=1,#files do require(files[i]) end
+    end
+\stopluacode
+
+\protect \endinput