From 56c53b52bfa815946a62fdb28ee432b5d849b9c9 Mon Sep 17 00:00:00 2001
From: Hans Hagen
Some code may move to a module in the language namespace.
--ldx]]-- -local floor, osdate, ostime, concat = math.floor, os.date, os.time, table.concat +local floor = math.floor +local osdate, ostime = os.date, os.time +local concat, insert, reverse = table.concat, table.insert, table.reverse local lower, upper, rep, match, gsub = string.lower, string.upper, string.rep, string.match, string.gsub local utfchar, utfbyte = utf.char, utf.byte local tonumber, tostring, type, rawset = tonumber, tostring, type, rawset @@ -445,6 +447,94 @@ implement { arguments = { "integer", true } } +-- -- - hebrew and jiddish -- -- -- + +local trace_hebrew trackers.register("converters.hebrew", function(v) + trace_hebrew = v +end) + +local list = { + { 400, "ת" }, { 300, "ש" }, { 200, "ר" }, { 100, "ק" }, + { 90, "צ" }, { 80, "פ" }, { 70, "ע" }, { 60, "ס "}, { 50, "נ" }, { 40, "מ" }, { 30, "ל" }, { 20, "כ" }, { 10, "י" }, + { 9, "ט" }, { 8, "ח" }, { 7, "ז", }, { 6, "ו", }, { 5, "ה" }, { 4, "ד" }, { 3, "ג" }, { 2, "ב" }, { 1, "א" }, +} + +local special = { + [15] = "ט״ו", -- exception: avoid mixup with God יה + [16] = "ט״ז", -- exception: avoid mixup with God יו +} + +local function tohebrew(n,gershayim,geresh) + local split = { } + local size = 0 + while n > 1000 do + size = size + 1 + split[size] = n % 1000 + n = floor(n/1000) + end + size = size + 1 + split[size] = n + for i=1,size do + local t = { } + local n = 0 + local s = split[i] + while s > 0 do + for i=1,#list do + ::again:: + local li = list[i] + local l1 = li[1] + local s1 = special[l1] + if s1 then + s = s - l1 + n = n + 1 + t[n] = s1 + goto again + elseif s >= l1 then + s = s - l1 + n = n + 1 + t[n] = li[2] + goto again + end + end + end + ::done:: + split[i] = t + end + if gershayim then + for i=1,size do + local si = split[i] + local ni = #si + if ni >= 2 then + local s = "״" + insert(split[i],ni,trace_hebrew and ("{\\red "..s.."}") or s) + end + end + end + if geresh then + for i=2,#split do + local s = rep("׳",i-1) + insert(split[i],trace_hebrew and ("{\\blue "..s.."}") or s) + end + end + for i=1,size do + split[i] = concat(split[i]) + end + return concat(reverse(split)) +end + +converters.tohebrew = tohebrew +converters.hebrewnumerals = converters.tohebrew + +-- converters['alphabetic:hb'] = converters.hebrewnumerals + +interfaces.implement { + name = "hebrewnumerals", + actions = { tohebrew, context }, + arguments = { "integer", true, true } +} + +-- -- -- + local vector = { normal = { [0] = "〇", diff --git a/tex/context/base/mkiv/core-con.mkiv b/tex/context/base/mkiv/core-con.mkiv index 7402d3932..acf5cd5a3 100644 --- a/tex/context/base/mkiv/core-con.mkiv +++ b/tex/context/base/mkiv/core-con.mkiv @@ -76,6 +76,9 @@ \def\abjadnodotnumerals#1{\clf_abjadnodotnumerals\numexpr#1\relax} \def\abjadnaivenumerals#1{\clf_alphabetic \numexpr#1\relax{arabic}} % okay? +\def\hebrewnumerals #1{\clf_hebrewnumerals\numexpr#1\relax} +\let\yiddishnumerals \hebrewnumerals + \def\languagecharacters#1{\clf_alphabetic\numexpr#1\relax{\currentlanguage}} % new \def\languageCharacters#1{\clf_Alphabetic\numexpr#1\relax{\currentlanguage}} % new @@ -709,6 +712,12 @@ \defineconversion [abjadnodotnumerals] [\abjadnodotnumerals] \defineconversion [abjadnaivenumerals] [\abjadnaivenumerals] +\defineconversion [hebrewnumerals] [\hebrewnumerals] +\defineconversion [yiddishnumerals] [\yiddishnumerals] + +% users can do: \defineconversion [he] [\hebrewnumerals] +% users can do: \defineconversion [yi] [\hebrewnumerals] + \defineconversion [thainumerals] [\thainumerals] \defineconversion [devanagarinumerals] [\devanagarinumerals] \defineconversion [gurmurkhinumerals] [\gurmurkhinumerals] diff --git a/tex/context/base/mkiv/font-gds.mkvi b/tex/context/base/mkiv/font-gds.mkvi index 05cf08790..0dc0f7508 100644 --- a/tex/context/base/mkiv/font-gds.mkvi +++ b/tex/context/base/mkiv/font-gds.mkvi @@ -50,11 +50,11 @@ \unexpanded\def\setfontcolorscheme % will move to the lua end {\clf_enablefontcolorschemes - \unexpanded\xdef\setfontcolorscheme[##1]{\attribute\colorschemeattribute##1\relax}% + \unexpanded\xdef\setfontcolorscheme[##1]{\c_attr_colorscheme##1\relax}% \setfontcolorscheme} \unexpanded\def\resetfontcolorscheme - {\attribute\colorschemeattribute\attributeunsetvalue} + {\c_attr_colorscheme\attributeunsetvalue} \protect \endinput diff --git a/tex/context/base/mkiv/font-ini.mklx b/tex/context/base/mkiv/font-ini.mklx index db031ba42..f386d45d1 100644 --- a/tex/context/base/mkiv/font-ini.mklx +++ b/tex/context/base/mkiv/font-ini.mklx @@ -2499,10 +2499,10 @@ \unexpanded\def\saverunningstyleandcolor {\unexpanded\edef\restorerunningstyleandcolor - {\setfontid \number\fontid\font - \attribute\colormodelattribute \the\attribute\colormodelattribute - \attribute\colorattribute \the\attribute\colorattribute - \attribute\transparencyattribute\the\attribute\transparencyattribute + {\setfontid \number\fontid\font + \c_attr_colormodel \the\c_attr_colormodel + \c_attr_color \the\c_attr_color + \c_attr_transparency\the\c_attr_transparency \relax}} \let\restorerunningstyleandcolor\relax diff --git a/tex/context/base/mkiv/font-ini.mkvi b/tex/context/base/mkiv/font-ini.mkvi index 99e7117a3..271a81c2a 100644 --- a/tex/context/base/mkiv/font-ini.mkvi +++ b/tex/context/base/mkiv/font-ini.mkvi @@ -2712,10 +2712,10 @@ \unexpanded\def\saverunningstyleandcolor {\unexpanded\edef\restorerunningstyleandcolor - {\setfontid \number\fontid\font - \attribute\colormodelattribute \the\attribute\colormodelattribute - \attribute\colorattribute \the\attribute\colorattribute - \attribute\transparencyattribute\the\attribute\transparencyattribute + {\setfontid \number\fontid\font + \c_attr_colormodel \the\c_attr_colormodel + \c_attr_color \the\c_attr_color + \c_attr_transparency\the\c_attr_transparency \relax}} \let\restorerunningstyleandcolor\relax diff --git a/tex/context/base/mkiv/font-mat.mklx b/tex/context/base/mkiv/font-mat.mklx index da576bf9a..c37b36ed6 100644 --- a/tex/context/base/mkiv/font-mat.mklx +++ b/tex/context/base/mkiv/font-mat.mklx @@ -344,7 +344,7 @@ \to \everymathematics \unexpanded\def\font_helpers_synchronize_math_family_mr - {\attribute\mathfamilyattribute\ifconditional\c_font_bidirectional_mathstrategy + {\c_attr_mathfamily\ifconditional\c_font_bidirectional_mathstrategy \ifconditional\c_math_right_to_left \plustwo \else @@ -355,7 +355,7 @@ \fi} \unexpanded\def\font_helpers_synchronize_math_family_mb - {\attribute\mathfamilyattribute\ifconditional\c_font_bidirectional_mathstrategy + {\c_attr_mathfamily\ifconditional\c_font_bidirectional_mathstrategy \ifconditional\c_math_right_to_left \ifconditional\c_font_pseudo_bold_math_state\pluseight\else\plusfive\fi \else diff --git a/tex/context/base/mkiv/font-mat.mkvi b/tex/context/base/mkiv/font-mat.mkvi index 64810d327..594475808 100644 --- a/tex/context/base/mkiv/font-mat.mkvi +++ b/tex/context/base/mkiv/font-mat.mkvi @@ -344,7 +344,7 @@ \to \everymathematics \unexpanded\def\font_helpers_synchronize_math_family_mr - {\attribute\mathfamilyattribute\ifconditional\c_font_bidirectional_mathstrategy + {\c_attr_mathfamily\ifconditional\c_font_bidirectional_mathstrategy \ifconditional\c_math_right_to_left \plustwo \else @@ -355,7 +355,7 @@ \fi} \unexpanded\def\font_helpers_synchronize_math_family_mb - {\attribute\mathfamilyattribute\ifconditional\c_font_bidirectional_mathstrategy + {\c_attr_mathfamily\ifconditional\c_font_bidirectional_mathstrategy \ifconditional\c_math_right_to_left \ifconditional\c_font_pseudo_bold_math_state\pluseight\else\plusfive\fi \else diff --git a/tex/context/base/mkiv/lang-rep.mkiv b/tex/context/base/mkiv/lang-rep.mkiv index 7864b029a..a3aaec8e9 100644 --- a/tex/context/base/mkiv/lang-rep.mkiv +++ b/tex/context/base/mkiv/lang-rep.mkiv @@ -54,7 +54,7 @@ {\clf_setreplacements{#1}} \unexpanded\def\resetreplacements - {\attribute\replacementsattribute\attributeunsetvalue} + {\c_attr_replacements\attributeunsetvalue} \unexpanded\def\replaceword {\dotripleempty\languages_replacements_replace} diff --git a/tex/context/base/mkiv/math-ali.mkiv b/tex/context/base/mkiv/math-ali.mkiv index 7f210bb41..c501ea767 100644 --- a/tex/context/base/mkiv/math-ali.mkiv +++ b/tex/context/base/mkiv/math-ali.mkiv @@ -1908,7 +1908,7 @@ \begingroup \beforedisplayspace % subset of \everydisplay: - \attribute \mathmodeattribute \plusone + \c_attr_mathmode\plusone \settrue \indisplaymath % end of subset \informulatrue} diff --git a/tex/context/base/mkiv/math-fen.mkiv b/tex/context/base/mkiv/math-fen.mkiv index cf95e6a8e..246ff989d 100644 --- a/tex/context/base/mkiv/math-fen.mkiv +++ b/tex/context/base/mkiv/math-fen.mkiv @@ -93,7 +93,7 @@ \setvalue{\??mathfencesize Bigg}{4} \def\math_fenced_force_size#1#2% - {\attribute\mathsizeattribute\numexpr + {\c_attr_mathsize\numexpr #1*\plushundred +\ifcsname\??mathfencesize#2\endcsname\lastnamedcs\else#2\fi \relax} @@ -835,10 +835,10 @@ \let\math_fences_normal_middle\middle \let\math_fences_normal_both \leftorright -\unexpanded\def\math_fences_auto_left #1{\attribute\mathautofenceattribute\plusone #1\attribute\mathautofenceattribute\attributeunsetvalue} -\unexpanded\def\math_fences_auto_right #1{\attribute\mathautofenceattribute\plustwo #1\attribute\mathautofenceattribute\attributeunsetvalue} -\unexpanded\def\math_fences_auto_middle#1{\attribute\mathautofenceattribute\plusthree#1\attribute\mathautofenceattribute\attributeunsetvalue} -\unexpanded\def\math_fences_auto_both #1{\attribute\mathautofenceattribute\plusfour #1\attribute\mathautofenceattribute\attributeunsetvalue} +\unexpanded\def\math_fences_auto_left #1{\c_attr_mathautofence\plusone #1\c_attr_mathautofence\attributeunsetvalue} +\unexpanded\def\math_fences_auto_right #1{\c_attr_mathautofence\plustwo #1\c_attr_mathautofence\attributeunsetvalue} +\unexpanded\def\math_fences_auto_middle#1{\c_attr_mathautofence\plusthree#1\c_attr_mathautofence\attributeunsetvalue} +\unexpanded\def\math_fences_auto_both #1{\c_attr_mathautofence\plusfour #1\c_attr_mathautofence\attributeunsetvalue} \let\autofenceopen \math_fences_auto_left % for testing \let\autofenceclose \math_fences_auto_right % for testing diff --git a/tex/context/base/mkiv/math-ini.mkiv b/tex/context/base/mkiv/math-ini.mkiv index 918238fd2..d0e18ff4b 100644 --- a/tex/context/base/mkiv/math-ini.mkiv +++ b/tex/context/base/mkiv/math-ini.mkiv @@ -134,12 +134,12 @@ \fi \appendtoks - \attribute\mathmodeattribute\plusone + \c_attr_mathmode\plusone \to \everydisplay \appendtoks - \attribute\mathmodeattribute\plusone - \attribute\displaymathattribute\plusone + \c_attr_mathmode \plusone + \c_attr_displaymath\plusone \to \everybeforedisplayformula \setnewconstant\defaultmathfamily \zerocount % 255 @@ -596,7 +596,7 @@ \appendtoks \ifcase\c_math_renderings_attribute\else - \attribute\mathrenderingattribute\c_math_renderings_attribute + \c_attr_mathrendering\c_math_renderings_attribute \fi \to \everymathematics @@ -867,10 +867,10 @@ \let\math_tags_mfunctiontxt\gobbletwoarguments \let\math_tags_mfunctionlab\gobbletwoarguments -\unexpanded\def\math_tags_mo_indeed#1{\begingroup \attribute\mathcategoryattribute\plusone #1\endgroup} -\unexpanded\def\math_tags_mi_indeed#1{\begingroup \attribute\mathcategoryattribute\plustwo #1\endgroup} -\unexpanded\def\math_tags_mn_indeed#1{\begingroup\mathupright\attribute\mathcategoryattribute\plusthree\math_set_o_both#1\endgroup} -\unexpanded\def\math_tags_ms_indeed#1{\begingroup\mathupright\attribute\mathcategoryattribute\plusfour \math_set_p_both#1\endgroup} % todo: mathoptext +\unexpanded\def\math_tags_mo_indeed#1{\begingroup \c_attr_mathcategory\plusone #1\endgroup} +\unexpanded\def\math_tags_mi_indeed#1{\begingroup \c_attr_mathcategory\plustwo #1\endgroup} +\unexpanded\def\math_tags_mn_indeed#1{\begingroup\mathupright\c_attr_mathcategory\plusthree\math_set_o_both#1\endgroup} +\unexpanded\def\math_tags_ms_indeed#1{\begingroup\mathupright\c_attr_mathcategory\plusfour \math_set_p_both#1\endgroup} % todo: mathoptext \newconditional\c_apply_function @@ -1390,7 +1390,7 @@ \to \everysetupmathematics \appendtoks - \attribute\mathbidiattribute\ifconditional\c_math_right_to_left\c_math_bidi\else\attributeunsetvalue\fi + \c_attr_mathbidi\ifconditional\c_math_right_to_left\c_math_bidi\else\attributeunsetvalue\fi \to \everyswitchmathematics %D Delayed: greek. @@ -1445,15 +1445,15 @@ % only used local -\unexpanded\def\mathgreekupright{\attribute\mathgreekattribute"222\relax} -\unexpanded\def\mathgreekitalic {\attribute\mathgreekattribute"333\relax} -\unexpanded\def\mathgreekdefault{\attribute\mathgreekattribute"000\relax} +\unexpanded\def\mathgreekupright{\c_attr_mathgreek"222\relax} +\unexpanded\def\mathgreekitalic {\c_attr_mathgreek"333\relax} +\unexpanded\def\mathgreekdefault{\c_attr_mathgreek"000\relax} \let\mathgreeknormal\mathgreekupright \let\mathgreeknone \mathgreekdefault \appendtoks - \attribute\mathgreekattribute\c_math_greek_attribute + \c_attr_mathgreek\c_math_greek_attribute \to \everymathematics \setupmathematics @@ -1488,7 +1488,7 @@ \appendtoks \math_collapsing_initialize - \attribute\mathcollapsingattribute\c_math_collapsing_attribute + \c_attr_mathcollapsing\c_math_collapsing_attribute \to \everymathematics \setupmathematics @@ -1526,7 +1526,7 @@ \appendtoks \math_italics_initialize - \attribute\mathitalicsattribute\c_math_italics_attribute + \c_attr_mathitalics\c_math_italics_attribute \to \everymathematics % \setupmathematics % done later @@ -1563,7 +1563,7 @@ \appendtoks \math_kernpairs_initialize - \attribute\mathkernpairsattribute\c_math_kernpairs_attribute + \c_attr_mathkernpairs\c_math_kernpairs_attribute \to \everymathematics \setupmathematics @@ -1611,13 +1611,13 @@ % \mathcode\c_math_period\c_math_special % \let,\math_punctuation_comma % \let.\math_punctuation_period -% \attribute\mathpunctuationattribute\plustwo} +% \c_attr_mathpunctuation\plustwo} % % \unexpanded\gdef\math_punctuation_initialize_yes -% {\attribute\mathpunctuationattribute\plustwo} +% {\c_attr_mathpunctuation\plustwo} % % \unexpanded\gdef\math_punctuation_initialize_nop -% {\attribute\mathpunctuationattribute\plusone} +% {\c_attr_mathpunctuation\plusone} % % \egroup % @@ -2828,7 +2828,7 @@ \to \everyswitchmathematics % only in mathematics \appendtoks - \attribute\mathdomainattribute\c_math_domain_attribute + \c_attr_mathdomain\c_math_domain_attribute \to \everymathematics \setupmathematics @@ -2902,11 +2902,11 @@ %D Experiment \unexpanded\def\math_scripts_stack - {\attribute\mathunstackattribute\attributeunsetvalue} + {\c_attr_mathunstack\attributeunsetvalue} \unexpanded\def\math_scripts_unstack {\clf_enablescriptunstacking - \attribute\mathunstackattribute\plusone} + \c_attr_mathunstack\plusone} \appendtoks \let\stackscripts \math_scripts_stack diff --git a/tex/context/base/mkiv/math-ini.mkxl b/tex/context/base/mkiv/math-ini.mkxl index 910337e22..c2a92fe5d 100644 --- a/tex/context/base/mkiv/math-ini.mkxl +++ b/tex/context/base/mkiv/math-ini.mkxl @@ -134,12 +134,12 @@ \fi \appendtoks - \attribute\mathmodeattribute\plusone + \c_attr_mathmode\plusone \to \everydisplay \appendtoks - \attribute\mathmodeattribute\plusone - \attribute\displaymathattribute\plusone + \c_attr_mathmode \plusone + \c_attr_displaymath\plusone \to \everybeforedisplayformula \setnewconstant\defaultmathfamily \zerocount % 255 @@ -594,7 +594,7 @@ \appendtoks \ifcase\c_math_renderings_attribute\else - \attribute\mathrenderingattribute\c_math_renderings_attribute + \c_attr_mathrendering\c_math_renderings_attribute \fi \to \everymathematics @@ -865,10 +865,10 @@ \let\math_tags_mfunctiontxt\gobbletwoarguments \let\math_tags_mfunctionlab\gobbletwoarguments -\unexpanded\def\math_tags_mo_indeed#1{\begingroup \attribute\mathcategoryattribute\plusone #1\endgroup} -\unexpanded\def\math_tags_mi_indeed#1{\begingroup \attribute\mathcategoryattribute\plustwo #1\endgroup} -\unexpanded\def\math_tags_mn_indeed#1{\begingroup\mathupright\attribute\mathcategoryattribute\plusthree\math_set_o_both#1\endgroup} -\unexpanded\def\math_tags_ms_indeed#1{\begingroup\mathupright\attribute\mathcategoryattribute\plusfour \math_set_p_both#1\endgroup} % todo: mathoptext +\unexpanded\def\math_tags_mo_indeed#1{\begingroup \c_attr_mathcategory\plusone #1\endgroup} +\unexpanded\def\math_tags_mi_indeed#1{\begingroup \c_attr_mathcategory\plustwo #1\endgroup} +\unexpanded\def\math_tags_mn_indeed#1{\begingroup\mathupright\c_attr_mathcategory\plusthree\math_set_o_both#1\endgroup} +\unexpanded\def\math_tags_ms_indeed#1{\begingroup\mathupright\c_attr_mathcategory\plusfour \math_set_p_both#1\endgroup} % todo: mathoptext \newconditional\c_apply_function @@ -1388,7 +1388,7 @@ \to \everysetupmathematics \appendtoks - \attribute\mathbidiattribute\ifconditional\c_math_right_to_left\c_math_bidi\else\attributeunsetvalue\fi + \c_attr_mathbidi\ifconditional\c_math_right_to_left\c_math_bidi\else\attributeunsetvalue\fi \to \everyswitchmathematics %D Delayed: greek. @@ -1443,15 +1443,15 @@ % only used local -\unexpanded\def\mathgreekupright{\attribute\mathgreekattribute"222\relax} -\unexpanded\def\mathgreekitalic {\attribute\mathgreekattribute"333\relax} -\unexpanded\def\mathgreekdefault{\attribute\mathgreekattribute"000\relax} +\unexpanded\def\mathgreekupright{\c_attr_mathgreek"222\relax} +\unexpanded\def\mathgreekitalic {\c_attr_mathgreek"333\relax} +\unexpanded\def\mathgreekdefault{\c_attr_mathgreek"000\relax} \let\mathgreeknormal\mathgreekupright \let\mathgreeknone \mathgreekdefault \appendtoks - \attribute\mathgreekattribute\c_math_greek_attribute + \c_attr_mathgreek\c_math_greek_attribute \to \everymathematics \setupmathematics @@ -1486,7 +1486,7 @@ \appendtoks \math_collapsing_initialize - \attribute\mathcollapsingattribute\c_math_collapsing_attribute + \c_attr_mathcollapsing\c_math_collapsing_attribute \to \everymathematics \setupmathematics @@ -1524,7 +1524,7 @@ \appendtoks \math_italics_initialize - \attribute\mathitalicsattribute\c_math_italics_attribute + \c_attr_mathitalics\c_math_italics_attribute \to \everymathematics % \setupmathematics % done later @@ -1561,7 +1561,7 @@ \appendtoks \math_kernpairs_initialize - \attribute\mathkernpairsattribute\c_math_kernpairs_attribute + \c_attr_mathkernpairs\c_math_kernpairs_attribute \to \everymathematics \setupmathematics @@ -1609,13 +1609,13 @@ % \mathcode\c_math_period\c_math_special % \let,\math_punctuation_comma % \let.\math_punctuation_period -% \attribute\mathpunctuationattribute\plustwo} +% \c_attr_mathpunctuation\plustwo} % % \unexpanded\gdef\math_punctuation_initialize_yes -% {\attribute\mathpunctuationattribute\plustwo} +% {\c_attr_mathpunctuation\plustwo} % % \unexpanded\gdef\math_punctuation_initialize_nop -% {\attribute\mathpunctuationattribute\plusone} +% {\c_attr_mathpunctuation\plusone} % % \egroup % @@ -1762,7 +1762,7 @@ \setupmathematics [\v!autopunctuation=\v!no] % no | yes | all | comma | yes,semicolon | all,semicolon -%D The consequences of settign this are as follows: +%D The consequences of setting this are as follows: %D %D \def\TestA#1#2#3% %D {\ifnum#1=0 \type{#2}\else\setupmathematics[autopunctuation={#2}]$#3$\fi} @@ -2790,7 +2790,7 @@ \to \everyswitchmathematics % only in mathematics \appendtoks - \attribute\mathdomainattribute\c_math_domain_attribute + \c_attr_mathdomain\c_math_domain_attribute \to \everymathematics \setupmathematics @@ -2864,11 +2864,11 @@ %D Experiment \unexpanded\def\math_scripts_stack - {\attribute\mathunstackattribute\attributeunsetvalue} + {\c_attr_mathunstack\attributeunsetvalue} \unexpanded\def\math_scripts_unstack {\clf_enablescriptunstacking - \attribute\mathunstackattribute\plusone} + \c_attr_mathunstack\plusone} \appendtoks \let\stackscripts \math_scripts_stack diff --git a/tex/context/base/mkiv/meta-ini.mkiv b/tex/context/base/mkiv/meta-ini.mkiv index ac920450e..6ba0abfa6 100644 --- a/tex/context/base/mkiv/meta-ini.mkiv +++ b/tex/context/base/mkiv/meta-ini.mkiv @@ -1110,7 +1110,7 @@ % \newcount\c_overlay_linetransparency % \appendtoks -% \c_overlay_colormodel \attribute\colormodelattribute +% \c_overlay_colormodel \c_attr_colormodel % \c_overlay_color \colo_helpers_inherited_current_ca\overlaycolor % \c_overlay_transparency \colo_helpers_inherited_current_ta\overlaycolor % \c_overlay_linecolor \colo_helpers_inherited_current_ca\overlaylinecolor @@ -1368,8 +1368,8 @@ \appendtoks \clf_mpsetoutercolor \MPcolormethod\space - \attribute\colormodelattribute\space - \attribute\colorattribute\space + \c_attr_colormodel\space + \c_attr_color\space \dogetattribute{transparency}\relax \to \everyMPgraphic diff --git a/tex/context/base/mkiv/meta-ini.mkxl b/tex/context/base/mkiv/meta-ini.mkxl index 563af2c6d..dbb7aeb57 100644 --- a/tex/context/base/mkiv/meta-ini.mkxl +++ b/tex/context/base/mkiv/meta-ini.mkxl @@ -1083,7 +1083,7 @@ % \newcount\c_overlay_linetransparency % \appendtoks -% \c_overlay_colormodel \attribute\colormodelattribute +% \c_overlay_colormodel \c_attr_colormodel % \c_overlay_color \colo_helpers_inherited_current_ca\overlaycolor % \c_overlay_transparency \colo_helpers_inherited_current_ta\overlaycolor % \c_overlay_linecolor \colo_helpers_inherited_current_ca\overlaylinecolor @@ -1342,8 +1342,8 @@ \appendtoks \clf_mpsetoutercolor \MPcolormethod\space - \attribute\colormodelattribute\space - \attribute\colorattribute\space + \c_attr_colormodel\space + \c_attr_color\space \dogetattribute{transparency}\relax \to \everyMPgraphic diff --git a/tex/context/base/mkiv/node-bck.mkiv b/tex/context/base/mkiv/node-bck.mkiv index b09327443..0e7bbb853 100644 --- a/tex/context/base/mkiv/node-bck.mkiv +++ b/tex/context/base/mkiv/node-bck.mkiv @@ -34,12 +34,12 @@ \fi\fi} \def\node_backgrounds_thecolorattr#1% - {attr \colormodelattribute \attribute\colormodelattribute + {attr \colormodelattribute \c_attr_colormodel attr \colorattribute \lastnamedcs attr \transparencyattribute \thetransparencyattribute{#1} } % can be optimized \def\thecolorattr#1% - {attr \colormodelattribute \attribute\colormodelattribute + {attr \colormodelattribute \c_attr_colormodel attr \colorattribute \csname\??colorattribute#1\endcsname attr \transparencyattribute \thetransparencyattribute{#1} } % can be optimized @@ -52,19 +52,19 @@ \def\thebackgroundcolorattr#1% {attr \backgroundattribute \plusone - attr \colormodelattribute \attribute\colormodelattribute + attr \colormodelattribute \c_attr_colormodel attr \colorattribute \csname\??colorattribute#1\endcsname attr \transparencyattribute \thetransparencyattribute{#1} } % can be optimized \def\node_backgrounds_thebackgroundcolorattr#1% {attr \backgroundattribute \plusone - attr \colormodelattribute \attribute\colormodelattribute + attr \colormodelattribute \c_attr_colormodel attr \colorattribute \lastnamedcs attr \transparencyattribute \thetransparencyattribute{#1} } % can be optimized \def\thealignbackgroundcolorattr#1% {attr \alignbackgroundattribute \plusone - attr \colormodelattribute \attribute\colormodelattribute + attr \colormodelattribute \c_attr_colormodel attr \colorattribute \csname\??colorattribute#1\endcsname attr \transparencyattribute \thetransparencyattribute{#1} } % can be optimized @@ -81,9 +81,9 @@ % \dousecolorparameter{#2}% % \normalexpanded{\endgroup#1 % attr \backgroundattribute \plusone -% attr \colormodelattribute \the\attribute\colormodelattribute -% attr \colorattribute \the\attribute\colorattribute -% attr \transparencyattribute \the\attribute\transparencyattribute}} +% attr \colormodelattribute \the\c_attr_colormodel +% attr \colorattribute \the\c_attr_color +% attr \transparencyattribute \the\c_attr_transparency}} % % more efficient: diff --git a/tex/context/base/mkiv/node-fin.mkiv b/tex/context/base/mkiv/node-fin.mkiv index 086b19ae5..81a8fec51 100644 --- a/tex/context/base/mkiv/node-fin.mkiv +++ b/tex/context/base/mkiv/node-fin.mkiv @@ -36,8 +36,8 @@ \newcount\c_syst_attr_trigger -\edef\startinheritattributes{\attribute\triggerattribute\plusone} -\edef\stopinheritattributes {\attribute\triggerattribute\attributeunsetvalue} +\edef\startinheritattributes{\c_attr_trigger\plusone} +\edef\stopinheritattributes {\c_attr_trigger\attributeunsetvalue} \def\syst_attr_trigger_copy_yes{\afterassignment\syst_attr_trigger_copy_indeed\c_syst_attr_trigger} \def\syst_attr_trigger_dump_yes{\afterassignment\syst_attr_trigger_dump_indeed\c_syst_attr_trigger} diff --git a/tex/context/base/mkiv/node-rul.mkiv b/tex/context/base/mkiv/node-rul.mkiv index 7f2093bf2..02e610de3 100644 --- a/tex/context/base/mkiv/node-rul.mkiv +++ b/tex/context/base/mkiv/node-rul.mkiv @@ -162,14 +162,14 @@ \expandafter\let\expandafter\c_node_rules_index\csname\??barindex#1\endcsname \advance\c_node_rules_index\plusone \clf_enablerules % will be relaxed - \attribute\ruledattribute\numexpr + \c_attr_ruled\numexpr \plusthousand*\c_node_rules_index % optimizing this one needs testing +\csname\??barattribute#1\ifcsname\??bar#1:\number\c_node_rules_index\s!parent\endcsname:\number\c_node_rules_index\fi\endcsname \relax} \unexpanded\def\resetbar - {\attribute\ruledattribute\attributeunsetvalue} + {\c_attr_ruled\attributeunsetvalue} \unexpanded\def\nobar {\groupedcommand @@ -198,7 +198,7 @@ \unexpanded\def\pushbar[#1]% {\global\advance\c_node_rules_nesting\plusone - \expandafter\edef\csname\??barstack\number\c_node_rules_nesting\endcsname{\attribute\ruledattribute\the\attribute\ruledattribute}% + \expandafter\edef\csname\??barstack\number\c_node_rules_nesting\endcsname{\c_attr_ruled\the\c_attr_ruled}% \node_rules_set{#1}} \unexpanded\def\popbar @@ -405,7 +405,7 @@ \expandafter\let\expandafter\c_node_shifts_index\csname\??shiftindex#1\endcsname \advance\c_node_shifts_index\plusone \clf_enableshifts % will be relaxed - \attribute\shiftedattribute\numexpr + \c_attr_shifted\numexpr \plusthousand*\c_node_shifts_index +\csname\??shiftattribute#1\ifcsname\??shift#1:\number\c_node_shifts_index\s!parent\endcsname:\number\c_node_shifts_index\fi\endcsname \relax @@ -525,7 +525,7 @@ \expandafter\let\expandafter\c_node_linefiller_index\csname\??linefillerindex#1\endcsname \advance\c_node_linefiller_index\plusone \clf_enablelinefillers - \attribute\linefillerattribute\numexpr + \c_attr_linefiller\numexpr \plusthousand*\c_node_linefiller_index +\csname\??linefillerattribute#1\ifcsname\??linefiller#1:\number\c_node_linefiller_index\s!parent\endcsname:\number\c_node_linefiller_index\fi\endcsname \relax} @@ -601,7 +601,7 @@ \node_linefiller_set{#3}% already sets the attribute #1% attr \backgroundattribute \plusone - % attr \linefillerattribute \the\attribute\linefillerattribute + % attr \linefillerattribute \the\c_attr_linefiller {\box\nextbox}% \egroup}% #2} diff --git a/tex/context/base/mkiv/page-lin.mkvi b/tex/context/base/mkiv/page-lin.mkvi index 4debcb68f..ba3acef78 100644 --- a/tex/context/base/mkiv/page-lin.mkvi +++ b/tex/context/base/mkiv/page-lin.mkvi @@ -46,11 +46,11 @@ \definesystemattribute[linereference][public] \appendtoksonce - \attribute\linenumberattribute\attributeunsetvalue + \c_attr_linenumber\attributeunsetvalue \to \everyforgetall \appendtoks - \attribute\linenumberattribute \attributeunsetvalue + \c_attr_linenumber\attributeunsetvalue \to \everyinsidefloat \newcount \linenumber % not used @@ -130,7 +130,7 @@ \unexpanded\def\page_lines_some_reference#1#2#3% {\dontleavehmode\begingroup \global\advance\c_page_lines_reference\plusone - \attribute\linereferenceattribute\c_page_lines_reference + \c_attr_linereference\c_page_lines_reference #3% todo: #3{#1} as there is no need to pass #1 as part of #3 % for the moment we use a simple system i.e. no prefixes etc .. todo: store as number \c_strc_references_bind_state\zerocount % we don't want the prewordbreak and manage it here @@ -315,11 +315,11 @@ \or \page_lines_start_define % only when assignment \fi - \attribute\linenumberattribute\csname\??linenumberinginstance\currentlinenumbering\endcsname\relax} + \c_attr_linenumber\csname\??linenumberinginstance\currentlinenumbering\endcsname\relax} \unexpanded\def\stoplinenumbering {\ifconditional\c_pages_lines_nesting=\plusone - \attribute\linenumberattribute\attributeunsetvalue + \c_attr_linenumber\attributeunsetvalue \the\aftereverylinenumbering \ifconditional\c_page_lines_auto_narrow\par\fi \fi diff --git a/tex/context/base/mkiv/page-mix.mkiv b/tex/context/base/mkiv/page-mix.mkiv index f54b8ec71..b491a57a1 100644 --- a/tex/context/base/mkiv/page-mix.mkiv +++ b/tex/context/base/mkiv/page-mix.mkiv @@ -1029,7 +1029,7 @@ \begingroup \scratchdimen\dimexpr#1\lineheight\ifsecondargument+#2\fi\relax \ifdim\scratchdimen>\zeropoint - \attribute\checkedbreakattribute\number\scratchdimen + \c_attr_checkedbreak\number\scratchdimen % why \number \penalty\c_page_mix_break_forced\relax \fi \endgroup} diff --git a/tex/context/base/mkiv/scrn-but.mkvi b/tex/context/base/mkiv/scrn-but.mkvi index 0c9b4cfb5..977b02acd 100644 --- a/tex/context/base/mkiv/scrn-but.mkvi +++ b/tex/context/base/mkiv/scrn-but.mkvi @@ -155,7 +155,7 @@ \def\scrn_button_make#currentparameter#inheritedframed#letparameter#setparameter#text#action% {\begingroup - \attribute\referenceattribute\attributeunsetvalue + \c_attr_reference\attributeunsetvalue \global\setfalse\c_scrn_button_skipped \chardef\locationboxpagestate\csname\??buttonlocation#currentparameter\c!samepage\endcsname % ?? bt: todo \doifelsereferencefound{#action}\scrn_button_make_yes\scrn_button_make_nop diff --git a/tex/context/base/mkiv/scrn-fld.mkvi b/tex/context/base/mkiv/scrn-fld.mkvi index 7710a32dc..ecd38606d 100644 --- a/tex/context/base/mkiv/scrn-fld.mkvi +++ b/tex/context/base/mkiv/scrn-fld.mkvi @@ -235,7 +235,7 @@ fontsize {\fontbody}% fontsymbol {\fieldbodyparameter\c!symbol}% color {\fieldbodyparameter\c!color}% - colorvalue \attribute\colorattribute + colorvalue \c_attr_color \ifx\currentfieldbackgroundcolor\empty \else backgroundcolor {\currentfieldbackgroundcolor}% backgroundcolorvalue \numexpr\currentfieldbackgroundcolorvalue\relax diff --git a/tex/context/base/mkiv/scrn-wid.mkvi b/tex/context/base/mkiv/scrn-wid.mkvi index 6808bd0b3..ea77a7da3 100644 --- a/tex/context/base/mkiv/scrn-wid.mkvi +++ b/tex/context/base/mkiv/scrn-wid.mkvi @@ -202,7 +202,7 @@ height \dimexpr\currentattachmentheight\relax depth \dimexpr\currentattachmentdepth \relax color {\attachmentparameter\c!color}% - colormodel \attribute\colormodelattribute + colormodel \c_attr_colormodel colorvalue \numexpr\thecolorattribute{\attachmentparameter\c!color}\relax % or are these chardefs transparencyvalue \numexpr\thetransparencyattribute{\attachmentparameter\c!color}\relax % or are these chardefs symbol {\currentattachmentsymbol}% @@ -501,7 +501,7 @@ depth \dimexpr\currentcommentdepth\relax nx {\commentparameter\c!nx}% ny {\commentparameter\c!ny}% - colormodel \attribute\colormodelattribute + colormodel \c_attr_colormodel colorvalue \numexpr\thecolorattribute{\commentparameter\c!color}\relax transparencyvalue \numexpr\thetransparencyattribute{\commentparameter\c!color}\relax option {\commentparameter\c!option}% % todo diff --git a/tex/context/base/mkiv/spac-ali.mkiv b/tex/context/base/mkiv/spac-ali.mkiv index 8451e2494..51fc906ba 100644 --- a/tex/context/base/mkiv/spac-ali.mkiv +++ b/tex/context/base/mkiv/spac-ali.mkiv @@ -33,11 +33,11 @@ \definesystemattribute[alignstate][public] % will make a single attributes for several states \appendtoks - \attribute\realignattribute \attributeunsetvalue - \attribute\alignstateattribute\attributeunsetvalue + \c_attr_realign \attributeunsetvalue + \c_attr_alignstate\attributeunsetvalue \to \everyforgetall -\unexpanded\def\resetrealignsignal{\attribute\realignattribute\attributeunsetvalue} +\unexpanded\def\resetrealignsignal{\c_attr_realign\attributeunsetvalue} \unexpanded\def\signalinnerrealign{\clf_setrealign\plustwo} \unexpanded\def\signalouterrealign{\clf_setrealign\plusone} @@ -293,7 +293,7 @@ \unexpanded\def\spac_align_set_horizontal_none % should also relax \updateraggedskips {\raggedstatus\zerocount - \attribute\alignstateattribute\attributeunsetvalue + \c_attr_alignstate\attributeunsetvalue \leftskip \plusone\leftskip \rightskip \plusone\rightskip \spaceskip \zeropoint @@ -305,7 +305,7 @@ \unexpanded\def\spac_align_set_horizontal_left {\setraggedness\spac_align_set_raggedness_left \raggedstatus\plusone - \attribute\alignstateattribute\plusone + \c_attr_alignstate\plusone \leftskip \plusone\leftskip \s!plus\spac_align_set_raggedness_left \rightskip \plusone\rightskip\s!plus\zeropoint \spaceskip \v_spac_align_space_amount @@ -317,7 +317,7 @@ \unexpanded\def\spac_align_set_horizontal_center {\setraggedness\spac_align_set_raggedness_middle \raggedstatus\plustwo - \attribute\alignstateattribute\plustwo + \c_attr_alignstate\plustwo \leftskip \plusone\leftskip \s!plus\spac_align_set_raggedness_middle \rightskip \plusone\rightskip\s!plus\spac_align_set_raggedness_middle \spaceskip \v_spac_align_space_amount @@ -329,7 +329,7 @@ \unexpanded\def\spac_align_set_horizontal_right {\setraggedness\spac_align_set_raggedness_right \raggedstatus\plusthree - \attribute\alignstateattribute\plusthree + \c_attr_alignstate\plusthree \leftskip \plusone\leftskip \s!plus\zeropoint \rightskip \plusone\rightskip\s!plus\spac_align_set_raggedness_right \spaceskip \v_spac_align_space_amount @@ -340,7 +340,7 @@ \unexpanded\def\spac_align_set_horizontal_very_left {\raggedstatus\plusone - \attribute\alignstateattribute\plusone + \c_attr_alignstate\plusone \leftskip \plusone\leftskip \s!plus\v_spac_align_fill_amount \rightskip \plusone\rightskip\s!plus\zeropoint \spaceskip \v_spac_align_space_amount @@ -351,7 +351,7 @@ \unexpanded\def\spac_align_set_horizontal_very_center {\raggedstatus\plustwo - \attribute\alignstateattribute\plustwo + \c_attr_alignstate\plustwo \leftskip \plusone\leftskip \s!plus\v_spac_align_fill_amount \rightskip \plusone\rightskip\s!plus\v_spac_align_fill_amount \spaceskip \v_spac_align_space_amount @@ -362,7 +362,7 @@ \unexpanded\def\spac_align_set_horizontal_very_right {\raggedstatus\plusthree - \attribute\alignstateattribute\plusthree + \c_attr_alignstate\plusthree \leftskip \plusone\leftskip \s!plus\zeropoint \rightskip \plusone\rightskip\s!plus\v_spac_align_fill_amount \spaceskip \v_spac_align_space_amount @@ -374,7 +374,7 @@ \unexpanded\def\spac_align_set_horizontal_wide_center {\setraggedness\spac_align_set_raggedness_middle \raggedstatus\plustwo - \attribute\alignstateattribute\plustwo + \c_attr_alignstate\plustwo \leftskip \plusone\leftskip \s!plus\v_spac_align_fill_amount_half \rightskip \plusone\rightskip\s!plus\v_spac_align_fill_amount_half \spaceskip \v_spac_align_space_amount @@ -385,7 +385,7 @@ \unexpanded\def\spac_align_set_horizontal_centered_last_line {\raggedstatus\zerocount - \attribute\alignstateattribute\attributeunsetvalue + \c_attr_alignstate\attributeunsetvalue \leftskip \plusone\leftskip \s!plus\v_spac_align_fill_amount\relax \rightskip \plusone\rightskip\s!plus\v_spac_align_fill_amount_negative\relax \spaceskip \zeropoint\relax @@ -396,7 +396,7 @@ \unexpanded\def\spac_align_set_horizontal_flushedright_last_line {\raggedstatus\zerocount - \attribute\alignstateattribute\attributeunsetvalue + \c_attr_alignstate\attributeunsetvalue \leftskip \plusone\leftskip \s!plus\v_spac_align_fill_amount\relax \rightskip \plusone\rightskip\s!plus\v_spac_align_fill_amount_negative\relax \spaceskip \zeropoint\relax @@ -410,7 +410,7 @@ \unexpanded\def\spac_align_set_horizontal_right_tt % a plain command {\tttf % brrr \raggedstatus\plusthree - \attribute\alignstateattribute\plusthree + \c_attr_alignstate\plusthree \leftskip \plusone\leftskip \s!plus\zeropoint\relax \rightskip \plusone\rightskip\s!plus\spac_align_set_raggedness_right\relax \spaceskip \zeropoint\relax @@ -882,7 +882,7 @@ \xspaceskip #5\relax \parfillskip \zeropoint\s!plus#6\relax \parindent #7\relax - \attribute\alignstateattribute\ifcase\raggedstatus\attributeunsetvalue\else\raggedstatus\fi} + \c_attr_alignstate\ifcase\raggedstatus\attributeunsetvalue\else\raggedstatus\fi} % older (context) names: diff --git a/tex/context/base/mkiv/spac-chr.mkiv b/tex/context/base/mkiv/spac-chr.mkiv index 23f4ac8dd..43a725ae6 100644 --- a/tex/context/base/mkiv/spac-chr.mkiv +++ b/tex/context/base/mkiv/spac-chr.mkiv @@ -29,7 +29,7 @@ %D them in a string. So this needs thinking. Not that we can compare the %D nobreakspace now anyway. -% \unexpanded\def\specialspacecharacter#1{\begingroup\attribute\charactersattribute#1\ \endgroup} +% \unexpanded\def\specialspacecharacter#1{\begingroup\c_attr_characters#1\ \endgroup} % % \unexpanded\edef\nobreakspace {\specialspacecharacter{"00A0}} % 1 = left % \unexpanded\edef\ideographicspace {\specialspacecharacter{"2000}} diff --git a/tex/context/base/mkiv/spac-prf.mkvi b/tex/context/base/mkiv/spac-prf.mkvi index 9a00da395..ac0a2f4e1 100644 --- a/tex/context/base/mkiv/spac-prf.mkvi +++ b/tex/context/base/mkiv/spac-prf.mkvi @@ -70,7 +70,7 @@ \relax} \unexpanded\def\resetprofile - {\attribute\profilemethodattribute\attributeunsetvalue} + {\c_attr_profilemethod\attributeunsetvalue} \unexpanded\def\useprofileparameter#getparameter% {\edef\m_spac_profile_asked{#getparameter\c!profile}% diff --git a/tex/context/base/mkiv/spac-ver.mkiv b/tex/context/base/mkiv/spac-ver.mkiv index e75ea4e1b..6b1abe436 100644 --- a/tex/context/base/mkiv/spac-ver.mkiv +++ b/tex/context/base/mkiv/spac-ver.mkiv @@ -1500,14 +1500,14 @@ \newdimen \globalbodyfontstrutheight \newdimen \globalbodyfontstrutdepth -\def\snappedvboxattribute{\ifgridsnapping attr \snapvboxattribute \attribute\snapmethodattribute\fi} -\def\setlocalgridsnapping{\ifgridsnapping \attribute \snapvboxattribute \attribute\snapmethodattribute\fi} +\def\snappedvboxattribute{\ifgridsnapping attr\snapvboxattribute\c_attr_snapmethod\fi} +\def\setlocalgridsnapping{\ifgridsnapping \c_attr_snapvbox \c_attr_snapmethod\fi} \def\spac_grids_set_local_snapping#1% {\ifgridsnapping \doifsomething{#1}% {\spac_grids_snap_value_set{#1}% - \attribute \snapvboxattribute \attribute\snapmethodattribute}% + \c_attr_snapvbox\c_attr_snapmethod}% \fi} % \unexpanded\def\installsnapvalues#1#2% todo: a proper define @@ -1515,7 +1515,7 @@ % \ifcsname\??gridsnapperattributes\currentsnapper\endcsname \else % \setevalue{\??gridsnapperattributes\currentsnapper}{\clf_definesnapmethod{#1}{#2}}% % \fi -% \setevalue{\??gridsnappers#1}{\attribute\snapmethodattribute\csname\??gridsnapperattributes\currentsnapper\endcsname\space}} +% \setevalue{\??gridsnappers#1}{\c_attr_snapmethod\csname\??gridsnapperattributes\currentsnapper\endcsname\space}} \def\spac_grids_expand_snapper#1% {\edef\m_spac_snapper @@ -1534,7 +1534,7 @@ \scratchcounter\clf_definesnapmethod{#1}{\m_spac_snapper}% \setevalue{\??gridsnapperattributes\currentsnapper}{\the\scratchcounter}% \fi - \setevalue{\??gridsnappers#1}{\attribute\snapmethodattribute\the\scratchcounter\relax}% + \setevalue{\??gridsnappers#1}{\c_attr_snapmethod\the\scratchcounter\relax}% \letvalue{\??gridsnappersets#1}\m_spac_snapper} \def\theexpandedsnapperset#1{\begincsname\??gridsnappersets#1\endcsname} % only for manuals @@ -1542,10 +1542,10 @@ \unexpanded\def\usegridparameter#1% no checking here {\edef\m_spac_grid_asked{#1\c!grid}% \ifx\m_spac_grid_asked\empty - \attribute \snapvboxattribute\attributeunsetvalue + \c_attr_snapvbox\attributeunsetvalue \else \spac_grids_snap_value_set\m_spac_grid_asked - \attribute \snapvboxattribute\attribute\snapmethodattribute + \c_attr_snapvbox\c_attr_snapmethod \fi} \unexpanded\def\definegridsnapping @@ -1556,7 +1556,7 @@ \edef\spac_grids_snap_value_reset {%\gridsnappingfalse - \attribute\snapmethodattribute\attributeunsetvalue} + \c_attr_snapmethod\attributeunsetvalue} \def\spac_grids_snap_value_set#1% {%\gridsnappingtrue @@ -1605,9 +1605,9 @@ %D We're not downward compatible with \MKII ! Not yet in interface file: -\definegridsnapping[\v!normal] [\v!maxheight,\v!maxdepth,\v!strut] -\definegridsnapping[\v!standard] [\v!maxheight,\v!maxdepth,\v!strut] -\definegridsnapping[\v!yes] [\v!maxheight,\v!maxdepth,\v!strut] +\definegridsnapping[\v!normal] [\v!maxheight,\v!maxdepth,\v!strut] +\definegridsnapping[\v!standard] [\v!maxheight,\v!maxdepth,\v!strut] +\definegridsnapping[\v!yes] [\v!maxheight,\v!maxdepth,\v!strut] \definegridsnapping[\v!strict] [\v!maxdepth:0.8,\v!maxheight:0.8,\v!strut] \definegridsnapping[\v!tolerant] [\v!maxdepth:1.2,\v!maxheight:1.2,\v!strut] @@ -1717,7 +1717,7 @@ \clf_vspacingcollapse\nextbox\relax % isn't that already done? \fi \doifelsenothing{#1}{\spac_grids_snap_value_set\v!normal}{\spac_grids_snap_value_set{#1}}% - \clf_vspacingsnap\nextbox\attribute\snapmethodattribute\relax + \clf_vspacingsnap\nextbox\c_attr_snapmethod\relax \ifvbox\nextbox\vbox\else\hbox\fi attr \snapmethodattribute \zerocount {\box\nextbox}% no pack (?), we snap \egroup} @@ -1948,7 +1948,7 @@ \clf_vspacingsetamount{#1}} \def\spac_vspacing_no_topskip % use grouped - {\attribute\skipcategoryattribute\plusten} + {\c_attr_skipcategory\plusten} % \installcorenamespace{vspacingamountnormal} % \installcorenamespace{vspacingamountgrid} @@ -1979,9 +1979,9 @@ \appendtoks \s_spac_vspacing_temp\zeropoint - \attribute\skipcategoryattribute\plusone - \attribute\skippenaltyattribute \attributeunsetvalue - \attribute\skiporderattribute \attributeunsetvalue + \c_attr_skipcategory\plusone + \c_attr_skippenalty \attributeunsetvalue + \c_attr_skiporder \attributeunsetvalue \ifgridsnapping \settrue\c_space_vspacing_fixed \else @@ -2003,10 +2003,10 @@ \unexpanded\def\setblankcategory#1% {\settrue\c_space_vspacing_done - \attribute\skipcategoryattribute#1\relax} + \c_attr_skipcategory#1\relax} \unexpanded\def\setblankorder#1% - {\attribute\skiporderattribute#1\relax} + {\c_attr_skiporder#1\relax} \unexpanded\def\fixedblankskip {\settrue\c_space_vspacing_fixed} @@ -2021,8 +2021,8 @@ \unexpanded\def\setblankpenalty#1% {\flushblankhandling \settrue\c_space_vspacing_done - \attribute\skipcategoryattribute \plusthree - \attribute\skippenaltyattribute #1\relax + \c_attr_skipcategory\plusthree + \c_attr_skippenalty #1\relax \flushblankhandling} \unexpanded\def\startblankhandling % move this to \vspacing @@ -2181,17 +2181,17 @@ \unexpanded\def\directvpenalty#1% {\begingroup - \attribute\skipcategoryattribute \plusthree - \attribute\skippenaltyattribute #1\relax - \attribute\skiporderattribute \attributeunsetvalue + \c_attr_skipcategory\plusthree + \c_attr_skippenalty #1\relax + \c_attr_skiporder \attributeunsetvalue \vskip\zeropoint \endgroup} \unexpanded\def\directvskip#1% {\begingroup - \attribute\skipcategoryattribute \plusone - \attribute\skippenaltyattribute \attributeunsetvalue - \attribute\skiporderattribute \attributeunsetvalue + \c_attr_skipcategory\plusone + \c_attr_skippenalty \attributeunsetvalue + \c_attr_skiporder \attributeunsetvalue \vskip#1\relax \endgroup} @@ -2343,7 +2343,7 @@ \unexpanded\def\inhibitblank {\ifvmode \begingroup - \attribute\skipcategoryattribute\plusfive + \c_attr_skipcategory\plusfive \vskip\zeropoint \endgroup \fi} diff --git a/tex/context/base/mkiv/spac-ver.mkxl b/tex/context/base/mkiv/spac-ver.mkxl index 5b18ea7d3..b69c1d33c 100644 --- a/tex/context/base/mkiv/spac-ver.mkxl +++ b/tex/context/base/mkiv/spac-ver.mkxl @@ -64,14 +64,6 @@ \def\skipfactor {.75} \def\skipgluefactor{.25} -% \def\normalskipamount -% {\openlineheight -% \ifgridsnapping \else \ifblankflexible -% \s!plus \skipgluefactor\openlineheight -% \s!minus\skipgluefactor\openlineheight -% \fi \fi -% \relax} - \def\normalskipamount {\openlineheight \ifgridsnapping \orelse \ifblankflexible @@ -793,8 +785,6 @@ \else \edef\spacingfactor{#1}% \fi - % \edef\systemtopskipfactor {\withoutpt\the\dimexpr#1\dimexpr\topskipfactor \points}% - % \edef\systemmaxdepthfactor{\withoutpt\the\dimexpr#1\dimexpr\maxdepthfactor\points}% \edef\systemtopskipfactor {\thewithoutunit\dimexpr#1\dimexpr\topskipfactor \points}% \edef\systemmaxdepthfactor{\thewithoutunit\dimexpr#1\dimexpr\maxdepthfactor\points}% \setnormalbaselines @@ -1514,14 +1504,14 @@ \newdimen \globalbodyfontstrutheight \newdimen \globalbodyfontstrutdepth -\def\snappedvboxattribute{\ifgridsnapping attr \snapvboxattribute \attribute\snapmethodattribute\fi} -\def\setlocalgridsnapping{\ifgridsnapping \attribute \snapvboxattribute \attribute\snapmethodattribute\fi} +\def\snappedvboxattribute{\ifgridsnapping attr\snapvboxattribute\c_attr_snapmethod\fi} +\def\setlocalgridsnapping{\ifgridsnapping \c_attr_snapvbox \c_attr_snapmethod\fi} \def\spac_grids_set_local_snapping#1% {\ifgridsnapping \doifsomething{#1}% {\spac_grids_snap_value_set{#1}% - \attribute \snapvboxattribute \attribute\snapmethodattribute}% + \c_attr_snapvbox\c_attr_snapmethod}% \fi} \def\spac_grids_expand_snapper#1% @@ -1541,7 +1531,7 @@ \scratchcounter\clf_definesnapmethod{#1}{\m_spac_snapper}% \setevalue{\??gridsnapperattributes\currentsnapper}{\the\scratchcounter}% \fi - \setevalue{\??gridsnappers#1}{\attribute\snapmethodattribute\the\scratchcounter\relax}% + \setevalue{\??gridsnappers#1}{\c_attr_snapmethod\the\scratchcounter\relax}% \letvalue{\??gridsnappersets#1}\m_spac_snapper} \def\theexpandedsnapperset#1{\begincsname\??gridsnappersets#1\endcsname} % only for manuals @@ -1549,10 +1539,10 @@ \unexpanded\def\usegridparameter#1% no checking here {\edef\m_spac_grid_asked{#1\c!grid}% \ifempty\m_spac_grid_asked - \attribute \snapvboxattribute\attributeunsetvalue + \c_attr_snapvbox\attributeunsetvalue \else \spac_grids_snap_value_set\m_spac_grid_asked - \attribute \snapvboxattribute\attribute\snapmethodattribute + \c_attr_snapvbox\c_attr_snapmethod \fi} \unexpanded\def\definegridsnapping @@ -1563,7 +1553,7 @@ \edef\spac_grids_snap_value_reset {%\gridsnappingfalse - \attribute\snapmethodattribute\attributeunsetvalue} + \c_attr_snapmethod\attributeunsetvalue} \def\spac_grids_snap_value_set#1% {%\gridsnappingtrue @@ -1724,7 +1714,7 @@ \clf_vspacingcollapse\nextbox\relax % isn't that already done? \fi \doifelsenothing{#1}{\spac_grids_snap_value_set\v!normal}{\spac_grids_snap_value_set{#1}}% - \clf_vspacingsnap\nextbox\attribute\snapmethodattribute\relax + \clf_vspacingsnap\nextbox\c_attr_snapmethod\relax \ifvbox\nextbox\vbox\else\hbox\fi attr \snapmethodattribute \zerocount {\box\nextbox}% no pack (?), we snap \egroup} @@ -1953,7 +1943,7 @@ \clf_vspacingsetamount{#1}} \def\spac_vspacing_no_topskip % use grouped - {\attribute\skipcategoryattribute\plusten} + {\c_attr_skipcategory\plusten} % \installcorenamespace{vspacingamountnormal} % \installcorenamespace{vspacingamountgrid} @@ -1984,9 +1974,9 @@ \appendtoks \s_spac_vspacing_temp\zeropoint - \attribute\skipcategoryattribute\plusone - \attribute\skippenaltyattribute \attributeunsetvalue - \attribute\skiporderattribute \attributeunsetvalue + \c_attr_skipcategory\plusone + \c_attr_skippenalty \attributeunsetvalue + \c_attr_skiporder \attributeunsetvalue \ifgridsnapping \settrue\c_space_vspacing_fixed \else @@ -2008,10 +1998,10 @@ \unexpanded\def\setblankcategory#1% {\settrue\c_space_vspacing_done - \attribute\skipcategoryattribute#1\relax} + \c_attr_skipcategory#1\relax} \unexpanded\def\setblankorder#1% - {\attribute\skiporderattribute#1\relax} + {\c_attr_skiporder#1\relax} \unexpanded\def\fixedblankskip {\settrue\c_space_vspacing_fixed} @@ -2026,8 +2016,8 @@ \unexpanded\def\setblankpenalty#1% {\flushblankhandling \settrue\c_space_vspacing_done - \attribute\skipcategoryattribute \plusthree - \attribute\skippenaltyattribute #1\relax + \c_attr_skipcategory\plusthree + \c_attr_skippenalty #1\relax \flushblankhandling} \unexpanded\def\startblankhandling % move this to \vspacing @@ -2175,17 +2165,17 @@ \unexpanded\def\directvpenalty#1% {\begingroup - \attribute\skipcategoryattribute \plusthree - \attribute\skippenaltyattribute #1\relax - \attribute\skiporderattribute \attributeunsetvalue + \c_attr_skipcategory\plusthree + \c_attr_skippenalty #1\relax + \c_attr_skiporder \attributeunsetvalue \vskip\zeropoint \endgroup} \unexpanded\def\directvskip#1% {\begingroup - \attribute\skipcategoryattribute \plusone - \attribute\skippenaltyattribute \attributeunsetvalue - \attribute\skiporderattribute \attributeunsetvalue + \c_attr_skipcategory\plusone + \c_attr_skippenalty \attributeunsetvalue + \c_attr_skiporder \attributeunsetvalue \vskip#1\relax \endgroup} @@ -2337,7 +2327,7 @@ \unexpanded\def\inhibitblank {\ifvmode \begingroup - \attribute\skipcategoryattribute\plusfive + \c_attr_skipcategory\plusfive \vskip\zeropoint \endgroup \fi} diff --git a/tex/context/base/mkiv/status-files.pdf b/tex/context/base/mkiv/status-files.pdf index c104e942f..374d3b695 100644 Binary files a/tex/context/base/mkiv/status-files.pdf and b/tex/context/base/mkiv/status-files.pdf differ diff --git a/tex/context/base/mkiv/status-lua.pdf b/tex/context/base/mkiv/status-lua.pdf index e0e2be91e..a39f37412 100644 Binary files a/tex/context/base/mkiv/status-lua.pdf and b/tex/context/base/mkiv/status-lua.pdf differ diff --git a/tex/context/base/mkiv/strc-con.mkvi b/tex/context/base/mkiv/strc-con.mkvi index 8c75eb6df..26a3bba35 100644 --- a/tex/context/base/mkiv/strc-con.mkvi +++ b/tex/context/base/mkiv/strc-con.mkvi @@ -226,7 +226,7 @@ {\begingroup \iftrialtypesetting \else \currentconstructionsynchronize - \attribute\destinationattribute\currentconstructionattribute\relax + \c_attr_destination\currentconstructionattribute\relax \fi #1% \endgroup} @@ -235,7 +235,7 @@ {\begingroup \iftrialtypesetting \else \currentconstructionsynchronize - \attribute\destinationattribute\currentconstructionattribute\relax + \c_attr_destination\currentconstructionattribute\relax \fi \currentconstructiontext \endgroup} @@ -244,7 +244,7 @@ {\iftrialtypesetting \else \begingroup \currentconstructionsynchronize % reinstated - \attribute\destinationattribute\currentconstructionattribute\relax % todo, whole text + \c_attr_destination\currentconstructionattribute\relax % todo, whole text \signalcharacter \endgroup \fi#1} diff --git a/tex/context/base/mkiv/strc-flt.mkvi b/tex/context/base/mkiv/strc-flt.mkvi index d6a6723d7..3d0218d50 100644 --- a/tex/context/base/mkiv/strc-flt.mkvi +++ b/tex/context/base/mkiv/strc-flt.mkvi @@ -397,7 +397,7 @@ \glet\currentfloatsynchronize\m_strc_counters_last_registered_synchronize % % \iflocation - % \attribute\destinationattribute\currentfloatattribute\relax + % \c_attr_destination\currentfloatattribute\relax % \fi \currentfloatsynchronize \strc_floats_make_complete_caption diff --git a/tex/context/base/mkiv/strc-lst.mkvi b/tex/context/base/mkiv/strc-lst.mkvi index a8783610c..18b4d4662 100644 --- a/tex/context/base/mkiv/strc-lst.mkvi +++ b/tex/context/base/mkiv/strc-lst.mkvi @@ -1544,14 +1544,14 @@ \def\strc_lists_set_reference_attribute_indeed#element% {\ifx#element\p_interaction_forward - \attribute\referenceattribute\a_strc_lists_reference + \c_attr_reference\a_strc_lists_reference \fi} \def\strc_lists_get_destination_attribute_indeed {attr \destinationattribute\number\a_strc_lists_destination} \def\strc_lists_set_destination_attribute_indeed - {\attribute\destinationattribute\a_strc_lists_destination} + {\c_attr_destination\a_strc_lists_destination} \unexpanded\def\strc_lists_set_style_color_normal#style#color#element% {\useliststyleandcolor#style#color} diff --git a/tex/context/base/mkiv/strc-mat.mkiv b/tex/context/base/mkiv/strc-mat.mkiv index 0b80a26cd..2c8ed8ddf 100644 --- a/tex/context/base/mkiv/strc-mat.mkiv +++ b/tex/context/base/mkiv/strc-mat.mkiv @@ -315,7 +315,7 @@ \def\theformuladestinationattribute#1% {\iflocation\ifx#1\relax\else\ifx#1\empty\else - \attribute\destinationattribute#1% + \c_attr_destination#1% \glet#1\relax \fi\fi\fi} diff --git a/tex/context/base/mkiv/strc-not.mkvi b/tex/context/base/mkiv/strc-not.mkvi index 0ea6e88ea..b83add08f 100644 --- a/tex/context/base/mkiv/strc-not.mkvi +++ b/tex/context/base/mkiv/strc-not.mkvi @@ -437,7 +437,7 @@ {\iftrialtypesetting \else \begingroup \currentconstructionsynchronize - \attribute\destinationattribute\currentconstructionattribute\relax % todo, whole text + \c_attr_destination\currentconstructionattribute\relax % todo, whole text \signalcharacter \endgroup \fi#following} @@ -582,20 +582,20 @@ % \def\strc_references_prepare_display_references_yes_number % {\let\strc_notes_set_reference_attribute_text\donothing % \strc_references_get_simple_reference{symb:\currentnote:\currentnotenumber}% reference -% \edef\strc_notes_set_reference_attribute_number{\attribute\referenceattribute\currentreferenceattribute}% +% \edef\strc_notes_set_reference_attribute_number{\c_attr_reference\currentreferenceattribute}% % \let\strc_notes_set_style_color_display\strc_notes_set_style_color_display_yes} % \def\strc_references_prepare_display_references_yes_text % {\strc_references_get_simple_reference{symb:\currentnote:\currentnotenumber}% reference -% \edef\strc_notes_set_reference_attribute_text{\attribute\referenceattribute\currentreferenceattribute}% +% \edef\strc_notes_set_reference_attribute_text{\c_attr_reference\currentreferenceattribute}% % \let\strc_notes_set_reference_attribute_number\donothing % \let\strc_notes_set_style_color_display\strc_notes_set_style_color_display_yes} % \def\strc_references_prepare_display_references_yes_all % {\strc_references_get_simple_reference{symb:\currentnote:\currentnotenumber}% reference -% \edef\strc_notes_set_reference_attribute_text{\attribute\referenceattribute\currentreferenceattribute}% +% \edef\strc_notes_set_reference_attribute_text{\c_attr_reference\currentreferenceattribute}% % \strc_references_get_simple_reference{symb:\currentnote:\currentnotenumber}% reference -% \edef\strc_notes_set_reference_attribute_number{\attribute\referenceattribute\currentreferenceattribute}% +% \edef\strc_notes_set_reference_attribute_number{\c_attr_reference\currentreferenceattribute}% % \let\strc_notes_set_style_color_display\strc_notes_set_style_color_display_yes} \def\strc_references_prepare_display_references_yes_number @@ -605,7 +605,7 @@ \else \let\strc_notes_set_reference_attribute_text\donothing \strc_references_get_simple_reference{*\currentnoteinternal}% reference - \edef\strc_notes_set_reference_attribute_number{\attribute\referenceattribute\currentreferenceattribute}% + \edef\strc_notes_set_reference_attribute_number{\c_attr_reference\currentreferenceattribute}% \let\strc_notes_set_style_color_display\strc_notes_set_style_color_display_yes \fi} @@ -615,7 +615,7 @@ \strc_references_prepare_display_references_nop \else \strc_references_get_simple_reference{*\currentnoteinternal}% reference - \edef\strc_notes_set_reference_attribute_text{\attribute\referenceattribute\currentreferenceattribute}% + \edef\strc_notes_set_reference_attribute_text{\c_attr_reference\currentreferenceattribute}% \let\strc_notes_set_reference_attribute_number\donothing \let\strc_notes_set_style_color_display\strc_notes_set_style_color_display_yes \fi} @@ -626,9 +626,9 @@ \strc_references_prepare_display_references_nop \else \strc_references_get_simple_reference{*\currentnoteinternal}% reference - \edef\strc_notes_set_reference_attribute_text{\attribute\referenceattribute\currentreferenceattribute}% + \edef\strc_notes_set_reference_attribute_text{\c_attr_reference\currentreferenceattribute}% \strc_references_get_simple_reference{*\currentnoteinternal}% reference - \edef\strc_notes_set_reference_attribute_number{\attribute\referenceattribute\currentreferenceattribute}% + \edef\strc_notes_set_reference_attribute_number{\c_attr_reference\currentreferenceattribute}% \let\strc_notes_set_style_color_display\strc_notes_set_style_color_display_yes \fi} diff --git a/tex/context/base/mkiv/strc-ref.mkvi b/tex/context/base/mkiv/strc-ref.mkvi index 42327686b..d68ecb805 100644 --- a/tex/context/base/mkiv/strc-ref.mkvi +++ b/tex/context/base/mkiv/strc-ref.mkvi @@ -167,7 +167,7 @@ \def\strc_references_placeholder {\ifx\dotaggedplaceholder\empty\else - \attribute\destinationattribute\lastdestinationattribute + \c_attr_destination\lastdestinationattribute \dotaggedplaceholder \fi} @@ -373,7 +373,7 @@ \unexpanded\def\vboxreference[#1]{\boxreference[#1]\vbox} % \ifx\currentdestinationattribute\empty -% \begingroup\attribute\destinationattribute\currentdestinationattribute\emptyhbox\endgroup % todo +% \begingroup\c_attr_destination\currentdestinationattribute\emptyhbox\endgroup % todo % \fi \def\defaultreferencepage#text{[[[#text]]]} @@ -1475,12 +1475,12 @@ \newbox\referencebox \def\revivesavedreferenceattribute % sometimes handy as no test etc needed - {\attribute\referenceattribute\lastsavedreferenceattribute} + {\c_attr_reference\lastsavedreferenceattribute} \def\strc_references_direct_goto#content[#label]% no test for valid references {\dontleavehmode \begingroup - \attribute\referenceattribute\attributeunsetvalue + \c_attr_reference\attributeunsetvalue \global\lastsavedreferenceattribute\attributeunsetvalue \iflocation \clf_injectreference @@ -1495,7 +1495,7 @@ \setlocationattributes \setstrut % can be option \global\lastsavedreferenceattribute\lastreferenceattribute - \attribute\referenceattribute\lastreferenceattribute + \c_attr_reference\lastreferenceattribute \dostarttagged\t!link\empty % not here #content% \dostoptagged @@ -1508,7 +1508,7 @@ {\dontleavehmode \begingroup \global\lastsavedreferenceattribute\attributeunsetvalue - \attribute\referenceattribute\attributeunsetvalue + \c_attr_reference\attributeunsetvalue \iflocation \clf_injectreference {\referenceprefix}% @@ -1520,7 +1520,7 @@ }% \relax \setlocationattributes - \attribute\referenceattribute\lastreferenceattribute + \c_attr_reference\lastreferenceattribute \global\lastsavedreferenceattribute\lastreferenceattribute \dostarttagged\t!link\empty #content% @@ -1535,7 +1535,7 @@ \begingroup %\setbox\referencebox\hbox\bgroup % experiment, might change again to non \par support \global\lastsavedreferenceattribute\attributeunsetvalue - \attribute\referenceattribute\attributeunsetvalue + \c_attr_reference\attributeunsetvalue \iflocation \clf_doifelsereference{\referenceprefix}{#label}{\extrareferencearguments}% {\expandtexincurrentreference @@ -1546,7 +1546,7 @@ \setlocationattributes \setstrut % can be option \global\lastsavedreferenceattribute\lastreferenceattribute - \attribute\referenceattribute\lastreferenceattribute + \c_attr_reference\lastreferenceattribute \dostarttagged\t!link\empty #content% \dostoptagged}% @@ -1561,12 +1561,12 @@ {\dontleavehmode \begingroup \global\lastsavedreferenceattribute\attributeunsetvalue - \attribute\referenceattribute\attributeunsetvalue + \c_attr_reference\attributeunsetvalue \iflocation \setstrut % can be option \strc_references_get_simple_reference{#internal}% \global\lastsavedreferenceattribute\currentreferenceattribute - \attribute\referenceattribute\currentreferenceattribute + \c_attr_reference\currentreferenceattribute \setlocationattributes \dostarttagged\t!link\empty #content% @@ -1602,7 +1602,7 @@ \setlocationattributes \setstrut % can be option \global\lastsavedreferenceattribute\lastreferenceattribute - \attribute\referenceattribute\lastreferenceattribute + \c_attr_reference\lastreferenceattribute \dostarttagged\t!link\empty \let\stopgoto\strc_references_stop_goto_yes} @@ -1614,7 +1614,7 @@ {\dontleavehmode \begingroup \global\lastsavedreferenceattribute\attributeunsetvalue - \attribute\referenceattribute\attributeunsetvalue + \c_attr_reference\attributeunsetvalue \iflocation \clf_doifelsereference{\referenceprefix}{#label}{\extrareferencearguments}% {\expandtexincurrentreference @@ -1624,7 +1624,7 @@ \relax \setlocationattributes \global\lastsavedreferenceattribute\lastreferenceattribute - \attribute\referenceattribute\lastreferenceattribute + \c_attr_reference\lastreferenceattribute \dostarttagged\t!link\empty #content% \dostoptagged}% @@ -1638,7 +1638,7 @@ {\dontleavehmode \begingroup \global\lastsavedreferenceattribute\attributeunsetvalue - \attribute\referenceattribute\attributeunsetvalue + \c_attr_reference\attributeunsetvalue \iflocation \clf_injectreference {\referenceprefix}% @@ -1659,7 +1659,7 @@ {\dontleavehmode \begingroup \global\lastsavedreferenceattribute\attributeunsetvalue - \attribute\referenceattribute\attributeunsetvalue + \c_attr_reference\attributeunsetvalue \iflocation \clf_injectreference {\referenceprefix}% @@ -1680,7 +1680,7 @@ {\dontleavehmode \begingroup \global\lastsavedreferenceattribute\attributeunsetvalue - \attribute\referenceattribute\attributeunsetvalue + \c_attr_reference\attributeunsetvalue \iflocation \clf_injectreference {\referenceprefix}% @@ -1700,7 +1700,7 @@ {\dontleavehmode \begingroup \global\lastsavedreferenceattribute\attributeunsetvalue - \attribute\referenceattribute\attributeunsetvalue + \c_attr_reference\attributeunsetvalue \iflocation \clf_doifelsereference{\referenceprefix}{#label}{\extrareferencearguments}% {\expandtexincurrentreference @@ -1723,7 +1723,7 @@ \wd\scratchbox#width% \ht\scratchbox#height% \global\lastsavedreferenceattribute\attributeunsetvalue - \attribute\referenceattribute\attributeunsetvalue + \c_attr_reference\attributeunsetvalue \clf_doifelsereference{\referenceprefix}{#label}{\extrareferencearguments}% {\clf_injectcurrentreference \global\lastsavedreferenceattribute\lastreferenceattribute diff --git a/tex/context/base/mkiv/strc-reg.mkiv b/tex/context/base/mkiv/strc-reg.mkiv index e955c700b..e2fede024 100644 --- a/tex/context/base/mkiv/strc-reg.mkiv +++ b/tex/context/base/mkiv/strc-reg.mkiv @@ -311,7 +311,7 @@ % needs thinking ... bla\index{bla}. will break before the . but adding a % penalty is also no solution \dostarttagged\t!registerlocation\currentregister - \attribute\destinationattribute\lastdestinationattribute \signalcharacter % no \strut as it will be removed during cleanup + \c_attr_destination\lastdestinationattribute \signalcharacter % no \strut as it will be removed during cleanup \dotagregisterlocation \dostoptagged \endgroup} @@ -344,7 +344,7 @@ \xdef\currentregistersynchronize{\clf_deferredenhanceregister{\currentregister}\number\currentregisternumber}% \currentregistersynchronize % here? \dostarttagged\t!registerlocation\currentregister - \attribute\destinationattribute\lastdestinationattribute \signalcharacter % no \strut as it will be removed during cleanup + \c_attr_destination\lastdestinationattribute \signalcharacter % no \strut as it will be removed during cleanup \dotagregisterlocation \dostoptagged \endgroup} @@ -564,7 +564,7 @@ view {\interactionparameter\c!focus}% \relax % this will change \dostarttagged\t!registerlocation\currentregister - \attribute\destinationattribute\lastdestinationattribute \signalcharacter % no \strut as it will be removed during cleanup + \c_attr_destination\lastdestinationattribute \signalcharacter % no \strut as it will be removed during cleanup \dotagregisterlocation \dostoptagged \endgroup} diff --git a/tex/context/base/mkiv/strc-ren.mkiv b/tex/context/base/mkiv/strc-ren.mkiv index 59f3a9256..2b344bbfb 100644 --- a/tex/context/base/mkiv/strc-ren.mkiv +++ b/tex/context/base/mkiv/strc-ren.mkiv @@ -90,9 +90,9 @@ \def\setinlineheadreferenceattributes {\ifconditional\headisdisplay \else \iflocation - \attribute\destinationattribute\currentstructureattribute - \attribute\referenceattribute \currentstructurereferenceattribute - % \attribute\internalattribute \locationcount + \c_attr_destination\currentstructureattribute + \c_attr_reference \currentstructurereferenceattribute + % \c_attr_internal \locationcount \fi \fi} \def\docheckheadreference diff --git a/tex/context/base/mkiv/strc-tag.mkiv b/tex/context/base/mkiv/strc-tag.mkiv index ab532f0ef..19d670215 100644 --- a/tex/context/base/mkiv/strc-tag.mkiv +++ b/tex/context/base/mkiv/strc-tag.mkiv @@ -415,7 +415,7 @@ \to \everysetuptagging \unexpanded\def\forgettagging - {\attribute\taggedattribute\attributeunsetvalue} + {\c_attr_tagged\attributeunsetvalue} \setuptagging [\c!state=\v!stop, diff --git a/tex/context/base/mkiv/tabl-ntb.mkiv b/tex/context/base/mkiv/tabl-ntb.mkiv index 836ba5129..45f746f3a 100644 --- a/tex/context/base/mkiv/tabl-ntb.mkiv +++ b/tex/context/base/mkiv/tabl-ntb.mkiv @@ -1511,7 +1511,7 @@ \advance\scratchcounter\plusone}% \fi % cell - \setbox\scratchbox\hbox attr \taggedattribute \attribute\taggedattribute \bgroup + \setbox\scratchbox\hbox attr \taggedattribute \c_attr_tagged \bgroup \dotagTABLEsignal % maybe we need to add some packaging in this case \tabl_ntb_get_txt{#1}{#2}% \egroup diff --git a/tex/context/base/mkiv/tabl-ntb.mkxl b/tex/context/base/mkiv/tabl-ntb.mkxl index cc2df4c69..ada655fa9 100644 --- a/tex/context/base/mkiv/tabl-ntb.mkxl +++ b/tex/context/base/mkiv/tabl-ntb.mkxl @@ -1501,7 +1501,7 @@ \advance\scratchcounter\plusone}% \fi % cell - \setbox\scratchbox\hbox attr \taggedattribute \attribute\taggedattribute \bgroup + \setbox\scratchbox\hbox attr \taggedattribute \c_attr_tagged \bgroup \dotagTABLEsignal % maybe we need to add some packaging in this case \tabl_ntb_get_txt{#1}{#2}% \egroup diff --git a/tex/context/base/mkiv/tabl-tbl.mkiv b/tex/context/base/mkiv/tabl-tbl.mkiv index 434b26095..9fea15e83 100644 --- a/tex/context/base/mkiv/tabl-tbl.mkiv +++ b/tex/context/base/mkiv/tabl-tbl.mkiv @@ -2112,7 +2112,7 @@ \stoptabulatenoalign} \def\spac_vspacing_no_topskip % use grouped - {\attribute\skipcategoryattribute\plusten} + {\c_attr_skipcategory\plusten} \unexpanded\def\tabl_tabulate_ML_second_indeed {\tabl_tabulate_break_no diff --git a/tex/context/base/mkiv/tabl-tbl.mkxl b/tex/context/base/mkiv/tabl-tbl.mkxl index cacaa52bf..8e4e45b9c 100644 --- a/tex/context/base/mkiv/tabl-tbl.mkxl +++ b/tex/context/base/mkiv/tabl-tbl.mkxl @@ -2114,7 +2114,7 @@ \stoptabulatenoalign} \def\spac_vspacing_no_topskip % use grouped - {\attribute\skipcategoryattribute\plusten} + {\c_attr_skipcategory\plusten} \unexpanded\def\tabl_tabulate_ML_second_indeed {\tabl_tabulate_break_no diff --git a/tex/context/base/mkiv/tabl-xtb.mkvi b/tex/context/base/mkiv/tabl-xtb.mkvi index e82795892..c5042a405 100644 --- a/tex/context/base/mkiv/tabl-xtb.mkvi +++ b/tex/context/base/mkiv/tabl-xtb.mkvi @@ -67,7 +67,7 @@ % % cells: option=fixed : nils autostretch (not yet complete) -% \setbox\scratchbox\hbox attr \taggedattribute \attribute\taggedattribute {...} +% \setbox\scratchbox\hbox attr \taggedattribute \c_attr_tagged {...} % % \let\tsplitbeforeresult\donothing % \let\tsplitafterresult \donothing diff --git a/tex/context/base/mkiv/trac-vis.mkiv b/tex/context/base/mkiv/trac-vis.mkiv index 14270214f..b261747c1 100644 --- a/tex/context/base/mkiv/trac-vis.mkiv +++ b/tex/context/base/mkiv/trac-vis.mkiv @@ -44,7 +44,7 @@ % no, but can become an option: % % \appendtoks -% \attribute\visualattribute\attributeunsetvalue +% \c_attr_visual\attributeunsetvalue % \to \everybeforepagebody %D We only provide box visualizers as they can come in handy for testing @@ -162,7 +162,7 @@ \endgroup} \unexpanded\def\resetvisualizers - {\attribute\visualattribute\attributeunsetvalue} + {\c_attr_visual\attributeunsetvalue} %D New (these might also be a visualizers): diff --git a/tex/context/base/mkiv/typo-brk.mkiv b/tex/context/base/mkiv/typo-brk.mkiv index 6071221dd..23ab414fe 100644 --- a/tex/context/base/mkiv/typo-brk.mkiv +++ b/tex/context/base/mkiv/typo-brk.mkiv @@ -64,7 +64,7 @@ \unexpanded\def\resetbreakpoints {\exhyphenchar\hyphenasciicode % 2020.03.05 - \attribute\breakpointattribute\attributeunsetvalue} + \c_attr_breakpoint\attributeunsetvalue} \definebreakpoints[compound] diff --git a/tex/context/base/mkiv/typo-cap.mkiv b/tex/context/base/mkiv/typo-cap.mkiv index 20e2eb7a9..8f7b6ae2c 100644 --- a/tex/context/base/mkiv/typo-cap.mkiv +++ b/tex/context/base/mkiv/typo-cap.mkiv @@ -298,9 +298,9 @@ % % \definestartstop[randomized][\c!before=\dosetattribute{case}{8},\c!after=] -% \unexpanded\def\randomizetext{\groupedcommand{\attribute\caseattribute\pluseight}{}} +% \unexpanded\def\randomizetext{\groupedcommand{\c_attr_case\pluseight}{}} -\unexpanded\def\randomizetext{\triggergroupedcommand{\attribute\caseattribute\pluseight}} +\unexpanded\def\randomizetext{\triggergroupedcommand{\c_attr_case\pluseight}} \definestartstop[randomized][\c!before=\dosetattribute{case}{8},\c!after=] diff --git a/tex/context/base/mkiv/typo-cln.mkiv b/tex/context/base/mkiv/typo-cln.mkiv index efc278cfa..bdda19424 100644 --- a/tex/context/base/mkiv/typo-cln.mkiv +++ b/tex/context/base/mkiv/typo-cln.mkiv @@ -27,7 +27,7 @@ {\clf_setcharactercleaning{#1}} % also accepts "reset" % \appendtoks -% \attribute\cleanerattribute\attributeunsetvalue +% \c_attr_cleaner\attributeunsetvalue % \to \everyforgetall \protect \endinput diff --git a/tex/context/base/mkiv/typo-dig.mkiv b/tex/context/base/mkiv/typo-dig.mkiv index 0f957fbc1..26e35c199 100644 --- a/tex/context/base/mkiv/typo-dig.mkiv +++ b/tex/context/base/mkiv/typo-dig.mkiv @@ -42,7 +42,7 @@ {\clf_setdigitsmanipulation{#1}} \unexpanded\def\resetdigitsmanipulation - {\attribute\digitsattribute\attributeunsetvalue} + {\c_attr_digits\attributeunsetvalue} \appendtoks \resetdigitsmanipulation diff --git a/tex/context/base/mkiv/typo-dir.mkiv b/tex/context/base/mkiv/typo-dir.mkiv index 7449a7053..d9fb3b050 100644 --- a/tex/context/base/mkiv/typo-dir.mkiv +++ b/tex/context/base/mkiv/typo-dir.mkiv @@ -45,7 +45,7 @@ % is in fact: \unexpanded\def\resetdirection - {\attribute\directionsattribute\attributeunsetvalue} + {\c_attr_directions\attributeunsetvalue} \newconstant\directionsbidimode % this one might become pivate diff --git a/tex/context/base/mkiv/typo-drp.mkiv b/tex/context/base/mkiv/typo-drp.mkiv index 25b006b2f..6ed7e8bfe 100644 --- a/tex/context/base/mkiv/typo-drp.mkiv +++ b/tex/context/base/mkiv/typo-drp.mkiv @@ -22,7 +22,7 @@ \definesystemattribute[initial][public] \appendtoks - \attribute\initialattribute\attributeunsetvalue + \c_attr_initial\attributeunsetvalue \to \everyforgetall %D For the moment here: dropped caps redone. In addition to the @@ -105,13 +105,13 @@ distance \dimexpr\initialparameter\c!distance\relax hoffset \dimexpr\initialparameter\c!hoffset\relax voffset \scratchvoffset - ma \attribute\colormodelattribute - ca \attribute\colorattribute - ta \attribute\transparencyattribute + ma \c_attr_colormodel + ca \c_attr_color + ta \c_attr_transparency font \fontid\font dynamic \font_dynamic_value % it's a bit over the top to support this here \relax - \attribute\initialattribute\plusone + \c_attr_initial\plusone \initialparameter\c!text \endgroup \glet\typo_initial_handle\relax} diff --git a/tex/context/base/mkiv/typo-fkr.mkiv b/tex/context/base/mkiv/typo-fkr.mkiv index 7444db511..ec1b2907f 100644 --- a/tex/context/base/mkiv/typo-fkr.mkiv +++ b/tex/context/base/mkiv/typo-fkr.mkiv @@ -29,7 +29,7 @@ {\clf_setextrafontkerns{#1}} \unexpanded\def\resetextrafontkerns - {\attribute\extrafontkernattribute\attributeunsetvalue} + {\c_attr_extrafontkern\attributeunsetvalue} \appendtoks \resetextrafontkerns diff --git a/tex/context/base/mkiv/typo-fln.mkiv b/tex/context/base/mkiv/typo-fln.mkiv index 6cca39f91..64ec092d6 100644 --- a/tex/context/base/mkiv/typo-fln.mkiv +++ b/tex/context/base/mkiv/typo-fln.mkiv @@ -55,7 +55,7 @@ \definesystemattribute[firstline][public] \appendtoks - \attribute\firstlineattribute\attributeunsetvalue + \c_attr_firstline\attributeunsetvalue \to \everyforgetall \installcorenamespace {firstline} @@ -81,9 +81,9 @@ \usefirstlinestyleandcolor\c!style\c!color \clf_setfirstline alternative {\firstlineparameter\c!alternative}% - ma \attribute\colormodelattribute - ca \attribute\colorattribute - ta \attribute\transparencyattribute + ma \c_attr_colormodel + ca \c_attr_color + ta \c_attr_transparency n \numexpr\firstlineparameter\c!n\relax font \fontid\font dynamic \font_dynamic_value diff --git a/tex/context/base/mkiv/typo-itc.mkvi b/tex/context/base/mkiv/typo-itc.mkvi index 5aeb67239..312a2efb4 100644 --- a/tex/context/base/mkiv/typo-itc.mkvi +++ b/tex/context/base/mkiv/typo-itc.mkvi @@ -35,7 +35,7 @@ \fi \unexpanded\def\italiccorrection - {\ifnum\attribute\italicsattribute<\plusone\normalitaliccorrection\fi} + {\ifnum\c_attr_italics<\plusone\normalitaliccorrection\fi} \let\/\italiccorrection @@ -57,7 +57,7 @@ {\clf_setupitaliccorrection{#settings}} \appendtoks - \attribute\italicsattribute\attributeunsetvalue + \c_attr_italics\attributeunsetvalue \to \everymathematics \protect \endinput diff --git a/tex/context/base/mkiv/typo-krn.mkiv b/tex/context/base/mkiv/typo-krn.mkiv index fedbce4d1..80c71932f 100644 --- a/tex/context/base/mkiv/typo-krn.mkiv +++ b/tex/context/base/mkiv/typo-krn.mkiv @@ -41,7 +41,7 @@ \clf_setcharacterkerning{\characterkerningparameter\c!factor}} \unexpanded\def\resetcharacterkerning % fast one - {\attribute\kernattribute\attributeunsetvalue} + {\c_attr_kern\attributeunsetvalue} \appendtoks \resetcharacterkerning diff --git a/tex/context/base/mkiv/typo-lig.mkiv b/tex/context/base/mkiv/typo-lig.mkiv index 6171441d6..ea1b27b73 100644 --- a/tex/context/base/mkiv/typo-lig.mkiv +++ b/tex/context/base/mkiv/typo-lig.mkiv @@ -24,7 +24,7 @@ \unexpanded\def\noligature#1% {\dontleavehmode \begingroup - \attribute\noligatureattribute\plusone + \c_attr_noligature\plusone #1% \endgroup} diff --git a/tex/context/base/mkiv/typo-ovl.mkiv b/tex/context/base/mkiv/typo-ovl.mkiv index 025ae8a8f..767ba3569 100644 --- a/tex/context/base/mkiv/typo-ovl.mkiv +++ b/tex/context/base/mkiv/typo-ovl.mkiv @@ -55,7 +55,7 @@ {\ifcsname\??overloads#1\endcsname\else \typo_overloads_define{#1}% \fi - \attribute\overloadsattribute\csname\??overloads#1\endcsname} + \c_attr_overloads\csname\??overloads#1\endcsname} \unexpanded\def\registeroverloads[#1]% {\ifcsname\??overloads#1\endcsname\else @@ -63,7 +63,7 @@ \fi} \unexpanded\def\resetoverloads - {\overloadsattribute\attributeunsetvalue} + {\c_attr_overloads\attributeunsetvalue} %D We hook this into the replacement module, probably the only place where it makes %D sense. Here is an adapted version of an example: diff --git a/tex/context/base/mkiv/typo-pnc.mkiv b/tex/context/base/mkiv/typo-pnc.mkiv index 39d0c85f4..f2c588912 100644 --- a/tex/context/base/mkiv/typo-pnc.mkiv +++ b/tex/context/base/mkiv/typo-pnc.mkiv @@ -39,7 +39,7 @@ {\clf_setperiodkerning{\periodkerningparameter\c!factor}} \unexpanded\def\resetperiodkerning % fast one - {\attribute\periodkernattribute\attributeunsetvalue} + {\c_attr_periodkern\attributeunsetvalue} \appendtoks \resetperiodkerning diff --git a/tex/context/base/mkiv/typo-rep.mkiv b/tex/context/base/mkiv/typo-rep.mkiv index df8408999..71ab9ffa9 100644 --- a/tex/context/base/mkiv/typo-rep.mkiv +++ b/tex/context/base/mkiv/typo-rep.mkiv @@ -41,7 +41,7 @@ {\clf_setcharacterstripping{#1}} \unexpanded\def\resetcharacterstripping - {\attribute\strippingattribute\attributeunsetvalue} + {\c_attr_stripping\attributeunsetvalue} % maybe .. this might disappear, but is handy for testing diff --git a/tex/context/base/mkiv/typo-spa.mkiv b/tex/context/base/mkiv/typo-spa.mkiv index fc73ef021..682830150 100644 --- a/tex/context/base/mkiv/typo-spa.mkiv +++ b/tex/context/base/mkiv/typo-spa.mkiv @@ -58,7 +58,7 @@ {\clf_setcharacterspacing{#1}} \unexpanded\def\resetcharacterspacing % fast one - {\attribute\spacingattribute\attributeunsetvalue} + {\c_attr_spacing\attributeunsetvalue} \appendtoks \resetcharacterspacing diff --git a/tex/context/base/mkiv/typo-tal.mkiv b/tex/context/base/mkiv/typo-tal.mkiv index 33e071e75..36e78aee0 100644 --- a/tex/context/base/mkiv/typo-tal.mkiv +++ b/tex/context/base/mkiv/typo-tal.mkiv @@ -56,10 +56,10 @@ % D % D \typebuffer \blank \getbuffer \blank -\unexpanded\def\signalcharacteralign #1#2{\attribute\characteralignattribute\numexpr#1*\maxcardminusone+#2\relax} % 0xFFFF +\unexpanded\def\signalcharacteralign #1#2{\c_attr_characteralign\numexpr#1*\maxcardminusone+#2\relax} % 0xFFFF \unexpanded\def\setcharacteralign #1#2{\clf_setcharacteralign#1{#2}} \unexpanded\def\resetcharacteralign {\clf_resetcharacteralign} -\unexpanded\def\nocharacteralign {\attribute\characteralignattribute\attributeunsetvalue} +\unexpanded\def\nocharacteralign {\c_attr_characteralign\attributeunsetvalue} \unexpanded\def\setcharacteraligndetail#1#2#3#4{\clf_setcharacteraligndetail#1{#2}#3#4\relax} %D Mostly downward compatible: diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua index 6c990f409..68b47494a 100644 --- a/tex/generic/context/luatex/luatex-fonts-merged.lua +++ b/tex/generic/context/luatex/luatex-fonts-merged.lua @@ -1,6 +1,6 @@ -- merged file : c:/data/develop/context/sources/luatex-fonts-merged.lua -- parent file : c:/data/develop/context/sources/luatex-fonts.lua --- merge date : 2020-06-19 11:04 +-- merge date : 2020-06-20 13:33 do -- begin closure to overcome local limits and interference -- cgit v1.2.3