diff options
author | Philipp Gesang <phg42.2a@gmail.com> | 2013-06-25 17:31:36 +0200 |
---|---|---|
committer | Philipp Gesang <phg42.2a@gmail.com> | 2013-06-25 17:31:36 +0200 |
commit | a87bac7a89c8fe38e0f2608f39b1c3c5f7850a93 (patch) | |
tree | e0073c497448ea16d7b1be10e84238582fbc90ad /luaotfload-tool.lua | |
parent | 23d194d78d1afbe9dcc000e2d108563ba2a8bf76 (diff) | |
download | luaotfload-a87bac7a89c8fe38e0f2608f39b1c3c5f7850a93.tar.gz |
printer for the names table
Diffstat (limited to 'luaotfload-tool.lua')
-rwxr-xr-x | luaotfload-tool.lua | 81 |
1 files changed, 72 insertions, 9 deletions
diff --git a/luaotfload-tool.lua b/luaotfload-tool.lua index dd8484d..c5c1e47 100755 --- a/luaotfload-tool.lua +++ b/luaotfload-tool.lua @@ -46,10 +46,10 @@ end local stringexplode = string.explode local stringformat = string.format local stringlower = string.lower +local stringrep = string.rep local tableconcat = table.concat -local texiowrite = texio.write local texiowrite_nl = texio.write_nl - +local texiowrite = texio.write local C, Ct, P, S = lpeg.C, lpeg.Ct, lpeg.P, lpeg.S local lpegmatch = lpeg.match @@ -247,7 +247,14 @@ end local head_adornchars = { [1] = "*", [2] = "=", [3] = "~", [4] = "-", [5] = "ยท", } -local tw = 80 + +local textwidth = 80 +local wd_leftcolumn = math.floor(textwidth * .25) +local key_fmt = stringformat([[%%%ds]], wd_leftcolumn) +local val_fmt = [[%s]] +local fieldseparator = ":" +local info_fmt = key_fmt .. fieldseparator .. " " .. val_fmt + local print_heading = function (title, level) if not level or level > #head_adornchars then @@ -256,13 +263,10 @@ local print_heading = function (title, level) local adornchar = head_adornchars[level] local s = adornchar .. adornchar .. " " .. title .. " " - texiowrite_nl (s .. string.rep(adornchar, tw-utf.len(s))) + texiowrite_nl (s .. stringrep(adornchar, textwidth-utf.len(s))) texiowrite_nl "" end -local info_fmt = [[%13s: %s]] -local warn_fmt = [[(%d %s)]] - local show_info_items = function (fontinfo) local items = table.sortedkeys(fontinfo) print_heading(fontinfo.fullname, 1) @@ -284,7 +288,6 @@ local show_fontloader_warnings = function (ws) print_heading(stringformat( [[the fontloader emitted %d warnings]], nws), 2) - texiowrite_nl "" for i=1, nws do local w = ws[i] texiowrite_nl (stringformat("%d:", i)) @@ -297,10 +300,70 @@ local show_fontloader_warnings = function (ws) end end +local p_spacechar = S" \n\r\t\v" +local p_wordchar = (1 - p_spacechar) +local p_whitespace = p_spacechar^1 +local p_word = C(p_wordchar^1) +local p_words = Ct(p_word * (p_whitespace * p_word)^0) + +--- string -> int -> string list +local reflow = function (text, width) + local words = lpegmatch(p_words, text) + if #words < 2 then + return { text } + end + + local space = " " + local utflen = utf.len + local reflowed = { } + + local first = words[1] + local linelen = #first + local line = { first } + + for i=2, #words do + local word = words[i] + local lword = utflen(word) + linelen = linelen + lword + 1 + if linelen > width then + reflowed[#reflowed+1] = tableconcat(line) + linelen = #word + line = { word } + else + line[#line+1] = space + line[#line+1] = word + end + end + reflowed[#reflowed+1] = tableconcat(line) + return reflowed +end + +local print_field = function (key, val) + local lhs = stringformat(key_fmt, key) .. fieldseparator .. " " + local wd_lhs = #lhs + local lines = reflow(val, textwidth - wd_lhs) + + texiowrite_nl(lhs) + texiowrite(lines[1]) + if #lines > 1 then + local indent = stringrep(" ", wd_lhs) + for i=2, #lines do + texiowrite_nl(indent) + texiowrite (lines[i]) + end + end +end + local display_names = function (names) print_heading("Font Metadata", 2) for i=1, #names do - local namedata = names[i] + local lang, namedata = names[i].lang, names[i].names + print_heading(stringformat("%d) Language: %s ", i, lang), 3) + if namedata then + for field, value in next, namedata do + print_field(field, value) + end + end end end |