From d9825168b0fb7b07e315879584487f9d4d9e9494 Mon Sep 17 00:00:00 2001
From: Philipp Gesang <phg42.2a@gmail.com>
Date: Tue, 11 Feb 2014 06:27:04 +0100
Subject: [*] move mkcharacters, mktests, mkglyphlist, mkstatus to separate
subdirectory scripts
---
mkcharacters | 156 -----------------------------------------------------------
1 file changed, 156 deletions(-)
delete mode 100755 mkcharacters
(limited to 'mkcharacters')
diff --git a/mkcharacters b/mkcharacters
deleted file mode 100755
index 5d4a2f4..0000000
--- a/mkcharacters
+++ /dev/null
@@ -1,156 +0,0 @@
-#!/usr/bin/env texlua
------------------------------------------------------------------------
--- FILE: mkcharacters.lua
--- USAGE: ./mkcharacters.lua
--- DESCRIPTION: import parts of char-def.lua
--- REQUIREMENTS: lua, ConTeXt, the lualibs package
--- AUTHOR: Philipp Gesang (Phg), <phg42.2a@gmail.com>
--- VERSION: 2.4
--- CREATED: 2013-05-17 12:41:39+0200
------------------------------------------------------------------------
--- we create a stripped-down version of char-def.lua
------------------------------------------------------------------------
-
------------------------------------------------------------------------
--- config
------------------------------------------------------------------------
-local charfile = "./luaotfload-characters.lua"
-local chardef = "/home/phg/base/char-def.lua"
-
---- for every code point char-def.lua provides a set of fields. they
---- are:
----
---- * adobename
---- * category
---- * cjkwd
---- * comment
---- * contextname
---- * description
---- * direction
---- * lccode
---- * linebreak
---- * mathclass
---- * mathextensible
---- * mathfiller
---- * mathname
---- * mathspec
---- * mathstretch
---- * mathsymbol
---- * mirror
---- * shcode
---- * specials
---- * textclass
---- * uccode
---- * unicodeslot
---- * variants
-
-local import = {
- "direction", "mirror", --> πολυγλωσσία/uax9
- "category", --> https://gist.github.com/phi-gamma/5812290
- "textclass", --> https://gist.github.com/phi-gamma/6488187
-}
-
------------------------------------------------------------------------
--- includes
------------------------------------------------------------------------
-
-kpse.set_program_name"luatex"
-
-for _, lib in next, { "lualibs-lua.lua",
- "lualibs-lpeg.lua",
- "lualibs-table.lua", } do
- local found = assert(kpse.find_file(lib, "lua"),
- "Could not locate " .. lib .. ".\n"
- .. "Please install the lualibs package.")
- require(found)
-end
-
-if not (chardef and lfs.isfile(chardef)) then
- --- we could grab the file from contextgarden but as Context is part
- --- of TL it’s not worth bothering
- chardef = assert(kpse.find_file("char-def.lua", "lua"),
- "Could not find ConTeXt.")
-end
-
------------------------------------------------------------------------
--- functionality
------------------------------------------------------------------------
-
-local get_characters = function ( )
- local data
- local inchan = io.open(chardef, "r")
- if not inchan then
- io.write("Could not open file for reading: "..chardef.."\n.")
- goto fail
- end
- data = inchan:read "*all"
- inchan:close()
- data = loadstring(data)
- if data then
- data() --> characters.data
- data = nil
- collectgarbage "collect"
- if characters.data and next(characters.data) then
- return characters.data
- end
- io.write "Character table empty.\n"
- goto fail
- end
- io.write(chardef .. " is not a valid Lua file.\n")
- ::fail::
- io.write "Emergency exit.\n"
- os.exit(1)
-end
-
-local extract_fields_indeed
-extract_fields_indeed = function (data, acc, lastidx)
- local idx, char = next(data, lastidx)
- if idx then
- local imported = { }
- for i=1, #import do
- local field = import[i]
- imported[field] = char[field]
- end
- acc[idx] = imported
- return extract_fields_indeed(data, acc, idx)
- end
- return acc
-end
-
-local extract_fields = function (data)
- return extract_fields_indeed(data, {}, nil)
-end
-
-local writedata = function (data)
- local outchan = io.open(charfile, "w")
- if not outchan then
- io.write("Could not open "..charfile.." for writing.\n")
- return false
- end
- outchan:write(data)
- outchan:close()
- return true
-end
-
-do
- local chardata = get_characters()
- local stripped = extract_fields(chardata)
- local serialized = table.serialize(stripped, true, {
- compact = true,
- noquotes = true,
- hexify = true, --- for consistency with char-def
- })
- if writedata(serialized) then
- goto done
- end
- goto fail
-end
-
-::done::
- os.exit(0)
-
-::fail::
- io.write "Emergency exit.\n"
- os.exit(1)
-
---- vim:ft=lua:ts=2:et:sw=2
--
cgit v1.2.3