diff options
| author | Hans Hagen <pragma@wxs.nl> | 2021-02-05 18:08:41 +0100 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2021-02-05 18:08:41 +0100 |
| commit | 5a7dd5d18ced4a73b05467f208d4c4b0d1afebc0 (patch) | |
| tree | 7138a651a94fb013e584b080c50c4681321617cc /tex/context | |
| parent | ab4fc27d8b1541b491621e07ab1f40f30aaf50ae (diff) | |
| download | context-5a7dd5d18ced4a73b05467f208d4c4b0d1afebc0.tar.gz | |
2021-02-05 17:44:00
Diffstat (limited to 'tex/context')
121 files changed, 1313 insertions, 818 deletions
diff --git a/tex/context/base/mkii/cont-new.mkii b/tex/context/base/mkii/cont-new.mkii index 83b16916a..e2adc3d91 100644 --- a/tex/context/base/mkii/cont-new.mkii +++ b/tex/context/base/mkii/cont-new.mkii @@ -11,7 +11,7 @@ %C therefore copyrighted by \PRAGMA. See mreadme.pdf for %C details. -\newcontextversion{2021.02.01 13:17} +\newcontextversion{2021.02.05 17:41} %D This file is loaded at runtime, thereby providing an %D excellent place for hacks, patches, extensions and new diff --git a/tex/context/base/mkii/context.mkii b/tex/context/base/mkii/context.mkii index 8dc76805c..1c2b39e53 100644 --- a/tex/context/base/mkii/context.mkii +++ b/tex/context/base/mkii/context.mkii @@ -20,7 +20,7 @@ %D your styles an modules. \edef\contextformat {\jobname} -\edef\contextversion{2021.02.01 13:17} +\edef\contextversion{2021.02.05 17:41} %D For those who want to use this: diff --git a/tex/context/base/mkii/mult-de.mkii b/tex/context/base/mkii/mult-de.mkii index 3e2caec87..06a4fb162 100644 --- a/tex/context/base/mkii/mult-de.mkii +++ b/tex/context/base/mkii/mult-de.mkii @@ -774,6 +774,8 @@ \setinterfaceconstant{deepnumbercommand}{deepnumbercommand} \setinterfaceconstant{deeptextcommand}{deeptextcommand} \setinterfaceconstant{default}{default} +\setinterfaceconstant{defaultheight}{defaultheight} +\setinterfaceconstant{defaultwidth}{defaultwidth} \setinterfaceconstant{define}{define} \setinterfaceconstant{delay}{wartezeit} \setinterfaceconstant{depth}{tiefe} @@ -1118,6 +1120,7 @@ \setinterfaceconstant{print}{print} \setinterfaceconstant{printable}{druckbar} \setinterfaceconstant{process}{process} +\setinterfaceconstant{processors}{processors} \setinterfaceconstant{profile}{profile} \setinterfaceconstant{properties}{properties} \setinterfaceconstant{pubsep}{pubsep} @@ -1131,6 +1134,7 @@ \setinterfaceconstant{reference}{referenz} \setinterfaceconstant{referencemethod}{referencemethod} \setinterfaceconstant{referenceprefix}{referenceprefix} +\setinterfaceconstant{referencetext}{referencetext} \setinterfaceconstant{referencing}{referieren} \setinterfaceconstant{region}{region} \setinterfaceconstant{regionin}{regionin} diff --git a/tex/context/base/mkiv/buff-imp-nested.mkiv b/tex/context/base/mkiv/buff-imp-nested.mkiv index f6a25b5f8..9a6a884f0 100644 --- a/tex/context/base/mkiv/buff-imp-nested.mkiv +++ b/tex/context/base/mkiv/buff-imp-nested.mkiv @@ -15,7 +15,7 @@ \unprotect -\unexpanded\def\donestedtypingstart{\bgroup\swaptypeface{}} -\unexpanded\def\donestedtypingstop {\egroup{}} +\permanent\protected\def\donestedtypingstart{\bgroup\swaptypeface{}} +\permanent\protected\def\donestedtypingstop {\egroup{}} \protect \endinput diff --git a/tex/context/base/mkiv/cont-new.mkiv b/tex/context/base/mkiv/cont-new.mkiv index 83ccdfaef..dfe225db7 100644 --- a/tex/context/base/mkiv/cont-new.mkiv +++ b/tex/context/base/mkiv/cont-new.mkiv @@ -13,7 +13,7 @@ % \normalend % uncomment this to get the real base runtime -\newcontextversion{2021.02.01 13:17} +\newcontextversion{2021.02.05 17:41} %D This file is loaded at runtime, thereby providing an excellent place for hacks, %D patches, extensions and new features. There can be local overloads in cont-loc diff --git a/tex/context/base/mkiv/context.mkiv b/tex/context/base/mkiv/context.mkiv index 66788f837..7ce8e0ca0 100644 --- a/tex/context/base/mkiv/context.mkiv +++ b/tex/context/base/mkiv/context.mkiv @@ -45,7 +45,7 @@ %D {YYYY.MM.DD HH:MM} format. \edef\contextformat {\jobname} -\edef\contextversion{2021.02.01 13:17} +\edef\contextversion{2021.02.05 17:41} %D Kind of special: diff --git a/tex/context/base/mkiv/core-uti.lua b/tex/context/base/mkiv/core-uti.lua index 60cf3d6a9..887ef9a75 100644 --- a/tex/context/base/mkiv/core-uti.lua +++ b/tex/context/base/mkiv/core-uti.lua @@ -43,7 +43,7 @@ local report_passes = logs.reporter("job","passes") job = job or { } local job = job -job.version = 1.31 +job.version = 1.32 job.packversion = 1.02 -- some day we will implement loading of other jobs and then we need diff --git a/tex/context/base/mkiv/good-ctx.lua b/tex/context/base/mkiv/good-ctx.lua index 7a25baf93..80672676c 100644 --- a/tex/context/base/mkiv/good-ctx.lua +++ b/tex/context/base/mkiv/good-ctx.lua @@ -32,6 +32,7 @@ local fontgoodies = fonts.goodies or { } local nuts = nodes.nuts local tonut = nuts.tonut local getattr = nuts.getattr +local getprop = nuts.getprop local nextglyph = nuts.traversers.glyph -- colorschemes @@ -61,8 +62,10 @@ local function setcolorscheme(tfmdata,scheme) local characters = tfmdata.characters for i=1,#what do local w = what[i] - for j=1,#w do - local name = w[j] + local force = w.force + local list = w.list or w + for j=1,#list do + local name = list[j] local kind = type(name) if name == "*" then -- inefficient but only used for tracing anyway @@ -81,10 +84,16 @@ local function setcolorscheme(tfmdata,scheme) -- limited usage: we only deal with non reassigned -- maybe some day I'll also support the ones with a -- tounicode in this range - for unicode=start,stop do - if characters[unicode] then + if force then + for unicode=start,stop do reverse[unicode] = i end + else + for unicode=start,stop do + if characters[unicode] then + reverse[unicode] = i + end + end end end else @@ -150,6 +159,13 @@ function colorschemes.coloring(head) if f ~= lastfont then lastfont = f lastscheme = fontproperties[f].colorscheme + if not lastscheme then + local p = getprop(n, "original") + if p then + lastfont = p.font + lastscheme = fontproperties[lastfont].colorscheme + end + end end if a ~= lastattr then lastattr = a diff --git a/tex/context/base/mkiv/meta-ini.mkiv b/tex/context/base/mkiv/meta-ini.mkiv index 52aafac62..9305a0495 100644 --- a/tex/context/base/mkiv/meta-ini.mkiv +++ b/tex/context/base/mkiv/meta-ini.mkiv @@ -883,11 +883,8 @@ {\meta_prepare_instance_variable{#1}% \edef\overlaystamp{\overlaystamp:\MPvariable{#1}}} -\unexpanded\def\getMPdata {\clf_getMPdata} - \let\rawMPdata \clf_getMPdata - -\unexpanded\def\getMPstored{\clf_getMPstored} - \let\rawMPstored \clf_getMPstored +\unexpanded\def\getMPdata{\clf_getMPdata} + \let\rawMPdata \clf_getMPdata %D We need this trick because we need to make sure that the tex scanner sees %D newlines and does not quit. Also, we do need to flush the buffer under a normal diff --git a/tex/context/base/mkiv/mult-def.lua b/tex/context/base/mkiv/mult-def.lua index 450238c16..0f2ef419c 100644 --- a/tex/context/base/mkiv/mult-def.lua +++ b/tex/context/base/mkiv/mult-def.lua @@ -8564,6 +8564,9 @@ return { ["fr"]="entrees", ["nl"]="ingangen", }, + ["processors"]={ + ["en"]="processors", + }, ["equalheight"]={ ["cs"]="equalheight", ["de"]="equalheight", diff --git a/tex/context/base/mkiv/page-lay.mkiv b/tex/context/base/mkiv/page-lay.mkiv index bec9dc7ce..6f41f3bd8 100644 --- a/tex/context/base/mkiv/page-lay.mkiv +++ b/tex/context/base/mkiv/page-lay.mkiv @@ -551,8 +551,8 @@ \doglobal\swapdimens\paperwidth\paperheight \fi \ifinpagebody % local freeze - \normalexpanded{\setlayouttargetparemeter\c!height{\the\paperheight}}% - \normalexpanded{\setlayouttargetparemeter\c!width {\the\paperwidth }}% + \normalexpanded{\setlayouttargetparameter\c!height{\the\paperheight}}% + \normalexpanded{\setlayouttargetparameter\c!width {\the\paperwidth }}% \fi % \page_paper_set_offsets diff --git a/tex/context/base/mkiv/spac-hor.mkiv b/tex/context/base/mkiv/spac-hor.mkiv index 5c7163822..16a1a0d4e 100644 --- a/tex/context/base/mkiv/spac-hor.mkiv +++ b/tex/context/base/mkiv/spac-hor.mkiv @@ -478,11 +478,20 @@ %D from now on we treat it as a normal space and not as a space with \type %D {sfcode} 1000. +% \unexpanded\def\specialspaceprimitive +% {\begingroup +% % so, no fancy extra spacing after: foo i.e.\ bar +% \nonfrenchspacing\normalspaceprimitive +% \endgroup} + \unexpanded\def\specialspaceprimitive - {\begingroup - % so, no fancy extra spacing after: foo i.e.\ bar - \nonfrenchspacing\normalspaceprimitive - \endgroup} + {% is a current state, set explicitly or when a character is appended + \ifhmode + \spacefactor\plusthousand + \else + \dontleavehmode + \fi + \normalspaceprimitive} \unexpanded\def\normalnotobeyedspace {\mathortext\normalspaceprimitive\specialspaceprimitive} % no \dontleavehmode\space (else no frenchspacing) diff --git a/tex/context/base/mkiv/status-files.pdf b/tex/context/base/mkiv/status-files.pdf Binary files differindex 4fa124525..35efbfdcb 100644 --- a/tex/context/base/mkiv/status-files.pdf +++ b/tex/context/base/mkiv/status-files.pdf diff --git a/tex/context/base/mkiv/status-lua.pdf b/tex/context/base/mkiv/status-lua.pdf Binary files differindex 022a29167..b5fcc04ae 100644 --- a/tex/context/base/mkiv/status-lua.pdf +++ b/tex/context/base/mkiv/status-lua.pdf diff --git a/tex/context/base/mkiv/strc-reg.lua b/tex/context/base/mkiv/strc-reg.lua index 6873f89eb..6e26f6f37 100644 --- a/tex/context/base/mkiv/strc-reg.lua +++ b/tex/context/base/mkiv/strc-reg.lua @@ -460,6 +460,7 @@ local function preprocessentries(rawdata) local processors = rawdata.processors local et = entries.entries local kt = entries.keys + local pt = entries.processors local entryproc = processors and processors.entry local pageproc = processors and processors.page local coding = rawdata.metadata.coding @@ -483,16 +484,20 @@ local function preprocessentries(rawdata) end kt = lpegmatch(coding == "xml" and entrysplitter_xml or entrysplitter_tex,k) end + if not pt then + pt = { } + end -- entries = { } local ok = false for k=#et,1,-1 do local etk = et[k] local ktk = kt[k] + local ptk = pt[k] if not ok and etk == "" then entries[k] = nil else - entries[k] = { etk or "", ktk ~= "" and ktk or nil } + entries[k] = { etk or "", ktk ~= "" and ktk or false, ptk ~= "" and ptk or false } ok = true end end @@ -677,31 +682,33 @@ implement { { "catcodes", "integer" }, { "own" }, { "xmlroot" }, - { "xmlsetup" } + { "xmlsetup" }, } }, { "entries", { { "entries", "list" }, { "keys", "list" }, + { "processors", "list" }, { "entry" }, - { "key" } + { "key" }, + { "processor" }, } }, { "references", { { "internal", "integer" }, { "section", "integer" }, { "view" }, - { "label" } + { "label" }, } }, { "seeword", { - { "text" } + { "text" }, } }, { "processors", { { "entry" }, { "key" }, - { "page" } + { "page" }, } }, { "userdata" }, @@ -1258,6 +1265,7 @@ function registers.flush(data,options,prefixspec,pagespec) while d < #data do d = d + 1 local entry = data[d] +-- inspect(entry) local metadata = entry.metadata local kind = metadata.kind local list = entry.list @@ -1266,8 +1274,9 @@ function registers.flush(data,options,prefixspec,pagespec) e[i] = false end for i=1,maxlevel do + local li = list[i] if list[i] then - e[i] = list[i][1] + e[i] = li[1] end if e[i] == done[i] then -- skip @@ -1309,7 +1318,7 @@ function registers.flush(data,options,prefixspec,pagespec) local processors = entry.processors local internal = references.internal or 0 local seeparent = references.seeparent or "" - local processor = processors and processors[1] or "" + local processor = (li and li[3]) or (processors and processors[1]) or "" -- so, we need to keep e as is (local), or we need local title = e[i] ... which might be -- more of a problem ctx_startregisterentry(0) -- will become a counter diff --git a/tex/context/base/mkiv/symb-imp-nav.mkiv b/tex/context/base/mkiv/symb-imp-nav.mkiv index 6e2f2c1f0..ce5b1d76a 100644 --- a/tex/context/base/mkiv/symb-imp-nav.mkiv +++ b/tex/context/base/mkiv/symb-imp-nav.mkiv @@ -24,7 +24,7 @@ \definefontsynonym [ContextNavigation] [contnav] -\def\ContextNavigationGlyph{\getnamedglyphdirect{ContextNavigation}} % #1 +\permanent\protected\def\ContextNavigationGlyph{\getnamedglyphdirect{ContextNavigation}} % #1 \startsymbolset [navigation 1] @@ -122,8 +122,15 @@ \stopsymbolset -%D \showsymbolset[navigation 1] -%D \showsymbolset[navigation 2] -%D \showsymbolset[navigation 3] +\protect -\protect \endinput +\continueifinputfile{symb-imp-nav.mkiv} + +\starttext + \showsymbolset[navigation 1]\page + \showsymbolset[navigation 2]\page + \showsymbolset[navigation 3]\page + \ContextNavigationGlyph{char03}\quad + \ContextNavigationGlyph{char67}\quad + \ContextNavigationGlyph{charcb} +\stoptext diff --git a/tex/context/base/mkxl/buff-par.mklx b/tex/context/base/mkxl/buff-par.mklx index ddafd7e14..b6ffa3f53 100644 --- a/tex/context/base/mkxl/buff-par.mklx +++ b/tex/context/base/mkxl/buff-par.mklx @@ -137,7 +137,7 @@ \mutable\let\currentparallellabel \empty \mutable\let\currentparallelcontent \empty -\def\doflushparallel#instance#status#line#label#content% called at lua end +\permanent\protected\def\doflushparallel#instance#status#line#label#content% called at lua end {\begingroup \def\currentparallelinstance{#instance}% \def\currentparallelnumber {#status}% diff --git a/tex/context/base/mkxl/buff-ver.mkxl b/tex/context/base/mkxl/buff-ver.mkxl index 11ad92784..7a34729fb 100644 --- a/tex/context/base/mkxl/buff-ver.mkxl +++ b/tex/context/base/mkxl/buff-ver.mkxl @@ -424,10 +424,10 @@ \aftergroup\egroup \let\nexttoken} -\protected\def\tex{\buff_verbatim_special_type\texescape \relax} -\protected\def\arg{\buff_verbatim_special_type\leftargument \rightargument} -\protected\def\mat{\buff_verbatim_special_type\inlinemathmarker \inlinemathmarker} -\protected\def\dis{\buff_verbatim_special_type\displaymathmarker\displaymathmarker} +\mutable\protected\def\tex{\buff_verbatim_special_type\texescape \relax} +\mutable\protected\def\arg{\buff_verbatim_special_type\leftargument \rightargument} +\mutable\protected\def\mat{\buff_verbatim_special_type\inlinemathmarker \inlinemathmarker} +\mutable\protected\def\dis{\buff_verbatim_special_type\displaymathmarker\displaymathmarker} \aliased\let\normaltexttex\tex \aliased\let\normaltextarg\arg @@ -930,25 +930,25 @@ \newcount \c_buff_verbatim_current \newconditional\c_buff_optimize_linebreaks - \def\doverbatimspace {\obeyedspace} - -\protected\def\doinlineverbatimstart {} -\protected\def\doinlineverbatimstop {} -\protected\def\doinlineverbatimbeginline {} -\protected\def\doinlineverbatimnewline {\obeyedspace} -\protected\def\doinlineverbatimemptyline {\obeyedspace} - -\protected\def\dodisplayverbatimstart {\advance\c_buff_verbatim_current\plusone - \buff_verbatim_begin_of_line} -\protected\def\dodisplayverbatimstop {\buff_verbatim_end_of_line} -\protected\def\dodisplayverbatimbeginline{\advance\c_buff_verbatim_current\plusone - \buff_verbatim_begin_of_line} -\protected\def\dodisplayverbatimnewline {\buff_verbatim_end_of_line - \par - \ifconditional\c_buff_optimize_linebreaks - \buff_verbatim_inject_breaks - \fi} -\protected\def\dodisplayverbatimemptyline{\buff_verbatim_empty_line} +\permanent\protected\def\doverbatimspace {\obeyedspace} + +\permanent\protected\def\doinlineverbatimstart {} +\permanent\protected\def\doinlineverbatimstop {} +\permanent\protected\def\doinlineverbatimbeginline {} +\permanent\protected\def\doinlineverbatimnewline {\obeyedspace} +\permanent\protected\def\doinlineverbatimemptyline {\obeyedspace} + +\permanent\protected\def\dodisplayverbatimstart {\advance\c_buff_verbatim_current\plusone + \buff_verbatim_begin_of_line} +\permanent\protected\def\dodisplayverbatimstop {\buff_verbatim_end_of_line} +\permanent\protected\def\dodisplayverbatimbeginline{\advance\c_buff_verbatim_current\plusone + \buff_verbatim_begin_of_line} +\permanent\protected\def\dodisplayverbatimnewline {\buff_verbatim_end_of_line + \par + \ifconditional\c_buff_optimize_linebreaks + \buff_verbatim_inject_breaks + \fi} +\permanent\protected\def\dodisplayverbatimemptyline{\buff_verbatim_empty_line} \protected\def\buff_verbatim_inject_breaks {\ifnum\c_buff_verbatim_current=\plusone @@ -993,6 +993,6 @@ %D This is \type {\asciimode} without the double comment hackery: -\protected\def\literalmode{\setcatcodetable\txtcatcodes} +\permanent\protected\def\literalmode{\setcatcodetable\txtcatcodes} \protect \endinput diff --git a/tex/context/base/mkxl/catc-def.mkxl b/tex/context/base/mkxl/catc-def.mkxl index a67d94e44..b7332a41d 100644 --- a/tex/context/base/mkxl/catc-def.mkxl +++ b/tex/context/base/mkxl/catc-def.mkxl @@ -266,8 +266,8 @@ \chardef \| = \barasciicode \pushoverloadmode - \catcodetable \ctxcatcodes - \let \defaultcatcodetable \ctxcatcodes + \catcodetable \ctxcatcodes + \aliased\let\defaultcatcodetable\ctxcatcodes \popoverloadmode \endinput diff --git a/tex/context/base/mkxl/catc-ini.mkxl b/tex/context/base/mkxl/catc-ini.mkxl index c7427a40c..7f1a89f6c 100644 --- a/tex/context/base/mkxl/catc-ini.mkxl +++ b/tex/context/base/mkxl/catc-ini.mkxl @@ -20,21 +20,21 @@ %D file. There is some overlap in code with \MKII\ but we take that for granted. %D Also, in \MKIV\ less active characters are used. -\begingroup - \letcharcode\newlineasciicode\relax \xdef\outputnewlinechar{\Uchar\newlineasciicode} -\endgroup +% \begingroup +% \letcharcode\newlineasciicode\relax \xdef\outputnewlinechar{\Uchar\newlineasciicode} +% \endgroup % \endlinechar = \endoflineasciicode % appended to input lines % \newlinechar = \newlineasciicode % can be used in write % rather special and used in writing to file: \let\par\outputnewlinechar -\permanent\protected\def\initializenewlinechar % operating system dependent - {\begingroup - \letcharcode\newlineasciicode\relax - \newlinechar\newlineasciicode - \xdef\outputnewlinechar{\Uchar\newlineasciicode}% - \endgroup} +% \permanent\protected\def\initializenewlinechar % operating system dependent +% {\begingroup +% \enforced\letcharcode\newlineasciicode\relax +% \newlinechar\newlineasciicode +% \xdef\outputnewlinechar{\Uchar\newlineasciicode}% +% \endgroup} %D We predefine some prefixes ahead of syst-aux and mult-sys. We reserve 8 slots for %D catcodes. (This active mess probably needs an update some day.) diff --git a/tex/context/base/mkxl/colo-ini.mkxl b/tex/context/base/mkxl/colo-ini.mkxl index 7dfa541db..0e3ea9c6f 100644 --- a/tex/context/base/mkxl/colo-ini.mkxl +++ b/tex/context/base/mkxl/colo-ini.mkxl @@ -806,8 +806,6 @@ \begincsname\??transparencysetter\currentcolorparameter\endcsname \fi} -\let\dosetcolorattribute\dousecolorhashparameter % for a while - \permanent\protected\def\deactivatecolor % sort of public but a bad name {\let\currentcolorname\s!black \c_attr_color \attributeunsetvalue @@ -1071,8 +1069,8 @@ %D \stopregistercolor %D \stoptyping -\let\maintextcolor \empty -\def\defaulttextcolor{black} +\mutable\let\maintextcolor \empty +\mutable\def\defaulttextcolor{black} \permanent\protected\def\inheritmaintextcolor {\ifempty\maintextcolor\else\colo_helpers_activate\maintextcolor\fi} diff --git a/tex/context/base/mkxl/cont-cs.mkxl b/tex/context/base/mkxl/cont-cs.mkxl index 8e5ae567c..2167b568f 100644 --- a/tex/context/base/mkxl/cont-cs.mkxl +++ b/tex/context/base/mkxl/cont-cs.mkxl @@ -13,8 +13,8 @@ \catcode`\{=1 \catcode`\}=2 -\def\defaultinterface {czech} -\def\defaultlanguagetag{cs} +\immutable\def\defaultinterface {czech} +\immutable\def\defaultlanguagetag{cs} \input context.mkxl diff --git a/tex/context/base/mkxl/cont-de.mkxl b/tex/context/base/mkxl/cont-de.mkxl index 579cc88c3..1f54bbb30 100644 --- a/tex/context/base/mkxl/cont-de.mkxl +++ b/tex/context/base/mkxl/cont-de.mkxl @@ -13,8 +13,8 @@ \catcode`\{=1 \catcode`\}=2 -\def\defaultinterface {german} -\def\defaultlanguagetag{de} +\immutable\def\defaultinterface {german} +\immutable\def\defaultlanguagetag{de} \input context.mkxl diff --git a/tex/context/base/mkxl/cont-en.mkxl b/tex/context/base/mkxl/cont-en.mkxl index bfb17ffb3..5dd02f7d4 100644 --- a/tex/context/base/mkxl/cont-en.mkxl +++ b/tex/context/base/mkxl/cont-en.mkxl @@ -13,8 +13,8 @@ \catcode`\{=1 \catcode`\}=2 -\def\defaultinterface {english} -\def\defaultlanguagetag{en} +\immutable\def\defaultinterface {english} +\immutable\def\defaultlanguagetag{en} \input context.mkxl diff --git a/tex/context/base/mkxl/cont-fr.mkxl b/tex/context/base/mkxl/cont-fr.mkxl index bedae536b..baee1ec71 100644 --- a/tex/context/base/mkxl/cont-fr.mkxl +++ b/tex/context/base/mkxl/cont-fr.mkxl @@ -13,8 +13,8 @@ \catcode`\{=1 \catcode`\}=2 -\def\defaultinterface {french} -\def\defaultlanguagetag{fr} +\immutable\def\defaultinterface {french} +\immutable\def\defaultlanguagetag{fr} \input context.mkxl diff --git a/tex/context/base/mkxl/cont-gb.mkxl b/tex/context/base/mkxl/cont-gb.mkxl index 464b237da..0c3197a3e 100644 --- a/tex/context/base/mkxl/cont-gb.mkxl +++ b/tex/context/base/mkxl/cont-gb.mkxl @@ -13,8 +13,8 @@ \catcode`\{=1 \catcode`\}=2 -\def\defaultinterface {english} -\def\defaultlanguagetag{gb} +\immutable\def\defaultinterface {english} +\immutable\def\defaultlanguagetag{gb} \input context.mkxl diff --git a/tex/context/base/mkxl/cont-it.mkxl b/tex/context/base/mkxl/cont-it.mkxl index 1702a872f..0491c2efd 100644 --- a/tex/context/base/mkxl/cont-it.mkxl +++ b/tex/context/base/mkxl/cont-it.mkxl @@ -13,8 +13,8 @@ \catcode`\{=1 \catcode`\}=2 -\def\defaultinterface {italian} -\def\defaultlanguagetag{it} +\immutable\def\defaultinterface {italian} +\immutable\def\defaultlanguagetag{it} \input context.mkxl diff --git a/tex/context/base/mkxl/cont-log.mkxl b/tex/context/base/mkxl/cont-log.mkxl index d2d8e0e4f..f35c6f169 100644 --- a/tex/context/base/mkxl/cont-log.mkxl +++ b/tex/context/base/mkxl/cont-log.mkxl @@ -122,11 +122,11 @@ %D The \METAFONT\ and \METAPOST\ logos adapt themselves to the current fontsize, an %D ugly but usefull hack. -\let\logofont\nullfont +\mutable\let\logofont\nullfont % \loadmapfile[original-base.map] % stil needed? not if we assume afm -\protected\def\setMFPfont% more sensitive for low level changes +\permanent\protected\def\setMFPfont% more sensitive for low level changes {\font\logofont=logo% \ifx\fontalternative\s!bf\s!bf\orelse \ifx\fontalternative\s!it\s!sl\orelse diff --git a/tex/context/base/mkxl/cont-new.mkxl b/tex/context/base/mkxl/cont-new.mkxl index 92dddab22..c130a9440 100644 --- a/tex/context/base/mkxl/cont-new.mkxl +++ b/tex/context/base/mkxl/cont-new.mkxl @@ -13,7 +13,7 @@ % \normalend % uncomment this to get the real base runtime -\newcontextversion{2021.02.01 13:17} +\newcontextversion{2021.02.05 17:41} %D This file is loaded at runtime, thereby providing an excellent place for hacks, %D patches, extensions and new features. There can be local overloads in cont-loc diff --git a/tex/context/base/mkxl/cont-nl.mkxl b/tex/context/base/mkxl/cont-nl.mkxl index 1f00e7e89..5e74114e5 100644 --- a/tex/context/base/mkxl/cont-nl.mkxl +++ b/tex/context/base/mkxl/cont-nl.mkxl @@ -13,8 +13,8 @@ \catcode`\{=1 \catcode`\}=2 -\def\defaultinterface {dutch} -\def\defaultlanguagetag{nl} +\immutable\def\defaultinterface {dutch} +\immutable\def\defaultlanguagetag{nl} \input context.mkxl diff --git a/tex/context/base/mkxl/cont-pe.mkxl b/tex/context/base/mkxl/cont-pe.mkxl index 82bf73721..2242c3e0d 100644 --- a/tex/context/base/mkxl/cont-pe.mkxl +++ b/tex/context/base/mkxl/cont-pe.mkxl @@ -13,9 +13,9 @@ \catcode`\{=1 \catcode`\}=2 -\def\defaultinterface {persian} -\def\messageinterface {english} -\def\defaultlanguagetag{pe} +\immutable\def\defaultinterface {persian} +\immutable\def\messageinterface {english} +\immutable\def\defaultlanguagetag{pe} \input context.mkxl diff --git a/tex/context/base/mkxl/cont-ro.mkxl b/tex/context/base/mkxl/cont-ro.mkxl index 6d636c7dc..ced28ba3d 100644 --- a/tex/context/base/mkxl/cont-ro.mkxl +++ b/tex/context/base/mkxl/cont-ro.mkxl @@ -13,8 +13,8 @@ \catcode`\{=1 \catcode`\}=2 -\def\defaultinterface {romanian} -\def\defaultlanguagetag{ro} +\immutable\def\defaultinterface {romanian} +\immutable\def\defaultlanguagetag{ro} \input context.mkxl diff --git a/tex/context/base/mkxl/context.mkxl b/tex/context/base/mkxl/context.mkxl index 78aa7bf93..abd86d3cd 100644 --- a/tex/context/base/mkxl/context.mkxl +++ b/tex/context/base/mkxl/context.mkxl @@ -29,7 +29,7 @@ %D {YYYY.MM.DD HH:MM} format. \immutable\edef\contextformat {\jobname} -\immutable\edef\contextversion{2021.02.01 13:17} +\immutable\edef\contextversion{2021.02.05 17:41} %overloadmode 1 % check frozen / warning %overloadmode 2 % check frozen / error @@ -65,9 +65,9 @@ %D Some checking (more primitives are now defined): -\ifdefined\defaultinterface \else \def\defaultinterface {english} \fi -%ifdefined\messageinterface \else \let\messageinterface \defaultinterface \fi -\ifdefined\defaultlanguagetag \else \def\defaultlanguagetag{en} \fi +\ifdefined\defaultinterface \else \immutable\def\defaultinterface {english} \fi +%ifdefined\messageinterface \else \immutable\let\messageinterface \defaultinterface \fi +\ifdefined\defaultlanguagetag \else \immutable\def\defaultlanguagetag{en} \fi %D There is only this way to pass the version info to \LUA\ (currently). Hm, we could %D now put it into the environment. @@ -80,7 +80,7 @@ \loadmkxlfile{norm-ctx} \loadmkxlfile{syst-pln} -\loadmkxlfile{syst-mes} +%loadmkxlfile{syst-mes} \loadmkxlfile{luat-cod} \loadmkxlfile{luat-bas} diff --git a/tex/context/base/mkxl/core-con.mkxl b/tex/context/base/mkxl/core-con.mkxl index bfa8079e6..e2e23298c 100644 --- a/tex/context/base/mkxl/core-con.mkxl +++ b/tex/context/base/mkxl/core-con.mkxl @@ -178,15 +178,6 @@ \egroup} %D \macros -%D {protectconversion} -%D -%D The previous two commands are not robust enough to be passed to \type -%D {\write} en \type{\message}. That's why we introduce: - -\permanent\protected\def\protectconversion - {\let\doconvertcharacters\firstofoneargument} - -%D \macros %D {normaltime,normalyear,normalmonth,normalday} %D %D The last part of this module is dedicated to converting dates. Because we want to @@ -526,11 +517,9 @@ #3}% \endgroup} -\def\lastmonth{12} % can be set to e.g. 1 when testing - \permanent\protected\def\processyear#1#2#3#4% year command before after {\begingroup - \dorecurse\lastmonth + \dorecurse\plustwelve {\normalyear #1\relax \normalmonth\recurselevel\relax #3\processmonth\normalyear\normalmonth{#2}#4}% @@ -977,9 +966,9 @@ %D Taken from x-asciimath (see digits-001.tex for an example): -\let\spaceddigitsmethod \empty % alternative methods : 1 default, 2 and 3 only when > 4 -\let\spaceddigitssymbol \empty % extra splitter symbol : {,} -\let\spaceddigitsseparator\empty % separator symbol : {\Uchar{"2008}} +\mutable\let\spaceddigitsmethod \empty % alternative methods : 1 default, 2 and 3 only when > 4 +\mutable\let\spaceddigitssymbol \empty % extra splitter symbol : {,} +\mutable\let\spaceddigitsseparator\empty % separator symbol : {\Uchar{"2008}} \permanent\protected\def\spaceddigits#1% {\clf_spaceddigits diff --git a/tex/context/base/mkxl/core-def.mkxl b/tex/context/base/mkxl/core-def.mkxl index c7baf9ab1..e82026d21 100644 --- a/tex/context/base/mkxl/core-def.mkxl +++ b/tex/context/base/mkxl/core-def.mkxl @@ -107,7 +107,7 @@ \appendtoks \showcontextbanner - \initializenewlinechar + %\initializenewlinechar \calculatecurrenttime \syst_files_load % for the moment here (before doc env) @@ -149,7 +149,7 @@ % temporary here: \pushoverloadmode - \frozen\protected\def\arg{\mathortext\normalmatharg\normaltextarg} + \frozen\protected\def\arg{\mathortext\normalmatharg\normaltextarg} % might be overloaded \popoverloadmode % might move to \everydump or even disappear: diff --git a/tex/context/base/mkxl/core-env.mkxl b/tex/context/base/mkxl/core-env.mkxl index c90b92f22..4e040d632 100644 --- a/tex/context/base/mkxl/core-env.mkxl +++ b/tex/context/base/mkxl/core-env.mkxl @@ -306,16 +306,49 @@ \installmacrostack\c_syst_modes_set_done +% \permanent\protected\def\startmodeset +% {\push_macro_c_syst_modes_set_done +% \setfalse\c_syst_modes_set_done +% \doifelsenextoptionalcs\syst_modes_set_start\syst_modes_set_quit} +% +% \aliased\let\stopmodeset\relax +% +% \def\syst_modes_set_start[#1]% +% {\edef\m_mode_case{#1}% +% \unless\ifx\m_mode_case\s!default +% \expandafter\syst_modes_set_check +% \orelse\ifconditional\c_syst_modes_set_done +% \expandafter\syst_modes_set_quit +% \else +% \expandafter\syst_modes_set_yes +% \fi} +% +% \def\syst_modes_set_check +% {\syst_modes_check_lr\syst_modes_set_yes\syst_modes_set_nop\m_mode_case} +% +% \def\syst_modes_set_yes#1% +% {\settrue\c_syst_modes_set_done +% #1% +% \doifelsenextoptionalcs\syst_modes_set_start\syst_modes_set_quit} +% +% \def\syst_modes_set_nop#1% +% {\doifelsenextoptionalcs\syst_modes_set_start\syst_modes_set_quit} +% +% \def\syst_modes_set_quit#-\stopmodeset +% {\pop_macro_c_syst_modes_set_done} + \permanent\protected\def\startmodeset {\push_macro_c_syst_modes_set_done \setfalse\c_syst_modes_set_done - \doifelsenextoptionalcs\syst_modes_set_start\syst_modes_set_quit} + \syst_modes_set_start} \aliased\let\stopmodeset\relax -\def\syst_modes_set_start[#1]% +\tolerant\def\syst_modes_set_start#.[#1]% skip spaces and pars {\edef\m_mode_case{#1}% - \unless\ifx\m_mode_case\s!default + \ifempty\m_mode_case + \expandafter\syst_modes_set_quit + \orunless\ifx\m_mode_case\s!default \expandafter\syst_modes_set_check \orelse\ifconditional\c_syst_modes_set_done \expandafter\syst_modes_set_quit @@ -326,13 +359,13 @@ \def\syst_modes_set_check {\syst_modes_check_lr\syst_modes_set_yes\syst_modes_set_nop\m_mode_case} -\def\syst_modes_set_yes#1% +\tolerant\def\syst_modes_set_yes#1% {\settrue\c_syst_modes_set_done #1% - \doifelsenextoptionalcs\syst_modes_set_start\syst_modes_set_quit} + \syst_modes_set_start} -\def\syst_modes_set_nop#1% - {\doifelsenextoptionalcs\syst_modes_set_start\syst_modes_set_quit} +\tolerant\def\syst_modes_set_nop#1% + {\syst_modes_set_start} \def\syst_modes_set_quit#-\stopmodeset {\pop_macro_c_syst_modes_set_done} @@ -610,6 +643,8 @@ \permanent\protected\def\setgvariables{\syst_variables_set[\getrawgparameters]} \permanent\protected\def\setxvariables{\syst_variables_set[\getrawxparameters]} +\mutable\let\currentvariableclass\empty + \tolerant\def\syst_variables_set[#1]#*[#2]#*[#3]% tricky, test on s-pre-60 {\doifelse{#2}\currentvariableclass {#1[\??variables#2:][#3]}% diff --git a/tex/context/base/mkxl/core-ini.mkxl b/tex/context/base/mkxl/core-ini.mkxl index 94a0faeb9..ce6121061 100644 --- a/tex/context/base/mkxl/core-ini.mkxl +++ b/tex/context/base/mkxl/core-ini.mkxl @@ -207,13 +207,13 @@ \aliased\let\stopboxedcontent\egroup -%D We store some original meanings, maybe in \type {math-ini}. - -\let\normalat \at -\let\normalin \in -\let\normalfrom \from -%let\normalover \over -\let\normalabout\about +% %D We store some original meanings, maybe in \type {math-ini}. +% +% \let\normalat \at +% \let\normalin \in +% \let\normalfrom \from +% \let\normalover \over +% \let\normalabout\about %D This will be implemented way later: diff --git a/tex/context/base/mkxl/core-sys.mkxl b/tex/context/base/mkxl/core-sys.mkxl index e27e0734d..946e5630f 100644 --- a/tex/context/base/mkxl/core-sys.mkxl +++ b/tex/context/base/mkxl/core-sys.mkxl @@ -23,7 +23,7 @@ \permanent\protected\def\newcontextversion#1% {\doifelse{#1}\contextversion - {\let\newcontextversion\gobbleoneargument} + {\aliased\let\newcontextversion\gobbleoneargument} {\writeline \writestatus{Fatal Error}{Your format does not match the base files!}% \writeline diff --git a/tex/context/base/mkxl/core-two.mkxl b/tex/context/base/mkxl/core-two.mkxl index 322765a39..cadd9d059 100644 --- a/tex/context/base/mkxl/core-two.mkxl +++ b/tex/context/base/mkxl/core-two.mkxl @@ -84,6 +84,7 @@ \mutable\let\twopassdata \empty \mutable\let\twopassdatalist\empty +\mutable\let\noftwopassitems\!!zeropoint \def\syst_twopass_check % can be delegated to lua once obsolete is gone {\ifempty\twopassdata diff --git a/tex/context/base/mkxl/core-uti.lua b/tex/context/base/mkxl/core-uti.lua index 60cf3d6a9..887ef9a75 100644 --- a/tex/context/base/mkxl/core-uti.lua +++ b/tex/context/base/mkxl/core-uti.lua @@ -43,7 +43,7 @@ local report_passes = logs.reporter("job","passes") job = job or { } local job = job -job.version = 1.31 +job.version = 1.32 job.packversion = 1.02 -- some day we will implement loading of other jobs and then we need diff --git a/tex/context/base/mkxl/enco-ini.mkxl b/tex/context/base/mkxl/enco-ini.mkxl index f8487d697..24ebc92a1 100644 --- a/tex/context/base/mkxl/enco-ini.mkxl +++ b/tex/context/base/mkxl/enco-ini.mkxl @@ -173,16 +173,16 @@ %D Math (will move): -\definemathaccent acute \mathacute -\definemathaccent grave \mathgrave -\definemathaccent ddot \mathddot -\definemathaccent tilde \mathtilde -\definemathaccent bar \mathbar -\definemathaccent breve \mathbreve -\definemathaccent check \mathcheck -\definemathaccent hat \mathhat -\definemathaccent vec \mathvec -\definemathaccent dot \mathdot +%definemathaccent acute \mathacute +%definemathaccent grave \mathgrave +%definemathaccent ddot \mathddot +%definemathaccent tilde \mathtilde +%definemathaccent bar \mathbar +%definemathaccent breve \mathbreve +%definemathaccent check \mathcheck +%definemathaccent hat \mathhat +%definemathaccent vec \mathvec +%definemathaccent dot \mathdot %definemathaccent widetilde \mathwidetilde %definemathaccent widehat \mathwidehat diff --git a/tex/context/base/mkxl/file-job.mklx b/tex/context/base/mkxl/file-job.mklx index cb6ea13cc..d898a3c07 100644 --- a/tex/context/base/mkxl/file-job.mklx +++ b/tex/context/base/mkxl/file-job.mklx @@ -80,12 +80,12 @@ \ifdefined\textlevel \else \newcount\textlevel \fi % might go away \ifdefined\strc_pagenumbers_flush_final_page \else \let\strc_pagenumbers_flush_final_page\relax \fi % ugly -\protected\def\dostarttext +\permanent\protected\def\dostarttext {\enforced\glet\dostarttext\relax \the\everystarttext \global\everystarttext\emptytoks} -\protected\def\dostoptext +\permanent\protected\def\dostoptext {\enforced\glet\dostoptext\relax \strc_pagenumbers_flush_final_page \page % hm, bonus diff --git a/tex/context/base/mkxl/font-chk.lmt b/tex/context/base/mkxl/font-chk.lmt index 8e73d1b3c..9f5aa2aab 100644 --- a/tex/context/base/mkxl/font-chk.lmt +++ b/tex/context/base/mkxl/font-chk.lmt @@ -113,125 +113,153 @@ end fonts.loggers.onetimemessage = onetimemessage local fakes = { - lowercase = { width = .45, height = .55, depth = .20 }, - uppercase = { width = .65, height = .70, depth = .25 }, - mark = { width = .15, height = .70, depth = -.50 }, - punctuation = { width = .15, height = .55, depth = .20 }, - unknown = { width = .45, height = .20, depth = 0 }, + MissingLowercase = { width = .45, height = .55, depth = .20 }, + MissingUppercase = { width = .65, height = .70, depth = .25 }, + MissingMark = { width = .15, height = .70, depth = -.50 }, + MissingPunctuation = { width = .15, height = .55, depth = .20 }, + MissingUnknown = { width = .45, height = .20, depth = 0 }, } local mapping = allocate { - lu = { "uppercase", "darkred" }, - ll = { "lowercase", "darkred" }, - lt = { "uppercase", "darkred" }, - lm = { "lowercase", "darkred" }, - lo = { "lowercase", "darkred" }, - mn = { "mark", "darkgreen" }, - mc = { "mark", "darkgreen" }, - me = { "mark", "darkgreen" }, - nd = { "lowercase", "darkblue" }, - nl = { "lowercase", "darkblue" }, - no = { "lowercase", "darkblue" }, - pc = { "punctuation", "darkcyan" }, - pd = { "punctuation", "darkcyan" }, - ps = { "punctuation", "darkcyan" }, - pe = { "punctuation", "darkcyan" }, - pi = { "punctuation", "darkcyan" }, - pf = { "punctuation", "darkcyan" }, - po = { "punctuation", "darkcyan" }, - sm = { "lowercase", "darkmagenta" }, - sc = { "lowercase", "darkyellow" }, - sk = { "lowercase", "darkyellow" }, - so = { "lowercase", "darkyellow" }, + lu = { "MissingUppercase", "darkred" }, + ll = { "MissingLowercase", "darkred" }, + lt = { "MissingUppercase", "darkred" }, + lm = { "MissingLowercase", "darkred" }, + lo = { "MissingLowercase", "darkred" }, + mn = { "MissingMark", "darkgreen" }, + mc = { "MissingMark", "darkgreen" }, + me = { "MissingMark", "darkgreen" }, + nd = { "MissingLowercase", "darkblue" }, + nl = { "MissingLowercase", "darkblue" }, + no = { "MissingLowercase", "darkblue" }, + pc = { "MissingPunctuation", "darkcyan" }, + pd = { "MissingPunctuation", "darkcyan" }, + ps = { "MissingPunctuation", "darkcyan" }, + pe = { "MissingPunctuation", "darkcyan" }, + pi = { "MissingPunctuation", "darkcyan" }, + pf = { "MissingPunctuation", "darkcyan" }, + po = { "MissingPunctuation", "darkcyan" }, + sm = { "MissingLowercase", "darkmagenta" }, + sc = { "MissingLowercase", "darkyellow" }, + sk = { "MissingLowercase", "darkyellow" }, + so = { "MissingLowercase", "darkyellow" }, } -table.setmetatableindex(mapping, { "unknown", "darkgray" }) +table.setmetatableindex(mapping, { "MissingUnknown", "darkgray" }) + +checkers.mapping = mapping -- We provide access by (private) name for tracing purposes. We also need -- to make sure the dimensions are known at the lua and tex end. -local cache = { } - -local function add(tfmdata,name,color,size,collected) - local hash = formatters["%s_%s_%i"](name,color,floor(size)) - local chardata = cache[hash] - if not chardata then - local fake = fakes[name] - local width = size * fake.width - local height = size * fake.height - local depth = size * fake.depth - chardata = { - width = width, - height = height, - depth = depth, - commands = { - { "frame", width, height, depth, 65536/5, false, true, true, color }, - } - } - cache[hash] = chardata - end - if not hasprivate(tfmdata,privatename) then - local privatename = formatters["placeholder %s %s"](name,color) - local privatecode = addprivate(tfmdata, privatename, chardata) - collected[privatecode] = chardata - end - return chardata -end - -local function addplaceholder(font,char) - local tfmdata = fontdata[font or true] - local characters = tfmdata.characters - local size = tfmdata.parameters.size - local scale = size * bpfactor - local collected = { } - local category = chardata[char].category or "unknown" - local fakedata = mapping[category] - local chardata = add(tfmdata,fakedata[1],fakedata[2],size,collected) - collected [char] = chardata - characters[char] = chardata - addcharacters(font, { characters = collected }) - return "char", char -- needed for math-noa -end +-- local cache = { } +-- +-- local function add(tfmdata,name,color,size,collected) +-- local hash = formatters["%s_%s_%i"](name,color,floor(size)) +-- local chardata = cache[hash] +-- if not chardata then +-- local fake = fakes[name] +-- local width = size * fake.width +-- local height = size * fake.height +-- local depth = size * fake.depth +-- chardata = { +-- width = width, +-- height = height, +-- depth = depth, +-- commands = { +-- { "frame", width, height, depth, 65536/5, false, true, true, color }, +-- } +-- } +-- cache[hash] = chardata +-- end +-- if not hasprivate(tfmdata,privatename) then +-- local privatename = formatters["placeholder %s %s"](name,color) +-- local privatecode = addprivate(tfmdata, privatename, chardata) +-- collected[privatecode] = chardata +-- end +-- return chardata +-- end +-- +-- function checkers.placeholder(font,char) +-- local tfmdata = fontdata[font or true] +-- local characters = tfmdata.characters +-- local size = tfmdata.parameters.size +-- local scale = size * bpfactor +-- local collected = { } +-- local category = chardata[char].category or "unknown" +-- local fakedata = mapping[category] +-- local chardata = add(tfmdata,fakedata[1],fakedata[2],size,collected) +-- collected [char] = chardata +-- characters[char] = chardata +-- addcharacters(font, { characters = collected }) +-- return "char", char -- needed for math-noa +-- end -- For old times sake we keep this: a whole bunch of fake symbols -local function addplaceholders(tfmdata) - local properties = tfmdata.properties - local size = tfmdata.parameters.size - local scale = size * bpfactor - local collected = { } - local colors = { "darkred", "darkgreen", "darkblue", "darkcyan", "darkmagenta", "darkyellow", "darkgray" } - for name, v in sortedhash(fakes) do - for i=1,#colors do - add(tfmdata,name,colors[i],size,collected) - end - end - if next(collected) then - local id = properties.id - if id then - addcharacters(id, { characters = collected }) - end - end +-- local function addplaceholders(tfmdata,feature,value) +-- if value then +-- local properties = tfmdata.properties +-- local size = tfmdata.parameters.size +-- local scale = size * bpfactor +-- local collected = { } +-- local colors = { "darkred", "darkgreen", "darkblue", "darkcyan", "darkmagenta", "darkyellow", "darkgray" } +-- for name, v in sortedhash(fakes) do +-- for i=1,#colors do +-- add(tfmdata,name,colors[i],size,collected) +-- end +-- end +-- if next(collected) then +-- local id = properties.id +-- if id then +-- addcharacters(id, { characters = collected }) +-- end +-- end +-- end +-- end + +-- local chardata = characters.data +-- local fontdata = fonts.hashes.identifiers +-- local mapping = fonts.checkers.mapping + +function checkers.placeholder(font,char) + local category = chardata[char].category or "lu" -- todo: unknown + local fakedata = mapping[category] + local tfmdata = fontdata[font] + local units = tfmdata.parameters.units or 1000 + local slant = (tfmdata.parameters.slant or 0)/65536 + local scale = units/1000 + local rawdata = tfmdata.shared and tfmdata.shared.rawdata + local weight = (rawdata and rawdata.metadata and rawdata.metadata.pfmweight or 400)/400 + local specification = { + code = "MissingGlyph", + scale = scale, + slant = slant, + weight = weight, + namespace = font, + shapes = { { shape = fakedata[1], color = fakedata[2] } }, + } + fonts.helpers.setmetaglyphs("missing", font, char, specification) end -registerotffeature { - name = "missing", - description = "missing symbols", - manipulators = { - base = addplaceholders, - node = addplaceholders, - } -} +-- registerotffeature { +-- name = "missing", +-- description = "missing symbols", +-- default = false, +-- manipulators = { +-- base = addplaceholders, +-- node = addplaceholders, +-- } +-- } -- fonts.loggers.add_placeholders = function(id) addplaceholders(fontdata[id or true]) end -- fonts.loggers.category_to_placeholder = mapping -checkers.placeholder = addplaceholder - function checkers.missing(head) local lastfont = nil local characters = nil if action == "replace" then + local addplaceholder = checkers.placeholder -- so we can overload for n, char, font in nextglyph, head do if font ~= lastfont then lastfont = font @@ -239,7 +267,10 @@ function checkers.missing(head) end if font > 0 and not characters[char] and is_character[chardata[char].category or "unknown"] then onetimemessage(font,char,"missing (will be flagged)") - addplaceholder(font,char) + local f, c = addplaceholder(font,char) + if f and c then + setchar(head, c, f) + end end end elseif action == "remove" then @@ -327,7 +358,6 @@ end checkers.getmissing = getmissing - do local reported = true @@ -345,14 +375,20 @@ do end end) + local loaded = false + trackers.register("fonts.missing", function(v) if v then enableaction("processors","fonts.checkers.missing") else disableaction("processors","fonts.checkers.missing") end - if v == "replace" then - otffeatures.defaults.missing = true + -- if v == "replace" then + -- otffeatures.defaults.missing = true + -- end + if not loaded and v == "replace" then + metapost.simple("simplefun",'loadfile("mp-miss.mpxl");') + loaded = true end action = v end) diff --git a/tex/context/base/mkxl/font-chk.mkxl b/tex/context/base/mkxl/font-chk.mkxl index 29b159fc2..f64756983 100644 --- a/tex/context/base/mkxl/font-chk.mkxl +++ b/tex/context/base/mkxl/font-chk.mkxl @@ -26,4 +26,30 @@ \permanent\protected\def\removemissingcharacters {\enabletrackers[fonts.missing=remove]} \permanent\protected\def\replacemissingcharacters{\enabletrackers[fonts.missing=replace]} +% \enableexperiments[fonts.compact] + +%D \starttyping +%D \replacemissingcharacters +%D +%D \startbuffer +%D \startlines[before=,after=] +%D \strut {\tf test \char 12345\ test \char 12346\ test} +%D \strut {\bf test \char 12345\ test \char 12346\ test} +%D \strut {\it test \char 12345\ test \char 12346\ test} +%D \strut {\bi test \char 12345\ test \char 12346\ test} +%D \strut {test ὀ ρ φ α ν ῖ ο ς test} +%D \stoplines +%D \stopbuffer +%D +%D \starttext +%D \startTEXpage[offset=2pt,strut=no] +%D \getbuffer +%D \switchtobodyfont[pagella] +%D \getbuffer +%D \switchtobodyfont[dejavu] +%D \getbuffer +%D \stopTEXpage +%D \stoptext +%D \stoptyping + \endinput diff --git a/tex/context/base/mkxl/font-col.lmt b/tex/context/base/mkxl/font-col.lmt index 05de35903..41d327400 100644 --- a/tex/context/base/mkxl/font-col.lmt +++ b/tex/context/base/mkxl/font-col.lmt @@ -26,6 +26,7 @@ local setfont = nuts.setfont local nextchar = nuts.traversers.char local getscales = nuts.getscales local setscales = nuts.setscales +local setprop = nuts.setprop local settings_to_hash = utilities.parsers.settings_to_hash @@ -238,11 +239,9 @@ function collections.clonevector(name) if factor then vector.factor = factor end -if texconditionals["c_font_compact"] then - if rscale then + if texconditionals["c_font_compact"] and rscale then vector.rscale = rscale end -end if trace_collecting then if target then report_fonts("remapping font %a to %a for range %U - %U, offset %X, target %U",current,cloneid,start,stop,offset,target) @@ -344,9 +343,9 @@ function collections.prepare(name) -- we can do this in lua now .. todo local f = d[i] local name = f.font local scale = f.rscale or 1 -if texconditionals["c_font_compact"] then - scale = 1 -end + if texconditionals["c_font_compact"] then + scale = 1 + end if fontpatternhassize(name) then context.font_fallbacks_clone_unique(name,scale) else @@ -419,17 +418,17 @@ function collections.process(head) -- this way we keep feature processing local vect = vector[char] if vect then local kind = type(vect) + local newfont, newchar if kind == "table" then - local newfont = vect[1] - local newchar = vect[2] + newfont = vect[1] + newchar = vect[2] if trace_collecting then report_fonts("remapping character %C in font %a to character %C in font %a%s", char,font,newchar,newfont,not chardata[newfont][newchar] and " (missing)" or "" ) end - setfont(n,newfont,newchar) elseif kind == "function" then - local newfont, newchar = vect(font,char,vector) + newfont, newchar = vect(font,char,vector) if not newfont then newfont = font end @@ -441,7 +440,6 @@ function collections.process(head) -- this way we keep feature processing char,font,newchar,newfont,not chardata[newfont][newchar] and " (missing)" or "" ) end - setfont(n,newfont,newchar) vector[char] = { newfont, newchar } else local fakemono = vector.factor @@ -450,10 +448,11 @@ function collections.process(head) -- this way we keep feature processing font,vect,char,not chardata[vect][char] and " (missing)" or "" ) end + newfont = vect if fakemono then - setfont(n,vect,monoslot(vect,char,font,fakemono)) + newchar = monoslot(vect,char,font,fakemono) else - setfont(n,vect) + newchar = char end end local rscale = vector.rscale @@ -461,6 +460,8 @@ function collections.process(head) -- this way we keep feature processing local s, x, y = getscales(n) setscales(n,s*rscale,x*rscale,y*rscale) end + setfont(n,newfont,newchar) + setprop(n, "original", { font = font, char = char }) end end end diff --git a/tex/context/base/mkxl/font-emp.mklx b/tex/context/base/mkxl/font-emp.mklx index a6c4136f6..1e30e7012 100644 --- a/tex/context/base/mkxl/font-emp.mklx +++ b/tex/context/base/mkxl/font-emp.mklx @@ -152,7 +152,9 @@ %D italic correction. As a bonus we also look for something that looks like a dash, %D in which case we don't correct. -\let\italiccorrection=\/ % tex primitive +\aliased\let\normalitaliccorrection\/ % the tex primitive + +\let\italiccorrection\normalitaliccorrection % will be overloaded \permanent\protected\def\emphasiscorrection % public, not in raw alignment groups, else omit problem {\ifhmode\ifnum\currentgrouptype=\aligngroupcode\else diff --git a/tex/context/base/mkxl/font-fea.mklx b/tex/context/base/mkxl/font-fea.mklx index 5f83c87d3..5d5cea23f 100644 --- a/tex/context/base/mkxl/font-fea.mklx +++ b/tex/context/base/mkxl/font-fea.mklx @@ -136,7 +136,8 @@ % beware: these are global features on top of existing font features -\let\currentfeature \s!current +\mutable\let\currentfeature\s!current + \let\m_font_feature_list \s!current \let\m_font_feature_asked\empty diff --git a/tex/context/base/mkxl/font-fil.mklx b/tex/context/base/mkxl/font-fil.mklx index dcbe568b1..3733644cd 100644 --- a/tex/context/base/mkxl/font-fil.mklx +++ b/tex/context/base/mkxl/font-fil.mklx @@ -68,8 +68,7 @@ \let\m_font_name\empty \let\m_font_file\empty -\def \defaultfontfile{\truefontname{Normal}} % was cmtt10, but that one is gone -%edef\nullfontname {\fontname\nullfont} +\mutable\def\defaultfontfile{\truefontname{Normal}} % was cmtt10, but that one is gone \permanent\protected\def\definefontsynonym[#name]#spacer[#file]% {\edef\m_font_name{#name}% diff --git a/tex/context/base/mkxl/font-ini.mklx b/tex/context/base/mkxl/font-ini.mklx index 2960cd9fb..65a60c837 100644 --- a/tex/context/base/mkxl/font-ini.mklx +++ b/tex/context/base/mkxl/font-ini.mklx @@ -351,6 +351,8 @@ {\pop_macro_savedfont \savedfont} +\aliased\let\popcurrentfont\relax + \permanent\protected\def\pushcurrentfont {\enforced\permanent\protected\edef\popcurrentfont {\def\noexpand\fontbody {\fontbody}% @@ -423,9 +425,9 @@ \permanent\def\thenormalizedbodyfontsize#body% {\clf_nbfs\dimexpr#body\relax} -\edef\normalizedglobalbodyfontsize{\thenormalizedbodyfontsize\bodyfontsize} -\edef\normalizedlocalbodyfontsize {\thenormalizedbodyfontsize\bodyfontsize} -\edef\normalizedbodyfontsize {\thenormalizedbodyfontsize\bodyfontsize} +\mutable\edef\normalizedglobalbodyfontsize{\thenormalizedbodyfontsize\bodyfontsize} +\mutable\edef\normalizedlocalbodyfontsize {\thenormalizedbodyfontsize\bodyfontsize} +\mutable\edef\normalizedbodyfontsize {\thenormalizedbodyfontsize\bodyfontsize} %D \macros %D {mapfontsize} @@ -659,6 +661,7 @@ \mutable\let\somefontname \s!unknown \mutable\let\somefontspec \s!unknown +\mutable\let\somefontfile \s!unknown \mutable\let\somefontsize \zerocount \mutable\let\somefontsizey\empty \mutable\let\somefontsizey\empty @@ -2393,11 +2396,10 @@ \permanent\protected\def\fastswitchtobodyfont#name% {\ifcsname\??fontenvironments\normalizedbodyfontsize#name\endcsname - %\edef\futurebodyfontsize{\csname\??fontenvironments\normalizedbodyfontsize#name\endcsname}% - \edef\futurebodyfontsize{\lastnamedcs}% - \ifcsname\??fontbodyknown\futurebodyfontsize\endcsname - \font_basics_complete_switch\futurebodyfontsize - \localbodyfontsize\futurebodyfontsize\relax + \edef\p_bodyfont{\lastnamedcs}% + \ifcsname\??fontbodyknown\p_bodyfont\endcsname + \font_basics_complete_switch\p_bodyfont + \localbodyfontsize\p_bodyfont\relax \fi \fi \csname\??fontstyle\fontstyle\endcsname diff --git a/tex/context/base/mkxl/font-mat.mklx b/tex/context/base/mkxl/font-mat.mklx index 561effd58..3fc6275a6 100644 --- a/tex/context/base/mkxl/font-mat.mklx +++ b/tex/context/base/mkxl/font-mat.mklx @@ -104,6 +104,8 @@ %def\mathsizesuffix{\ifcase\fontface\or\mathtextsuffix\or\mathscriptsuffix\or\mathscriptscriptsuffix\fi} \mutable\let\mathsizesuffix\empty +\mutable\let\fontfamily\relax % for now public but it is a helper + \def\font_helpers_set_math_family_indeed_normal#mrtag#family% \fontface etc are also used later on {\let\savedfontbody\fontbody \let\fontfamily#family% diff --git a/tex/context/base/mkxl/font-mpf.lmt b/tex/context/base/mkxl/font-mpf.lmt index b8a21788a..b1e6a00dd 100644 --- a/tex/context/base/mkxl/font-mpf.lmt +++ b/tex/context/base/mkxl/font-mpf.lmt @@ -34,8 +34,8 @@ local newprivateslot = fonts.helpers.newprivateslot local currentfont = font.current local function setmetaglyphs(category,fontid,unicode,specification) - local tfmdata = fontdata[fontid] if unicode then + local tfmdata = fontdata[fontid] local characters = tfmdata.characters specification.unicode = unicode specification.category = category @@ -68,10 +68,10 @@ local function setmetaglyphs(category,fontid,unicode,specification) fonts.dropins.swapone("mps",tfmdata,shape,unicode) -- local olddata = characters[unicode] - newdata.width = urx - llx - newdata.height = ury - newdata.depth = -lly - newdata.unicode = unicode + newdata.width = urx - llx + newdata.height = ury + newdata.depth = -lly + newdata.unicode = unicode -- commands = { { "offset", -llx, 0, newdata.commands[1][1], newdata.commands[1][2] } } if llx ~= 0 then newdata.commands = { { "offset", -llx, 0 }, newdata.commands[1] } @@ -89,7 +89,7 @@ local function setmetaglyph(specification) local category = specification.category local name = specification.name if category and name then - local fontid = currentfont() + local fontid = specification.fontid or currentfont() local private = newprivateslot(name) register(fontid,private,function(font,char) return setmetaglyphs(category,font,char,specification) end diff --git a/tex/context/base/mkxl/font-ogr.lmt b/tex/context/base/mkxl/font-ogr.lmt index 9c90bce49..698593ac7 100644 --- a/tex/context/base/mkxl/font-ogr.lmt +++ b/tex/context/base/mkxl/font-ogr.lmt @@ -53,27 +53,28 @@ do -- todo: pass specification table instead function dropins.provide(method,t_tfmdata,indexdata,...) - local droppedin = dropins.nextid() - local t_characters = t_tfmdata.characters - local t_descriptions = t_tfmdata.descriptions - local t_properties = t_tfmdata.properties - local d_tfmdata = setmetatableindex({ },t_tfmdata) - local d_properties = setmetatableindex({ },t_properties) - d_tfmdata.properties = d_properties - local d_characters = { } -- setmetatableindex({ },t_characters) -- hm, index vs unicode - local d_descriptions = { } -- setmetatableindex({ },t_descriptions) -- hm, index vs unicode - d_tfmdata.characters = d_characters - d_tfmdata.descriptions = d_descriptions - d_tfmdata.parentdata = t_tfmdata -- so we can access it if needed - d_properties.instance = - droppedin -- will become an extra element in the hash - identifiers[droppedin] = d_tfmdata - local fonts = t_tfmdata.fonts or { } - t_tfmdata.fonts = fonts - d_properties.format = "type3" - d_properties.method = method - d_properties.indexdata = { indexdata, ... } -- can take quite some memory - local slot = #fonts + 1 - fonts[slot] = { id = droppedin } + local droppedin = dropins.nextid() + local t_characters = t_tfmdata.characters + local t_descriptions = t_tfmdata.descriptions + local t_properties = t_tfmdata.properties + local d_tfmdata = setmetatableindex({ },t_tfmdata) + local d_properties = setmetatableindex({ },t_properties) + d_properties.basefontname = "ContextRuntimeFont" .. droppedin + d_tfmdata.properties = d_properties + local d_characters = { } -- setmetatableindex({ },t_characters) -- hm, index vs unicode + local d_descriptions = { } -- setmetatableindex({ },t_descriptions) -- hm, index vs unicode + d_tfmdata.characters = d_characters + d_tfmdata.descriptions = d_descriptions + d_tfmdata.parentdata = t_tfmdata -- so we can access it if needed + d_properties.instance = - droppedin -- will become an extra element in the hash + identifiers[droppedin] = d_tfmdata + local fonts = t_tfmdata.fonts or { } + t_tfmdata.fonts = fonts + d_properties.format = "type3" + d_properties.method = method + d_properties.indexdata = { indexdata, ... } -- can take quite some memory + local slot = #fonts + 1 + fonts[slot] = { id = droppedin } return slot, droppedin, d_tfmdata, d_properties end diff --git a/tex/context/base/mkxl/font-pre.mkxl b/tex/context/base/mkxl/font-pre.mkxl index 311512bce..e6e6930e1 100644 --- a/tex/context/base/mkxl/font-pre.mkxl +++ b/tex/context/base/mkxl/font-pre.mkxl @@ -463,9 +463,9 @@ % \definefontfeature[mathscript] [math-script] % \definefontfeature[mathscriptscript] [math-scriptscript] -\definefontfeature - [missing] - [missing=yes] +% \definefontfeature +% [missing] +% [missing=yes] %D Nice to have too: diff --git a/tex/context/base/mkxl/font-sty.mklx b/tex/context/base/mkxl/font-sty.mklx index 11abdde99..48964b04c 100644 --- a/tex/context/base/mkxl/font-sty.mklx +++ b/tex/context/base/mkxl/font-sty.mklx @@ -205,8 +205,6 @@ \currentstyleparameter \fi} -\let\dosetfontattribute\dousestylehashparameter % for a while - %D New commands (not yet interfaced): %D %D \startbuffer @@ -271,7 +269,7 @@ \installcorenamespace{styleargument} -\protected\def\style[#name]% as this is can be a switch we use groupedcommand % frozen? +\permanent\protected\def\style[#name]% as this is can be a switch we use groupedcommand % frozen? {\csname\??styleargument \ifcsname\??stylecheck#name\endcsname 2% defined as style @@ -415,7 +413,7 @@ \dousestylehashparameter{#1}{#2}% \dousecolorhashparameter{#1}{#3}} -\let\dostopattributes\endgroup +\aliased\let\dostopattributes\endgroup %D New but it needs to be supported explicitly (as in natural tables). diff --git a/tex/context/base/mkxl/font-sym.mklx b/tex/context/base/mkxl/font-sym.mklx index 7f68d267e..c521582a2 100644 --- a/tex/context/base/mkxl/font-sym.mklx +++ b/tex/context/base/mkxl/font-sym.mklx @@ -216,6 +216,8 @@ %D Every now and then we want to define a font directly, for instance when we %D typeset title pages. The next macro saves some typing: +\mutable\let\nextfont\relax % this one could be more private but this is okay + \permanent\protected\def\setfont% geen \font_helpers_set_font mogelijk {\afterassignment\font_basics_set_font\font\nextfont=} diff --git a/tex/context/base/mkxl/grph-epd.mkxl b/tex/context/base/mkxl/grph-epd.mkxl index a0fcc51da..6d5f6ff2a 100644 --- a/tex/context/base/mkxl/grph-epd.mkxl +++ b/tex/context/base/mkxl/grph-epd.mkxl @@ -17,13 +17,17 @@ \registerctxluafile{grph-epd}{} +% hm, this one is globally overloaded + \def\figurereference{\clf_figurestatus{reference}{}} % might become private +\mutable\let\mergedfigurereference\empty + \defineoverlay[system:graphics:epdf][\directsetup{system:graphics:epdf}] \startsetups system:graphics:epdf \clf_figure_mergegoodies{\externalfigureparameter\c!interaction}% - \reference[\figurereference]{}% todo: dest area + \reference[\mergedfigurereference]{}% todo: dest area \stopsetups \defineframed diff --git a/tex/context/base/mkxl/grph-inc.mkxl b/tex/context/base/mkxl/grph-inc.mkxl index fe8971d35..c56155888 100644 --- a/tex/context/base/mkxl/grph-inc.mkxl +++ b/tex/context/base/mkxl/grph-inc.mkxl @@ -423,12 +423,12 @@ {\naturalhpack{\strc_references_flush_destination_nodes\directgotodumbbox{#2}[cross:b:#1]}}% \endgroup} -\let\doexternalfigurerepeat\gobblefourarguments % called from lua end +\aliased\let\doexternalfigurerepeat\gobblefourarguments % called from lua end \permanent\tolerant\protected\def\placeregisteredexternalfigures[#1]% {\page \begingroup - \protected\def\doexternalfigurerepeat{\grph_include_place_registered_indeed{#1}}% + \enforced\protected\def\doexternalfigurerepeat{\grph_include_place_registered_indeed{#1}}% \dorecurse\clf_figure_nof_registered_pages {\page \clf_figure_flush_registered_pages\recurselevel @@ -448,7 +448,7 @@ %D Scaling: -\let\dowithfigure\relax % name might change (into a proper hook) +\mutable\let\dowithfigure\relax % name might change (into a proper hook) \permanent\protected\def\doscalefigure % used at lua end {\global\setbox\foundexternalfigure\vpack{\scale[\v!figure]{\dowithfigure{\box\foundexternalfigure}}}} diff --git a/tex/context/base/mkxl/lang-ini.mkxl b/tex/context/base/mkxl/lang-ini.mkxl index fa689a18b..151b5be02 100644 --- a/tex/context/base/mkxl/lang-ini.mkxl +++ b/tex/context/base/mkxl/lang-ini.mkxl @@ -39,7 +39,7 @@ %D zero has no patterns, first of all because I like to start numbering at one. It %D may come in handy for special purposes as well. -\normallanguage\zerocount \def\loadedlanguage{1} +\normallanguage\zerocount %D \macros %D {currentlanguage, setupcurrentlanguage} @@ -413,7 +413,8 @@ % \uchyph\plusone : -\chardef \completehyphenationmodecode \numexpr +% \chardef \completehyphenationmodecode \numexpr +\permanent \integerdef \completehyphenationmodecode \numexpr \normalhyphenationmodecode % \discretionary + \automatichyphenationmodecode % - + \explicithyphenationmodecode % \- @@ -474,6 +475,8 @@ %D You can setup the default language to reset settings. +\mutable\let\currentlanguagesetups\empty + \appendtoks \edef\currentlanguagesetups{\languageparameter\c!setups}% \ifempty\currentlanguagesetups \else diff --git a/tex/context/base/mkxl/lang-lab.mkxl b/tex/context/base/mkxl/lang-lab.mkxl index 8968631a0..369049ed1 100644 --- a/tex/context/base/mkxl/lang-lab.mkxl +++ b/tex/context/base/mkxl/lang-lab.mkxl @@ -60,7 +60,7 @@ \installcorenamespace{label} -\let\currentlabelcategory\empty +% \let\currentlabelcategory\empty \permanent\tolerant\protected\def\definelabelclass[#1]#*[#2]% {\normalexpanded @@ -77,30 +77,46 @@ % hm, not interfaced -\let\thetextprefix\empty +\mutable\let\thetextprefix\empty + +\mutable\let\currenttextprefixclass\s!unknown +\mutable\let\currenttextprefixname \empty +\mutable\let\currenttextprefixtag \s!unknown \protected\def\lang_labels_define_class_indeed#1#2#3#4#5#6#7#8#9% - {\permanent\instance\setuvalue {setup#1text}{\protecttextprefixes#2\def\currenttextprefixclass{#1}\lang_labels_text_prefix_setup}% - \permanent\instance\setuvalue{preset#1text}{\protecttextprefixes 1\def\currenttextprefixclass{#1}\lang_labels_text_prefix_setup}% - \permanent\instance\setuvalue {copy#1text}{\protecttextprefixes 1\def\currenttextprefixclass{#1}\lang_labels_text_prefix_copy }% - \permanent\instance\setuvalue {start#1text}{\protecttextprefixes 1\def\currenttextprefixclass{#1}\lang_labels_text_prefix_start[#1]}% - \permanent\instance\letvalue {stop#1text}\relax + {\permanent\instance\protected\defcsname setup#1text\endcsname{\protecttextprefixes#2\def\currenttextprefixclass{#1}\lang_labels_text_prefix_setup}% + \permanent\instance\protected\defcsname preset#1text\endcsname{\protecttextprefixes 1\def\currenttextprefixclass{#1}\lang_labels_text_prefix_setup}% + \permanent\instance\protected\defcsname copy#1text\endcsname{\protecttextprefixes 1\def\currenttextprefixclass{#1}\lang_labels_text_prefix_copy }% + \permanent\instance\protected\defcsname start#1text\endcsname{\protecttextprefixes 1\def\currenttextprefixclass{#1}\lang_labels_text_prefix_start[#1]}% + \permanent\instance \letcsname stop#1text\endcsname \relax \permanent\instance\def#4{\reallanguagetag{\defaultlanguage\currentmainlanguage}}% \ifnum#2=\plustwo % used for math and tags \instance\def#3{#5#4}% +% \instance\def#5##1##2% ##1=language +% {\ifcsname\??label\currentlabelcategory#1:##1:##2\endcsname +% \lastnamedcs +% \orelse\ifcsname\??label#1:##1:##2\endcsname +% \lastnamedcs +% \orelse\ifcsname\??language##1\s!default\endcsname +% \expandafter#5\lastnamedcs{##2}% +% \orelse\ifcsname\??label\currentlabelcategory#1:##2\endcsname +% \lastnamedcs +% \orelse\ifcsname\??label#1:##2\endcsname +% \lastnamedcs +% \orelse\ifcsname\??label\currentlabelcategory#1:\s!en:##2\endcsname +% \lastnamedcs +% \orelse\ifcsname\??label#1:\s!en:##2\endcsname +% \lastnamedcs +% \else +% ##2% +% \fi}% \instance\def#5##1##2% ##1=language - {\ifcsname\??label\currentlabelcategory#1:##1:##2\endcsname - \lastnamedcs - \orelse\ifcsname\??label#1:##1:##2\endcsname + {\ifcsname\??label#1:##1:##2\endcsname \lastnamedcs \orelse\ifcsname\??language##1\s!default\endcsname \expandafter#5\lastnamedcs{##2}% - \orelse\ifcsname\??label\currentlabelcategory#1:##2\endcsname - \lastnamedcs \orelse\ifcsname\??label#1:##2\endcsname \lastnamedcs - \orelse\ifcsname\??label\currentlabelcategory#1:\s!en:##2\endcsname - \lastnamedcs \orelse\ifcsname\??label#1:\s!en:##2\endcsname \lastnamedcs \else @@ -124,10 +140,10 @@ \else \enforced\let\thetextprefix\dummytextprefix \fi}% - \permanent\instance\protected\def#6##1{#3{##1}\expandafter\flushleftlabelclass \thetextprefix}% - \permanent\instance\protected\def#7##1{#3{##1}\expandafter\flushrightlabelclass\thetextprefix}% - \permanent\instance\protected\def#8##1{#3{##1}\expandafter\flushbothlabelclass \thetextprefix}% #2 - \permanent\instance\protected\def#9##1{#3{##1}\expandafter\flushleftlabelclass \thetextprefix}% + \permanent \instance\protected\def#6##1{#3{##1}\expandafter\firstoftwoarguments \thetextprefix}% \flushleftlabelclass + \permanent\instance\protected\def#7##1{#3{##1}\expandafter\secondoftwoarguments \thetextprefix}% \flushrightlabelclass + \permanent\instance\protected\def#8##1{#3{##1}\expandafter\lang_labels_flush_both\thetextprefix}% \flushbothlabelclass #2 + \permanent\instance\protected\def#9##1{#3{##1}\expandafter\firstoftwoarguments \thetextprefix}% \flushleftlabelclass \fi \appendtoks \enforced\permanent\instance\let#6\firstofoneargument % to be checked @@ -138,10 +154,10 @@ % why not lang_* ? -\let\flushleftlabelclass \firstoftwoarguments -\let\flushrightlabelclass\secondoftwoarguments +% \let\flushleftlabelclass \firstoftwoarguments +% \let\flushrightlabelclass\secondoftwoarguments -\permanent\def\flushbothlabelclass#1#2#3{#1#3#2} +\permanent\def\lang_labels_flush_both#1#2#3{#1#3#2} \permanent\def\dummytextprefix{\empty\empty} @@ -163,9 +179,6 @@ \newconstant\protecttextprefixes -\let\currenttextprefixtag \s!unknown -\let\currenttextprefixclass\s!unknown - \tolerant\def\lang_labels_text_prefix_start[#1]#*[#2]#*[#3]% class language name {\ifarguments\or\or \edef\currenttextprefixtag{\reallanguagetag\currentmainlanguage}% diff --git a/tex/context/base/mkxl/lang-mis.mkxl b/tex/context/base/mkxl/lang-mis.mkxl index 46cbddf97..f1ed3cb18 100644 --- a/tex/context/base/mkxl/lang-mis.mkxl +++ b/tex/context/base/mkxl/lang-mis.mkxl @@ -232,7 +232,7 @@ \newconditional\punctafterdiscretionary \newconditional\spaceafterdiscretionary -\def\lang_discretionaries_check_before %i sused grouped +\def\lang_discretionaries_check_before %is used grouped {\ifvmode \dontleavehmode \fi @@ -269,14 +269,14 @@ \futurelet\nexttoken\next}% \next} -\let\discretionarytoken \relax -\let\textmodediscretionary\relax +\let\lang_discretionaries_token \relax +\let\lang_discretionaries_action\relax \permanent\protected\def\activedododotextmodediscretionary#1#2% - {\edef\discretionarytoken{\detokenize{#2}}% - \def\textmodediscretionary{\handletextmodediscretionary{#1}}% + {\edef\lang_discretionaries_token{\detokenize{#2}}% + \def\lang_discretionaries_action{\handletextmodediscretionary{#1}}% \lang_discretionaries_check_after - \ifempty\discretionarytoken + \ifempty\lang_discretionaries_token \ifx#1\nexttoken % takes care of ||| and +++ and ...... \ifcsname\??discretionaryaction\string#1\endcsname \lastnamedcs @@ -294,22 +294,22 @@ \else \lang_discretionaries_check_before % the next line has been changed (20050203) - % \prewordbreak\hbox{\textmodediscretionary\nexttoken}\postwordbreak + % \prewordbreak\hbox{\lang_discretionaries_action\nexttoken}\postwordbreak % but an hbox blocks a possible \discretionary \ifcsname\??discretionaryaction\endcsname \lastnamedcs \orelse\ifconditional\spaceafterdiscretionary - %\prewordbreak\textmodediscretionary\relax - \wordboundary\textmodediscretionary\relax + %\prewordbreak\lang_discretionaries_action\relax + \wordboundary\lang_discretionaries_action\relax \orelse\ifconditional\punctafterdiscretionary - %\prewordbreak\textmodediscretionary\relax - \wordboundary\textmodediscretionary\relax + %\prewordbreak\lang_discretionaries_action\relax + \wordboundary\lang_discretionaries_action\relax \else - %\prewordbreak\textmodediscretionary\prewordbreak - \wordboundary\textmodediscretionary\wordboundary + %\prewordbreak\lang_discretionaries_action\prewordbreak + \wordboundary\lang_discretionaries_action\wordboundary \fi \fi - \orelse\ifcsname\??discretionaryaction\discretionarytoken\endcsname + \orelse\ifcsname\??discretionaryaction\lang_discretionaries_token\endcsname \lastnamedcs \else \lang_discretionaries_check_before @@ -352,9 +352,9 @@ \endcsname} \setuvalue{\??discretionarymode d}#1% - {\edef\discretionarytoken{\detokenize{#1}}% - \let\textmodediscretionary\compoundhyphen - \ifcsname\??discretionaryaction\discretionarytoken\endcsname + {\edef\lang_discretionaries_token{\detokenize{#1}}% + \let\lang_discretionaries_action\compoundhyphen + \ifcsname\??discretionaryaction\lang_discretionaries_token\endcsname \expandafter\lastnamedcs \else \expandafter\indirectdiscretionary diff --git a/tex/context/base/mkxl/lang-url.mkxl b/tex/context/base/mkxl/lang-url.mkxl index 5e046fcf6..04a55fcf9 100644 --- a/tex/context/base/mkxl/lang-url.mkxl +++ b/tex/context/base/mkxl/lang-url.mkxl @@ -62,8 +62,8 @@ \enforced\let\Ux\eUx \to \everyhyphenatedurl -\let\hyphenatedurlseparator \empty % \periodcentered -\let\hyphenatedurldiscretionary\empty +\mutable\let\hyphenatedurlseparator \empty % \periodcentered +\mutable\let\hyphenatedurldiscretionary\empty \setnewconstant\hyphenatedurllefthyphenmin \plusthree \setnewconstant\hyphenatedurlrighthyphenmin\plusthree diff --git a/tex/context/base/mkxl/lpdf-emb.lmt b/tex/context/base/mkxl/lpdf-emb.lmt index 5517d8051..3412a5a78 100644 --- a/tex/context/base/mkxl/lpdf-emb.lmt +++ b/tex/context/base/mkxl/lpdf-emb.lmt @@ -1828,7 +1828,7 @@ do mainwriters["type3"] = function(details) local properties = details.properties - local basefontname = details.basefontname or properties.name + local basefontname = properties.basefontname or details.basefontname or properties.name -- messy local askedmethod = properties.method or "pk" local method = methods[askedmethod] or methods.pk if not method then diff --git a/tex/context/base/mkxl/lpdf-epa.lmt b/tex/context/base/mkxl/lpdf-epa.lmt index 00d9f3c4b..b37e9c043 100644 --- a/tex/context/base/mkxl/lpdf-epa.lmt +++ b/tex/context/base/mkxl/lpdf-epa.lmt @@ -36,6 +36,8 @@ local context = context local nodeinjections = backends.pdf.nodeinjections +local setmacro = tokens.setters.macro + local pdfarray = lpdf.array local pdfdictionary = lpdf.dictionary local pdfconstant = lpdf.constant @@ -337,7 +339,7 @@ function codeinjections.mergereferences(specification) end end -- moved outside previous test - context.setgvalue("figurereference",reference) -- global, todo: setmacro + setmacro("mergedfigurereference",reference,"global") if trace_links then report_link("setting figure reference to %a",reference) end diff --git a/tex/context/base/mkxl/luat-ini.mkxl b/tex/context/base/mkxl/luat-ini.mkxl index 48876a05f..5c29afc53 100644 --- a/tex/context/base/mkxl/luat-ini.mkxl +++ b/tex/context/base/mkxl/luat-ini.mkxl @@ -21,7 +21,7 @@ %D will keep code outside \TEX\ files as much as possible. The solutions evolved %D with the engine but one can find some history in the \MKIV\ files and articles. -\ifdefined\setnaturalcatcodes \else \let\setnaturalcatcodes\relax \fi +%ifdefined\setnaturalcatcodes \else \let\setnaturalcatcodes\relax \fi \ifdefined\obeylualines \else \let\obeylualines \relax \fi \ifdefined\obeyluatokens \else \let\obeyluatokens \relax \fi @@ -77,11 +77,11 @@ \ifdefined\? \else \def\?{?} \fi \ifdefined\! \else \def\!{!} \fi % bonus -\ifdefined\1 \else \def\1{1} \fi \ifdefined\2 \else \def\2{2} \fi -\ifdefined\3 \else \def\3{3} \fi \ifdefined\4 \else \def\4{4} \fi -\ifdefined\5 \else \def\5{5} \fi \ifdefined\6 \else \def\6{6} \fi -\ifdefined\7 \else \def\7{7} \fi \ifdefined\8 \else \def\8{8} \fi -\ifdefined\9 \else \def\9{9} \fi \ifdefined\0 \else \def\0{0} \fi +\ifdefined\1 \else \mutable\def\1{1} \fi \ifdefined\2 \else \mutable\def\2{2} \fi +\ifdefined\3 \else \mutable\def\3{3} \fi \ifdefined\4 \else \mutable\def\4{4} \fi +\ifdefined\5 \else \mutable\def\5{5} \fi \ifdefined\6 \else \mutable\def\6{6} \fi +\ifdefined\7 \else \mutable\def\7{7} \fi \ifdefined\8 \else \mutable\def\8{8} \fi +\ifdefined\9 \else \mutable\def\9{9} \fi \ifdefined\0 \else \mutable\def\0{0} \fi \immutable\edef\lua_letter_backslash{\string\\} \immutable\edef\lua_letter_bar {\string\|} \immutable\edef\lua_letter_dash {\string\-} diff --git a/tex/context/base/mkxl/luat-lib.mkxl b/tex/context/base/mkxl/luat-lib.mkxl index d4d3e860f..f0b25c070 100644 --- a/tex/context/base/mkxl/luat-lib.mkxl +++ b/tex/context/base/mkxl/luat-lib.mkxl @@ -93,12 +93,12 @@ \registerctxluafile{lxml-aux}{} \registerctxluafile{lxml-mis}{} -\pushoverloadmode - -\permanent\protected\def\writestatus#1#2{\ctxlua{logs.status([==[#1]==],[==[#2]==])}} -\permanent\protected\def\writestring #1{\ctxlua{logs.writer([==[#1]==],"\string\n")}} -\permanent\protected\def\writeline {\ctxlua{logs.newline()}} - -\popoverloadmode +% \pushoverloadmode +% +% \ifdefined\writestatus \else \protected\def\writestatus#1#2{\ctxlua{logs.status([==[#1]==],[==[#2]==])}} \fi +% \ifdefined\writestring \else \protected\def\writestring #1{\ctxlua{logs.writer([==[#1]==],"\string\n")}} \fi +% \ifdefined\writeline \else \protected\def\writeline {\ctxlua{logs.newline()}} \fi +% +% \popoverloadmode \endinput diff --git a/tex/context/base/mkxl/math-ali.mkxl b/tex/context/base/mkxl/math-ali.mkxl index 72f857720..008313f09 100644 --- a/tex/context/base/mkxl/math-ali.mkxl +++ b/tex/context/base/mkxl/math-ali.mkxl @@ -1046,8 +1046,8 @@ \installcorenamespace{mathmatrixalignlocation} -\let\mathmatrixleft \empty % experimental hook -\let\mathmatrixright\empty % experimental hook +\mutable\let\mathmatrixleft \empty % experimental hook +\mutable\let\mathmatrixright\empty % experimental hook \setvalue{\??mathmatrixalignlocation\v!top }{\raise\dimexpr(\nextboxdp-\nextboxht)/2 +\mathaxisheight\mathstyle\relax} \setvalue{\??mathmatrixalignlocation\v!high }{\raise\dimexpr(\nextboxdp-\nextboxht)/2\relax} @@ -1202,7 +1202,7 @@ \setupcurrentmathmatrix[#2]% \math_matrix_start[\currentmathmatrix]} -\permanent\protected\def\stopnamedmatrix +\noaligned\permanent\protected\def\stopnamedmatrix {\math_matrix_stop \endgroup} diff --git a/tex/context/base/mkxl/math-def.mkxl b/tex/context/base/mkxl/math-def.mkxl index 040005293..1f3da649d 100644 --- a/tex/context/base/mkxl/math-def.mkxl +++ b/tex/context/base/mkxl/math-def.mkxl @@ -81,7 +81,7 @@ \permanent\protected\def\setoperatorlimits#1#2% operator limits {\savenormalmeaning{#1}% %frozen\protected\expandafter\def\expandafter#1\expandafter{\csname normal\csstring#1\endcsname#2}} - \frozen\protected\edef#1{\expandafter\noexpand\csname normal\csstring#1\endcsname\noexpand#2}} + \frozen\protected\edef#1{\expandafter\noexpand\csname\s!normal\csstring#1\endcsname\noexpand#2}} \pushoverloadmode diff --git a/tex/context/base/mkxl/math-ini.mkxl b/tex/context/base/mkxl/math-ini.mkxl index 39eb3f31d..6b77db469 100644 --- a/tex/context/base/mkxl/math-ini.mkxl +++ b/tex/context/base/mkxl/math-ini.mkxl @@ -179,13 +179,13 @@ \permanent\protected\def\startpickupmath % for the moment private {\ifconditional\indisplaymath \startforceddisplaymath - \let\stoppickupmath\stopforceddisplaymath + \enforced\let\stoppickupmath\stopforceddisplaymath \else \startimath - \let\stoppickupmath\stopimath + \enforced\let\stoppickupmath\stopimath \fi} -\let\stoppickupmath\relax +\aliased\let\stoppickupmath\relax % \protected\def\rawmathcharacter#1% slow but only for tracing % {\begingroup @@ -221,24 +221,29 @@ \installswitchcommandhandler \??mathematics {mathematics} \??mathematics -\permanent\protected\def\startmathematics % no grouping, if ever then also an optional second - {\doifelsenextoptionalcs\math_mathematics_start_yes\math_mathematics_start_nop} - \installmacrostack\currentmathematics -\protected\def\math_mathematics_start_yes[#1]% - {\push_macro_currentmathematics - \edef\currentmathematics{#1}% check for valid - \the\everyswitchmathematics} +% \permanent\protected\def\startmathematics % no grouping, if ever then also an optional second +% {\doifelsenextoptionalcs\math_mathematics_start_yes\math_mathematics_start_nop} +% +% \protected\def\math_mathematics_start_yes[#1]% +% {\push_macro_currentmathematics +% \edef\currentmathematics{#1}% check for valid +% \the\everyswitchmathematics} +% +% \protected\def\math_mathematics_start_nop +% {\push_macro_currentmathematics +% \let\currentmathematics\empty +% \the\everyswitchmathematics} -\protected\def\math_mathematics_start_nop +\permanent\protected\tolerant\def\startmathematics[#1]% no grouping, if ever then also an optional second {\push_macro_currentmathematics - \let\currentmathematics\empty + \edef\currentmathematics{#1}% check for valid \the\everyswitchmathematics} \permanent\protected\def\stopmathematics {\pop_macro_currentmathematics - \the\everyswitchmathematics} + \the\everyswitchmathematics} % only needed at level zero \definemathematics[\v!default] % not needed, but nicer when nesting back to normal @@ -597,7 +602,7 @@ %D %D To be done. -\let\mathboldsymbol\relax % yet unsupported, will be +\mutable\let\mathboldsymbol\relax % yet unsupported, will be \permanent\protected\def\boldsymbol {\mathortext\mathboldsymbol\bold} @@ -812,7 +817,7 @@ \let\math_tags_mi\firstofoneunexpanded \protected\def\math_tags_mn#1{\begingroup\mathupright\math_set_o_both#1\endgroup} -\protected\def\math_tags_ms#1{\begingroup\mathupright\math_set_p_both#1\endgroup} +\protected\def\math_tags_ms#1{\begingroup\mathupright\math_set_p_both#1\endgroup} % why not just \text % Once this is stable we can store the number at the tex end which is % faster. Functions getnumbers >= 1000. @@ -832,9 +837,9 @@ \ifempty\p_functionstyle \expandafter\math_mfunction_styled_none \orelse\ifcsname\??alternativestyle\p_functionstyle\endcsname - \doubleexpandafter\math_mfunction_styled_text + \expandafter\math_mfunction_styled_text \else - \doubleexpandafter\math_mfunction_styled_math + \expandafter\math_mfunction_styled_math \fi} \protected\def\math_mfunction_styled_text#1% @@ -886,6 +891,11 @@ \ifdefined\apply \else \aliased\let\apply\relax \fi +\mutable\let\mo\relax +\mutable\let\mi\relax +\mutable\let\mn\relax +\mutable\let\ms\relax + \appendtoks \enforced\let\math_tags_mfunctiontxt\clf_tagmfunctiontxt \enforced\let\math_tags_mfunctionlab\clf_tagmfunctionlab @@ -1109,8 +1119,8 @@ % most math fonts have messed up primes, just test this: $\prime^{\prime^{\prime}}$ -{ \catcode\circumflexasciicode\othercatcode \glet\othercircumflextoken ^ } -{ \catcode\circumflexasciicode\superscriptcatcode \glet\superscriptcircumflextoken^ } +{ \catcode\circumflexasciicode\othercatcode \immutable\glet\othercircumflextoken ^ } +{ \catcode\circumflexasciicode\superscriptcatcode \immutable\glet\superscriptcircumflextoken^ } \ifdefined \prime \else \Umathchardef\prime "0 "0 "2032 @@ -1451,8 +1461,8 @@ \permanent\protected\def\mathgreekitalic {\c_attr_mathgreek"333\relax} \permanent\protected\def\mathgreekdefault{\c_attr_mathgreek"000\relax} -\let\mathgreeknormal\mathgreekupright -\let\mathgreeknone \mathgreekdefault +\aliased\let\mathgreeknormal\mathgreekupright +\aliased\let\mathgreeknone \mathgreekdefault \appendtoks \c_attr_mathgreek\c_math_greek_attribute @@ -1963,8 +1973,8 @@ %D Some dimension fun: -\let\mathexheight \exheight % also in math-ini.mkiv -\def\mathemwidth {\Umathquad\normalmathstyle} % also in math-ini.mkiv +\aliased \let\mathexheight \exheight % also in math-ini.mkiv +\permanent\def\mathemwidth {\Umathquad\normalmathstyle} % also in math-ini.mkiv %D A plain inheritance: diff --git a/tex/context/base/mkxl/math-pln.mkxl b/tex/context/base/mkxl/math-pln.mkxl index e386eb72d..2fcf6e4cb 100644 --- a/tex/context/base/mkxl/math-pln.mkxl +++ b/tex/context/base/mkxl/math-pln.mkxl @@ -28,29 +28,29 @@ % will move -\def\oalign#1% +\permanent\def\oalign#1% {\leavevmode % plain tex uses this \vtop {\baselineskip\zeroskip \lineskip.25\exheight \ialign{\alignmark\alignmark\crcr#1\crcr}}} -\def\ooalign % chars over each other +\permanent\def\ooalign % chars over each other {\lineskiplimit-\maxdimen \oalign} % needs checking -\def\choose{\atopwithdelims()} -\def\brack {\atopwithdelims[]} -\def\brace {\atopwithdelims\{\}} +\permanent\protected\def\choose{\atopwithdelims()} +\permanent\protected\def\brack {\atopwithdelims[]} +\permanent\protected\def\brace {\atopwithdelims\{\}} % needs checking -\protected\def\buildrel#1\over#2% +\permanent\protected\def\buildrel#1\over#2% {\mathrel{\mathop{\kern\zeropoint#2}\limits^{#1}}} -\protected\def\bmod +\permanent\protected\def\bmod {\nonscript \mskip-\medmuskip \mkern5mu @@ -60,12 +60,12 @@ \nonscript \mskip-\medmuskip} -\protected\def\pmod#1% +\permanent\protected\def\pmod#1% {\allowbreak \mkern18mu (\mfunction{mod}\mskip\medmuskip#1)} -\protected\def\cases#1% +\permanent\protected\def\cases#1% {\left\{% \mskip\thinmuskip \vcenter @@ -80,7 +80,7 @@ \crcr}}% \right.} -\protected\def\matrix#1% +\permanent\protected\def\matrix#1% {\emptyhbox \mskip\thinmuskip \vcenter @@ -101,7 +101,7 @@ \noalign{\kern-\baselineskip}}}% \mskip\thinmuskip} -\protected\def\pmatrix#1% +\permanent\protected\def\pmatrix#1% {\left(\matrix{#1}\right)} % \protected\def\openup diff --git a/tex/context/base/mkxl/math-stc.mklx b/tex/context/base/mkxl/math-stc.mklx index e7541f61c..76aeda030 100644 --- a/tex/context/base/mkxl/math-stc.mklx +++ b/tex/context/base/mkxl/math-stc.mklx @@ -1273,15 +1273,15 @@ \defineextensiblefiller [twoheadleftarrowfill] ["219E] \defineextensiblefiller [twoheadrightarrowfill] ["21A0] \defineextensiblefiller [mapstofill] ["21A6] -\defineextensiblefiller [hookleftarrowfill] ["21A9] -\defineextensiblefiller [hookrightarrowfill] ["21AA] +%defineextensiblefiller [hookleftarrowfill] ["21A9] +%defineextensiblefiller [hookrightarrowfill] ["21AA] \defineextensiblefiller [leftharpoondownfill] ["21BD] \defineextensiblefiller [leftharpoonupfill] ["21BC] \defineextensiblefiller [rightharpoondownfill] ["21C1] \defineextensiblefiller [rightharpoonupfill] ["21C0] \defineextensiblefiller [rightoverleftarrowfill] ["21C4] -\defineextensiblefiller [leftrightharpoonsfill] ["21CB] -\defineextensiblefiller [rightleftharpoonsfill] ["21CC] +%defineextensiblefiller [leftrightharpoonsfill] ["21CB] % yet undefined +%defineextensiblefiller [rightleftharpoonsfill] ["21CC] % yet undefined \defineextensiblefiller [triplerelfill] ["2261] \defineextensiblefiller [leftrightarrowfill] ["27F7] \defineextensiblefiller [Leftarrowfill] ["27F8] diff --git a/tex/context/base/mkxl/meta-imp-clock.mkxl b/tex/context/base/mkxl/meta-imp-clock.mkxl index b48abf5ee..0612113ea 100644 --- a/tex/context/base/mkxl/meta-imp-clock.mkxl +++ b/tex/context/base/mkxl/meta-imp-clock.mkxl @@ -89,6 +89,8 @@ % \enableexperiments[fonts.compact] +\nopdfcompression + \setuplayout[tight] \setupbodyfont[dejavu] diff --git a/tex/context/base/mkxl/meta-ini.lmt b/tex/context/base/mkxl/meta-ini.lmt new file mode 100644 index 000000000..ed7b2264f --- /dev/null +++ b/tex/context/base/mkxl/meta-ini.lmt @@ -0,0 +1,161 @@ +if not modules then modules = { } end modules ['meta-ini'] = { + version = 1.001, + comment = "companion to meta-ini.mkiv", + author = "Hans Hagen, PRAGMA-ADE, Hasselt NL", + copyright = "PRAGMA ADE / ConTeXt Development Team", + license = "see context related readme files" +} + +local tonumber = tonumber +local format = string.format +local concat = table.concat +local lpegmatch, lpegpatterns = lpeg.match, lpeg.patterns +local P, Cs, R, S, C, Cc = lpeg.P, lpeg.Cs, lpeg.R, lpeg.S, lpeg.C, lpeg.Cc + +metapost = metapost or { } +local metapost = metapost +local context = context + +local colorhash = attributes.list[attributes.private('color')] +local textype = tex.type +local MPcolor = context.MPcolor + +do + + local dimenorname = + lpegpatterns.validdimen / function(s) + context("\\the\\dimexpr %s",s) + end + + (C(lpegpatterns.float) + Cc(1)) * lpegpatterns.space^0 * P("\\") * C(lpegpatterns.letter^1) / function(f,s) + local t = textype(s) + if t == "dimen" then + context("\\the\\dimexpr %s\\%s\\relax",f,s) + elseif t == "count" then + context("\\the\\numexpr \\%s * %s\\relax",s,f) -- <n>\scratchcounter is not permitted + end + end + + local splitter = lpeg.splitat("::",true) + + interfaces.implement { + name = "prepareMPvariable", + arguments = "string", + actions = function(v) + if v == "" then + -- MPcolor("black") + context("black") + else + local typ, var = lpegmatch(splitter,v) + if not var then + -- parse + if colorhash[v] then + -- MPcolor(v) + context("%q",var) + elseif tonumber(v) then + context(v) + elseif not lpegmatch(dimenorname,v) then + context("\\number %s",v) -- 0.4 ... + end + elseif typ == "d" then -- to be documented + -- dimension + context("\\the\\dimexpr %s\\relax",var) + elseif typ == "n" then -- to be documented + -- number + context("\\the\\numexpr %s\\relax",var) + elseif typ == "s" then -- to be documented + -- string + -- context(var) + context("%q",var) + elseif typ == "c" then -- to be documented + -- color + -- MPcolor(var) + context("%q",var) + else + context(var) + end + end + end + } + +end + +do + + local ctx_mathematics = context.mathematics + + -- function metapost.formatnumber(f,n) -- just lua format + -- f = gsub(f,"@(%d)","%%.%1") + -- f = gsub(f,"@","%%") + -- f = format(f,tonumber(n) or 0) + -- f = gsub(f,"e([%+%-%d]+)",function(s) + -- return format("\\times10^{%s}",tonumber(s) or s) -- strips leading zeros + -- end) + -- context.mathematics(f) + -- end + + -- formatters["\\times10^{%N}"](s) -- strips leading zeros too + + local one = Cs((P("@")/"%%." * (R("09")^1) + P("@")/"%%" + 1)^0) + local two = Cs((P("e")/"" * ((S("+-")^0 * R("09")^1) / function(s) + -- return format("\\times10^{%s}",tonumber(s) or s) + return "\\times10^{" .. (tonumber(s) or s) .."}" + end) + 1)^1) + + -- local two = Cs((P("e")/"" * ((S("+-")^0 * R("09")^1) / formatters["\\times10^{%N}"]) + 1)^1) + + function metapost.formatnumber(fmt,n) -- just lua format + ctx_mathematics(lpegmatch(two,format(lpegmatch(one,fmt),n))) + end + +end + +do + + -- this is an old pass-data-to-tex mechanism + + local ctx_printtable = context.printtable + + local data = false + + function mp.mf_start_saving_data(n) + data = { } + end + + function mp.mf_stop_saving_data() + if data then + -- nothing + end + end + + function mp.mf_finish_saving_data() + if data then + -- nothing + end + end + + function mp.mf_save_data(str) + if data then + data[#data+1] = str + end + end + + local function getdata() + if data then + ctx_printtable(data,"\r") + end + end + + interfaces.implement { + name = "getMPdata", + public = true, + protected = true, + actions = getdata, + } + + interfaces.implement { + name = "rawMPdata", + public = true, + actions = getdata, + } + +end diff --git a/tex/context/base/mkxl/meta-ini.mkxl b/tex/context/base/mkxl/meta-ini.mkxl index ce3e59c96..227e3499a 100644 --- a/tex/context/base/mkxl/meta-ini.mkxl +++ b/tex/context/base/mkxl/meta-ini.mkxl @@ -12,6 +12,8 @@ %C details. %D Some lmtx upgrading work needs to be done here. +%D +%D For real \METAFUN\ magic see \type {https://art-aleatoire.com/}. % initializations: % @@ -60,7 +62,7 @@ \writestatus{loading}{MetaPost Graphics / Initializations} -\registerctxluafile{meta-ini}{} +\registerctxluafile{meta-ini}{autosuffix} \unprotect @@ -197,9 +199,9 @@ \edef\currentMPformat{\MPinstanceparameter\s!format}% \meta_show_properties} -\def\currentMPgraphicname{\s!unknown} -\def\currentMPinstance {\defaultMPinstance} -\def\currentMPformat {\currentMPinstance} +\mutable\def\currentMPgraphicname{\s!unknown} +\mutable\def\currentMPinstance {\defaultMPinstance} +\mutable\def\currentMPformat {\currentMPinstance} \defineMPinstance[metafun] [\s!format=metafun,\s!extensions=\v!yes,\s!initializations=\v!yes] \defineMPinstance[minifun] [\s!format=minifun,\s!extensions=\v!yes,\s!initializations=\v!yes] @@ -407,6 +409,8 @@ \mutable\def\width {0 } % left-over \mutable\def\height{0 } % left-over +\mutable\let\currentMPclip\empty + \protected\def\meta_grab_clip_path#1#2#3% {\begingroup \d_overlay_width #2\relax @@ -488,7 +492,8 @@ \newbox\b_meta_variable_box -\let \currentmpvariableclass \empty +\mutable\let \currentmpvariableclass \empty % public + \let \m_meta_current_variable \empty \let \m_meta_current_variable_template\empty @@ -598,7 +603,7 @@ % todo: frozen or not? -\def\overlaystamp % watch the \MPcolor, since colors can be redefined +\permanent\def\overlaystamp % watch the \MPcolor, since colors can be redefined {\the\d_overlay_width :% \the\d_overlay_height :% \the\d_overlay_depth :% @@ -784,7 +789,7 @@ \def\m_meta_page_prefix{\doifelseoddpage oe} -\def\overlaypagestamp +\permanent\def\overlaypagestamp {\m_meta_page_prefix :% \the\d_overlay_width :% \the\d_overlay_height :% @@ -808,7 +813,7 @@ \permanent\tolerant\protected\def\uniqueMPpagegraphic#=#=% {\meta_begin_graphic_group{#1}% - \let\overlaystamp\overlaypagestamp + \enforced\let\overlaystamp\overlaypagestamp \setupMPvariables[\m_meta_page_prefix:#1][#2]% prefix is new here \csname\??mpgraphic\m_meta_page_prefix:#1\endcsname\empty \meta_end_graphic_group} @@ -830,13 +835,10 @@ \def\meta_extend_overlay_stamp#1% {\meta_prepare_instance_variable{#1}% - \edef\overlaystamp{\overlaystamp:\MPvariable{#1}}} - -\permanent\protected\def\getMPdata {\clf_getMPdata} - \aliased\let\rawMPdata \clf_getMPdata % we need frozen at the lua end + \enforced\permanent\edef\overlaystamp{\overlaystamp:\MPvariable{#1}}} -\permanent\protected\def\getMPstored{\clf_getMPstored} - \aliased\let\rawMPstored \clf_getMPstored % we need frozen at the lua end +% \getMPdata % define at the lua end +% \rawMPdata % define at the lua end %D We need this trick because we need to make sure that the tex scanner sees %D newlines and does not quit. Also, we do need to flush the buffer under a normal diff --git a/tex/context/base/mkxl/meta-nod.mkxl b/tex/context/base/mkxl/meta-nod.mkxl index 021e84561..3f7a5a79f 100644 --- a/tex/context/base/mkxl/meta-nod.mkxl +++ b/tex/context/base/mkxl/meta-nod.mkxl @@ -226,6 +226,8 @@ \setvalue{\??metanodesoption dashed}{dashed evenly} \setvalue{\??metanodesoption dotted}{dashed withdots scaled .5} +\aliased\let\connectnodes\relax + \appendtoks \enforced\let\connectnodes\grph_nodes_fromto \to \t_every_meta_nodes diff --git a/tex/context/base/mkxl/meta-tex.mkxl b/tex/context/base/mkxl/meta-tex.mkxl index a2377c321..5937ce408 100644 --- a/tex/context/base/mkxl/meta-tex.mkxl +++ b/tex/context/base/mkxl/meta-tex.mkxl @@ -50,6 +50,28 @@ \letvalue{\??graphictexdepth n}\donothing \letvalue{\??graphictexdepth\s!nodepth}\donothing +% old hackery, slightly modernized + +\permanent\protected\def\definetextext[#1]% + {\tolerant\defcsname\??graphictexarguments#1\endcsname} + +\permanent\tolerant\def\sometxt[#1]#*[#2]% + {\ifarguments + \expandafter\meta_some_txt_a + \or + \expandafter\meta_some_txt_b + \or + \expandafter\meta_some_txt_c + \or + \fi{#1}{#2}} + +\def\meta_some_txt_a#1#2#3{textext.drt("\clf_metapostescaped{#3}")} +\def\meta_some_txt_b#1#2#3{textext.drt("\mpsometxt{#1}{\clf_metapostescaped{#3}}")} +\def\meta_some_txt_c#1#2#3{textext.drt("\mpsometxt{#1}[#2]{\clf_metapostescaped{#3}}")} + +\permanent\protected\def\mpsometxt#1% + {\begincsname\??graphictexarguments#1\endcsname} + % \definetextext[framed]{\framed} % % \startMPcode @@ -65,39 +87,7 @@ % draw \sometxt[framed][foregroundstyle=bold]{Mojca's}; % draw \sometxt[framed]{eyes only!} rotated -45 ; % \stopMPcode - -\permanent\protected\def\definetextext[#1]% - {\def\currenttextext{#1}% - \doifelsenextoptionalcs\meta_textext_define_one\meta_textext_define_zero} - -\def\meta_textext_define_one {\setvalue{\??graphictexarguments1:\currenttextext}} -\def\meta_textext_define_zero{\setvalue{\??graphictexarguments0:\currenttextext}} - -\permanent\def\sometxt#1#{\meta_some_txt{#1}} - -\def\meta_some_txt#1#2% we need to capture embedded quotes (a bit messy as later on textext is filtered - {textext.drt("\mpsometxt#1{\clf_metapostescaped{#2}}")} - -\permanent\protected\def\mpsometxt % no _ catcode - {\doifelsenextoptionalcs\meta_some_txt_indeed_yes\meta_some_txt_indeed_nop} - -\def\meta_some_txt_indeed_yes[#1]% - {\def\currenttextext{#1}% - \csname\??graphictexarguments - \ifcsname\??graphictexarguments0:#1\endcsname0\else - \ifcsname\??graphictexarguments1:#1\endcsname1\else - ?\fi\fi - \endcsname} - -\def\meta_some_txt_indeed_nop - {} - -\setvalue{\??graphictexarguments ?}{} -\setvalue{\??graphictexarguments 0}{\csname\??graphictexarguments\currenttextext\endcsname} -\setvalue{\??graphictexarguments 1}{\dosingleempty\meta_gx_one} - -\def\meta_gx_one{\csname\??graphictexarguments1:\currenttextext\endcsname} - +% % \definetextext[framed][#1]#2{\framed[width=4cm]{\switchtobodyfont[#1]#2}} % \definetextext[simple]{\framed[width=8cm]} % diff --git a/tex/context/base/mkxl/mult-aux.mkxl b/tex/context/base/mkxl/mult-aux.mkxl index 20199667c..31b8ae878 100644 --- a/tex/context/base/mkxl/mult-aux.mkxl +++ b/tex/context/base/mkxl/mult-aux.mkxl @@ -379,8 +379,6 @@ \expandafter\noexpand\csname use#2styleparameter\endcsname \expandafter\noexpand\csname use#2colorparameter\endcsname}} -\let\definehandlerparent\empty - \def\mult_check_for_parent#1#2#3#4% {\ifcsname#1#4:\s!parent\endcsname\orelse\ifx#4\empty\else \writestatus\m!system{error: invalid parent #4 for #3, #4 defined too (best check it)}% @@ -492,10 +490,10 @@ \expandafter\noexpand\csname everysetup#2root\endcsname \expandafter\noexpand\csname nested_setup_current#2\endcsname}} -\let\doingrootsetupnamed\plusone % \setuplayout[name][key=value] -\let\doingrootsetuproot \plustwo % \setuplayout [key=value] -\let\doingrootsetnamed \plusthree % \setuplayout[name] -\let\doingrootsetroot \plusfour % \setuplayout +\aliased\let\doingrootsetupnamed\plusone % \setuplayout[name][key=value] +\aliased\let\doingrootsetuproot \plustwo % \setuplayout [key=value] +\aliased\let\doingrootsetnamed \plusthree % \setuplayout[name] +\aliased\let\doingrootsetroot \plusfour % \setuplayout \protected\def\mult_interfaces_install_switch_setup_handler_a#1#2#3% {\frozen\protected\def#3{\mult_interfaces_get_parameters{#1#2:}}} diff --git a/tex/context/base/mkxl/mult-ini.mkxl b/tex/context/base/mkxl/mult-ini.mkxl index 1b13b1dbc..f2dad6fac 100644 --- a/tex/context/base/mkxl/mult-ini.mkxl +++ b/tex/context/base/mkxl/mult-ini.mkxl @@ -232,7 +232,7 @@ \else - \def\defaultinterface{english} + \immutable\def\defaultinterface{english} \permanent\overloaded\protected\def\selectinterface {\enforced\permanent\protected\def\selectinterface##1##2% @@ -252,8 +252,8 @@ \fi -\ifdefined\currentinterface \else \let\currentinterface\defaultinterface \fi -\ifdefined\currentresponses \else \let\currentresponses\defaultinterface \fi +\ifdefined\currentinterface \else \aliased\let\currentinterface\defaultinterface \fi +\ifdefined\currentresponses \else \aliased\let\currentresponses\defaultinterface \fi %D \macros %D {startinterface} diff --git a/tex/context/base/mkxl/node-nut.lmt b/tex/context/base/mkxl/node-nut.lmt index 296f6f446..ab44e4d92 100644 --- a/tex/context/base/mkxl/node-nut.lmt +++ b/tex/context/base/mkxl/node-nut.lmt @@ -98,6 +98,7 @@ local nuts = { getnucleus = direct.getnucleus, getoffsets = direct.getoffsets, -- getxyoffsets = direct.getxyoffsets, + getscale = direct.getscale, getscales = direct.getscales, getxscale = direct.getxscale, getyscale = direct.getyscale, @@ -191,6 +192,7 @@ local nuts = { setlist = direct.setlist, setnext = direct.setnext, setnucleus = direct.setnucleus, + setscale = direct.setscale or direct.setscales, setscales = direct.setscales, setoffsets = direct.setoffsets, addxoffset = direct.addxoffset, diff --git a/tex/context/base/mkxl/node-rul.mkxl b/tex/context/base/mkxl/node-rul.mkxl index 3adf3b5b8..2b55561d8 100644 --- a/tex/context/base/mkxl/node-rul.mkxl +++ b/tex/context/base/mkxl/node-rul.mkxl @@ -226,8 +226,8 @@ \aliased\let\normalmathoverbar \overbar \aliased\let\normalmathunderbar \underbar -\aliased\let\normalmathoverstrike \overstrike -\aliased\let\normalmathunderstrike\understrike +%aliased\let\normalmathoverstrike \overstrike +%aliased\let\normalmathunderstrike\understrike \definebar[\v!overbar] [\c!method=1,\c!dy=0.4,\c!offset=1.8,\c!continue=\v!yes] \definebar[\v!underbar] [\c!method=1,\c!dy=-0.4,\c!offset=-0.3,\c!continue=\v!yes] @@ -273,19 +273,19 @@ \enforced\permanent\expandafter\let\expandafter\overbar\csname\v!overbar\endcsname \fi -\ifdefined\normalmathunderstrike - \enforced\permanent\expandafter\let\expandafter\normaltextunderstrike\csname\v!understrike\endcsname - \enforced\permanent\protected\def\understrike{\mathortext\normalmathunderstrike\normaltextunderstrike} -\else - \enforced\permanent\expandafter\let\expandafter\understrike\csname\v!understrike\endcsname -\fi - -\ifdefined\normalmathoverstrike - \enforced\permanent\expandafter\let\expandafter\normaltextoverstrike\csname\v!overstrike\endcsname - \enforced\permanent\protected\def\overstrike{\mathortext\normalmathoverstrike \normaltextoverstrike} -\else - \enforced\permanent\expandafter\let\expandafter\overstrike\csname\v!overstrike\endcsname -\fi +% \ifdefined\normalmathunderstrike +% \enforced\permanent\expandafter\let\expandafter\normaltextunderstrike\csname\v!understrike\endcsname +% \enforced\permanent\protected\def\understrike{\mathortext\normalmathunderstrike\normaltextunderstrike} +% \else +% \enforced\permanent\expandafter\let\expandafter\understrike\csname\v!understrike\endcsname +% \fi +% +% \ifdefined\normalmathoverstrike +% \enforced\permanent\expandafter\let\expandafter\normaltextoverstrike\csname\v!overstrike\endcsname +% \enforced\permanent\protected\def\overstrike{\mathortext\normalmathoverstrike \normaltextoverstrike} +% \else +% \enforced\permanent\expandafter\let\expandafter\overstrike\csname\v!overstrike\endcsname +% \fi \enforced\permanent\expandafter\let\expandafter\overstrikes\csname\v!overstrikes\endcsname \enforced\permanent\expandafter\let\expandafter\underbars \csname\v!underbars \endcsname @@ -441,17 +441,17 @@ \expandafter\let\expandafter\shiftup \csname\v!shiftup \endcsname \expandafter\let\expandafter\shiftdown \csname\v!shiftdown \endcsname -% This is a weird helper: +% This is a weird helper.. these might go away: -\protected\def\dostartisolation{\signalcharacter} -\protected\def\dostopisolation {\signalcharacter} -\protected\def\doisolator {\signalcharacter} +\permanent\protected\def\dostartisolation{\signalcharacter} +\permanent\protected\def\dostopisolation {\signalcharacter} +\permanent\protected\def\doisolator {\signalcharacter} -\protected\def\dosetupisolatedalign#1% +\permanent\protected\def\dosetupisolatedalign#1% {\doisolator \setupalign[#1]\relax} -\protected\def\doisolatedgroupedalign#1#2% +\permanent\protected\def\doisolatedgroupedalign#1#2% {\groupedcommand {\begingroup\dostartisolation\begingroup#1} {#2\endgroup\dostopisolation\endgroup}} diff --git a/tex/context/base/mkxl/pack-box.mkxl b/tex/context/base/mkxl/pack-box.mkxl index 3cb50d6f0..71a2dd326 100644 --- a/tex/context/base/mkxl/pack-box.mkxl +++ b/tex/context/base/mkxl/pack-box.mkxl @@ -51,6 +51,8 @@ % % \anchor[text-1][preset=lefttop][framed settings]{HELLO WORLD} +\mutable\let\currentanchor\empty + \permanent\tolerant\protected\def\defineanchor[#1]#*[#2]#*[#3]#*[#4]% name targetlayer layersetting framedsetting {\setvalue{\??anchor#1}{\pack_anchors_process_defined{#2}{#3}{#4}}} @@ -324,8 +326,8 @@ {\begingroup \pack_boxes_collector_check_box{#1}% \ifconditional\c_pack_boxes_collector_valid_box + \letcollectorparameter\c!hoffset\zeropoint \letcollectorparameter\c!voffset\zeropoint - \letcollectorparameter\h!voffset\zeropoint \setupcurrentcollector[#2]% \global\wd\b_pack_boxes_collector\dimexpr\wd\b_pack_boxes_collector+\collectorparameter\c!hoffset\relax \global\ht\b_pack_boxes_collector\dimexpr\ht\b_pack_boxes_collector+\collectorparameter\c!voffset\relax @@ -544,6 +546,9 @@ \setvalue{\??bleedinglocation tr}{\settrue\c_pack_boxes_r\settrue\c_pack_boxes_t} \setvalue{\??bleedinglocation rt}{\settrue\c_pack_boxes_r\settrue\c_pack_boxes_t} +\mutable\let\currentbleedposition\empty +\mutable\let\currentpageposition \empty + \permanent\tolerant\protected\def\bleed[#1]% {\hbox\bgroup \global\advance\c_pack_boxes_bleeds\plusone @@ -551,8 +556,8 @@ \enforced\permanent\xdef\bleedwidth {\the\hsize}% \enforced\permanent\xdef\bleedheight{\the\vsize}% % - \edef\currentbgposition {bleed:\number\c_pack_boxes_bleeds}% - \edef\currentpageposition{page:0}% todo: per page + \edef\currentbleedposition{bleed:\number\c_pack_boxes_bleeds}% + \edef\currentpageposition {page:0}% todo: per page % \setupcurrentbleeding[#1]% % @@ -574,9 +579,9 @@ \enforced\permanent\xdef\bleedwidth{\the\dimexpr \ifdone \ifconditional\c_pack_boxes_l - \scratchwidth+\MPx\currentbgposition-\MPx\currentpageposition + \scratchwidth+\MPx\currentbleedposition-\MPx\currentpageposition \orelse\ifconditional\c_pack_boxes_r - \paperwidth -\MPx\currentbgposition+\MPx\currentpageposition % not checked + \paperwidth -\MPx\currentbleedposition+\MPx\currentpageposition % not checked \else \scratchwidth \fi @@ -587,9 +592,9 @@ \enforced\permanent\xdef\bleedheight{\the\dimexpr \ifdone \ifconditional\c_pack_boxes_t - \paperheight -\MPy\currentbgposition+\MPy\currentpageposition % not checked + \paperheight -\MPy\currentbleedposition+\MPy\currentpageposition % not checked \orelse\ifconditional\c_pack_boxes_b - \scratchheight+\MPy\currentbgposition-\MPy\currentpageposition + \MPh\currentbgposition % not checked (\MPh added) + \scratchheight+\MPy\currentbleedposition-\MPy\currentpageposition + \MPh\currentbleedposition % not checked (\MPh added) \else \scratchheight \fi @@ -618,7 +623,7 @@ \ht\nextbox\scratchheight \dp\nextbox\zeropoint \ifdone - \hpos\currentbgposition{\box\nextbox}% + \hpos\currentbleedposition{\box\nextbox}% \else \box\nextbox \fi diff --git a/tex/context/base/mkxl/pack-com.mkxl b/tex/context/base/mkxl/pack-com.mkxl index b70e30892..d2a9af914 100644 --- a/tex/context/base/mkxl/pack-com.mkxl +++ b/tex/context/base/mkxl/pack-com.mkxl @@ -228,6 +228,10 @@ \newtoks\everycombination +\aliased\let\combination\empty + +\let\p_nx_ny\empty + \permanent\protected\def\stopcombination {\bgroup\normalexpanded{\egroup{}\ntimes{{}{}}\c_pack_combinations_y}% brr \dostoptagged @@ -239,52 +243,52 @@ {\bgroup % so we can grab a group \pack_combinations_push \edef\currentcombination{#1}% - \edef\currentcombinationspec{#2}% + \edef\p_nx_ny{#2}% % - \ifempty\currentcombinationspec + \ifempty\p_nx_ny \ifcondition\validassignment{#1}% \let\currentcombination\empty \setupcurrentcombination[#1]% - \edef\currentcombinationspec{\combinationparameter\c!nx*\combinationparameter\c!ny*}% + \edef\p_nx_ny{\combinationparameter\c!nx*\combinationparameter\c!ny*}% \else \doifelseinstring{*}\currentcombination - {\edef\currentcombinationspec{\currentcombination*\plusone*}% + {\edef\p_nx_ny{\currentcombination*\plusone*}% \let\currentcombination\empty} {\doifelsenumber\currentcombination - {\edef\currentcombinationspec{\currentcombination*\plusone*}% + {\edef\p_nx_ny{\currentcombination*\plusone*}% \let\currentcombination\empty} - {\edef\currentcombinationspec{\combinationparameter\c!nx*\combinationparameter\c!ny*}}}% + {\edef\p_nx_ny{\combinationparameter\c!nx*\combinationparameter\c!ny*}}}% \fi \else \ifcondition\validassignment{#2}% \setupcurrentcombination[#2]% - \edef\currentcombinationspec{\combinationparameter\c!nx*\combinationparameter\c!ny*}% + \edef\p_nx_ny{\combinationparameter\c!nx*\combinationparameter\c!ny*}% \else - \edef\currentcombinationspec{\currentcombinationspec*\plusone*}% + \edef\p_nx_ny{\p_nx_ny*\plusone*}% \fi \fi % % test first: % -% \ifempty\currentcombinationspec +% \ifempty\p_nx_ny % \ifhastok={#1}% % \let\currentcombination\empty % \setupcurrentcombination[#1]% -% \edef\currentcombinationspec{\combinationparameter\c!nx*\combinationparameter\c!ny*}% +% \edef\p_nx_ny{\combinationparameter\c!nx*\combinationparameter\c!ny*}% % \orelse\ifhastok*{\currentcombination}% -% \edef\currentcombinationspec{\currentcombination*\plusone*}% +% \edef\p_nx_ny{\currentcombination*\plusone*}% % \let\currentcombination\empty % \orelse\ifchknum\currentcombination\or -% \edef\currentcombinationspec{\currentcombination*\plusone*}% +% \edef\p_nx_ny{\currentcombination*\plusone*}% % \let\currentcombination\empty % \else -% \edef\currentcombinationspec{\combinationparameter\c!nx*\combinationparameter\c!ny*}% +% \edef\p_nx_ny{\combinationparameter\c!nx*\combinationparameter\c!ny*}% % \fi % \orelse\ifhastok={#2}% % \setupcurrentcombination[#2]% -% \edef\currentcombinationspec{\combinationparameter\c!nx*\combinationparameter\c!ny*}% +% \edef\p_nx_ny{\combinationparameter\c!nx*\combinationparameter\c!ny*}% % \else -% \edef\currentcombinationspec{\currentcombinationspec*\plusone*}% +% \edef\p_nx_ny{\p_nx_ny*\plusone*}% % \fi % \forgetall @@ -306,8 +310,8 @@ % \dostarttaggedchained\t!combination\currentcombination\??combination \vbox \ifx\p_height\v!fit\else to \p_height \fi \bgroup - \let\combination\empty % permits \combination{}{} handy for cld - \normalexpanded{\pack_combinations_start_indeed[\currentcombinationspec]}} + \enforced\let\combination\empty % permits \combination{}{} handy for cld + \normalexpanded{\pack_combinations_start_indeed[\p_nx_ny]}} \let\pack_combinations_check_x_y\relax diff --git a/tex/context/base/mkxl/pack-lyr.mkxl b/tex/context/base/mkxl/pack-lyr.mkxl index 6f84b0628..bb4926db5 100644 --- a/tex/context/base/mkxl/pack-lyr.mkxl +++ b/tex/context/base/mkxl/pack-lyr.mkxl @@ -95,7 +95,7 @@ \c!sy=1, \c!region=\layeranchor] -\def\layeranchor{\currentlayer:\the\realpageno} +\permanent\def\layeranchor{\currentlayer:\the\realpageno} \let\p_pack_layers_doublesided\empty \let\p_pack_layers_state \empty diff --git a/tex/context/base/mkxl/pack-mrl.mkxl b/tex/context/base/mkxl/pack-mrl.mkxl index e0ab0708c..7bdbc6b60 100644 --- a/tex/context/base/mkxl/pack-mrl.mkxl +++ b/tex/context/base/mkxl/pack-mrl.mkxl @@ -189,7 +189,7 @@ \s!height\linewidth \s!depth \zeropoint}} -\let\dovlwdhtdp\pack_rule_vl_indeed % used elsewhere +% \let\dovlwdhtdp\pack_rule_vl_indeed % used elsewhere .. not any more %D \macros %D {hairline, thinrule, thinrules, setupthinrules} diff --git a/tex/context/base/mkxl/pack-rul.mkxl b/tex/context/base/mkxl/pack-rul.mkxl index 2471f3ca2..e793b1e53 100644 --- a/tex/context/base/mkxl/pack-rul.mkxl +++ b/tex/context/base/mkxl/pack-rul.mkxl @@ -200,7 +200,7 @@ \newdimen\d_framed_target_wd \newdimen\d_framed_target_ht \newdimen\d_framed_target_dp -\newdimen\d_framed_linewidth \let\ruledlinewidth\d_framed_linewidth % needed at lua end +\newdimen\d_framed_linewidth \aliased\let\ruledlinewidth\d_framed_linewidth % needed at lua end \let\p_framed_frame \empty % \framedparameter\c!frame \let\p_framed_backgroundoffset\empty @@ -539,6 +539,8 @@ \newdimen\framedbackgrounddepth \newdimen\framedbackgroundoffset +\aliased\let\foregroundbox\relax + \def\pack_framed_background_box_content% fuzzy but needed hack, this \vss, otherwise {\vpack to \framedbackgroundheight{\vss\box\b_framed_normal\vss}} % vertical shift \backgroundheight @@ -567,7 +569,7 @@ \else \setlayoutcomponentattribute{\v!background:\p_framed_component}% \fi - \let\foregroundbox\pack_framed_background_box_content + \enforced\let\foregroundbox\pack_framed_background_box_content \hpack \layoutcomponentboxattribute to \framedbackgroundwidth\bgroup % width in case 'foreground' is used as overlay \the\everybackgroundbox % moved \expandafter\pack_framed_process_backgrounds\p_framed_background,\s!unknown,\relax % hm, messy .. look into it @@ -759,7 +761,7 @@ %D for passing this identifier between brackets lays in the mere fact that this way %D we can use the optional argument grabbers. -\def\defaultframeoffset{.25\exheight} +\mutable\def\defaultframeoffset{.25\exheight} \installcorenamespace{regularframedlevel} @@ -985,9 +987,9 @@ \defineinterfaceconstant {fr!analyze} {fr:analyze} % private option -\let\delayedbegstrut\relax -\let\delayedendstrut\relax -\let\delayedstrut \relax +\aliased\let\delayedbegstrut\relax +\aliased\let\delayedendstrut\relax +\aliased\let\delayedstrut \relax \mutable\let\localoffset\empty \mutable\let\localwidth \empty @@ -995,6 +997,14 @@ \mutable\let\localformat\empty \mutable\let\localstrut \empty +\mutable\let\framedwidth \empty +\mutable\let\framedheight\empty +\mutable\let\framedoffset\empty + +\aliased\let\localbegstrut\relax +\aliased\let\localendstrut\relax +\aliased\let\localstrut \relax + \protected\def\pack_framed_process_indeed {\d_framed_frameoffset\framedparameter\c!frameoffset \edef\p_framed_backgroundoffset{\framedparameter\c!backgroundoffset}% diff --git a/tex/context/base/mkxl/page-bck.mkxl b/tex/context/base/mkxl/page-bck.mkxl index dc4cc602a..334a797b8 100644 --- a/tex/context/base/mkxl/page-bck.mkxl +++ b/tex/context/base/mkxl/page-bck.mkxl @@ -600,9 +600,12 @@ \permanent\protected\def\disablehiddenbackground {\global\setfalse\c_page_backgrounds_hidden_enabled} -\def\hiddenbackgroundlist +\immutable\def\hiddenbackgroundlist {\v!text-2,\v!text-1,\v!foreground,\v!text+1,\v!text+2} +\permanent\protected\def\prependhiddenbackground#1{\enforced\edef\hiddenbackgroundlist{#1,\hiddenbackgroundlist}} +\permanent\protected\def\appendhiddenbackground #1{\enforced\edef\hiddenbackgroundlist{\hiddenbackgroundlist,#1}} + \defineoverlay[\v!text-2][\positionregionoverlay\textanchor{\v!text-2}] % no new anchor, we share text \defineoverlay[\v!text-1][\positionregionoverlay\textanchor{\v!text-1}] \defineoverlay[\v!text+1][\positionregionoverlay\textanchor{\v!text+1}] diff --git a/tex/context/base/mkxl/page-cst.mkxl b/tex/context/base/mkxl/page-cst.mkxl index 31cf158f5..d0d6f2abd 100644 --- a/tex/context/base/mkxl/page-cst.mkxl +++ b/tex/context/base/mkxl/page-cst.mkxl @@ -720,7 +720,9 @@ % maybe move the left/right correction to the tex end or the offset to lua -\protected\def\page_grd_set_area#1#2#3#4#5#6#7#8% can be optimized +% used nowhere: + +\permanent\protected\def\setpagegridarea#1#2#3#4#5#6#7#8% can be optimized {\begingroup \edef\currentpagegridarea{#2}% \setpagegridareaparameter\c!width {#5\scaledpoint}% @@ -763,8 +765,6 @@ \fi \endgroup} -\aliased\let\setpagegridarea\page_grd_set_area - % state start | repeat %D The old one, for now: diff --git a/tex/context/base/mkxl/page-ini.mkxl b/tex/context/base/mkxl/page-ini.mkxl index e78f759a8..0a0993d44 100644 --- a/tex/context/base/mkxl/page-ini.mkxl +++ b/tex/context/base/mkxl/page-ini.mkxl @@ -186,7 +186,7 @@ \box\b_page_otr_special \fi} -\def\page_otr_add_special_content +\permanent\protected\def\page_otr_add_special_content {\dowithnextboxcs\page_otr_add_special_content_indeed\hbox} \permanent\protected\def\page_otr_add_special_content_indeed diff --git a/tex/context/base/mkxl/page-lay.mkxl b/tex/context/base/mkxl/page-lay.mkxl index 29698cb67..6a5b5c09e 100644 --- a/tex/context/base/mkxl/page-lay.mkxl +++ b/tex/context/base/mkxl/page-lay.mkxl @@ -537,8 +537,8 @@ \enforced\global\swapcsvalues\paperwidth\paperheight \fi \ifinpagebody % local freeze - \normalexpanded{\setlayouttargetparemeter\c!height{\the\paperheight}}% - \normalexpanded{\setlayouttargetparemeter\c!width {\the\paperwidth }}% + \normalexpanded{\setlayouttargetparameter\c!height{\the\paperheight}}% + \normalexpanded{\setlayouttargetparameter\c!width {\the\paperwidth }}% \fi % \page_paper_set_offsets diff --git a/tex/context/base/mkxl/page-txt.mklx b/tex/context/base/mkxl/page-txt.mklx index a5a5a97ab..981a15089 100644 --- a/tex/context/base/mkxl/page-txt.mklx +++ b/tex/context/base/mkxl/page-txt.mklx @@ -90,6 +90,9 @@ \fi \to \everysetuplayoutelement +\mutable\let\currenttextstate \empty +\mutable\let\previoustextstate\empty + \def\page_layouts_reset_element_status#vertical% {\gdefcsname\??layouttextsreset#vertical\endcsname{\page_layouts_set_element_status_normal#vertical}} @@ -172,6 +175,8 @@ \permanent\protected\def\setupfootertexts{\setuptexts[\v!footer]} \permanent\protected\def\setupbottomtexts{\setuptexts[\v!bottom]} +\mutable\let\currentlayoutelementstate\empty + \permanent\tolerant\protected\def\setuptexts[#vertical]#spacer[#horizontal]#spacer[#a]#spacer[#b]#spacer[#c]#spacer[#d]% {\ifarguments % there is always one @@ -238,15 +243,15 @@ \uselayoutelementstyleandcolor#style#color% \begincsname\??layouttextstrut\layoutelementparameter\c!strut\endcsname \ignorecrlf - \edef\currentlayoutelementwidth{\layoutelementparameter#width}% - \ifempty\currentlayoutelementwidth\else + \edef\p_width{\layoutelementparameter#width}% + \ifempty\p_width\else \expandafter\page_layouts_process_element_limited \fi\p_text \endgroup} \def\page_layouts_process_element_limited#content% are the {}{}{} still needed? {\limitated - left \currentlayoutelementwidth + left \p_width text {#content} sentinel {\unknown} \relax} @@ -267,6 +272,8 @@ \newcount\c_page_layouts_element_state_n +\mutable\let\textlinestatus\empty + \def\page_layouts_set_element_status#vertical% {\c_page_layouts_element_state_n=0\namedlayoutelementparameter#vertical\c!n\relax \ifcase\c_page_layouts_element_state_n diff --git a/tex/context/base/mkxl/publ-ini.mkxl b/tex/context/base/mkxl/publ-ini.mkxl index e3eee279d..b1af17413 100644 --- a/tex/context/base/mkxl/publ-ini.mkxl +++ b/tex/context/base/mkxl/publ-ini.mkxl @@ -771,9 +771,9 @@ \fi \to \everybtxlistrendering -\def\nofbtxlistentries {0} -\def\currentbtxlistentry{0} -\def\currentbtxlistindex{0} % only for internal use (points back to big list) +\mutable\let\nofbtxlistentries \!!zerocount +\mutable\let\currentbtxlistentry\!!zerocount +\mutable\let\currentbtxlistindex\!!zerocount % only for internal use (points back to big list) \newconditional\c_publ_prefixed @@ -1888,28 +1888,28 @@ % \btxusecommand[btx:apa:list:article:title]{foo} % \btxstopstyle -\let\savedcurrentbtx\empty +\mutable\let\m_btx_saved_current\empty \permanent\protected\def\btxstartstyle[#1]% {\begingroup - \let\savedcurrentbtx\currentbtx + \let\m_btx_saved_current\currentbtx \def\currentbtx{#1}% \usebtxstyleparameter\c!style - \let\currentbtx\savedcurrentbtx} + \let\currentbtx\m_btx_saved_current} \permanent\protected\def\btxstartcolor[#1]% {\begingroup - \let\savedcurrentbtx\currentbtx + \let\m_btx_saved_current\currentbtx \def\currentbtx{#1}% \usebtxcolorparameter\c!color - \let\currentbtx\savedcurrentbtx} + \let\currentbtx\m_btx_saved_current} \permanent\protected\def\btxstartstyleandcolor[#1]% {\begingroup - \let\savedcurrentbtx\currentbtx + \let\m_btx_saved_current\currentbtx \def\currentbtx{#1}% \usebtxstyleandcolor\c!style\c!color - \let\currentbtx\savedcurrentbtx} + \let\currentbtx\m_btx_saved_current} \aliased\let\btxstopstyle \endgroup \aliased\let\btxstopcolor \endgroup diff --git a/tex/context/base/mkxl/publ-old.mkxl b/tex/context/base/mkxl/publ-old.mkxl index cf7e0c46b..e5cc98a74 100644 --- a/tex/context/base/mkxl/publ-old.mkxl +++ b/tex/context/base/mkxl/publ-old.mkxl @@ -15,8 +15,8 @@ % No protection because we have a module that overloads them! -\protected\def\setupbibtex {\usemodule[oldbibtex]\setupbibtex} -\protected\def\setuppublications {\usemodule[oldbibtex]\setuppublications} -\protected\def\setuppublicationlist{\usemodule[oldbibtex]\setuppublicationlist} +\mutable\protected\def\setupbibtex {\usemodule[oldbibtex]\setupbibtex} +\mutable\protected\def\setuppublications {\usemodule[oldbibtex]\setuppublications} +\mutable\protected\def\setuppublicationlist{\usemodule[oldbibtex]\setuppublicationlist} \protect diff --git a/tex/context/base/mkxl/spac-grd.mkxl b/tex/context/base/mkxl/spac-grd.mkxl index fbb02f50c..cc293532b 100644 --- a/tex/context/base/mkxl/spac-grd.mkxl +++ b/tex/context/base/mkxl/spac-grd.mkxl @@ -326,7 +326,7 @@ \fi \fi} -\let\normalstartbaselinecorrection\startbaselinecorrection +\aliased\let\normalstartbaselinecorrection\startbaselinecorrection \pushoverloadmode diff --git a/tex/context/base/mkxl/spac-hor.mkxl b/tex/context/base/mkxl/spac-hor.mkxl index 1e7781026..cf67e8093 100644 --- a/tex/context/base/mkxl/spac-hor.mkxl +++ b/tex/context/base/mkxl/spac-hor.mkxl @@ -418,7 +418,7 @@ % When we don't add the % here, we effectively get \<endlinechar> and % since we have by default \def\^^M{\ } we get into a loop. -\let\normalspaceprimitive=\ % space-comment is really needed +\aliased\let\normalspaceprimitive=\ % space-comment is really needed %D As the \type{\ } is convenient in: %D @@ -431,14 +431,26 @@ %D from now on we treat it as a normal space and not as a space with \type %D {sfcode} 1000. +% \permanent\protected\def\specialspaceprimitive +% {\begingroup +% % so, no fancy extra spacing after: foo i.e.\ bar +% \nonfrenchspacing\normalspaceprimitive +% \endgroup} + \permanent\protected\def\specialspaceprimitive - {\begingroup - % so, no fancy extra spacing after: foo i.e.\ bar - \nonfrenchspacing\normalspaceprimitive - \endgroup} + {% is a current state, set explicitly or when a character is appended + \ifhmode + \spacefactor\plusthousand + \else + \dontleavehmode + \fi + \normalspaceprimitive} + +% \permanent\protected\def\normalnotobeyedspace +% {\mathortext\normalspaceprimitive\specialspaceprimitive} % no \dontleavehmode\space (else no frenchspacing) \permanent\protected\def\normalnotobeyedspace - {\mathortext\normalspaceprimitive\specialspaceprimitive} % no \dontleavehmode\space (else no frenchspacing) + {\ifmmode\normalspaceprimitive\else\specialspaceprimitive\fi} % no \dontleavehmode\space (else no frenchspacing) \pushoverloadmode @@ -1070,7 +1082,7 @@ \s!plus#2\interwordstretch \s!minus#3\interwordshrink} -\def\fixedspaceamount#1% +\permanent\def\fixedspaceamount#1% {#1\interwordspace} % moved from page-lin diff --git a/tex/context/base/mkxl/spac-ver.mkxl b/tex/context/base/mkxl/spac-ver.mkxl index 3d0963df5..5c150f225 100644 --- a/tex/context/base/mkxl/spac-ver.mkxl +++ b/tex/context/base/mkxl/spac-ver.mkxl @@ -1502,12 +1502,12 @@ \permanent\protected\def\installsnapvalues#1#2% {\let\m_spac_snapper\empty \rawprocesscommacommand[#2]\spac_grids_expand_snapper - \edef\currentsnapper{#1:\m_spac_snapper}% - \ifcsname\??gridsnapperattributes\currentsnapper\endcsname + \edef\p_spac_snapper{#1:\m_spac_snapper}% + \ifcsname\??gridsnapperattributes\p_spac_snapper\endcsname \scratchcounter\lastnamedcs % already defined \else \scratchcounter\clf_definesnapmethod{#1}{\m_spac_snapper}% - \edefcsname\??gridsnapperattributes\currentsnapper\endcsname{\the\scratchcounter}% + \edefcsname\??gridsnapperattributes\p_spac_snapper\endcsname{\the\scratchcounter}% \fi \edefcsname\??gridsnappers#1\endcsname{\c_attr_snapmethod\the\scratchcounter\relax}% \letcsname\??gridsnappersets#1\endcsname\m_spac_snapper} diff --git a/tex/context/base/mkxl/strc-flt.mklx b/tex/context/base/mkxl/strc-flt.mklx index f5d2b3c97..6086f09b6 100644 --- a/tex/context/base/mkxl/strc-flt.mklx +++ b/tex/context/base/mkxl/strc-flt.mklx @@ -2548,7 +2548,7 @@ \initializeboxstack\??localfloatstack -\newcount\c_strc_localfloats_n \let\noflocalfloats\c_strc_localfloats_n +\newcount\c_strc_localfloats_n \aliased\let\noflocalfloats\c_strc_localfloats_n \permanent\protected\def\resetlocalfloats {\global\c_strc_localfloats_n\zerocount diff --git a/tex/context/base/mkxl/strc-itm.mklx b/tex/context/base/mkxl/strc-itm.mklx index c6206edd5..16bed0d6c 100644 --- a/tex/context/base/mkxl/strc-itm.mklx +++ b/tex/context/base/mkxl/strc-itm.mklx @@ -796,6 +796,9 @@ \advance\d_strc_itemgroups_list_width\itemgroupparameter\c!distance\relax \let\currentitemgroup\savedcurrentitemgroup} +\let\p_itemgroups_options \empty +\let\p_itemgroups_extra_options\empty + \permanent\tolerant\protected\def\startitemgroup[#category]#spacer[#options]#spacer[#settings]% {\begingroup % (1) \nofarguments\lastarguments @@ -806,8 +809,8 @@ \normalexpanded{\chaintocurrentitemgroup{\currentparentitemgroup:\currentitemlevel}}% \edef\currentitemgroup{\currentparentitemgroup:\currentitemlevel}% % - \edef\itemgroupoptions{\itemgroupparameter\c!option}% - \let\itemgroupextraoptions\empty + \edef\p_itemgroups_options{\itemgroupparameter\c!option}% + \let\p_itemgroups_extra_options\empty \ifcase\nofarguments \strc_itemgroups_start_indeed{}% \or @@ -816,27 +819,27 @@ \ifhastok={#options}% \strc_itemgroups_start_indeed{#options}% \else - \edef\itemgroupextraoptions{#options}% + \edef\p_itemgroups_extra_options{#options}% \strc_itemgroups_start_indeed{}% \fi \or - \edef\itemgroupextraoptions{#options}% + \edef\p_itemgroups_extra_options{#options}% \strc_itemgroups_start_indeed{#settings}% \fi} \def\strc_itemgroups_start_indeed#settings% - {\ifempty\itemgroupoptions - \let\itemgroupoptions\itemgroupextraoptions - \orelse\ifempty\itemgroupextraoptions + {\ifempty\p_itemgroups_options + \let\p_itemgroups_options\p_itemgroups_extra_options + \orelse\ifempty\p_itemgroups_extra_options % ok \else - \edef\itemgroupoptions{\itemgroupoptions,\itemgroupextraoptions}% + \edef\p_itemgroups_options{\p_itemgroups_options,\p_itemgroups_extra_options}% \fi \begingroup % (2) \the\itemgroupcommands \setconditional\c_strc_itemgroups_text_saved\c_strc_itemgroups_text \strc_itemgroups_initialize_local - \strc_itemgroups_preset_stage_one\itemgroupoptions + \strc_itemgroups_preset_stage_one\p_itemgroups_options % % \ifhmode % \ifconditional\c_strc_itemgroups_auto_concat @@ -856,19 +859,19 @@ \fi \c_strc_itemgroups_n_of_items\zerocount \strc_itemgroups_check_n_of_items - \ifempty\itemgroupoptions + \ifempty\p_itemgroups_options \strc_itemgroups_setup_symbol_default \strc_itemgroups_reset_continue_state \setupcurrentitemgroup[#settings]% \else - \strc_itemgroups_process_options\itemgroupoptions + \strc_itemgroups_process_options\p_itemgroups_options \setupcurrentitemgroup[#settings]% \ifconditional\c_strc_itemgroups_continue \strc_itemgroups_setup_symbol_continue \strc_itemgroups_fetch_continue_state \else \strc_itemgroups_setup_symbol_asked - \strc_itemgroups_store_continue_state\itemgroupoptions{#settings}% + \strc_itemgroups_store_continue_state\p_itemgroups_options{#settings}% \fi \fi % @@ -1136,6 +1139,8 @@ % \stopitemize % \stopitemize +\mutable\let\currentitemreference\empty + \tolerant\permanent\protected\def\startitemgroupitem[#reference]% we can reuse more {\def\currentitemreference{#reference}% \ifconditional\c_strc_itemgroups_text diff --git a/tex/context/base/mkxl/strc-lst.mklx b/tex/context/base/mkxl/strc-lst.mklx index d54192e25..c39b3d488 100644 --- a/tex/context/base/mkxl/strc-lst.mklx +++ b/tex/context/base/mkxl/strc-lst.mklx @@ -616,6 +616,9 @@ \listparameter\c!stopper \rightlabeltext\currentlistlabel} +\mutable\let\currentlistnumber\!!zerocount +\mutable\let\currentlistlabel \empty + \protected\def\strc_lists_symbol_default {\dontleavehmode \strut diff --git a/tex/context/base/mkxl/strc-mat.mkxl b/tex/context/base/mkxl/strc-mat.mkxl index f69422edc..3e425b9b1 100644 --- a/tex/context/base/mkxl/strc-mat.mkxl +++ b/tex/context/base/mkxl/strc-mat.mkxl @@ -138,21 +138,21 @@ \appendtoks \normalexpanded{\definelist[\currentformula]}% is expansion needed? - \frozen\instance\setuevalue{\e!start\currentformula\v!formula}{\strc_formulas_start_formula{\currentformula}}% - \frozen\instance\setuevalue{\e!stop \currentformula\v!formula}{\strc_formulas_stop_formula}% + \frozen\instance\protected\edefcsname\e!start\currentformula\v!formula\endcsname{\strc_formulas_start_formula{\currentformula}}% + \frozen\instance\protected\edefcsname\e!stop \currentformula\v!formula\endcsname{\strc_formulas_stop_formula}% \to \everydefineformula \definelist[\v!formula] -\permanent\setuvalue{\e!start\v!formula}{\strc_formulas_start_formula{}} -\permanent\setuvalue{\e!stop \v!formula}{\strc_formulas_stop_formula} +\permanent\defcsname\e!start\v!formula\endcsname{\strc_formulas_start_formula{}} +\permanent\defcsname\e!stop \v!formula\endcsname{\strc_formulas_stop_formula} \let\strc_formulas_start_formula\relax % defined later \let\strc_formulas_stop_formula \relax % defined later \permanent\tolerant\protected\def\defineformulaalternative[#1]#*[#2]#*[#3]% - {\frozen\instance\setvalue{\e!start#1\v!formula}{#2}% - \frozen\instance\setvalue{\e!stop #1\v!formula}{#3}} + {\frozen\instance\defcsname\e!start#1\v!formula\endcsname{#2}% + \frozen\instance\defcsname\e!stop #1\v!formula\endcsname{#3}} % sp = single line paragraph sd = single line display % mp = multi line paragraph md = multy line display @@ -971,18 +971,16 @@ % \protected\def\switchtoformulabodyfont % {\switchtobodyfont} -\setuvalue{\v!formula}{\dosingleempty\strc_formulas_formula} - -\def\strc_formulas_formula[#1]#2% todo: tagged +\tolerant\permanent\protected\def\formula[#1];#2% todo: tagged {\begingroup - \edef\p_direct{#1}% - \ifempty\p_direct \else - \rawprocesscommalist[\p_direct]\strc_formulas_option + \ifparameters#1\else + \rawprocesscommacommand[#1]\strc_formulas_option \fi - % not : \def\strc_formulas_formula[##1]##2{\mathematics{##2}}% \mathematics{#2}% \endgroup} +\aliased\letcsname\v!formula\endcsname\formula + %D \starttyping %D % test \par % no preceding hlist %D % $$x$$ % preceding hlist diff --git a/tex/context/base/mkxl/strc-not.mklx b/tex/context/base/mkxl/strc-not.mklx index 47d2eba89..9de9181d0 100644 --- a/tex/context/base/mkxl/strc-not.mklx +++ b/tex/context/base/mkxl/strc-not.mklx @@ -627,8 +627,8 @@ \letvalue{\??noteinteractiondisplay\v!text }\strc_references_prepare_display_references_yes_text \letvalue{\??noteinteractiondisplay\v!yes }\strc_references_prepare_display_references_yes_number -\let\strc_notes_set_style_color_inline_nop \usenotestyleandcolor -\let\strc_notes_set_style_color_display_nop\usenotationstyleandcolor +\mutable\let\strc_notes_set_style_color_inline_nop \usenotestyleandcolor +\mutable\let\strc_notes_set_style_color_display_nop\usenotationstyleandcolor \protected\def\strc_notes_set_style_color_inline_yes#style#color% {\usenotestyleandcolor#style#color% diff --git a/tex/context/base/mkxl/strc-num.mkxl b/tex/context/base/mkxl/strc-num.mkxl index 1eb4f605d..02674bce2 100644 --- a/tex/context/base/mkxl/strc-num.mkxl +++ b/tex/context/base/mkxl/strc-num.mkxl @@ -83,6 +83,8 @@ \permanent\def\strc_counters_way #1{\clf_way{\namedcounterparameter{#1}\c!way}} \permanent\def\thenamedcounterlevel#1{\xthenamedheadlevel{\clf_way{\namedcounterparameter{#1}\c!way}}} +\mutable\let\currentcounterlevel\!!zerocount % yes or no public ? + \protected\def\strc_counters_check_setup {\edef\p_name{\directcounterparameter\s!name}% \ifx\currentcounter\p_name diff --git a/tex/context/base/mkxl/strc-ref.mklx b/tex/context/base/mkxl/strc-ref.mklx index 680cf2e29..09378e6b6 100644 --- a/tex/context/base/mkxl/strc-ref.mklx +++ b/tex/context/base/mkxl/strc-ref.mklx @@ -731,15 +731,15 @@ %D An unknown reference is reported on the screen, in the log file and, when %D enabled, in the left margin of the text. -\let\unknownreference\gobbleoneargument +\mutable\let\unknownreference\gobbleoneargument %D When a reference is not found, we typeset a placeholder (two glyphs are often %D enough to represent the reference text). % \askedreference defined in lua -\def\dummyreference{{\tttf ??}} -\def\emptyreference{{\tttf !!}} +\mutable\def\dummyreference{{\tttf ??}} +\mutable\def\emptyreference{{\tttf !!}} \installtextracker {structures.referencing.show} @@ -978,9 +978,12 @@ \ifdefined\in \aliased\let\normalmathin \in \permanent\protected\def\in {\mathortext\normalmathin \strc_references_in } \else \aliased\let\in \strc_references_in \fi \ifdefined\over \aliased\let\normalmathover \over \permanent\protected\def\over {\mathortext\normalmathover \strc_references_about} \else \aliased\let\over \strc_references_about \fi % - \ifdefined\at \aliased\let\normalmathat \at \permanent\protected\def\at {\mathortext\normalmathat \strc_references_at } \else \aliased\let\at \strc_references_at \fi - \ifdefined\about \aliased\let\normalmathabout\about \permanent\protected\def\about{\mathortext\normalmathabout\strc_references_about} \else \aliased\let\about\strc_references_about \fi - \ifdefined\from \aliased\let\normalmathfrom \from \permanent\protected\def\from {\mathortext\normalmathfrom \strc_references_from } \else \aliased\let\from \strc_references_from \fi + % \ifdefined\at \aliased\let\normalmathat \at \permanent\protected\def\at {\mathortext\normalmathat \strc_references_at } \else \aliased\let\at \strc_references_at \fi + % \ifdefined\about \aliased\let\normalmathabout\about \permanent\protected\def\about{\mathortext\normalmathabout\strc_references_about} \else \aliased\let\about\strc_references_about \fi + % \ifdefined\from \aliased\let\normalmathfrom \from \permanent\protected\def\from {\mathortext\normalmathfrom \strc_references_from } \else \aliased\let\from \strc_references_from \fi + \aliased\let\at \strc_references_at + \aliased\let\about\strc_references_about + \aliased\let\from \strc_references_from \to \everydump \permanent \def\filterreference #key{\clf_filterreference{#key}} % no checking, expandable @@ -2130,7 +2133,7 @@ \getparameters[\??referencingprefix#kind:#category][#settings]% \fi} -\def\referencestructureprefixparameter#kind#name#category#parameter% +\permanent\def\referencestructureprefixparameter#kind#name#category#parameter% {\ifcsname\??referencingprefix#name:#category#parameter\endcsname \lastnamedcs \orelse\ifcsname\??referencingprefix#kind:#category#parameter\endcsname diff --git a/tex/context/base/mkxl/strc-reg.mkxl b/tex/context/base/mkxl/strc-reg.mkxl index f2466a8c4..dacd3e5e8 100644 --- a/tex/context/base/mkxl/strc-reg.mkxl +++ b/tex/context/base/mkxl/strc-reg.mkxl @@ -159,6 +159,10 @@ \mutable\let\currentregisterseeword \empty \mutable\let\currentregistersynchronize \empty \mutable\let\currentregisterxmlsetup \empty +\mutable\let\currentregisterprocessors \empty +\mutable\let\currentregisterprocessorsa \empty +\mutable\let\currentregisterprocessorsb \empty +\mutable\let\currentregisterprocessorsc \empty \newconditional\c_strc_registers_defining \setnewconstant\c_strc_registers_maxlevel \plusfive @@ -251,17 +255,23 @@ \xdef\currentregisterkeysb{\registerparameter{\c!keys:2}}% \xdef\currentregisterkeysc{\registerparameter{\c!keys:3}}} +\def\strc_registers_register_page_expand_processors + {\xdef\currentregisterprocessorsa{\registerparameter{\c!processors:1}}% + \xdef\currentregisterprocessorsb{\registerparameter{\c!processors:2}}% + \xdef\currentregisterprocessorsc{\registerparameter{\c!processors:3}}} + \def\strc_registers_register_page_entry_indeed#1#2#3% register data userdata {\begingroup \edef\currentregister{#1}% %\setupcurrentregister[\c!entries=,\c!label=,\c!keys=,\c!alternative=,#2]% \setupcurrentregister[#2]% - \edef\currentregisterlabel {\registerparameter\c!label}% - \edef\currentregisterexpansion{\registerparameter\c!expansion}% - \edef\currentregisterownnumber{\registerparameter\c!ownnumber}% - \xdef\currentregisterkeys {\registerparameter\c!keys}% - \xdef\currentregisterentries {\registerparameter\c!entries}% - \xdef\currentregisterxmlsetup {\registerparameter\c!xmlsetup}% + \edef\currentregisterlabel {\registerparameter\c!label}% + \edef\currentregisterexpansion {\registerparameter\c!expansion}% + \edef\currentregisterownnumber {\registerparameter\c!ownnumber}% + \xdef\currentregisterkeys {\registerparameter\c!keys}% + \xdef\currentregisterentries {\registerparameter\c!entries}% + \xdef\currentregisterprocessors{\registerparameter\c!processors}% + \xdef\currentregisterxmlsetup {\registerparameter\c!xmlsetup}% \ifempty\currentregisterentries \ifx\currentregisterexpansion\s!xml \strc_registers_register_page_expand_xml_entries @@ -286,6 +296,7 @@ \strc_registers_register_page_expand_yes_keys \fi \fi + \strc_registers_register_page_expand_processors \setnextinternalreference % we could consider storing register entries in a list which we % could then sort @@ -330,6 +341,15 @@ \else key {\currentregisterkeys}% \fi + \ifempty\currentregisterprocessors + processors { + {\currentregisterprocessorsa}% + {\currentregisterprocessorsb}% + {\currentregisterprocessorsc}% + } + \else + processor {\currentregisterprocessors}% + \fi }% userdata {\detokenize\expandafter{\normalexpanded{#3}}} }% diff --git a/tex/context/base/mkxl/strc-syn.mkxl b/tex/context/base/mkxl/strc-syn.mkxl index 09769bd2f..d6d1fab9b 100644 --- a/tex/context/base/mkxl/strc-syn.mkxl +++ b/tex/context/base/mkxl/strc-syn.mkxl @@ -418,13 +418,15 @@ } \stopsetups +\aliased\let\synonymentry\relax + \permanent\tolerant\protected\def\placelistofsynonyms[#1]#*[#2]% {\begingroup \edef\currentsimplelist{#1}% \doifelsecommandhandler\??simplelist\currentsimplelist {\strc_constructions_initialize{#1}% \setupcurrentsimplelist[#2]% - \let\synonymentry\strc_synonym_normal + \enforced\let\synonymentry\strc_synonym_normal % so we can hook tabulate into before and after \normalexpanded{\simplelistparameter\c!before \noexpand\clf_processsynonyms @@ -611,9 +613,9 @@ \setupcurrentsimplelist[#2]% \edef\p_simplelist_command{\simplelistparameter\c!command}% \ifempty\p_simplelist_command - \let\synonymentry\strc_sorting_normal + \enforced\let\synonymentry\strc_sorting_normal \else - \let\synonymentry\strc_sorting_command + \enforced\let\synonymentry\strc_sorting_command \fi % so we can hook tabulate into before and after \normalexpanded{\simplelistparameter\c!before diff --git a/tex/context/base/mkxl/supp-box.lmt b/tex/context/base/mkxl/supp-box.lmt index b4b0d44cc..9dd85e093 100644 --- a/tex/context/base/mkxl/supp-box.lmt +++ b/tex/context/base/mkxl/supp-box.lmt @@ -485,18 +485,22 @@ end do - local takebox = nuts.takebox - local flush_list = nuts.flush_list - local copy_list = nuts.copy_list - local getwhd = nuts.getwhd - local setbox = nuts.setbox - local new_hlist = nuts.pool.hlist - - local boxes = { } - nodes.boxes = boxes - local cache = table.setmetatableindex("table") - local report = logs.reporter("boxes","cache") - local trace = false + local tonut = nodes.tonut + local takebox = nuts.takebox + local flush_list = nuts.flush_list + local copy_list = nuts.copy_list + local getwhd = nuts.getwhd + local setbox = nuts.setbox + local new_hlist = nuts.pool.hlist + + local values = tokens.values + local dimension_value = values.dimension + + local boxes = { } + nodes.boxes = boxes + local cache = table.setmetatableindex("table") + local report = logs.reporter("boxes","cache") + local trace = false trackers.register("nodes.boxes",function(v) trace = v end) @@ -562,7 +566,7 @@ do setbox(box,b or nil) end - function boxes.dimensions(category,name) + local function dimensions(category,name) name = tonumber(name) or name local b = cache[category][name] if b then @@ -572,6 +576,8 @@ do end end + boxes.dimensions = dimensions + function boxes.reset(category,name) name = tonumber(name) or name local c = cache[category] @@ -599,18 +605,24 @@ do implement { name = "putboxincache", + public = true, + protected = true, arguments = { "string", "string", "integer" }, actions = boxes.save, } implement { name = "getboxfromcache", + public = true, + protected = true, arguments = { "string", "string", "integer" }, actions = boxes.restore, } implement { name = "directboxfromcache", + public = true, + protected = true, arguments = "2 strings", actions = { boxes.direct, context }, -- actions = function(category,name) local b = boxes.direct(category,name) if b then context(b) end end, @@ -618,6 +630,8 @@ do implement { name = "directcopyboxfromcache", + public = true, + protected = true, arguments = { "string", "string", true }, actions = { boxes.direct, context }, -- actions = function(category,name) local b = boxes.direct(category,name,true) if b then context(b) end end, @@ -625,22 +639,81 @@ do implement { name = "copyboxfromcache", + public = true, + protected = true, arguments = { "string", "string", "integer", true }, actions = boxes.restore, } implement { name = "doifelseboxincache", + public = true, + protected = true, arguments = "2 strings", actions = { boxes.found, doifelse }, } implement { name = "resetboxesincache", + public = true, + protected = true, arguments = "string", actions = boxes.reset, } + -- we can share this ... + + implement { + name = "getboxwdfromcache", + public = true, + protected = true, + usage = "value", + arguments = "2 strings", + actions = function(category,name) + local w, h, d = dimensions(category,name) + return dimension_value, w + end, + } + + implement { + name = "getboxhtfromcache", + arguments = "2 strings", + public = true, + protected = true, + usage = "value", + actions = function(category,name) + local w, h, d = dimensions(category,name) + return dimension_value, h + end, + } + + implement { + name = "getboxdpfromcache", + arguments = "2 strings", + public = true, + protected = true, + usage = "value", + actions = function(category,name) + local w, h, d = dimensions(category,name) + return dimension_value, d + end, + } + + implement { + name = "putnextboxincache", + public = true, + protected = true, + arguments = { "string", "string", "box" }, + actions = function(category,name,b) + name = tonumber(name) or name + b = tonut(b) + if trace then + report("category %a, name %a, %s (%s)",category,name,"save",b and "content" or "empty") + end + cache[category][name] = b or false + end + } + end implement { diff --git a/tex/context/base/mkxl/supp-box.mkxl b/tex/context/base/mkxl/supp-box.mkxl index ac39b396a..8bfb6a451 100644 --- a/tex/context/base/mkxl/supp-box.mkxl +++ b/tex/context/base/mkxl/supp-box.mkxl @@ -892,8 +892,8 @@ {\endgraf \egroup} -\let\beginshapebox\beginofshapebox -\let\endshapebox \endofshapebox +\aliased\let\beginshapebox\beginofshapebox +\aliased\let\endshapebox \endofshapebox \permanent\protected\def\flushshapebox {\bgroup @@ -1040,16 +1040,23 @@ %D This can be done in a more modern way but for nostalgic reasons we keep it. +\mutable\let\nextprocessedtoken\empty + +\mutable\let\before \relax % for now mutable +%mutable\let\between\relax % is a math character +\mutable\let\after \relax % for now mutable +\mutable\let\white \relax % for now mutable + \permanent\protected\def\processtokens#1#2#3#4#5% {\begingroup \def\lastcharacter{\lastcharacter}% hm, recursive ? \enforced\permanent\def\space{ }% \enforced\let\\\space - \def\before {#1}% - \def\between{#2}% - \def\after {#3}% - \def\white {#4}% - \let\savedbefore\before + \enforced\def\before {#1}% + \enforced\def\between{#2}% + \enforced\def\after {#3}% + \enforced\def\white {#4}% + \enforced\let\savedbefore\before \syst_boxes_processtokens#5\lastcharacter \endgroup} @@ -1059,7 +1066,7 @@ \def\syst_boxes_redo_processedtoken {\dowithnextbox {\before{\copy\nextbox}% \before can use nextbox several times - \let\before\between + \enforced\let\before\between \syst_boxes_processtokens} \hbox\bgroup} @@ -1071,10 +1078,10 @@ \else \expandafter\if\space\nextprocessedtoken \after\white - \let\before\savedbefore + \enforced\let\before\savedbefore \else \before\nextprocessedtoken - \let\before\between + \enforced\let\before\between \fi \expandafter\syst_boxes_processtokens \fi} @@ -2415,16 +2422,17 @@ %D \resetboxesincache{foo} %D \stoptyping -\permanent\protected\def\putboxincache #1#2#3{\clf_putboxincache {#1}{#2}#3\relax} -\permanent\protected\def\getboxfromcache #1#2#3{\clf_getboxfromcache {#1}{#2}#3\relax} -\permanent\protected\def\doifelseboxincache #1#2{\clf_doifelseboxincache {#1}{#2}} -\permanent\protected\def\copyboxfromcache #1#2#3{\clf_copyboxfromcache {#1}{#2}#3\relax} -\permanent\protected\def\directboxfromcache #1#2{\clf_directboxfromcache {#1}{#2}} -\permanent\protected\def\directcopyboxfromcache#1#2{\clf_directcopyboxfromcache{#1}{#2}} -\permanent\protected\def\resetboxesincache #1{\clf_resetboxesincache {#1}} - -\permanent\protected\def\putnextboxincache#1#2% - {\dowithnextbox{\putboxincache{#1}{#2}\nextbox}} +% \putboxincache % {category} {name} number +% \getboxfromcache % {category} {name} number +% \doifelseboxincache % {category} {name} +% \copyboxfromcache % {category} {name} number +% \directboxfromcache % {category} {name} +% \directcopyboxfromcache % {category} {name} +% \resetboxesincache % {category} +% \putnextboxincache % {category} {name} box +% \getboxwdfromcache % {category} {name} +% \getboxhtfromcache % {category} {name} +% \getboxdpfromcache % {category} {name} %D \macros %D {removedepth, obeydepth} @@ -2662,6 +2670,8 @@ \newdimen\lastnaturalboxht \newdimen\lastnaturalboxdp +%D We can define these public in lua: + \aliased\let\getnaturaldimensions\clf_getnaturaldimensions % sets three dimensions \aliased\let\naturalwd \clf_naturalwd % calculates and returns wd diff --git a/tex/context/base/mkxl/supp-mat.mkxl b/tex/context/base/mkxl/supp-mat.mkxl index 7e0086fc8..99f184f76 100644 --- a/tex/context/base/mkxl/supp-mat.mkxl +++ b/tex/context/base/mkxl/supp-mat.mkxl @@ -113,9 +113,9 @@ \ifhmode \expandafter\inlinemathematics \orelse\ifintable - \doubleexpandafter\inlinemathematics + \expandafter\inlinemathematics \else - \doubleexpandafter\displaymathematics + \expandafter\displaymathematics \fi} %D \macros @@ -129,12 +129,14 @@ \newsignal\dimensionsignal -\def\dimensiontypeface {\tf} -\def\dimensionhalfspace {\,} +\mutable\def\dimensiontypeface {\tf} +\mutable\def\dimensionhalfspace {\,} + +\aliased\let\dodimensionsignal\relax -\protected\def\dimension#1% +\permanent\protected\def\dimension#1% {\pushmacro\dodimensionsignal - \gdef\dodimensionsignal{\kern\dimensionsignal}% + \enforced\gdef\dodimensionsignal{\kern\dimensionsignal}% \ifzeropt\lastskip \ifzeropt\lastkern \ifmmode @@ -153,8 +155,8 @@ \dodimensionsignal \popmacro\dodimensionsignal} -\protected\def\nodimension#1% - {\unskip#1\glet\dodimensionsignal\relax} +\permanent\protected\def\nodimension#1% + {\unskip#1\enforced\glet\dodimensionsignal\relax} % experiment, not yet to be used diff --git a/tex/context/base/mkxl/symb-ini.mkxl b/tex/context/base/mkxl/symb-ini.mkxl index 74d4a2232..c29b07360 100644 --- a/tex/context/base/mkxl/symb-ini.mkxl +++ b/tex/context/base/mkxl/symb-ini.mkxl @@ -316,8 +316,8 @@ \permanent\protected\def\resetsymbolset {\t_symb_setups\emptytoks} -\permanent\protected\def\forcesymbolset[#1]% - {\t_symb_setups{\symb_fetch{#1}}} +\permanent\protected\def\forcesymbolset[#1]% still needed? why not just usesymbolset + {\normalexpanded{\t_symb_setups{\symb_fetch{#1}}}} %D \macros %D {showsymbolset} diff --git a/tex/context/base/mkxl/syst-aux.lmt b/tex/context/base/mkxl/syst-aux.lmt index 4ef7b19d6..726fd4d32 100644 --- a/tex/context/base/mkxl/syst-aux.lmt +++ b/tex/context/base/mkxl/syst-aux.lmt @@ -299,11 +299,29 @@ implement { implement { name = "immediatemessage", + public = true, arguments = { "'message'", "string" }, actions = logs.status } implement { + name = "writestring", + public = true, + protected = true, + arguments = "string", + actions = function (s) + logs.writer(s,"\n") + end, +} + +implement { + name = "writeline", + public = true, + protected = true, + actions = logs.newline, +} + +implement { name = "resettimer", actions = function() statistics.resettiming("whatever") diff --git a/tex/context/base/mkxl/syst-aux.mkxl b/tex/context/base/mkxl/syst-aux.mkxl index 4ee3f530c..c70ff0170 100644 --- a/tex/context/base/mkxl/syst-aux.mkxl +++ b/tex/context/base/mkxl/syst-aux.mkxl @@ -35,6 +35,11 @@ \unprotect +%D These are for local helpers, the names are historic: + +\mutable\let\docommand \relax +\mutable\let\dodocommand\relax + %D \macros %D {unexpanded} %D @@ -95,7 +100,7 @@ %D %D There is already \type{\space} but just to be sure we also provide this one: -\def\normalspace{ } +\permanent\def\normalspace{ } \newif\if!!donea \newif\if!!doneb \newif\if!!donec % soon obsolete in lmtx \newif\if!!doned \newif\if!!donee \newif\if!!donef % soon obsolete in lmtx @@ -1375,43 +1380,45 @@ %D Some more raw material: -\def\syst_helpers_raw_process_action#1=>#2,% - {\ifarguments - %\expandafter\syst_helpers_raw_process_action_gobble - \or - \expandafter\syst_helpers_raw_process_action_gobble - \or - \edef\m_syst_string_two{#1}% - \ifx\m_syst_string_one\m_syst_string_two - \def\m_syst_helpers_process_action{#2}% - \expandafter\expandafter\expandafter\syst_helpers_raw_process_action_gobble - \else - \ifx\s!unknown\m_syst_string_two - \def\m_syst_helpers_process_action_unknown{#2}% - \fi - \expandafter\expandafter\expandafter\syst_helpers_raw_process_action_next - \fi - \fi} - -\def\syst_helpers_raw_process_action_gobble#-\ignorearguments - {} - -\def\syst_helpers_raw_process_action_next - {\expandafterspaces\syst_helpers_raw_process_action} - -\protected\def\xrawprocessaction[#1]#2[#3]% - {\edef\m_syst_string_one{#1}% - \ifempty\m_syst_string_one - \let\m_syst_string_one\s!default - \fi - \let\m_syst_helpers_process_action\relax - \let\m_syst_helpers_process_action_unknown\relax - \syst_helpers_raw_process_action#3\ignorearguments\ignorearguments\ignorearguments - \ifrelax\m_syst_helpers_process_action - \m_syst_helpers_process_action_unknown - \else - \m_syst_helpers_process_action - \fi} +% probably never used +% +% \def\syst_helpers_raw_process_action#1=>#2,% +% {\ifarguments +% %\expandafter\syst_helpers_raw_process_action_gobble +% \or +% \expandafter\syst_helpers_raw_process_action_gobble +% \or +% \edef\m_syst_string_two{#1}% +% \ifx\m_syst_string_one\m_syst_string_two +% \def\m_syst_helpers_process_action{#2}% +% \expandafter\expandafter\expandafter\syst_helpers_raw_process_action_gobble +% \else +% \ifx\s!unknown\m_syst_string_two +% \def\m_syst_helpers_process_action_unknown{#2}% +% \fi +% \expandafter\expandafter\expandafter\syst_helpers_raw_process_action_next +% \fi +% \fi} +% +% \def\syst_helpers_raw_process_action_gobble#-\ignorearguments +% {} +% +% \def\syst_helpers_raw_process_action_next +% {\expandafterspaces\syst_helpers_raw_process_action} +% +% \permanent\protected\def\xrawprocessaction[#1]#*[#2]% +% {\edef\m_syst_string_one{#1}% +% \ifempty\m_syst_string_one +% \let\m_syst_string_one\s!default +% \fi +% \let\m_syst_helpers_process_action\relax +% \let\m_syst_helpers_process_action_unknown\relax +% \syst_helpers_raw_process_action#2\ignorearguments\ignorearguments\ignorearguments +% \ifrelax\m_syst_helpers_process_action +% \m_syst_helpers_process_action_unknown +% \else +% \m_syst_helpers_process_action +% \fi} %D When we process the list \type {a,b,c,d,e}, the raw routine takes over 30\% less %D time, when we feed $20+$ character strings we gain about 20\%. Alternatives which @@ -1546,7 +1553,7 @@ %D funny to see that this alternative saw the light so lately --- can be used to do %D expanded assigments. -\let\currentvalue\empty +% \mutable\let\currentvalue\empty % only mkii \permanent\protected\def\getparameters {\dogetparameters\dosetvalue} \permanent\protected\def\geteparameters {\dogetparameters\dosetevalue} @@ -2785,53 +2792,52 @@ \read16 to \wait \endgroup} -%D \macros -%D {writestring,writeline, -%D writestatus,statuswidth,normalwritestatus} -%D -%D Maybe one didn't notice, but we've already introduced a macro for showing -%D messages. In the multi||lingual modules, we will also introduce a mechanism for -%D message passing. For the moment we stick to the core macros: -%D -%D \starttyping -%D \writestring {string} -%D \writeline -%D \writestatus {category} {message} -%D \stoptyping -%D -%D Messages are formatted. One can provide the maximum with of the identification -%D string with the macro \type {\statuswidth}. - -\setnewconstant\statuswidth 15 -%setnewconstant\statuswrite 128 % \pluscxxviii - -\ifdefined\writestring \else - - \protected\def\writestring{\immediate\write\statuswrite} - \protected\def\writeline {\writestring{}} - -\fi - -\protected\def\normalwritestatus#1#2% - {\writestring{\expandafter\syst_helpers_split_status_yes\expandafter\statuswidth#1% - \space\space\space\space\space\space\space - \space\space\space\space\space\space\space - \space\space\space\space\space\space\end - \space:\space#2}} - -\def\syst_helpers_split_status_yes#1#2% - {\ifcase#1 \expandafter\syst_helpers_split_status_nop\fi#2% - \expandafter\syst_helpers_split_status_yes\expandafter{\the\numexpr#1+\minusone\relax}} - -\def\syst_helpers_split_status_nop#1\end - {} +% %D \macros +% %D {writestring,writeline,writestatus} +% %D +% %D Maybe one didn't notice, but we've already introduced a macro for showing +% %D messages. In the multi||lingual modules, we will also introduce a mechanism for +% %D message passing. For the moment we stick to the core macros: +% %D +% %D \starttyping +% %D \writestring {string} +% %D \writeline +% %D \writestatus {category} {message} +% %D \stoptyping +% %D +% %D Messages are formatted. One can provide the maximum with of the identification +% %D string with the macro \type {\statuswidth}. +% +% \setnewconstant\statuswidth 15 +% \setnewconstant\statuswrite 128 % \pluscxxviii +% +% \ifdefined\writestring \else +% +% \protected\def\writestring{\immediate\write\statuswrite} +% \protected\def\writeline {\writestring{}} +% +% \fi +% +% \protected\def\normalwritestatus#1#2% +% {\writestring{\expandafter\syst_helpers_split_status_yes\expandafter\statuswidth#1% +% \space\space\space\space\space\space\space +% \space\space\space\space\space\space\space +% \space\space\space\space\space\space\end +% \space:\space#2}} +% +% \def\syst_helpers_split_status_yes#1#2% +% {\ifcase#1 \expandafter\syst_helpers_split_status_nop\fi#2% +% \expandafter\syst_helpers_split_status_yes\expandafter{\the\numexpr#1+\minusone\relax}} +% +% \def\syst_helpers_split_status_nop#1\end +% {} %D \macros %D {immediatemessage} %D %D A fully expandable message: -\aliased\let\immediatemessage\clf_immediatemessage % {} mandate / todo permanent at lua end +% \immediatemessage % {} mandate / defined at the lua end %D \macros %D {rawgetparameters} @@ -3078,7 +3084,7 @@ \permanent\protected\def\savenormalmeaning#1% {\ifcsname normal\csstring#1\endcsname \else - \letcsname normal\csstring#1\endcsname#1% + \aliased\letcsname normal\csstring#1\endcsname#1% \fi} %D \macros @@ -5665,7 +5671,9 @@ %D assignment, this time by using \type {\futurelet}, and grabbing an argument as %D well. That way we can handle the sentinal, a blank space and grouped tokens. -\protected\def\syst_helpers_handle_tokens % \nexthandledtoken is part of interface +\mutable\let\nexthandledtoken\empty % part of public interface + +\protected\def\syst_helpers_handle_tokens {\futurelet\nexthandledtoken\syst_helpers_handle_tokens_indeed} \permanent\protected\def\handletokens#1\with#2% @@ -6177,12 +6185,12 @@ \aliased\let\doifnonzeropositiveelse\doifelsenonzeropositive -% here ? +%D Some old|-|time favourites: -\protected\def\dosetrawvalue #1#2#3{\defcsname #1#2\endcsname{#3}} -\protected\def\dosetrawevalue#1#2#3{\edefcsname #1#2\endcsname{#3}} -\protected\def\dosetrawgvalue#1#2#3{\global\defcsname #1#2\endcsname{#3}} -\protected\def\dosetrawxvalue#1#2#3{\global\edefcsname#1#2\endcsname{#3}} +\permanent\protected\def\dosetrawvalue #1#2#3{\defcsname #1#2\endcsname{#3}} +\permanent\protected\def\dosetrawevalue#1#2#3{\edefcsname #1#2\endcsname{#3}} +\permanent\protected\def\dosetrawgvalue#1#2#3{\global\defcsname #1#2\endcsname{#3}} +\permanent\protected\def\dosetrawxvalue#1#2#3{\global\edefcsname#1#2\endcsname{#3}} \permanent\protected\def\getrawparameters {\dogetparameters\dosetrawvalue } \permanent\protected\def\getraweparameters {\dogetparameters\dosetrawevalue} @@ -6216,7 +6224,7 @@ \aliased\let\elapsedtime \clf_elapsedtime % todo: at lua end \aliased\let\elapsedseconds\elapsedtime -\let\elapsedsteps\!!zerocount +\aliased\let\elapsedsteps\!!zerocount \permanent\protected\def\elapsedsteptime % unexpanded ! a bit useless but who knows ... {\clf_elapsedsteptime\elapsedsteps\relax} @@ -6224,11 +6232,11 @@ \newcount\c_syst_helpers_test_feature_n \newcount\c_syst_helpers_test_feature_m -\def\currentfeaturetest{\number\c_syst_helpers_test_feature_n} +\permanent\def\currentfeaturetest{\number\c_syst_helpers_test_feature_n} \permanent\protected\def\testfeature#1#2% {\c_syst_helpers_test_feature_m#1\relax - \xdef\elapsedsteps{\number\c_syst_helpers_test_feature_m}% + \enforced\xdef\elapsedsteps{\number\c_syst_helpers_test_feature_m}% \def\syst_helpers_test_feature_yes {\advance\c_syst_helpers_test_feature_n\plusone \ifnum\c_syst_helpers_test_feature_n>\c_syst_helpers_test_feature_m\else diff --git a/tex/context/base/mkxl/syst-ini.mkxl b/tex/context/base/mkxl/syst-ini.mkxl index 018658544..b630cfeda 100644 --- a/tex/context/base/mkxl/syst-ini.mkxl +++ b/tex/context/base/mkxl/syst-ini.mkxl @@ -304,7 +304,7 @@ % %D The next definitions are really needed (in \CONTEXT): -\newlinechar\newlineasciicode \edef\outputnewlinechar{\Uchar\newlineasciicode} % {^^J} +\newlinechar\newlineasciicode \permanent\edef\outputnewlinechar{\Uchar\newlineasciicode} % {^^J} %D One reason to start high with allocation is that it permits us to allocate %D consecutive ranges more easily, for instance if for \MPLIB\ we want to allocate a @@ -733,11 +733,11 @@ \pushoverloadmode -\protected\def\dump +\permanent\protected\def\dump {\the\everydump \global\everydump\emptytoks \pushoverloadmode - \glet\dump\relax + \enforced\glet\dump\relax \popoverloadmode %let\pushoverloadmode\relax %let\popoverloadmode\relax diff --git a/tex/context/base/mkxl/syst-mes.mkxl b/tex/context/base/mkxl/syst-mes.mkxl deleted file mode 100644 index 166be16e3..000000000 --- a/tex/context/base/mkxl/syst-mes.mkxl +++ /dev/null @@ -1,20 +0,0 @@ -%D \module -%D [ file=syst-mes, -%D version=2010.06.03, -%D title=\CONTEXT\ System Macros, -%D subtitle=Messages, -%D author=Hans Hagen, -%D date=\currentdate, -%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}] -%C -%C This module is part of the \CONTEXT\ macro||package and is -%C therefore copyrighted by \PRAGMA. See mreadme.pdf for -%C details. - -% These will be overloaded later on: - -\protected\def\writestring{\immediate\write\statuswrite} -\protected\def\writeline {\writestring{}} -% \let\message \normalmessage - -\endinput diff --git a/tex/context/base/mkxl/tabl-ltb.mkxl b/tex/context/base/mkxl/tabl-ltb.mkxl index ab9675927..ec4a37360 100644 --- a/tex/context/base/mkxl/tabl-ltb.mkxl +++ b/tex/context/base/mkxl/tabl-ltb.mkxl @@ -61,6 +61,12 @@ \installcorenamespace{linetableheight} \installcorenamespace{linetabledepth} +% (For now) we share these three: + +\aliased\let\tabl_lines_initialize_box \tabl_tabulate_initialize_box +\aliased\let\tabl_lines_initialize_boxes\tabl_tabulate_initialize_boxes +\aliased\let\b_tabl_lines_current \b_tabl_tabulate_current + \newconditional \c_tabl_lines_preroll \newconditional \c_tabl_lines_in_table @@ -93,7 +99,7 @@ \newconditional \linetableautoheight \settrue\linetableautoheight -\initializetablebox\zerocount % holds repeater +\tabl_lines_initialize_box\zerocount % holds repeater \pushoverloadmode @@ -313,12 +319,12 @@ {\backgroundline[\linetablecparameter\c!backgroundcolor]{\box\scratchbox}} \def\tabl_lines_save_part - {\global\setbox\tablebox\c_tabl_lines_part + {\global\setbox\b_tabl_lines_current\c_tabl_lines_part \ifcase\c_tabl_lines_part\relax \box\scratchbox % just storing \else \vbox - {\ifvoid\tablebox\c_tabl_lines_part\else\unvbox\tablebox\c_tabl_lines_part\fi + {\ifvoid\b_tabl_lines_current\c_tabl_lines_part\else\unvbox\b_tabl_lines_current\c_tabl_lines_part\fi \edef\p_background{\linetablerparameter\c!background}% \ifx\p_background\v!color \backgroundline[\linetablerparameter\c!backgroundcolor]{\box\scratchbox}% @@ -344,7 +350,7 @@ \else \dorecurse\c_tabl_lines_n_of_parts {\c_tabl_lines_part\recurselevel - \dp\tablebox\c_tabl_lines_part\strutdepth + \dp\b_tabl_lines_current\c_tabl_lines_part\strutdepth % noindent en endgraf needed else whitespace mess-up! \whitespace % here not after verticalstrut \ifdim\topskipgap=\zeropoint\else @@ -356,7 +362,7 @@ \nointerlineskip % fix topskip \fi \noindent\strut - \hpack to \hsize{\box\tablebox\c_tabl_lines_part\hss}% + \hpack to \hsize{\box\b_tabl_lines_current\c_tabl_lines_part\hss}% \endgraf \ifnum\c_tabl_lines_part<\c_tabl_lines_n_of_parts\relax \linetableparameter\c!inbetween @@ -367,7 +373,7 @@ % after, later \fi \c_tabl_lines_head_state\plusthree - \global\setbox\tablebox\zerocount\emptybox % here + \global\setbox\b_tabl_lines_current\zerocount\emptybox % here \fi % reset \c_tabl_lines_row will be an option, currently % starts at zero after split @@ -440,7 +446,7 @@ \global\c_tabl_lines_page \plusone \fi \global\advance\c_tabl_lines_part\plusone - \global\d_tabl_lines_width\wd\tablebox\zerocount + \global\d_tabl_lines_width\wd\b_tabl_lines_current\zerocount \tabl_lines_start_part \fi \else @@ -474,7 +480,7 @@ \global\advance\c_tabl_lines_part\plusone \ifnum\c_tabl_lines_part>\c_tabl_lines_n_of_parts \global\c_tabl_lines_n_of_parts\c_tabl_lines_part - \initializetablebox\c_tabl_lines_part + \tabl_lines_initialize_box\c_tabl_lines_part \fi \global\d_tabl_lines_width\wd\b_tabl_lines_cell \tabl_lines_start_part @@ -482,8 +488,8 @@ % check for left/right page \ifcase\c_tabl_lines_page\donetrue\or\donetrue\or\donefalse\fi\ifdone % insert repeater - \global\advance\d_tabl_lines_width\wd\tablebox\zerocount - \ifconditional\c_tabl_lines_preroll\kern\wd\else\unhcopy\fi\tablebox\zerocount + \global\advance\d_tabl_lines_width\wd\b_tabl_lines_current\zerocount + \ifconditional\c_tabl_lines_preroll\kern\wd\else\unhcopy\fi\b_tabl_lines_current\zerocount \fi \fi \fi @@ -527,7 +533,7 @@ \advance\scratchcounter##1% \xdefcsname\??linetablepart\number\c_tabl_lines_n_of_parts\endcsname{\the\scratchcounter}}% \processcommacommand[\linetableparameter\c!n]\docommand - \initializetableboxes\c_tabl_lines_n_of_parts + \tabl_lines_initialize_boxes\c_tabl_lines_n_of_parts \global\c_tabl_lines_part\ifcase\c_tabl_lines_repeat\plusone\else\zerocount\fi % repeater \global\c_tabl_lines_step\plusone \global\c_tabl_lines_line\zerocount diff --git a/tex/context/base/mkxl/tabl-tab.mkxl b/tex/context/base/mkxl/tabl-tab.mkxl index 7f16360a0..8aeb1644b 100644 --- a/tex/context/base/mkxl/tabl-tab.mkxl +++ b/tex/context/base/mkxl/tabl-tab.mkxl @@ -565,6 +565,8 @@ % Key "\doendtableformat": Equivalent to "." +\aliased\let\doendtableformat\relax + \newtableformatkey \doendtableformat {\!tkTestForBeginFormat\doendtableformat{\!tfFinishFormat}} @@ -2158,15 +2160,6 @@ {\tablerowfactor\plustwo }% \to \localtabledefinitions -\def\dohandlebar % here ? - {\ifmmode - \expandafter\domathmodebar - \orelse\ifintable - \expandafter\domathmodebar - \else - \expandafter\dotextmodebar - \fi} - \appendtoks \expandnamespaceparameter\??tablealign\directtablesparameter\c!align\s!unknown \assignalfadimension{\directtablesparameter\c!VL}\m_tabl_table_VLwidth 246% diff --git a/tex/context/base/mkxl/tabl-tbl.mkxl b/tex/context/base/mkxl/tabl-tbl.mkxl index cabe3babf..1195c3473 100644 --- a/tex/context/base/mkxl/tabl-tbl.mkxl +++ b/tex/context/base/mkxl/tabl-tbl.mkxl @@ -291,10 +291,6 @@ \tabl_tabulate_initialize_boxes{16} % not really needed -\let\initializetablebox \tabl_tabulate_initialize_box % used elsewhere, will change -\let\initializetableboxes\tabl_tabulate_initialize_boxes % used elsewhere, will change -\let\tablebox \b_tabl_tabulate_current - % 0 = NC column next EQ equal column % 1 = RC column raw RQ equal column raw % 2 = HC column hook HQ equal column hook diff --git a/tex/context/base/mkxl/trac-vis.lmt b/tex/context/base/mkxl/trac-vis.lmt index 6e9bd8e8c..44723e38f 100644 --- a/tex/context/base/mkxl/trac-vis.lmt +++ b/tex/context/base/mkxl/trac-vis.lmt @@ -187,6 +187,7 @@ end local userrule -- bah, not yet defined: todo, delayed(nuts.rules,"userrule") local outlinerule -- bah, not yet defined: todo, delayed(nuts.rules,"userrule") +local emptyrule -- bah, not yet defined: todo, delayed(nuts.rules,"userrule") local function initialize() -- @@ -237,6 +238,10 @@ local function initialize() if not outlinerule then outlinerule = nuts.pool.outlinerule end + -- + if not emptyrule then + emptyrule = nuts.pool.emptyrule + end initialize = false end @@ -783,7 +788,7 @@ local ruledbox do ruledbox = function(head,current,vertical,layer,what,simple,previous,trace_origin,parent) local wd, ht, dp = getwhd(current) - if wd ~= 0 then + local force_origin = wd == 0 or (dp + ht) == 0 local shift = getshift(current) local next = getnext(current) local prev = previous @@ -804,7 +809,9 @@ local ruledbox do -- we need to trigger the right mode (else sometimes no whatits) local info = setlink( this and copy_list(this) or nil, - (dp == 0 and outlinerule and outlinerule(wd,ht,dp,linewidth)) or userrule { + (force_origin and emptyrule(wd,ht,dp)) -- we accept some overhead + or (dp == 0 and outlinerule and outlinerule(wd,ht,dp,linewidth)) + or userrule { width = wd, height = ht, depth = dp, @@ -819,9 +826,9 @@ local ruledbox do -- setattr(info,a_layer,layer) if vertical then - if shift == 0 then + if not force_origin and shift == 0 then info = setlink(current,dp ~= 0 and new_kern(-dp) or nil,info) - elseif trace_origin then + elseif trace_origin or force_origin then local size = 2*size local origin = o_cache[size] origin = copy_list(origin) @@ -839,9 +846,9 @@ local ruledbox do end info = new_vlist(info,wd,ht,dp,shift) else - if shift == 0 then + if not force_origin and shift == 0 then info = setlink(current,new_kern(-wd),info) - elseif trace_origin then + elseif trace_origin or force_origin then local size = 2*size local origin = o_cache[size] origin = copy_list(origin) @@ -869,9 +876,9 @@ local ruledbox do else return head, info end - else - return head, current - end + -- else + -- return head, current + -- end end end diff --git a/tex/context/base/mkxl/typo-del.mkxl b/tex/context/base/mkxl/typo-del.mkxl index 2a7dc27da..7df5ac0de 100644 --- a/tex/context/base/mkxl/typo-del.mkxl +++ b/tex/context/base/mkxl/typo-del.mkxl @@ -29,12 +29,12 @@ \expandnamespaceparameter\??hyphenmarksign\dummyparameter\c!sign\v!normal} \setvalue{\??hyphenmarksign\v!normal}% - {\let\textmodehyphen\normalhyphen - \let\textmodehyphendiscretionary\normalhyphendiscretionary} + {\enforced\let\textmodehyphen\normalhyphen + \enforced\let\textmodehyphendiscretionary\normalhyphendiscretionary} \setvalue{\??hyphenmarksign\v!wide}% - {\let\textmodehyphen\composedhyphen - \let\textmodehyphendiscretionary\composedhyphendiscretionary} + {\enforced\let\textmodehyphen\composedhyphen + \enforced\let\textmodehyphendiscretionary\composedhyphendiscretionary} \setuphyphenmark[\c!sign=\v!wide] @@ -60,8 +60,8 @@ {\hbox{\directsymbol\empty\c!leftcompoundhyphen}} {\hbox{\directsymbol\empty\c!compoundhyphen}}} -\let\textmodehyphen \composedhyphen -\let\textmodehyphendiscretionary\composedhyphendiscretionary +\aliased\let\textmodehyphen \composedhyphen +\aliased\let\textmodehyphendiscretionary\composedhyphendiscretionary \definesymbol[\c!leftcompoundhyphen] [\languageparameter\c!leftcompoundhyphen] \definesymbol[\c!rightcompoundhyphen] [\languageparameter\c!rightcompoundhyphen] @@ -314,7 +314,7 @@ %D \NC [fr:en] \NC {\tttf fr} \quotation[fr:en]{{\tttf <en=\currentlanguage>} something french} \NC \NR %D \stoptabulate -\let\currentdelimitedlanguage\empty +\mutable\let\currentdelimitedlanguage\empty \installglobalmacrostack\currentdelimitedlanguage diff --git a/tex/context/base/mkxl/typo-itc.mklx b/tex/context/base/mkxl/typo-itc.mklx index 141ee9968..67753efd5 100644 --- a/tex/context/base/mkxl/typo-itc.mklx +++ b/tex/context/base/mkxl/typo-itc.mklx @@ -30,15 +30,11 @@ % \let\/=/ % \let\emphasiscorrection\donothing -\ifdefined \normalitaliccorrection \else - \aliased\let\normalitaliccorrection\italiccorrection -\fi - \permanent\protected\def\italiccorrection {\ifnum\c_attr_italics<\plusone\normalitaliccorrection\fi} \pushoverloadmode - \aliased\let\/\italiccorrection + \aliased\let\/\italiccorrection % replaces the primitive \popoverloadmode % 1 = end of word diff --git a/tex/context/interface/mkii/keys-de.xml b/tex/context/interface/mkii/keys-de.xml index fb3969277..2f7d32e9f 100644 --- a/tex/context/interface/mkii/keys-de.xml +++ b/tex/context/interface/mkii/keys-de.xml @@ -780,6 +780,8 @@ <cd:constant name='deepnumbercommand' value='deepnumbercommand'/> <cd:constant name='deeptextcommand' value='deeptextcommand'/> <cd:constant name='default' value='default'/> + <cd:constant name='defaultheight' value='defaultheight'/> + <cd:constant name='defaultwidth' value='defaultwidth'/> <cd:constant name='define' value='define'/> <cd:constant name='delay' value='wartezeit'/> <cd:constant name='depth' value='tiefe'/> @@ -1124,6 +1126,7 @@ <cd:constant name='print' value='print'/> <cd:constant name='printable' value='druckbar'/> <cd:constant name='process' value='process'/> + <cd:constant name='processors' value='processors'/> <cd:constant name='profile' value='profile'/> <cd:constant name='properties' value='properties'/> <cd:constant name='pubsep' value='pubsep'/> @@ -1137,6 +1140,7 @@ <cd:constant name='reference' value='referenz'/> <cd:constant name='referencemethod' value='referencemethod'/> <cd:constant name='referenceprefix' value='referenceprefix'/> + <cd:constant name='referencetext' value='referencetext'/> <cd:constant name='referencing' value='referieren'/> <cd:constant name='region' value='region'/> <cd:constant name='regionin' value='regionin'/> diff --git a/tex/context/modules/mkiv/s-references-show.mkiv b/tex/context/modules/mkiv/s-references-show.mkiv index 72cccce54..a693fbc44 100644 --- a/tex/context/modules/mkiv/s-references-show.mkiv +++ b/tex/context/modules/mkiv/s-references-show.mkiv @@ -21,7 +21,7 @@ \enablehiddenbackground % trick -\edef\hiddenbackgroundlist{\hiddenbackgroundlist,trace-references} +\appendhiddenbackground{trace-references} \defineoverlay [trace-references] diff --git a/tex/context/modules/mkxl/s-fonts-show.mkxl b/tex/context/modules/mkxl/s-fonts-show.mkxl index 4b6fbf998..42b5af125 100644 --- a/tex/context/modules/mkxl/s-fonts-show.mkxl +++ b/tex/context/modules/mkxl/s-fonts-show.mkxl @@ -92,11 +92,8 @@ {\bgroup \iftok{#1}\emptytoks\else \definedfont[#1]% - \ifdim2.5\emwidth>.05\hsize - \tx - \ifdim2.5\emwidth>.05\hsize - \txx - \fi + \ifdim40\emwidth>\hsize + \glyphscale750\relax \fi \fi \integerdef\c_module_fonts_font_id\fontid\font @@ -126,7 +123,7 @@ \scratchdimenone 2.5\emwidth \scratchdimentwo 2.4\emwidth \scratchdimenthree2.3\emwidth - \edef\charplane{\number#2}% + \scratchcounterfour#2\relax \forgetall \startoverlay % easier in cld {\vbox @@ -177,8 +174,8 @@ \hpack {\dostepwiserecurse\zerocount{15}\plusone {\scratchcountertwo \recurselevel - \scratchcounter \numexpr\scratchcounterone*16+\scratchcountertwo\relax - \scratchcounterthree\numexpr\charplane*256+\scratchcounter\relax + \scratchcounterthree\numexpr\scratchcounterone*16+\scratchcountertwo\relax + \scratchcounterthree\numexpr\scratchcounterfour*256+\scratchcounterthree\relax \iffontchar\font\scratchcounterthree \setbox\scratchbox\ruledhpack{\char\scratchcounterthree}% \bgroup @@ -197,7 +194,7 @@ \nointerlineskip \vskip2\points % the \noexpand before \blank is needed for non etex - \edef\theshowfontspecs{name: {\noexpand\black\fontname\font}\quad plane: \charplane\enspace"\hexnumber\charplane}% + \edef\theshowfontspecs{name: {\noexpand\black\fontname\font}\quad plane: \the\scratchcounterfour\enspace"\hexnumber\scratchcounterfour}% \tf % also sets em \hbox to 40\emwidth{\blue\hfill\tinyfont\setstrut\strut\theshowfontspecs} \egroup diff --git a/tex/context/modules/mkxl/s-symbols-show.mkxl b/tex/context/modules/mkxl/s-symbols-show.mkxl index a2cda24d1..37d42fe00 100644 --- a/tex/context/modules/mkxl/s-symbols-show.mkxl +++ b/tex/context/modules/mkxl/s-symbols-show.mkxl @@ -11,6 +11,8 @@ %C therefore copyrighted by \PRAGMA. See mreadme.pdf for %C details. +% todo: implementor + \startluacode function commands.showsymbolset(collection,symbols,fontid) if type(symbols) == "string" then @@ -43,24 +45,26 @@ end local detail = defined and byname context.start() - context.forcesymbolset { collection } + context.setupsymbolset { collection } context.starttabulate { detail and "|lT|l|l|lT|" or "|lT|l|l|"} for symbol, how in table.sortedhash(list) do - context.NC() if detail and how then - context.bold(symbol) + context.BC() else - context(symbol) + context.NC() end + context(symbol) context.NC() context.symbol(symbol) context.NC() context.framed(options,context.nested.symbol(symbol)) - context.NC() if detail and how then - context.bold("defined") + context.BC() + context("defined") + else context.NC() end + context.NC() context.NR() end context.stoptabulate() |