From 9f77d35d0ab9b863e792bfecd4b61b7b3ef8061c Mon Sep 17 00:00:00 2001 From: Philipp Gesang Date: Fri, 10 May 2013 21:29:57 +0200 Subject: restore some comments from old dtx --- luaotfload-legacy.lua | 173 ++++++++++++++++++++++++++++++++++++++++++-------- 1 file changed, 146 insertions(+), 27 deletions(-) (limited to 'luaotfload-legacy.lua') diff --git a/luaotfload-legacy.lua b/luaotfload-legacy.lua index 261c0ff..b9f4e2f 100644 --- a/luaotfload-legacy.lua +++ b/luaotfload-legacy.lua @@ -1,44 +1,52 @@ --- --- This is file `luaotfload.lua', --- generated with the docstrip utility. --- --- The original source files were: --- --- luaotfload.dtx (with options: `lua') --- This is a generated file. --- --- Copyright (C) 2009-2013 by by Elie Roux --- and Khaled Hosny --- (Support: .) --- --- This work is under the CC0 license. --- --- This work consists of the main source file luaotfload.dtx --- and the derived files --- luaotfload.sty, luaotfload.lua --- module("luaotfload", package.seeall) luaotfload.module = { - name = "luaotfload", - version = 1.29, + name = "luaotfload-legacy", + version = 1.31, date = "2013/04/25", - description = "OpenType layout system.", + description = "Unsupported Luaotfload", author = "Elie Roux & Hans Hagen", copyright = "Elie Roux", - license = "CC0" + license = "GPL v2" } local error, warning, info, log = luatexbase.provides_module(luaotfload.module) + +--[[doc-- + + This used to be a necessary initalization in order not to rebuild an + existing font. Maybe 600 should be replaced by |\pdfpkresolution| + or |texconfig.pk_dpi| (and it should be replaced dynamically), but + we don't have access (yet) to the |texconfig| table, so we let it be + 600. Anyway, it does still work fine even if |\pdfpkresolution| is + changed. + +--doc]]-- + kpse.init_prog("", 600, "/") -local luatex_version = 60 +--[[doc-- + + The minimal required \luatex version. + We are tolerant folks. + +--doc]]-- + +local luatex_version = 60 if tex.luatexversion < luatex_version then - warning("LuaTeX v%.2f is old, v%.2f is recommended.", + warning("LuaTeX v%.2f is old, v%.2f is required, v0.76 recommended.", tex.luatexversion/100, luatex_version /100) end +--[[doc-- + + \subsection{Module loading} + We load the outdated \context files with this function. It + automatically adds the |otfl-| prefix to it, so that we call it with + the actual \context name. + +--doc]]-- function luaotfload.loadmodule(tofind) local found = kpse.find_file(tofind,"tex") @@ -51,6 +59,11 @@ function luaotfload.loadmodule(tofind) end local loadmodule = luaotfload.loadmodule +--[[doc-- + + Keep away from these lines! + +--doc]]-- loadmodule"luaotfload-legacy-merged.lua" if not fonts then @@ -60,7 +73,17 @@ if not fonts then loadmodule("otfl-font-ini.lua") loadmodule("otfl-node-dum.lua") loadmodule("otfl-node-inj.lua") +--[[doc-- + By default \context takes some private attributes for internal use. To + avoide attribute clashes with other packages, we override the function + that allocates new attributes, making it a wraper around + |luatexbase.new_attribute()|. We also prefix attributes with |otfl@| to + avoid possiple name clashes. +--doc]]-- loadmodule("luaotfload-legacy-attributes.lua") -- patch attributes +--[[doc-- + Font handling modules. +--doc]]-- loadmodule("otfl-font-tfm.lua") loadmodule("otfl-font-cid.lua") loadmodule("otfl-font-ott.lua") @@ -73,19 +96,57 @@ if not fonts then loadmodule("otfl-font-ota.lua") loadmodule("otfl-font-otc.lua") loadmodule("otfl-font-def.lua") +--[[doc-- + \textsf{old luaotfload} specific modules. +--doc]]-- loadmodule("otfl-font-xtx.lua") loadmodule("otfl-font-dum.lua") loadmodule("otfl-font-clr.lua") end loadmodule"luaotfload-legacy-database.lua" --- unmerged coz needed in db script +--[[doc-- + + This is a patch for |otfl-font-def.lua|, that defines a reader for ofm + fonts, this is necessary if we set the forced field of the specification + to |ofm|. + +--doc]]-- + if fonts and fonts.tfm and fonts.tfm.readers then fonts.tfm.readers.ofm = fonts.tfm.readers.tfm end + +--[[doc-- + + \subsection{Post-processing TFM table} + Here we do some final touches to the loaded TFM table before passing it + to the \tex end. + First we create a callback for patching fonts on the fly, to be used by + other packages. + +--doc]]-- + luatexbase.create_callback("luaotfload.patch_font", "simple", function() end) + +--[[doc-- + + then define a function where font manipulation will take place. + +--doc]]-- + local function def_font(...) local fontdata = fonts.define.read(...) if type(fontdata) == "table" and fontdata.shared then +--[[doc-- + + Then we populate |MathConstants| table, which is required for + OpenType math. + + Note: actually it isn’t, but you’re asking for it by using outdated + code. + +--doc]]-- local otfdata = fontdata.shared.otfdata if otfdata.metadata.math then local mc = { } @@ -103,12 +164,51 @@ local function def_font(...) fontdata.MathConstants = mc end +--[[doc-- + + Execute any registered font patching callbacks. + +--doc]]-- luatexbase.call_callback("luaotfload.patch_font", fontdata) end return fontdata end + +--[[doc-- +\subsection{\context override} + + We have a unified function for both file and name resolver. This + line is commented as it makes database reload too often. This means + that in some cases, a font in the database will not be found if + it's not in the texmf tree. A similar thing will reappear in next + version. + +--doc]]-- + --fonts.define.resolvers.file = fonts.define.resolvers.name + +--[[doc-- + + We override the cleanname function as it outputs garbage for exotic font + names + +--doc]]-- + +--[[doc-- + + Overriding some defaults set in \context code. + +--doc]]-- + fonts.mode = "node" + +--[[doc-- + + The following features are useful in math (e.g. in XITS Math font), + but \textsf{luaotfload} does not recognize them in |base| mode. + +--doc]]-- + local register_base_sub = fonts.otf.features.register_base_substitution local gsubs = { "ss01", "ss02", "ss03", "ss04", "ss05", @@ -120,6 +220,13 @@ local gsubs = { for _,v in next, gsubs do register_base_sub(v) end + +--[[doc-- + + Finally we register the callbacks + +--doc]]-- + luatexbase.add_to_callback("pre_linebreak_filter", nodes.simple_font_handler, "luaotfload.pre_linebreak_filter") @@ -133,6 +240,18 @@ luatexbase.add_to_callback("define_font", luatexbase.add_to_callback("find_vf_file", fonts.vf.find, "luaotfload.find_vf_file") +--[[doc-- + + XXX: see https://github.com/wspr/unicode-math/issues/185 + \luatex does not provide interface to accessing + |(Script)ScriptPercentScaleDown| math constants, so we + emulate \xetex behaviour by setting |\fontdimen10| and + |\fontdimen11|. + + Note: actually, it does now, but not unless you update. + +--doc]]-- + local function set_sscale_diments(fontdata) local mc = fontdata.MathConstants if mc then @@ -150,5 +269,5 @@ local function set_sscale_diments(fontdata) end luatexbase.add_to_callback("luaotfload.patch_font", set_sscale_diments, "unicodemath.set_sscale_diments") --- --- End of File `luaotfload.lua'. + +-- vim:ts=2:sw=2:expandtab:ft=lua -- cgit v1.2.3