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
|
if not modules then modules = { } end modules ['s-languages-system'] = {
version = 1.001,
comment = "companion to s-languages-system.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
moduledata.languages = moduledata.languages or { }
moduledata.languages.system = moduledata.languages.system or { }
local NC, NR, HL = context.NC, context.NR, context.HL
local sortedhash = table.sortedhash
local registered = languages.registered
local context = context
local ctx_NC = context.NC
local ctx_NR = context.NR
local ctx_bold = context.bold
function moduledata.languages.system.loadinstalled()
context.start()
for k, v in table.sortedhash(registered) do
context.language{ k }
end
context.stop()
end
function moduledata.languages.system.showinstalled()
--
context.starttabulate { "|l|r|l|l|p(7em)|r|p|" }
context.FL()
ctx_NC() ctx_bold("tag")
ctx_NC() ctx_bold("n")
ctx_NC() ctx_bold("parent")
ctx_NC() ctx_bold("file")
ctx_NC() ctx_bold("synonyms")
ctx_NC() ctx_bold("patterns")
ctx_NC() ctx_bold("characters")
ctx_NC() ctx_NR()
context.FL()
for k, v in sortedhash(registered) do
local parent = v.parent
local resources = v.resources
local patterns = resources and resources.patterns
ctx_NC() context(k)
ctx_NC() context(v.number)
ctx_NC() context(v.parent)
ctx_NC() context(v.patterns)
ctx_NC() for k, v in sortedhash(v.synonyms) do context("%s\\par",k) end
if patterns then
ctx_NC() context(patterns.n)
ctx_NC() context("% t",utf.split(patterns.characters))
else
ctx_NC()
ctx_NC()
end
ctx_NC() ctx_NR()
end
context.LL()
context.stoptabulate()
--
end
|
