From dc5637e97183ff8e60ac01decd148c3bd8360bde Mon Sep 17 00:00:00 2001
From: Khaled Hosny <khaledhosny@eglug.org>
Date: Mon, 11 Jan 2010 18:10:31 +0200
Subject: Rewrite

Now we read $OSFONTDIR variable to load system fonts, $OPENTYPEFONTS and
$TTFONTS to load fonts in texmf tree. Fontconfig support might be added
later.
---
 otfl-fonts.lua | 79 ----------------------------------------------------------
 1 file changed, 79 deletions(-)
 delete mode 100644 otfl-fonts.lua

(limited to 'otfl-fonts.lua')

diff --git a/otfl-fonts.lua b/otfl-fonts.lua
deleted file mode 100644
index 6d9ae18..0000000
--- a/otfl-fonts.lua
+++ /dev/null
@@ -1,79 +0,0 @@
-otfl              = otfl or { }
-otfl.fonts        = { }
-
-otfl.fonts.module = {
-    name          = "otfl.fonts",
-    version       = 1.001,
-    date          = "2010/01/10",
-    description   = "luaotfload font database.",
-    author        = "Khaled Hosny",
-    copyright     = "Khaled Hosny",
-    license       = "CC0"
-}
-
-otfl.fonts.basename = "otfl-names.lua"
-
-kpse.set_program_name("luatex")
-
-require("luaextra.lua")
-require("otfl-luat-dum.lua")
-
-local fnames    = fnames or { }
-fnames.mappings = fnames.mappings or { }
-fnames.version  = 1.001
-
-local function clean(str)
-    if str then
-        return string.gsub(string.lower(str),"[^%a%d]","")
-    end
-end
-
-function otfl.fonts.load(filename,names,force)
-    local mappings = names.mappings
-    local key
-    if filename then
-        local i = fontloader.info(filename)
-        if i then
-            if type(i) == "table" and #i > 1 then
-                for k,v in ipairs(i) do
-                    key = clean(v.fullname)
-                    if not mappings[key] or force then
-                        mappings[key] = { v.fullname, filename, k }
-                    end
-                end
-
-            else
-                key = clean(i.fullname)
-                if not mappings[key] or force then
-                    mappings[key] = { i.fullname, filename }
-                end
-            end
-        else
-            logs.simple("Failed to load %s", filename)
-        end
-    end
-end
-
-function otfl.fonts.reload(list,names)
-    for _,v in ipairs(list) do
-        otfl.fonts.load(v,names,force)
-    end
-end
-
-function otfl.fonts.fontlist()
-    local fc = io.popen("fc-list : file")
-    local l  = {}
-    string.gsub(fc:read("*a"), "(.-): \n", function(h) table.insert(l, h) return "" end)
-    fc:close()
-    return l
-end
-
-local function main()
-    local flist = otfl.fonts.fontlist()
-    otfl.fonts.reload(flist,fnames)
-    logs.simple("%s fonts found, %s saved in the database", #flist, #table.keys(fnames.mappings))
-    io.savedata(otfl.fonts.basename, table.serialize(fnames, true))
-    logs.simple("Saved names database in %s\n", otfl.fonts.basename)
-end
-
-main()
-- 
cgit v1.2.3