summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--luaotfload-auxiliary.lua32
-rw-r--r--tests/pln-aux-4.tex9
2 files changed, 29 insertions, 12 deletions
diff --git a/luaotfload-auxiliary.lua b/luaotfload-auxiliary.lua
index f7886be..2cf1e00 100644
--- a/luaotfload-auxiliary.lua
+++ b/luaotfload-auxiliary.lua
@@ -174,31 +174,47 @@ end
aux.do_if_glyph_else = do_if_glyph_else
---- this one is approximately “name_to_slot” from the microtype
---- package
+--[[doc--
+
+ This one is approximately “name_to_slot” from the microtype package;
+ note that it is all about Adobe Glyph names and glyph slots in the
+ font. The names and values may diverge from actual Unicode.
+
+ http://www.adobe.com/devnet/opentype/archives/glyph.html
+
+--doc]]--
--- string -> (int | false)
-local codepoint_of_name = function (glyphname)
+local slot_of_name = function (glyphname)
local fontdata = identifiers[font.current()]
if fontdata then
local unicode = fontdata.resources.unicodes[glyphname]
if unicode and type(unicode) == "number" then
return unicode
else
- return unicode[1] --- again, does that even happen?
+ return unicode[1] --- for multiple components
end
end
return false
end
-aux.codepoint_of_name = codepoint_of_name
+aux.slot_of_name = slot_of_name
---- inverse of above
+--[[doc--
+
+ Inverse of above; not authoritative as to my knowledge the official
+ inverse of the AGL is the AGLFN. Maybe this whole issue should be
+ dealt with in a separate package that loads char-def.lua and thereby
+ solves the problem for the next couple decades.
+
+ http://partners.adobe.com/public/developer/en/opentype/aglfn13.txt
+
+--doc]]--
local indices
--- int -> (string | false)
-local name_of_codepoint = function (codepoint)
+local name_of_slot = function (codepoint)
if not indices then --- this will load the glyph list
local unicodes = fonts.encodings.agl.unicodes
indices = table.swapped(unicodes)
@@ -210,7 +226,7 @@ local name_of_codepoint = function (codepoint)
return false
end
-aux.name_of_codepoint = name_of_codepoint
+aux.name_of_slot = name_of_slot
-----------------------------------------------------------------------
--- features / scripts / languages
diff --git a/tests/pln-aux-4.tex b/tests/pln-aux-4.tex
index b025561..80ffc0b 100644
--- a/tests/pln-aux-4.tex
+++ b/tests/pln-aux-4.tex
@@ -6,9 +6,10 @@
\font\ptserifregular = file:PTF55F.ttf \ptserifregular
-%% here we map the function luaotfload.aux.name_of_codepoint
-%% on a short text, printing a list of letters, their codepoints
-%% and names (as specified in the Adobe Glyph List).
+%% here we map the function luaotfload.aux.name_of_slot
+%% on a short text, printing a list of letters, their
+%% code points and names (as specified in the Adobe
+%% Glyph List).
\directlua{
local aux = luaotfload.aux
@@ -21,7 +22,7 @@
for chr in string.utfcharacters(str) do
local val = unicode.utf8.byte(chr)
local line = chr .. " <> " .. tostring(val)
- line = line .. " <> " .. (aux.name_of_codepoint(val) or "")
+ line = line .. " <> " .. (aux.name_of_slot(val) or "")
res[\string#res+1] = line
end
return table.concat(res, [[\endgraf]])