summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/lxml-ent.lua
blob: c91d12706bbb1bb85870f8ced18652513c8ee45a (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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
if not modules then modules = { } end modules ['lxml-ent'] = {
    version   = 1.001,
    comment   = "this module is the basis for the lxml-* ones",
    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
    copyright = "PRAGMA ADE / ConTeXt Development Team",
    license   = "see context related readme files"
}

local type, next, tonumber, tostring, setmetatable, loadstring = type, next, tonumber, tostring, setmetatable, loadstring
local format, gsub, find = string.format, string.gsub, string.find
local utfchar = unicode.utf8.char

--[[ldx--
<p>We provide (at least here) two entity handlers. The more extensive
resolver consults a hash first, tries to convert to <l n='utf'/> next,
and finaly calls a handler when defines. When this all fails, the
original entity is returned.</p>
--ldx]]--

xml.entities = xml.entities or { } -- xml.entity_handler == function

function xml.entity_handler(e)
    return format("[%s]",e)
end

local function toutf(s)
    return utfchar(tonumber(s,16))
end

local function utfize(root)
    local d = root.dt
    for k=1,#d do
        local dk = d[k]
        if type(dk) == "string" then
        --  test prevents copying if no match
            if find(dk,"&#x.-;") then
                d[k] = gsub(dk,"&#x(.-);",toutf)
            end
        else
            utfize(dk)
        end
    end
end

xml.utfize = utfize

local function resolve(e) -- hex encoded always first, just to avoid mkii fallbacks
    if find(e,"^#x") then
        return utfchar(tonumber(e:sub(3),16))
    elseif find(e,"^#") then
        return utfchar(tonumber(e:sub(2)))
    else
        local ee = xml.entities[e] -- we cannot shortcut this one (is reloaded)
        if ee then
            return ee
        else
            local h = xml.entity_handler
            return (h and h(e)) or "&" .. e .. ";"
        end
    end
end

local function resolve_entities(root)
    if not root.special or root.tg == "@rt@" then
        local d = root.dt
        for k=1,#d do
            local dk = d[k]
            if type(dk) == "string" then
                if find(dk,"&.-;") then
                    d[k] = gsub(dk,"&(.-);",resolve)
                end
            else
                resolve_entities(dk)
            end
        end
    end
end

xml.resolve_entities = resolve_entities

function xml.utfize_text(str)
    if find(str,"&#") then
        return (gsub(str,"&#x(.-);",toutf))
    else
        return str
    end
end

function xml.resolve_text_entities(str) -- maybe an lpeg. maybe resolve inline
    if find(str,"&") then
        return (gsub(str,"&(.-);",resolve))
    else
        return str
    end
end

function xml.show_text_entities(str)
    if find(str,"&") then
        return (gsub(str,"&(.-);","[%1]"))
    else
        return str
    end
end

-- experimental, this will be done differently

function xml.merge_entities(root)
    local documententities = root.entities
    local allentities = xml.entities
    if documententities then
        for k, v in next, documententities do
            allentities[k] = v
        end
    end
end