blob: 80ffc0b984191b1b88e7121e2f4dfd115262cb19 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
\input luaotfload.sty
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% unicode character mappings
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\font\ptserifregular = file:PTF55F.ttf \ptserifregular
%% 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
local cbk = function (str)
if string.match(str, "^EOF") then
luatexbase.remove_from_callback("process_input_buffer", "weird")
return [[the end!]]
end
local res = { }
for chr in string.utfcharacters(str) do
local val = unicode.utf8.byte(chr)
local line = chr .. " <> " .. tostring(val)
line = line .. " <> " .. (aux.name_of_slot(val) or "")
res[\string#res+1] = line
end
return table.concat(res, [[\endgraf]])
end
luatexbase.add_to_callback("process_input_buffer", cbk, "weird")
}
Я узнал что у меня
Есть огромная семья
И тропинка и лесок
В поле каждый колосок
EOF
\bye
|
