diff options
author | Hans Hagen <pragma@wxs.nl> | 2008-01-11 12:09:00 +0100 |
---|---|---|
committer | Hans Hagen <pragma@wxs.nl> | 2008-01-11 12:09:00 +0100 |
commit | 7c1a1b89fbaa2bfad94ca825c4b734e459993654 (patch) | |
tree | 2e70a1a84a9dc33b72c63a8a44e575f76643f497 /tex/context/base/char-ini.lua | |
parent | f5db49f15c3f9ec7dba40d6120b89df2cd0030ff (diff) | |
download | context-7c1a1b89fbaa2bfad94ca825c4b734e459993654.tar.gz |
stable 2008.01.11 12:09
Diffstat (limited to 'tex/context/base/char-ini.lua')
-rw-r--r-- | tex/context/base/char-ini.lua | 104 |
1 files changed, 98 insertions, 6 deletions
diff --git a/tex/context/base/char-ini.lua b/tex/context/base/char-ini.lua index c0ce04ef6..96f8bf357 100644 --- a/tex/context/base/char-ini.lua +++ b/tex/context/base/char-ini.lua @@ -24,6 +24,50 @@ characters.data = characters.data or { } characters.synonyms = characters.synonyms or { } characters.context = characters.context or { } +characters.categories = { + lu = "Letter Uppercase", + ll = "Letter Lowercase", + lt = "Letter Titlecase", + lm = "Letter Modifier", + lo = "Letter Other", + mn = "Mark Nonspacing", + mc = "Mark Spacing Combining", + me = "Mark Enclosing", + nd = "Number Decimal Digit", + nl = "Number Letter", + no = "Number Other", + pc = "Punctuation Connector", + pd = "Punctuation Dash", + ps = "Punctuation Open", + pe = "Punctuation Close", + pi = "Punctuation Initial Quote", + pf = "Punctuation Final Quote", + po = "Punctuation Other", + sm = "Symbol Math", + sc = "Symbol Currency", + sk = "Symbol Modifier", + so = "Symbol Other", + zs = "Separator Space", + zl = "Separator Line", + zp = "Separator Paragraph", + cc = "Other Control", + cf = "Other Format", + cs = "Other Surrogate", + co = "Other Private Use", + cn = "Other Not Assigned", +} + +--~ special : cf (softhyphen) zs (emspace) +--~ characters: ll lm lo lt lu mn nl no pc pd pe pf pi po ps sc sk sm so + +characters.is_character = table.tohash { + "ll","lm","lo","lt","lu","mn","nl","no","pc","pd","pe","pf","pi","po","ps","sc","sk","sm","so" +} + +characters.is_command = table.tohash { + "cf","zs" +} + do local _empty_table_ = { __index = function(t,k) return "" end } @@ -39,6 +83,8 @@ table.set_empty_metatable(characters.data) table we derive a few more.</p> --ldx]]-- +-- used ? + characters.context.unicodes = characters.context.unicodes or { } characters.context.utfcodes = characters.context.utfcodes or { } characters.context.enccodes = characters.context.enccodes or { } @@ -92,22 +138,68 @@ end use the table. After all, we have this information available anyway.</p> --ldx]]-- +function characters.makeactive(n,name) + tex.sprint(string.format("\\catcode%s=13\\unexpanded\\def %s{\\%s}",n,utf.char(n),name)) +end + +function tex.uprint(n) + tex.sprint(tex.ctxcatcodes,utf.char(n)) +end + +--~ function characters.context.define() +--~ local unicodes, utfcodes = characters.context.unicodes, characters.context.utfcodes +--~ local flush, tc, char = tex.sprint, tex.ctxcatcodes, utf.char +--~ local is_character, is_command = characters.is_character, characters.is_command +--~ for u, chr in pairs(characters.data) do +--~ local contextname = chr.contextname +--~ if contextname then +--~ local category = chr.category +--~ if is_character[category] then +--~ -- by this time, we're still in normal catcode mode +--~ if chr.unicodeslot < 128 then +--~ flush(tc, "\\chardef\\" .. contextname .. "=" .. u) -- unicodes[contextname]) +--~ else +--~ flush(tc, "\\let\\" .. contextname .. "=" .. char(u)) -- utfcodes[contextname]) +--~ end +--~ elseif is_command[category] then +--~ flush("\\catcode"..u.."=13\\unexpanded\\def "..char(u).."{\\"..contextname.."}") +--~ -- characters.makeactive(u,contextname) +--~ end +--~ end +--~ end +--~ end + +characters.activated = { } + function characters.context.define() local unicodes, utfcodes = characters.context.unicodes, characters.context.utfcodes local flush, tc, char = tex.sprint, tex.ctxcatcodes, utf.char + local is_character, is_command = characters.is_character, characters.is_command for u, chr in pairs(characters.data) do local contextname = chr.contextname if contextname then - -- by this time, we're still in normal catcode mode - if chr.unicodeslot < 128 then - flush(tc, "\\chardef\\" .. contextname .. "=" .. u) -- unicodes[contextname]) - else - flush(tc, "\\let\\" .. contextname .. "=" .. char(u)) -- utfcodes[contextname]) - end + local category = chr.category + if is_character[category] then + -- by this time, we're still in normal catcode mode + if chr.unicodeslot < 128 then + flush(tc, "\\chardef\\" .. contextname .. "=" .. u) -- unicodes[contextname]) + else + flush(tc, "\\let\\" .. contextname .. "=" .. char(u)) -- utfcodes[contextname]) + end + elseif is_command[category] then + flush("{\\catcode"..u.."=13\\unexpanded\\gdef "..char(u).."{\\"..contextname.."}}") + characters.activated[u] = true + end end end end +function characters.context.activate() + for u,_ in pairs(characters.activated) do + tex.sprint(tex.ctxcatcodes,"\\catcode "..u.."=13 ") + end +end + function characters.charcode(box) local b = tex.box[box] local l = b.list |