diff options
Diffstat (limited to 'tex/context/modules/mkiv/s-system-macros.mkxl')
| -rw-r--r-- | tex/context/modules/mkiv/s-system-macros.mkxl | 431 |
1 files changed, 222 insertions, 209 deletions
diff --git a/tex/context/modules/mkiv/s-system-macros.mkxl b/tex/context/modules/mkiv/s-system-macros.mkxl index c6251319d..f9d7c5fb8 100644 --- a/tex/context/modules/mkiv/s-system-macros.mkxl +++ b/tex/context/modules/mkiv/s-system-macros.mkxl @@ -27,6 +27,10 @@ % todo: and how about metapost ... i need a mp.hashtokens in order to do that and I also % need to think about protection there (tricky as we use an avl hash there) +\enablemode[texmacros] +% \enablemode[metapostmacros] +\enablemode[notmarked] + \startmodule[system-macros] \continueifinputfile{s-system-macros.mkxl} @@ -43,248 +47,257 @@ \starttext \startluacode - local context = context - local ctx_NC = context.NC - local ctx_NR = context.NR - local ctx_bold = context.bold - local find = string.find - local gsub = string.gsub - local create = token.create + if tex.modes.texmacros then - local crap = "[$>%|%&%#" .. string.char(0xEF) .. "]" + local context = context + local ctx_NC = context.NC + local ctx_NR = context.NR + local ctx_bold = context.bold - local basefile = resolvers.findfile("context.mkxl") - local swapnames = { } + local find = string.find + local gsub = string.gsub + local create = token.create - local pattern = file.join(file.pathpart(basefile),"/*.mk*") - local filenames = dir.glob(pattern) - for i=1,#filenames do - swapnames[file.basename(filenames[i])] = true - end + local crap = "[$>%|%&%#" .. string.char(0xEF) .. "]" - local pattern = file.join(file.pathpart(basefile),"/*.l**") - local filenames = dir.glob(pattern) - for i=1,#filenames do - swapnames[file.basename(filenames[i])] = true - end + local basefile = resolvers.findfile("context.mkxl") + local swapnames = { } - local hashnames = table.setmetatableindex(function(t,k) - local s = file.suffix(k) - local v = k - if s == "mkiv" then - local n = file.replacesuffix(k,"mkxl") - if swapnames[n] then - v = n - end - elseif s == "mkvi" then - local n = file.replacesuffix(k,"mklx") - if swapnames[n] then - v = n - end - elseif s == "lua" then - local n = file.replacesuffix(k,"lmt") - if swapnames[n] then - v = n - end + local pattern = file.join(file.pathpart(basefile),"/*.mk*") + local filenames = dir.glob(pattern) + for i=1,#filenames do + swapnames[file.basename(filenames[i])] = true end - t[k] = v - return v - end) - - require("mtx-interface") - - local data = scripts.interface.editor("data") - local files = data and data.common and data.common.filenames or { } - local flagged = 0 - local total = 0 - local list = tex.hashtokens() - - table.sort(list) - - local function show(visible, check) - -- context.starttabulate { "|l|l|l|lj2|l|l|l|l|l|l|l|l|" } - context.starttabulate { "|l|l|l|lj2|l|l|l|l|l|l|l|l|" } - for i=1,#list do - local k = list[i] - if check(k) then - local v = create(k) - local mutable = v.mutable and "mutable" - local immutable = v.immutable and "immutable" - local frozen = v.frozen and "frozen" - local permanent = v.permanent and "permanent" - local primitive = v.primitive and "primitive" - local instance = v.instance and "instance" - local dealtwith = mutable or immutable or mutable or frozen or permanent or primitive -- beware: we can have combinations - local whatever = find(k,"^[a-z][a-z][a-z]+_") - local cscommand = gsub(v.cmdname or "","_"," ") - local undefined = cscommand == "undefined cs" - local marked = (dealtwith and "+") or (whatever and "-") or (instance and "!") ---if not marked then -if not marked and not find(k,"^[pvm]_") and not find(k,"^![tT]") then - local parameters = v.parameters - local noaligned = v.noaligned and "noaligned" - local filename = files[k] - local csname = context.escape(k) - if undefined then - marked = "?" + + local pattern = file.join(file.pathpart(basefile),"/*.l**") + local filenames = dir.glob(pattern) + for i=1,#filenames do + swapnames[file.basename(filenames[i])] = true + end + + local hashnames = table.setmetatableindex(function(t,k) + local s = file.suffix(k) + local v = k + if s == "mkiv" then + local n = file.replacesuffix(k,"mkxl") + if swapnames[n] then + v = n + end + elseif s == "mkvi" then + local n = file.replacesuffix(k,"mklx") + if swapnames[n] then + v = n end - ctx_NC() if marked then context(marked) end - ctx_NC() if primitive then ctx_bold(csname) else - context(csname) end - ctx_NC() if parameters then context(parameters > 0 and parameters or "-") end - ctx_NC() context(cscommand) - ctx_NC() if primitive then context(primitive) end - ctx_NC() if permanent then context(permanent) end - ctx_NC() if frozen then context(frozen) end - ctx_NC() if immutable then context(immutable) end - ctx_NC() if mutable then context(mutable) end - ctx_NC() if instance then context(instance) end - ctx_NC() if noaligned then context(noaligned) end - ctx_NC() if filename then context(hashnames[filename]) end - ctx_NC() ctx_NR() -end - if visible then - total = total + 1 - if dealtwith then - flagged = flagged + 1 + elseif s == "lua" then + local n = file.replacesuffix(k,"lmt") + if swapnames[n] then + v = n + end + end + t[k] = v + return v + end) + + require("mtx-interface") + + local data = scripts.interface.editor("data") + local files = data and data.common and data.common.filenames or { } + local flagged = 0 + local total = 0 + local list = tex.hashtokens() + local all = not tex.modes.notmarked + + table.sort(list) + + local function show(visible, check) + -- context.starttabulate { "|l|l|l|lj2|l|l|l|l|l|l|l|l|" } + context.starttabulate { "|l|l|l|lj2|l|l|l|l|l|l|l|l|" } + for i=1,#list do + local k = list[i] + if check(k) then + local v = create(k) + local mutable = v.mutable and "mutable" + local immutable = v.immutable and "immutable" + local frozen = v.frozen and "frozen" + local permanent = v.permanent and "permanent" + local primitive = v.primitive and "primitive" + local instance = v.instance and "instance" + local dealtwith = mutable or immutable or mutable or frozen or permanent or primitive -- beware: we can have combinations + local whatever = find(k,"^[a-z][a-z][a-z]+_") + local cscommand = gsub(v.cmdname or "","_"," ") + local undefined = cscommand == "undefined cs" + local marked = (dealtwith and "+") or (whatever and "-") or (instance and "!") + if (all or not marked) and not find(k,"^[pvm]_") and not find(k,"^![tT]") then + local parameters = v.parameters + local noaligned = v.noaligned and "noaligned" + local filename = files[k] + local csname = context.escape(k) + if undefined then + marked = "?" + end + ctx_NC() if marked then context(marked) end + ctx_NC() if primitive then ctx_bold(csname) else + context(csname) end + ctx_NC() if parameters then context(parameters > 0 and parameters or "-") end + ctx_NC() context(cscommand) + ctx_NC() if primitive then context(primitive) end + ctx_NC() if permanent then context(permanent) end + ctx_NC() if frozen then context(frozen) end + ctx_NC() if immutable then context(immutable) end + ctx_NC() if mutable then context(mutable) end + ctx_NC() if instance then context(instance) end + ctx_NC() if noaligned then context(noaligned) end + ctx_NC() if filename then context(hashnames[filename]) end + ctx_NC() ctx_NR() + end + if visible then + total = total + 1 + if dealtwith then + flagged = flagged + 1 + end end end end + context.stoptabulate() end - context.stoptabulate() - end - context.starttitle { title = "Public \\TEX\\ commands" } + context.starttitle { title = "Public \\TEX\\ commands" } show(true, function(k) return find(k,"^[a-zA-Z]+$") end) - context.stoptitle() + context.stoptitle() - context.starttitle { title = "Private \\TEX\\ commands" } - show(false, function(k) return not find(k,"^[a-zA-Z]+$") and not find(k,crap) end) - context.stoptitle() + context.starttitle { title = "Private \\TEX\\ commands" } + show(false, function(k) return not find(k,"^[a-zA-Z]+$") and not find(k,crap) end) + context.stoptitle() - tokens.setters.macro("NumberOfVisible", total) - tokens.setters.macro("NumberOfFlagged", flagged) + tokens.setters.macro("NumberOfVisible", total) + tokens.setters.macro("NumberOfFlagged", flagged) + + end \stopluacode -\page +\startmode[texmacros] -\starttabulate[|c|l|] -\HL -\NC \type {+} \NC mutable, immutable, frozen, permanent, primitive \NC \NR -\NC \type {-} \NC protected by obscurity (underscores) \NC \NR -\NC \type {!} \NC instance (can be frozen) \NC \NR -\NC \type {0-9} \NC the number of arguments (argument grabbing can be delegated) \NC \NR -\HL -\stoptabulate - -\start \hsize 15cm \veryraggedright -Often frozen commands are redefined on demand and they can be overloaded. Mutable -doesn't mean that a user can change it without consequences, for instance the -\type {\current...} ones. Primitives come with the engine, permanent macros are -the core of \CONTEXT. Noaligned macros are special and dealt deep down when -scanning for alignment specific primitives. -\par \stop - -\starttabulate[||r|] -\BC number of visible macros \NC \NumberOfVisible \NC \NR -\BC number of flagged macros \NC \NumberOfFlagged \NC \NR -\stoptabulate - -\stoptext + \page -\page + \starttabulate[|c|l|] + \HL + \NC \type {+} \NC mutable, immutable, frozen, permanent, primitive \NC \NR + \NC \type {-} \NC protected by obscurity (underscores) \NC \NR + \NC \type {!} \NC instance (can be frozen) \NC \NR + \NC \type {0-9} \NC the number of arguments (argument grabbing can be delegated) \NC \NR + \HL + \stoptabulate + + \start \hsize 15cm \veryraggedright + Often frozen commands are redefined on demand and they can be overloaded. Mutable + doesn't mean that a user can change it without consequences, for instance the + \type {\current...} ones. Primitives come with the engine, permanent macros are + the core of \CONTEXT. Noaligned macros are special and dealt deep down when + scanning for alignment specific primitives. + \par \stop -% \startMPcalculation -% % force a format -% \stopMPcalculation + \starttabulate[||r|] + \BC number of visible macros \NC \NumberOfVisible \NC \NR + \BC number of flagged macros \NC \NumberOfFlagged \NC \NR + \stoptabulate + +\stopmode + +\page \startluacode - local context = context - -- local ctx_NC = context.NC - -- local ctx_NR = context.NR - -- local ctx_bold = context.bold - - local find = string.find - local gsub = string.gsub - local create = token.create - - context.starttitle { title = "\\METAFUN\\ commands" } - - metapost.simple("prestine") - - local mptotal = 0 - local codes = metapost.codes - local types = metapost.types - local parameters = metapost.knownparameters - local procodes = mplib.propertycodes - - context.startcolumns { n = 5, distance = "1em" } - context.nohyphens(false) - context.obeyspaces(false) - local t = metapost.gethashentries("prestine",true) -- prestine:1 - if t then - table.sort(t,function(a,b) return a[3] < b[3] end) - mptotal = #t - for i=1,mptotal do - local ti = t[i] - local code = codes[ti[1]] - local property = procodes[ti[2]] - local name = ti[3] - local vtype = ti[4] - local vardef = vtype and types[vtype] == "unsuffixedmacro" - context.bgroup() - -- context("%-15s\\quad",vardef and "(vardef) tag" or code) - context("%s %-15s\\quad",parameters[name] and "+" or "\\nbsp",vardef and "(vardef) tag" or code) - if property == "primitive" then - context.bf(false) - context.blue(false) - elseif property == "permanent" then - context.bf(false) - context.lightgreen(false) - elseif property == "immutable" then - context.bf(false) - context.lightcyan(false) - elseif property == "mutable" then - context.bf(false) - context.lightmagenta(false) - elseif not find(name,"^%a+_") then - -- todo: - if vardef then + if tex.modes.metapostmacros then + + local context = context + -- local ctx_NC = context.NC + -- local ctx_NR = context.NR + -- local ctx_bold = context.bold + + local find = string.find + local gsub = string.gsub + local create = token.create + + context.starttitle { title = "\\METAFUN\\ commands" } + + metapost.simple("prestine") + + local mptotal = 0 + local codes = metapost.codes + local types = metapost.types + local parameters = metapost.knownparameters + local procodes = mplib.propertycodes + + context.startcolumns { n = 5, distance = "1em" } + context.nohyphens(false) + context.obeyspaces(false) + local t = metapost.gethashentries("prestine",true) -- prestine:1 + if t then + table.sort(t,function(a,b) return a[3] < b[3] end) + mptotal = #t + for i=1,mptotal do + local ti = t[i] + local code = codes[ti[1]] + local property = procodes[ti[2]] + local name = ti[3] + local vtype = ti[4] + local vardef = vtype and types[vtype] == "unsuffixedmacro" + context.bgroup() + -- context("%-15s\\quad",vardef and "(vardef) tag" or code) + context("%s %-15s\\quad",parameters[name] and "+" or "\\nbsp",vardef and "(vardef) tag" or code) + if property == "primitive" then + context.bf(false) + context.blue(false) + elseif property == "permanent" then context.bf(false) - context.lightred(false) + context.lightgreen(false) + elseif property == "immutable" then + context.bf(false) + context.lightcyan(false) + elseif property == "mutable" then + context.bf(false) + context.lightmagenta(false) + elseif not find(name,"^%a+_") then + -- todo: + if vardef then + context.bf(false) + context.lightred(false) + end end + context.verbatim(name) + context.egroup() + context.par() end - context.verbatim(name) - context.egroup() - context.par() end - end - context.stopcolumns() + context.stopcolumns() - context.stoptitle() + context.stoptitle() - tokens.setters.macro("NumberOfMetafun", mptotal) + tokens.setters.macro("NumberOfMetafun", mptotal) + + end \stopluacode -\page +\startmode [metapostmacros] + + \page + + \starttabulate[|c|l|] + \HL + \NC \type {-3} \NC \bf \lightmagenta mutable \NC \NR + \NC \type {1} \NC \bf \blue primitive \NC \NR + \NC \type {2} \NC \bf \lightgreen permanent \NC \NR + \NC \type {3} \NC \bf \lightcyan immutable \NC \NR + \NC \type {+} \NC \bf (also) used as key \NC \NR + \HL + \stoptabulate + + \starttabulate[||r|] + \BC number of metafun entries \NC \NumberOfMetafun \NC \NR + \stoptabulate -\starttabulate[|c|l|] -\HL -\NC \type {-3} \NC \bf \lightmagenta mutable \NC \NR -\NC \type {1} \NC \bf \blue primitive \NC \NR -\NC \type {2} \NC \bf \lightgreen permanent \NC \NR -\NC \type {3} \NC \bf \lightcyan immutable \NC \NR -\NC \type {+} \NC \bf (also) used as key \NC \NR -\HL -\stoptabulate - -\starttabulate[||r|] -\BC number of metafun entries \NC \NumberOfMetafun \NC \NR -\stoptabulate - -\stoptext +\stopmode \stopmodule |