beta 2013.05.19 19:27

1 files changed, 35 insertions, 0 deletions

diff --git a/tex/context/base/s-languages-system.lua b/tex/context/base/s-languages-system.lua
new file mode 100644
index 000000000..4c27b5b2a
--- /dev/null
+++ b/tex/context/base/s-languages-system.lua
@@ -0,0 +1,35 @@
+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

+

+function moduledata.languages.system.showinstalled()

+    local numbers    = languages.numbers

+    local registered = languages.registered

+    context.starttabulate { "|r|l|l|l|l|" }

+        NC() context("id")

+        NC() context("tag")

+        NC() context("synonyms")

+        NC() context("parent")

+        NC() context("loaded")

+        NC() NR() HL()

+        for i=1,#numbers do

+            local tag  = numbers[i]

+            local data = registered[tag]

+            NC() context(data.number)

+            NC() context(tag)

+            NC() context("% t",table.sortedkeys(data.synonyms))

+            NC() context(data.parent)

+            NC() context("%+t",table.sortedkeys(data.used))

+            NC() NR()

+        end

+    context.stoptabulate()

+end