From 06689c6f5262cafc3c2e9821fe3a0cc242f6fcc3 Mon Sep 17 00:00:00 2001
From: Khaled Hosny <khaledhosny@eglug.org>
Date: Wed, 30 Dec 2009 09:12:16 +0200
Subject: Move some code to a new module; otfl-font-msc.lua

The new module will hold our extended features that are not supported
by luatex-fonts, currently slant and extend.
---
 luaotfload.dtx | 113 +++++++++++++++++++++++++++++++++++----------------------
 1 file changed, 69 insertions(+), 44 deletions(-)

(limited to 'luaotfload.dtx')

diff --git a/luaotfload.dtx b/luaotfload.dtx
index 93f3fb1..cc33913 100644
--- a/luaotfload.dtx
+++ b/luaotfload.dtx
@@ -78,6 +78,7 @@ and the derived files
 \generate{%
   \usedir{tex/luatex/luaotfload}%
   \file{luaotfload.lua}{\from{luaotfload.dtx}{lua}}%%
+  \file{otfl-font-msc.lua}{\from{luaotfload.dtx}{font-msc}}%%
 }
 
 \obeyspaces
@@ -532,6 +533,73 @@ end
 luaotfload.loadmodule('font-xtx.lua')
 luaotfload.loadmodule('font-map.lua')
 luaotfload.loadmodule('font-dum.lua')
+luaotfload.loadmodule('font-msc.lua')
+
+%    \end{macrocode}
+%
+%    This is a small patch that prevents errors in some \LaTeX\ files.
+%
+%    \begin{macrocode}
+
+fonts.enc.known = {}
+
+%    \end{macrocode}
+%
+%    We have to register a function in the |find_vf_file| callback in order to make everything work.
+%
+%    \begin{macrocode}
+
+function luaotfload.find_vf_file(name)
+    name = file.removesuffix(file.basename(name))
+    local result = kpse.find_file(name, "vf") or ""
+    if result == "" then
+        result = kpse.find_file(name, "ovf") or ""
+    end
+    return result
+end
+
+%    \end{macrocode}
+%
+%    Finally two functions 
+%
+%    \begin{macrocode}
+
+function luaotfload.register_callbacks()
+    callback.add('pre_linebreak_filter', nodes.simple_font_handler, 'luaotfload.pre_linebreak_filter')
+    callback.add('hpack_filter',         nodes.simple_font_handler, 'luaotfload.hpack_filter')
+    callback.reset('define_font')
+    callback.add('define_font', fonts.define.read, 'luaotfload.define_font', 1)
+    callback.add('find_vf_file', luaotfload.find_vf_file, 'luaotfload.find_vf_file')
+end
+
+function luaotfload.unregister_callbacks()
+    callback.remove('pre_linebreak_filter', 'luaotfload.pre_linebreak_filter')
+    callback.remove('hpack_filter', 'luaotfload.hpack_filter')
+    callback.remove('define_font', 'luaotfload.define_font')
+    callback.remove('find_vf_file', 'luaotfload.find_vf_file')
+end
+%    \end{macrocode}
+% \iffalse
+%</lua>
+% \fi
+%
+% \section{\texttt{otfl-font-msc.lua}}
+%
+% \iffalse
+%<*font-msc>
+% \fi
+%
+%    First, some initializations.
+%
+%    \begin{macrocode}
+
+if not modules then modules = { } end modules ['font-msc'] = {
+    version   = 1.001,
+    comment   = "companion to font-otf.lua (miscellaneous)",
+    author    = "Khaled Hosny",
+    copyright = "Khaled Hosny",
+    license   = "GPL"
+}
 
 %    \end{macrocode}
 %
@@ -579,52 +647,9 @@ end
 initializers.base.otf.extend = initializers.common.extend
 initializers.node.otf.extend = initializers.common.extend
 
-%    \end{macrocode}
-%
-%    This is a small patch that prevents errors in some \LaTeX\ files.
-%
-%    \begin{macrocode}
-
-fonts.enc.known = {}
-
-%    \end{macrocode}
-%
-%    We have to register a function in the |find_vf_file| callback in order to make everything work.
-%
-%    \begin{macrocode}
-
-function luaotfload.find_vf_file(name)
-    name = file.removesuffix(file.basename(name))
-    local result = kpse.find_file(name, "vf") or ""
-    if result == "" then
-        result = kpse.find_file(name, "ovf") or ""
-    end
-    return result
-end
-
-%    \end{macrocode}
-%
-%    Finally two functions 
-%
-%    \begin{macrocode}
-
-function luaotfload.register_callbacks()
-    callback.add('pre_linebreak_filter', nodes.simple_font_handler, 'luaotfload.pre_linebreak_filter')
-    callback.add('hpack_filter',         nodes.simple_font_handler, 'luaotfload.hpack_filter')
-    callback.reset('define_font')
-    callback.add('define_font', fonts.define.read, 'luaotfload.define_font', 1)
-    callback.add('find_vf_file', luaotfload.find_vf_file, 'luaotfload.find_vf_file')
-end
-
-function luaotfload.unregister_callbacks()
-    callback.remove('pre_linebreak_filter', 'luaotfload.pre_linebreak_filter')
-    callback.remove('hpack_filter', 'luaotfload.hpack_filter')
-    callback.remove('define_font', 'luaotfload.define_font')
-    callback.remove('find_vf_file', 'luaotfload.find_vf_file')
-end
 %    \end{macrocode}
 % \iffalse
-%</lua>
+%</font-msc>
 % \fi
 %
 % \section{\texttt{luaotfload.sty}}
-- 
cgit v1.2.3

