diff options
author | Taco Hoekwater <taco@elvenkind.com> | 2008-06-12 10:42:53 +0000 |
---|---|---|
committer | Taco Hoekwater <taco@elvenkind.com> | 2008-06-12 10:42:53 +0000 |
commit | 0d01365d53c456d246da0ca1f0b3cd9868f02b35 (patch) | |
tree | 01a655c8028e17cfb371456b299c1848fe08c05b /Master/texmf-dist/tex/context/base/s-sys-01.tex | |
parent | 44f3714442da07fdfc36a7f2a8dcd5d4294c5d26 (diff) |
ConTeXt release 2008.05.21
git-svn-id: svn://tug.org/texlive/trunk@8691 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/s-sys-01.tex')
-rw-r--r-- | Master/texmf-dist/tex/context/base/s-sys-01.tex | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/base/s-sys-01.tex b/Master/texmf-dist/tex/context/base/s-sys-01.tex new file mode 100644 index 00000000000..77d3410c418 --- /dev/null +++ b/Master/texmf-dist/tex/context/base/s-sys-01.tex @@ -0,0 +1,61 @@ +% engine=luatex + +%D \module +%D [ file=s-sys-01, +%D version=2008.03.32, +%D title=\CONTEXT\ Style File, +%D subtitle=Generate List of Math Symbol, +%D author=Hans Hagen, +%D date=\currentdate, +%D copyright={PRAGMA / Hans Hagen \& Ton Otten}] +%C +%C This module is part of the \CONTEXT\ macro||package and is +%C therefore copyrighted by \PRAGMA. See mreadme.pdf for +%C details. + +\startluacode +function showmath() + local slots = mathematics.slots.traditional + local escape = characters.filters.utf.private.escape + local data = characters.data + tex.sprint(tex.ctxcatcodes,"\\starttabulate[|T|c|T|T|T|T||||]") + local texsprint = tex.sprint +% -- function texsprint(a,b) print(b) end + for _, v in ipairs(table.sortedkeys(slots)) do + local t, d, u = slots[v], data[v], escape(utf.char(v)) + local class, name, description = d.mathclass or "", d.mathname or "" , d.description or "" + if class == "accent" then + u = "" + end + if t[3] and t[4] then + texsprint(tex.ctxcatcodes,string.format( + "\\NC 0x%04X\\NC $%s$\\NC %s\\NC 0x%04X\\NC %s\\NC 0x%04X\\NC %s\\NC %s\\NC %s\\NC\\NR", + v,u,t[1],t[2],t[3],t[4],class,name,description)) + else + texsprint(tex.ctxcatcodes,string.format( + "\\NC 0x%04X\\NC $%s$\\NC %s\\NC 0x%04X\\NC\\NC\\NC %s\\NC %s\\NC %s\\NC\\NR", + v,u,t[1],t[2],class,name,description)) + end + end + tex.sprint(tex.ctxcatcodes,"\\stoptabulate") +end +\stopluacode + +\setuplayout + [backspace=1cm, + topspace=1cm, + footer=1cm, + header=0cm, + height=middle, + width=middle] + +\setupbodyfont + [9pt] + +\setupfootertexts + [] + [math characters -- \pagenumber] + +\starttext +\ctxlua{showmath()} +\stoptext |