summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/luatex/luaotfload/fontloader-font-vfc.lua
blob: 3e48422d621c8e58bae0b98bb4a8e5a94eb01172 (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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
if not modules then modules = { } end modules ['font-vfc'] = {
    version   = 1.001,
    comment   = "companion to font-ini.mkiv and hand-ini.mkiv",
    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
    copyright = "PRAGMA ADE / ConTeXt Development Team",
    license   = "see context related readme files"
}

local select = select
local insert = table.insert

local fonts             = fonts
local helpers           = fonts.helpers

local setmetatableindex = table.setmetatableindex
local makeweak          = table.makeweak

-- Helpers dealing with virtual fonts: beware, these are final values so
-- don't change the content of tables gotten this way!

local push  = { "push" }
local pop   = { "pop" }
local dummy = { "comment" }

function helpers.prependcommands(commands,...)
    insert(commands,1,push)
    for i=select("#",...),1,-1 do
        local s = select(i,...)
        if s then
            insert(commands,1,s)
        end
    end
    insert(commands,pop)
    return commands
end

function helpers.appendcommands(commands,...)
    insert(commands,1,push)
    insert(commands,pop)
    for i=1,select("#",...) do
        local s = select(i,...)
        if s then
            insert(commands,s)
        end
    end
    return commands
end

-- todo: maybe weak
-- todo: maybe indirect so that we can't change them

local char = setmetatableindex(function(t,k)
 -- local v = { "char", k }
    local v = { "slot", 0, k }
    t[k] = v
    return v
end)

local right = setmetatableindex(function(t,k)
    local v = { "right", k }
    t[k] = v
    return v
end)

local left = setmetatableindex(function(t,k)
    local v = { "right", -k }
    t[k] = v
    return v
end)

local down = setmetatableindex(function(t,k)
    local v = { "down", k }
    t[k] = v
    return v
end)

local up = setmetatableindex(function(t,k)
    local v = { "down", -k }
    t[k] = v
    return v
end)

-- makeweak(char)
-- makeweak(right)
-- makeweak(left)
-- makeweak(up)
-- makeweak(down)

helpers.commands = utilities.storage.allocate {
    char  = char,
    right = right,
    left  = left,
    down  = down,
    up    = up,
    push  = push,
    pop   = pop,
    dummy = dummy,
}