summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/font-oth.lua
blob: 59dca31d9182c686d414bf2bf2658a348ec3a0b1 (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
if not modules then modules = { } end modules ['font-oth'] = {
    version   = 1.001,
    comment   = "companion to font-oth.lua (helpers)",
    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
    copyright = "PRAGMA ADE / ConTeXt Development Team",
    license   = "see context related readme files"
}

local fonts = fonts
local otf   = fonts.handlers.otf

-- todo: use nodemode data is available

function otf.getalternate(tfmdata,k,kind,value) -- just initialize nodemode and use that (larger mem print)
    if value then
        local description = tfmdata.descriptions[k]
        if description then
            local slookups = description.slookups -- we assume only slookups (we can always extend)
            if slookups then
                local shared = tfmdata.shared
                local rawdata = shared and shared.rawdata
                if rawdata then
                    local lookuptypes = rawdata.resources.lookuptypes
                    if lookuptypes then
                        local properties = tfmdata.properties
                        -- we could cache these
                        local validlookups, lookuplist = otf.collectlookups(rawdata,kind,properties.script,properties.language)
                        if validlookups then
                            local choice = tonumber(value) or 1 -- no random here (yet)
                            for l=1,#lookuplist do
                                local lookup = lookuplist[l]
                                local found  = slookups[lookup]
                                if found then
                                    local lookuptype = lookuptypes[lookup]
                                    if lookuptype == "substitution" then
                                        return found
                                    elseif lookuptype == "alternate" then
                                        return found[choice] or found[#found]
                                    else
                                        -- ignore
                                    end
                                end
                            end
                        end
                    end
                end
            end
        end
    end
    return k
end