tex/context/base/mkxl/unic-ini.lmt


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

if not modules then modules = { } end modules ['unic-ini'] = {
    version   = 1.001,
    comment   = "companion to unic-ini.mkiv",
    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
    copyright = "PRAGMA ADE / ConTeXt Development Team",
    license   = "see context related readme files"
}

local context = context
local utfchar = utf.char

-- Beware, initializing unicodechar happens at first usage and takes
-- 0.05 -- 0.1 second (lots of function calls).

interfaces.implement {
    name      = "unicodechar",
    public    = true,
    protected = true,
    arguments = "argument",
    actions   = function(asked)
        local n = characters.unicodechar(asked)
        if n then
            context(utfchar(n))
        end
    end
}